Дипломная работа: Диплом Разработка АС управления персоналом

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

TStringList* l3=new TStringList;

l3->LoadFromFile("C:/Pred/Otd3.txt");

Form14->ListBox3->Items->AddStrings(l3);

Form14->ListBox3->Perform(LB_SETHORIZONTALEXTENT,4000,0);

ShowScrollBar(Form14->ListBox3->Handle, SB_VERT, True);

Form14->ListBox4->Items->Clear();

TStringList* l4=new TStringList;

l4->LoadFromFile("C:/Pred/Otd4.txt");

Form14->ListBox4->Items->AddStrings(l4);

Form14->ListBox4->Perform(LB_SETHORIZONTALEXTENT,4000,0);

ShowScrollBar(Form14->ListBox4->Handle, SB_VERT, True);

}

//---------------------------------------------------------------------------

void __fastcall TForm10::Button5Click(TObject *Sender)

{

Form15->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm10::Button6Click(TObject *Sender)

{

Form16->Show();

Form16->ListBox1->Items->Clear();

TStringList* l1=new TStringList;

l1->LoadFromFile("C:/Pred/Otd1.txt");

Form16->ListBox1->Items->AddStrings(l1);

Form16->Edit1->Text = Form16->ListBox1->Items->Strings[0];

Form16->Edit5->Text=StrToInt(Form16->ListBox1->Items->Count-1);

Form13->Button1->Enabled=False;

Form13->Button2->Enabled=True;

}

//---------------------------------------------------------------------------

void __fastcall TForm10::Button7Click(TObject *Sender)

{

Form20->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm10::Button8Click(TObject *Sender)

{

Form10->Close();

}

//---------------------------------------------------------------------------

Источник: https://files.student-it.ru/previewfile/593

Смотрите также:

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал