105
{$R *.dfm}
uses
uSchedule, uInstruction, uActor, uDM, uPersonal, uLibrary, uReport, uUser;
procedure TfrmMain.btnCancelClick(Sender: TObject);
begin
DM.tblIncident.Cancel;
ModeView(true);
end;
procedure TfrmMain.btnSaveClick(Sender: TObject);
var dt: TDateTime;
begin
dt:=StrToDateTime(DateToStr(dtpDate.Date)+' '+TimeToStr(dtpTime.Time));
DM.tblIncident.FieldByName('sDate').AsDateTime:=dt;
DM.tblIncident.Post;
ModeView(true);
end;
procedure TfrmMain.FormShow(Sender: TObject);
begin
ModeView(true);
end;
procedure TfrmMain.imAddMainClick(Sender: TObject);
begin
ModeView(false);
dtpDate.DateTime:=Date;
dtpTime.DateTime:=Time;
DM.tblIncident.Append;
106
end;
procedure TfrmMain.imAddSubClick(Sender: TObject);
var
frm: TfrmActor;
begin
Application.CreateForm(TfrmActor,frm);
DM.tblActor.Append;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imCloseClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TfrmMain.imDeleteMainClick(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
DM.tblIncident.Delete;
end;
procedure TfrmMain.imDeleteSubClick(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
DM.tblActor.Delete;
end;
procedure TfrmMain.imEditMainClick(Sender: TObject);
107
begin
ModeView(false);
DM.tblIncident.Edit;
end;
procedure TfrmMain.imInstructionClick(Sender: TObject);
var
frm: TfrmInstruction;
begin
Application.CreateForm(TfrmInstruction,frm);
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imLibraryClick(Sender: TObject);
var
frm: TfrmLibrary;
begin
Application.CreateForm(TfrmLibrary, frm);
frm.LoadLibrary((Sender as TMenuItem).Tag);
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imLinkingClick(Sender: TObject);
begin
DM.SettingLink;
end;
procedure TfrmMain.imPersonalClick(Sender: TObject);
var
frm: TfrmPersonal;
108
begin
Application.CreateForm(TfrmPersonal,frm);
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imReportClick(Sender: TObject);
var
frm: TfrmReport;
begin
Application.CreateForm(TfrmReport,frm);
frm.Tag:=(Sender as TMenuItem).Tag;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imScheduleClick(Sender: TObject);
var
frm: TfrmSchedule;
begin
Application.CreateForm(TfrmSchedule,frm);
frm.Tag:=(Sender as TMenuItem).Tag;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imUserClick(Sender: TObject);
var
frm: TfrmUser;
begin
Application.CreateForm(TfrmUser,frm);
109
frm.Tag:=(Sender as TMenuItem).Tag;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.ModeView(mode: boolean);//true - Veiw; false - Modify
begin
pnlGrid.Enabled:= mode;
pnlSub.Enabled:= mode;
pnlMain.Visible:= not mode;
end;
procedure TfrmMain.pmMainPopup(Sender: TObject);
begin
imEditMain.Enabled:=grdMain.DataSource.DataSet.RecordCount>0;
imDeleteMain.Enabled:=grdMain.DataSource.DataSet.RecordCount>0;
end;
procedure TfrmMain.pmSubPopup(Sender: TObject);
var
fl: boolean;
begin
fl:=grdMain.DataSource.DataSet.RecordCount>0;
imAddSub.Visible:=fl;
imDeleteSub.Visible:=grdSub.DataSource.DataSet.RecordCount>0;
end;
end.