94
// запуск справочника "Материалы"
procedure TFrmMain.ActSprMATERIALSExecute(Sender: TObject);
begin
RunFrmKlMATERIALS; // вызов процедуры запуска формы
справочника
end;
procedure TFrmMain.RegPosechExecute(Sender: TObject);
begin
Application.CreateForm(TFrmPriem, FrmPriem);
FrmPriem.ShowModal;
FrmPriem.Free;
end;
// запуск справочника "Использованные расходные материалы"
procedure TFrmMain.ActionUserParamExecute(Sender: TObject);
begin
Application.CreateForm(TFrmSett, FrmSett);
with FrmSett do
begin
edlogin.Text:=user;
edPassw.Text:=passw;
if ShowModal=mrOk then
begin
passw:=edPassw.Text;
RunSql('update admins set Password="%s" where
id=%d',[passw,adminid]);
Notify('Пароль изменен');
95
end;
free;
end;
end;
// запуск справочника "Специальности"
procedure TFrmMain.ActSprSPECExecute(Sender: TObject);
begin
RunFrmKlSPEC; // вызов процедуры запуска формы справочника
end;
procedure TFrmMain.ActStatExecute(Sender: TObject);
begin
Application.CreateForm(TFrmStat, FrmStat);
FrmStat.ShowModal;
FrmStat.Free;
end;
procedure TFrmMain.ActStat2Execute(Sender: TObject);
begin
Application.CreateForm(TFrmStat2, FrmStat2);
FrmStat2.ShowModal;
FrmStat2.Free;
end;
procedure TFrmMain.ActStat3Execute(Sender: TObject);
begin
96
Application.CreateForm(TFrmStat3, FrmStat3);
FrmStat3.ShowModal;
FrmStat3.Free;
end;
procedure TFrmMain.StatClientExecute(Sender: TObject);
begin
Application.CreateForm(TFrmStatClient, FrmStatClient);
FrmStatClient.ShowModal;
FrmStatClient.Free;
end;
procedure TFrmMain.FormActivate(Sender: TObject);
var s:string;
begin
s:=dm.ToDayBurned;
if s='' then Exit;
MessageBox(0, PChar(s), 'С днем рождения!',
MB_ICONINFORMATION or MB_OK);
end;
procedure TFrmMain.ActBurnedExecute(Sender: TObject);
var s:string;
begin
s:=dm.ToDayBurned;
if s='' then MessageDlg('Ни у кого нет.', mtWarning, [mbOK], 0)
else
97
MessageBox(0, PChar(s), 'С днем рождения!',
MB_ICONINFORMATION or MB_OK);
end;
// запуск справочника "Давно не приходившие"
procedure TFrmMain.ActSprVIEWLASTDTExecute(Sender: TObject);
begin
// RunFrmKlVIEWLASTDT; // вызов процедуры запуска формы
справочника
end;
procedure TFrmMain.AclClientDtExecute(Sender: TObject);
begin
Application.CreateForm(TFrmKlViewLastDt,FrmKlViewLastDt);
FrmKlViewLastDt.ShowModal;
FrmKlViewLastDt.Free;
end;
end.
unit dat;
interface
uses
SysUtils, Classes, DB, ADODB,inifiles, Dialogs,Chart, ExtDlgs;
const
SADM = 'СУПЕР АДМИН';
98
type
Tdm = class(TDataModule)
QryClient: TADOQuery;
QryClientClient_ID: TSmallintField;
QryClientSurname: TWideStringField;
QryClientName: TWideStringField;
QryClientPatronymic: TWideStringField;
QryClientSity: TWideStringField;
TblSpecName: TStringField;
TblSpecid: TAutoIncField;
TblSpec : TADOtable;
TblUsedMatcnt: TFloatField;
TblUsedMatmat_idName: TStringField;
TblUsedMatmat_id: TIntegerField;
TblUsedMatdata_id: TIntegerField;
TblUsedMat : TADOtable;
TbldataData_end: TDateTimeField;
TbldataData_start: TDateTimeField;
TbldataService_IDName: TStringField;
TbldataService_ID: TIntegerField;
TbldataClient_IDName: TStringField;
TbldataClient_ID: TIntegerField;
Tbldataid: TAutoIncField;
Tbldata : TADOtable;
TblMaterialsName: TStringField;
TblMaterialsid: TAutoIncField;
TblMaterials : TADOtable;
TblWorkTimeTime_end: TIntegerField;
TblWorkTimeTime_begin: TIntegerField;
99
TblWorkTimedayName: TStringField;
TblWorkTimeday: TIntegerField;
TblWorkTimeid: TAutoIncField;
TblWorkTimeCabinet_IDName: TStringField;
TblWorkTimeCabinet_ID: TIntegerField;
TblWorkTimeSpeciality_IDName: TStringField;
TblWorkTimeSpeciality_ID: TIntegerField;
TblWorkTime : TADOtable;
TblServiseOnCardCnt: TIntegerField;
TblServiseOnCardServiceName: TStringField;
TblServiseOnCardService: TIntegerField;
TblServiseOnCardfortypeName: TStringField;
TblServiseOnCardfortype: TIntegerField;
TblServiseOnCardid: TAutoIncField;
TblServiseOnCard : TADOtable;
TblService_SpecialitySpeciality_IDName: TStringField;
TblService_SpecialityService_IDName: TStringField;
TblService_SpecialityService_ID: TIntegerField;
TblService_Speciality : TADOtable;
TblViewSotrFioFIO: TStringField;
TblViewSotrFioSpeciality_ID: TAutoIncField;
TblViewSotrFio : TADOtable;
TblSpecialityStreet: TStringField;
TblSpecialityKvartira: TIntegerField;
TblSpecialityKorpus: TStringField;
TblSpecialitytelethon: TStringField;
TblSpecialityPensNum: TStringField;
TblSpecialityPatronymic: TStringField;
TblSpecialityName: TStringField;
100
TblSpecialitySurname: TStringField;
TblSpecialitySpeciality_ID: TAutoIncField;
TblSpeciality : TADOtable;
TblServiceLengthMin: TIntegerField;
TblServiceOneTimePeople: TIntegerField;
TblServiceName_service: TStringField;
TblServiceID: TAutoIncField;
TblService : TADOtable;
TblAdminspassword: TStringField;
TblAdminsName: TStringField;
TblAdminsid: TAutoIncField;
TblAdmins : TADOtable;
TblCabinetSpecification: TStringField;
TblCabinetFloor: TIntegerField;
TblCabinetBilding: TStringField;
TblCabinetNumber: TIntegerField;
TblCabinetCabinet_ID: TAutoIncField;
TblCabinet : TADOtable;
TblViewTypesName: TStringField;
TblViewTypesid: TAutoIncField;
TblViewTypes : TADOtable;
Tblcardsdtend: TDateTimeField;
Tblcardsdtstart: TDateTimeField;
TblcardstypeName: TStringField;
Tblcardstype: TIntegerField;
TblcardsclientName: TStringField;
Tblcardsnum: TIntegerField;
Tblcardscard_id: TAutoIncField;
Tblcards : TADOtable;
101
TblCardTypesdiscount: TFloatField;
TblCardTypesName: TStringField;
TblCardTypesid: TAutoIncField;
TblCardTypes : TADOtable;
TblWeekDaysName: TStringField;
TblWeekDaysid: TIntegerField;
TblWeekDays : TADOtable;
TblTimeForCardstohour: TIntegerField;
TblTimeForCardsfromhour: TIntegerField;
TblTimeForCardsday: TIntegerField;
TblTimeForCardsfortype: TIntegerField;
TblTimeForCardsid: TAutoIncField;
TblTimeForCards : TADOtable;
QryClientStreet: TWideStringField;
QryClientDom: TSmallintField;
QryClientKorpus: TWideStringField;
QryClientKvartira: TSmallintField;
QryClientHistory: TWideStringField;
ADOSpec: TADOQuery;
ADOSpecSpeciality_ID: TSmallintField;
ADOSpecSurname: TWideStringField;
ADOSpecName: TWideStringField;
ADOSpecPatronymic: TWideStringField;
ADOSpecSpeciality: TWideStringField;
ADOSpecNumber_year: TSmallintField;
ADOSpectelethon: TWideStringField;
ADOSpecDom: TSmallintField;
ADOSpecKorpus: TWideStringField;
ADOSpecKvartira: TSmallintField;
102
ADOSpecStreet: TWideStringField;
Database: TADOConnection;
OpenDialog: TOpenDialog;
QryClientphotoFile: TWideStringField;
TblTimeForCardsField: TStringField;
TblCardTypescost: TBCDField;
TblCardTypesDayLimited: TBooleanField;
TblCardTypesDayLimit: TIntegerField;
TblClientsFio: TADOTable;
TblViewTypesDayLimit: TIntegerField;
TblcardsDayLimit: TIntegerField;
TblViewTypesDayLimited: TBooleanField;
TblcardsDayLimited: TBooleanField;
Tblcardsclient: TSmallintField;
Tblcardslocked: TBooleanField;
QryClientPaspSer: TSmallintField;
QryClientPaspNum: TIntegerField;
ADOSpecPaspSer: TSmallintField;
ADOSpecPaspNum: TIntegerField;
QryClientPensNum: TWideStringField;
QryClientOgr: TBooleanField;
QryClientOgrText: TWideStringField;
ADOSpecPensNum: TWideStringField;
TblCardTypesAbonType: TBooleanField;
Tblcardsadmin: TIntegerField;
QryClientadmin_id: TIntegerField;
TblService_SpecialitySpeciality_ID: TIntegerField;
Tblcardsend: TBooleanField;
TbldataServiceCost: TFloatField;
103
Tbldatasost: TWordField;
TblUsedMatCost: TCurrencyField;
TblMaterialsCost: TBCDField;
TblServiceCost: TBCDField;
TbldataMatCost: TBCDField;
TbldataCost: TBCDField;
TblSpecialityPaspSer: TSmallintField;
TblSpecialityPaspNum: TIntegerField;
TblSpecialityDom: TSmallintField;
TblSpecialityNumber_year: TSmallintField;
TblSpecialitySpecId: TIntegerField;
TblSpecialityNameSpec: TStringField;
TblClientsFioClient_ID: TAutoIncField;
TblClientsFioFIO: TWideStringField;
SavePictureDialog1: TSavePictureDialog;
QLstDt: TADOQuery;
QLstDtClient_ID: TAutoIncField;
QLstDtSurname: TWideStringField;
QLstDtName: TWideStringField;
QLstDtPatronymic: TWideStringField;
QLstDtMaxData_end: TDateTimeField;
QryClientdtBurn: TDateTimeField;
TblSpecialityDtBurn: TDateTimeField;
procedure QryClientNewRecord(DataSet: TDataSet);
procedure ADOSpecNewRecord(DataSet: TDataSet);
procedure DataModuleCreate(Sender: TObject);
procedure TblTimeForCardsNewRecord(DataSet: TDataSet);
procedure TblCardTypesNewRecord(DataSet: TDataSet);