Foml

:ruS->AutoScaleDimensions = System: : Drawing: :SizeF(6, 13); .,s->AutoScaleMode = System::Windows: :Forms: :AutoScaieMode: :Font; :r.iS->ClientSize = System: : Drawing::Size (411, 283); ais->Controls->Add (this->tabControll); L:is->Name = L Forml ; j:s->Tag = L ;

-jis->Text = Ь Городское агентство по трудоустройству ;

i:s->Resize += gcnew System: :EventHandleг (this,

SFoml::Forml Resize); I - ,4

this->Shown += gcnew System::EventHandler (this,

SFoml:: Forml Shown) ; iis->tabControll->ResumeLayout (false) ; tr.is->tabPagel->ResumeLayout (false); .his->tabPagel->PerformLayout () ; jis->tabPage2->ResumeLayout (false); jis->ResumeLayout (false) ;

(pragma endregion

.is->tabPage2->Padding = System: :Windows: :Forms: :Padding (3) ; j..s->tabPage2->Size = System:: Drawing: : Size (395, 248); i:is->tabPage2->TabIndex = 1; .is->tabPage2->Text = Ь Приложение ; .iIs->tabPage2->UseVisualStyleBackColor = true;

lab€l4

j..s->label4->Location = System: : Drawing: : Point (116, 76); ais->label4->Name = L label4 ;

i:s->label4->Size = System: : Drawing: : Size (148, 38); :his->label4->TabIndex = 0;

i-S->label4->Text = Ь 3десь размещаются компоненты приложения ;

private: System::Void buttonl Click(System::Object sender. System::EventArgs e)

this->Close();

private: System::Void textBoxl KeyDown(System::Object sender. System:rWindows::Forms::KeyEventArgs e) {

if(e->KeyCode = Keys::Enter) {

проверка UserName String s; int jj;

s=th i s->textBoxl->Text; jj=s->Compare(s, admin ); if(!jj) это имя администратора {

this->button2->Enabled=true; открывается его кнопка this->button2->Focus(); this->textBox2->Text= ; return;

int j=0,i=0;

for(i=0;i<this->listBoxl->Items->Count; i++) {

w=this->listBoxl->Items[i]->ToString(); int pos=w->IndexOf( / ); us=w->Substring(0,pos); jj=s->Compare(s,us); if(jj) continue; else {

int posl=pos+l;

break;

} for if(!j) {

MessageBox::Show( Ошибка в UserName , Приложение 67 , MessageBoxButtons::OK,MessageBoxIcon::Asterisk); this->textBoxl->Text= ; -Jiis->textBoxl->Focus () ; return;

Здесь имя пользователя найдено, надо идти на ввод пароля this->textBoxl->Text= ; this->textBox2->Text= this->textBox2->Focus () return;

} if (== Enter) Обработчик

srivate: System::Void textBox2 KeyDown (System: :Object sender. System:: Windows: : Forms: : KeyEventArgs e)

обработка пароля if(e->KeyCode == Keys:: Enter)

String s=this->textBox2->Text; int j=0;

int pos=w->IndexOf( / ); подгонка под начало поиска 1-го

разделителя после найденного. 1-й всегда найдется, т. к. он нашелся при поиске UserName int posl=w->IndexOf( / ,pos+l); ищется 2-й разделитель if (!posl) i

MessageBox::Show( Ошибка в строке паролей , Приложение 67 , MessageBoxButtons::OK,MessageBoxIcon::Asterisk);