Geum.ru


Реализация информационной подсистемы "Computers"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



Action: TCloseAction);MessageDlg('Завершить работу с программой?',mtConfirmation,

[mbYes,mbNo],0)=mrNo Then Action:=caNone;;

TfmMain.DepartmentRoomClick(Sender: TObject);.ShowModal;;

procedure TfmMain.Timer1Timer(Sender: TObject);.Panels[3].Text:= 'Текущее время:' + TimeToStr(now);;

TfmMain.FormCreate(Sender: TObject);_Login:=False;.Panels[2].Text:= 'Сегодня:' + DateToStr(Date);;

TfmMain.FormActivate(Sender: TObject);not Go_Login then fmPasswordDlg.Show;;

TfmMain.UserListClick(Sender: TObject);.ShowModal; ;

TfmMain.ReplacementPasswordClick(Sender: TObject);.Caption:= 'Смена пароля';.ShowModal;;

TfmMain.AboutBoxClick(Sender: TObject);.ShowModal;;

.