84
N11: TMenuItem;
N12: TMenuItem;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton16: TToolButton;
Clients: TAction;
N3: TMenuItem;
ToolButton3: TToolButton;
SpecServ: TAction;
ToolButton4: TToolButton;
NewPosech: TAction;
ToolButton9: TToolButton;
N10: TMenuItem;
NewPosech1: TMenuItem;
About: TAction;
N13: TMenuItem;
N15: TMenuItem;
ToolButton15: TToolButton;
ToolButton13: TToolButton;
Timer1: TTimer;
ToolButton14: TToolButton;
ActCards: TAction;
R1: TMenuItem;
ToolButton17: TToolButton;
N18: TMenuItem;
N2: TMenuItem;
RegPosech: TAction;
Image1: TImage;
ActionUserParam: TAction;
85
N4: TMenuItem;
N5: TMenuItem;
ToolButton2: TToolButton;
N6: TMenuItem;
N8: TMenuItem;
ActStat: TAction;
N9: TMenuItem;
N16: TMenuItem;
ActStat2: TAction;
N17: TMenuItem;
ActStat3: TAction;
StatClient: TAction;
StatClient1: TMenuItem;
ActBurned: TAction;
N20: TMenuItem;
N21: TMenuItem;
AclClientDt: TAction;
N22: TMenuItem;
XPManifest1: TXPManifest;
procedure ExitProgExecute(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure LoginExecute(Sender: TObject);
procedure ClientsExecute(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure NewPosechExecute(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure AboutExecute(Sender: TObject);
procedure ActCardsExecute(Sender: TObject);
procedure ActSprTIMEFORCARDSExecute(Sender: TObject);
86
procedure ActSprCARDTYPESExecute(Sender: TObject);
procedure ActSprCARDSExecute(Sender: TObject);
procedure ActSprVIEWTYPESExecute(Sender: TObject);
procedure ActSprCABINETExecute(Sender: TObject);
procedure ActSprADMINSExecute(Sender: TObject);
procedure ActSprSERVICEExecute(Sender: TObject);
procedure ActSprSPECIALITYExecute(Sender: TObject);
procedure ActSprSERVICE_SPECIALITYExecute(Sender: TObject);
procedure ActSprSERVISEONCARDExecute(Sender: TObject);
procedure ActSprWORKTIMEExecute(Sender: TObject);
procedure ActSprMATERIALSExecute(Sender: TObject);
procedure RegPosechExecute(Sender: TObject);
procedure ActionUserParamExecute(Sender: TObject);
procedure ActSprSPECExecute(Sender: TObject);
procedure ActStatExecute(Sender: TObject);
procedure ActStat2Execute(Sender: TObject);
procedure ActStat3Execute(Sender: TObject);
procedure StatClientExecute(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure ActBurnedExecute(Sender: TObject);
procedure ActSprVIEWLASTDTExecute(Sender: TObject);
procedure AclClientDtExecute(Sender: TObject);
private
{ Private declarations }
public
procedure ShowHint(Sender: TObject);
{ Public declarations }
end;
87
var
FrmMain: TFrmMain;
implementation
uses klViewLastDt, klSpec, klUsedMat, klMaterials, klWorkTime,
klServiseOnCard, klService_Speciality, klSpeciality, klService, klAdmins,
klCabinet, klViewTypes, klcards, klCardTypes, klTimeForCards, loginm, client,
about,
add, dat, priem,login,usersett,stat, stat2, Stat3, statcli;
{$R *.dfm}
procedure sorry;
begin
rusdlg.Error('Нет. Не было или утеряно.');
end;
// Выход из программы
procedure TFrmMain.ExitProgExecute(Sender: TObject);
begin
close;
end;
//создание главной формы
procedure TFrmMain.FormCreate(Sender: TObject);
var
s:string;
88
begin
Application.OnHint := ShowHint;
statusbar1.panels[0].text := 'Администратор: '+user;
end;
procedure TFrmMain.ShowHint(Sender: TObject);
begin
statusbar1.panels[2].text := Application.Hint;
end;
//Вход в систему
procedure TFrmMain.LoginExecute(Sender: TObject);
var emp:boolean;
SecLevel:integer;
begin
if not DoLogin then
begin
Close;
Exit;
end;
statusbar1.panels[0].text := 'Администратор: '+user;
end;
89
procedure TFrmMain.ClientsExecute(Sender: TObject);
begin
Application.CreateForm(TFrmClient, FrmClient);
FrmClient.ShowModal;
FrmClient.free;
end;
procedure TFrmMain.FormCloseQuery(Sender: TObject; var CanClose:
Boolean);
begin
// CanClose := Confirm('Вы действительно хотите выйти');
end;
procedure TFrmMain.NewPosechExecute(Sender: TObject);
begin
// sorry;
try
dm.Tbldata.Close;
dm.Tbldata.Open;
Application.CreateForm(TFrmAddPosech, FrmAddPosech);
with FrmAddPosech do
begin
FrmAddPosech.LastServ:=-1;
dm.Tbldata.Append;
if ShowModal=mrOk then
begin
dm.TbldataData_start.Value := GetDate;
90
dm.TbldataData_end.Value := GetDate(False);
dm.TbldataCost.Value := StrToInt(LCost.Caption);
dm.Tbldatasost.Value:=0;
dm.Tbldata.Post;
if card<>-1 then
dm.FixedPos(card,dm.TbldataService_ID.Value);
end
else
dm.Tbldata.cancel;
FrmAddPosech.free;
end;
except
on e:Exception do
ShowMessage(e.Message);
end
end;
procedure TFrmMain.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[1].Text:=DateTimeToStr(now);
{ if assigned(FrmAddPosech) then
FrmAddPosech.Lt.Caption := DateTimeToStr(now); }
end;
procedure TFrmMain.AboutExecute(Sender: TObject);
begin
Application.CreateForm(TOKBottomDlg, OKBottomDlg);
OKBottomDlg.ShowModal;
OKBottomDlg.Free;
91
end;
procedure TFrmMain.ActCardsExecute(Sender: TObject);
begin
end;
// запуск справочника "TimeForCards"
procedure TFrmMain.ActSprTIMEFORCARDSExecute(Sender:
TObject);
begin
// RunFrmKlTIMEFORCARDS; // вызов процедуры запуска формы
справочника
end;
// запуск справочника "Типы карт"
procedure TFrmMain.ActSprCARDTYPESExecute(Sender: TObject);
begin
RunFrmKlCARDTYPES; // вызов процедуры запуска формы
справочника
end;
// запуск справочника "cards"
procedure TFrmMain.ActSprCARDSExecute(Sender: TObject);
begin
RunFrmKlCARDS; // вызов процедуры запуска формы справочника
end;
92
// запуск справочника "ViewTypes"
procedure TFrmMain.ActSprVIEWTYPESExecute(Sender: TObject);
begin
// RunFrmKlVIEWTYPES; // вызов процедуры запуска формы
справочника
end;
// запуск справочника "Кабинеты"
procedure TFrmMain.ActSprCABINETExecute(Sender: TObject);
begin
RunFrmKlCABINET; // вызов процедуры запуска формы
справочника
end;
// запуск справочника "Admins"
procedure TFrmMain.ActSprADMINSExecute(Sender: TObject);
begin
RunFrmKlADMINS; // вызов процедуры запуска формы
справочника
end;
// запуск справочника "Услуги"
procedure TFrmMain.ActSprSERVICEExecute(Sender: TObject);
begin
RunFrmKlSERVICE; // вызов процедуры запуска формы
справочника
end;
93
// запуск справочника "Сотрудники"
procedure TFrmMain.ActSprSPECIALITYExecute(Sender: TObject);
begin
RunFrmKlSPECIALITY; // вызов процедуры запуска формы
справочника
end;
// запуск справочника "Service_Speciality"
procedure TFrmMain.ActSprSERVICE_SPECIALITYExecute(Sender:
TObject);
begin
RunFrmKlSERVICE_SPECIALITY; // вызов процедуры запуска
формы справочника
end;
// запуск справочника "Услуги по карточке"
procedure TFrmMain.ActSprSERVISEONCARDExecute(Sender:
TObject);
begin
RunFrmKlSERVISEONCARD; // вызов процедуры запуска формы
справочника
end;
// запуск справочника "WorkTime"
procedure TFrmMain.ActSprWORKTIMEExecute(Sender: TObject);
begin
RunFrmKlWORKTIME; // вызов процедуры запуска формы
справочника
end;