Дипломная работа: Исследование и разработка информационной системы приема и анализа заявок технической поддержки на примере Администрации г. Новый Уренгой

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
99
frmMDI.mnuStat.Visible:=false;
frmMDI.mnuLog.Visible:=true;
frmMDI.mnuExit.Visible:=true;
end;
frmMDI.Caption:='АИС Аттестация - '+sFIOSotr+' '+'('+sLogin+')'+' '+'-'+'
'+sStatus;
}
end;
procedure TfrmMDI.mnuSotrClick(Sender: TObject);
begin
Application.CreateForm(TfrmSotr,frmSotr);
end;
procedure TfrmMDI.mnuExitClick(Sender: TObject);
begin
Close;
end;
procedure TfrmMDI.mnuLogClick(Sender: TObject);
begin
//FreeAndNil(frmMDI);
Application.CreateForm(TfrmLog,frmLog);
end;
procedure TfrmMDI.mnuLKklientClick(Sender: TObject);
begin
Application.CreateForm(TfrmOperat,frmOperat);
100
end;
procedure TfrmMDI.mnuLKtehsupportClick(Sender: TObject);
begin
Application.CreateForm(TfrmSupport,frmSupport);
end;
procedure TfrmMDI.mnuOrgClick(Sender: TObject);
begin
//Application.CreateForm(TfrmPosition,frmPosition);
end;
end.
Описание модуля sotr
unit sotr;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, Buttons, DB, ADODB;
type
TfrmSotr = class(TForm)
Panel1: TPanel;
Label1: TLabel;
txtNameOtdela: TDBEdit;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
101
cmdFirst: TBitBtn;
cmdPrior: TBitBtn;
cmdNext: TBitBtn;
cmdLast: TBitBtn;
cmdAppend: TBitBtn;
cmdDelete: TBitBtn;
cmdSave: TBitBtn;
Label_Kol_Zap: TLabel;
Panel2: TPanel;
Label3: TLabel;
Label2: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
txtFIO: TDBEdit;
txtDolgnost: TDBEdit;
txtTelefon: TDBEdit;
txtEmail: TDBEdit;
txtLogin: TDBEdit;
txtPassword: TDBEdit;
Label12: TLabel;
cbStatusSotr: TDBComboBox;
cmdAppend2: TBitBtn;
cmdDelete2: TBitBtn;
cmdNext2: TBitBtn;
cmdPrior2: TBitBtn;
cmdFirst2: TBitBtn;
cmdLast2: TBitBtn;
102
cmdSave2: TBitBtn;
DataSource2: TDataSource;
ADOQuery2: TADOQuery;
Label_Kol_Zap_2: TLabel;
Panel3: TPanel;
Label_Find: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
txtFind: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Label4: TLabel;
procedure Label_FindMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Label_FindClick(Sender: TObject);
procedure ADOQuery1AfterEdit(DataSet: TDataSet);
procedure cmdFirstClick(Sender: TObject);
procedure cmdPriorClick(Sender: TObject);
procedure cmdNextClick(Sender: TObject);
procedure cmdLastClick(Sender: TObject);
procedure cmdAppendClick(Sender: TObject);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
procedure DataSource1StateChange(Sender: TObject);
103
procedure ADOQuery1AfterDelete(DataSet: TDataSet);
procedure ADOQuery1AfterOpen(DataSet: TDataSet);
procedure ADOQuery1AfterPost(DataSet: TDataSet);
procedure cmdSaveClick(Sender: TObject);
procedure cmdDeleteClick(Sender: TObject);
procedure ADOQuery1AfterCancel(DataSet: TDataSet);
procedure cmdFirst2Click(Sender: TObject);
procedure cmdPrior2Click(Sender: TObject);
procedure cmdNext2Click(Sender: TObject);
procedure cmdLast2Click(Sender: TObject);
procedure cmdAppend2Click(Sender: TObject);
procedure cmdSave2Click(Sender: TObject);
procedure cmdDelete2Click(Sender: TObject);
procedure DataSource2DataChange(Sender: TObject; Field: TField);
procedure DataSource2StateChange(Sender: TObject);
procedure ADOQuery2AfterCancel(DataSet: TDataSet);
procedure ADOQuery2AfterDelete(DataSet: TDataSet);
procedure ADOQuery2AfterEdit(DataSet: TDataSet);
procedure ADOQuery2AfterOpen(DataSet: TDataSet);
procedure ADOQuery2AfterPost(DataSet: TDataSet);
procedure Label9Click(Sender: TObject);
procedure Label10Click(Sender: TObject);
procedure Label11Click(Sender: TObject);
procedure Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
Источник: https://baza.diplomsite.ru/previewfile/8703

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

_Rezonans_napryazheniy
_Ugolov_Process_05
'Fratres' Арво Пярта - молитва в музыке
'Миссия университета' как научно-педагогический концепт эпохи постиндустриального развития
«Досрочные страховые пенсии»
«Характеристика объектов коммерческой деятельности в торговле»
(никита)KUL_T_KL_EKZAMEN
[1 курс] БЖД