93
procedure acDocContractExecute(Sender: TObject);
procedure acEmpMissionsExecute(Sender: TObject);
procedure acDocInsuranceExecute(Sender: TObject);
procedure acDocPFRExecute(Sender: TObject);
procedure chbDismissClick(Sender: TObject);
procedure acDocEmpListExecute(Sender: TObject);
procedure acEmpVacancyListExecute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmMain: TfmMain;
implementation
uses uRep, uDepartments, uPosts, uVacationTypes, uRequisite, uDM,
DB,
uStaff, uEmpCard, uVacation, uMission, uVacancyList;
{$R *.dfm}
procedure TfmMain.acSpravDepExecute(Sender: TObject);
begin
fmDepartments.ShowModal;
FormShow(Self);
end;
procedure TfmMain.acSpravPostsExecute(Sender: TObject);
begin
fmPosts.Show;
end;
procedure TfmMain.acSpravVacationTypesExecute(Sender: TObject);
begin
fmVacationTypes.Show;
end;
procedure TfmMain.acSpravRequisiteExecute(Sender: TObject);
begin
fmRequisite.Show;
end;
procedure TfmMain.FormShow(Sender: TObject);
var
CategTreeNode: TTreeNode;
begin
TreeView1.Items.Clear;
94
DM.dstDepartments.Open;
DM.dstDepartments.Sort := 'Отдел';
DM.dstDepartments.First;
while not DM.dstDepartments.Eof do
begin
//Добавлениевершины - подразделения:
CategTreeNode := TreeView1.Items.Add(nil,
DM.dstDepartments.FieldByName('Отдел').AsString);
//Data указывает на ID подразделения:
CategTreeNode.Data :=
Pointer(DM.dstDepartments.FieldByName('ID').AsInteger);
CategTreeNode.ImageIndex := 1;
DM.dstDepartments.Next;
end;
DM.dstDepartments.Close;
DM.dstEmployee.Open;
end;
procedure TfmMain.acEmpStuffExecute(Sender: TObject);
begin
fmStaff.ShowModal;
end;
//Отображение списка сотрудников в выбранном отделе:
procedure TfmMain.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
DM.dstEmployeeByDep.Close;
DM.dstEmployeeByDep.Parameters.ParamByName('pDismiss').DataType :=
ftInteger;
DM.dstEmployeeByDep.Parameters.ParamByName('pDepID').Value :=
Integer(Node.Data);
DM.dstEmployeeByDep.Parameters.ParamByName('pDismiss').DataType :=
ftBoolean;
DM.dstEmployeeByDep.Parameters.ParamByName('pDismiss').Value :=
chbDismiss.Checked;
DM.dstEmployeeByDep.Open;
//Часть функций меню доступны только если выбран работник:
acEmpEdit.Enabled := DM.dstEmployeeByDep.RecordCount > 0;
acEmpVacation.Enabled := DM.dstEmployeeByDep.RecordCount > 0;
acEmpMissions.Enabled := DM.dstEmployeeByDep.RecordCount > 0;
acDocEmpCard.Enabled := DM.dstEmployeeByDep.RecordCount > 0;
acDocRelease.Enabled := DM.dstEmployeeByDep.RecordCount > 0;
acDocReceive.Enabled := DM.dstEmployeeByDep.RecordCount > 0;
acDocContract.Enabled := DM.dstEmployeeByDep.RecordCount > 0;
acDocInsurance.Enabled := DM.dstEmployeeByDep.RecordCount > 0;
end;
procedure TfmMain.acEmpAddExecute(Sender: TObject);
95
begin
DM.dstEmployee.Insert;
fmEmpCard.ShowModal;
TreeView1Change(Self, TreeView1.Selected);
end;
procedure TfmMain.acEmpEditExecute(Sender: TObject);
begin
fmEmpCard.ShowModal;
TreeView1Change(Self, TreeView1.Selected);
end;
procedure TfmMain.DBGrid1DblClick(Sender: TObject);
begin
acEmpEditExecute(Self);
end;
procedure TfmMain.acDocReceiveExecute(Sender: TObject);
begin
Rep_Receive;
end;
procedure TfmMain.acDocReleaseExecute(Sender: TObject);
begin
Rep_Release;
end;
procedure TfmMain.acDocEmpCardExecute(Sender: TObject);
begin
Rep_Card;
end;
//Список отпусков работника:
procedure TfmMain.acEmpVacationExecute(Sender: TObject);
begin
fmVacation.Caption := 'Отпуска ' +
DM.dstEmployee.FieldByName('Фамилия').AsString + ' ' +
DM.dstEmployee.FieldByName('Имя').AsString + ' ' +
DM.dstEmployee.FieldByName('Отчество').AsString;
fmVacation.Show;
end;
procedure TfmMain.acDocContractExecute(Sender: TObject);
begin
Rep_Contract;
end;
//Список командировок работника:
procedure TfmMain.acEmpMissionsExecute(Sender: TObject);
begin
96
fmMission.Caption := 'Командировки ' +
DM.dstEmployee.FieldByName('Фамилия').AsString + ' ' +
DM.dstEmployee.FieldByName('Имя').AsString + ' ' +
DM.dstEmployee.FieldByName('Отчество').AsString;
fmMission.Show;
end;
procedure TfmMain.acDocInsuranceExecute(Sender: TObject);
begin
Rep_Insurance;
end;
procedure TfmMain.acDocPFRExecute(Sender: TObject);
begin
Rep_DocumentsPFR;
end;
procedure TfmMain.chbDismissClick(Sender: TObject);
begin
TreeView1Change(Self, TreeView1.Selected);
end;
procedure TfmMain.acDocEmpListExecute(Sender: TObject);
begin
Rep_EmpList;
TreeView1Change(Self, TreeView1.Selected);
end;
procedure TfmMain.acEmpVacancyListExecute(Sender: TObject);
begin
fmVacancyList.Show;
end;
end.
unit uDepartments;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, DBCtrls, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons;
type
TfmDepartments = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
97
DBNavigator1: TDBNavigator;
bbtPrint: TBitBtn;
BitBtn1: TBitBtn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure bbtPrintClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmDepartments: TfmDepartments;
implementation
uses uDM, uRep;
{$R *.dfm}
procedure TfmDepartments.FormShow(Sender: TObject);
begin
DM.dstDepartments.Open;
DM.dstDepartments.Sort := 'Отдел';
end;
procedure TfmDepartments.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
DM.dstDepartments.Close;
end;
procedure TfmDepartments.bbtPrintClick(Sender: TObject);
begin
Rep_Universal(DBGrid1, 1, 'Отделы');
end;
end.
unit uDM;
interface
uses
SysUtils, Classes, DB, ADODB;
type
98
TDM = class(TDataModule)
ADOConnection1: TADOConnection;
dstDepartments: TADODataSet;
dsDepartments: TDataSource;
dstPosts: TADODataSet;
dsPosts: TDataSource;
dstVacationTypes: TADODataSet;
dsVacationTypes: TDataSource;
dstFamilyStatus: TADODataSet;
dsFamilyStatus: TDataSource;
dstEducation: TADODataSet;
dsEducation: TDataSource;
dstDocTypes: TADODataSet;
dsDocTypes: TDataSource;
dstJobTypes: TADODataSet;
dsJobTypes: TDataSource;
dstRequisite: TADODataSet;
dsRequisite: TDataSource;
dstRequisiteDSDesigner: TWideStringField;
dstRequisiteDSDesigner2: TWideStringField;
dstRequisiteDSDesigner3: TWideStringField;
dstRequisiteDSDesigner4: TWideStringField;
dstRequisiteDSDesigner5: TWideStringField;
dstRequisiteDSDesigner6: TWideStringField;
dstRequisiteDSDesigner7: TWideStringField;
dstRequisiteDSDesigner8: TWideStringField;
dstRequisiteDSDesigner9: TWideStringField;
dstRequisiteDSDesigner10: TWideStringField;
dstStaff: TADODataSet;
dsStaff: TDataSource;
dstStaffID: TAutoIncField;
dstStaffID2: TIntegerField;
dstStaffID3: TIntegerField;
dstStaffDSDesigner: TWordField;
dstStaffDSDesigner2: TFloatField;
dstStaffDSDesigner3: TBCDField;
dstStaffDSDesigner4: TBCDField;
dstStaffField: TStringField;
dstStaffField2: TStringField;
dstEmployee: TADODataSet;
dsEmployee: TDataSource;
dstEmployeeN: TAutoIncField;
dstEmployeeDSDesigner: TWideStringField;
dstEmployeeDSDesigner2: TWideStringField;
dstEmployeeDSDesigner3: TWideStringField;
dstEmployeeDSDesigner4: TBooleanField;
dstEmployeeDSDesigner5: TDateTimeField;
dstEmployeeDSDesigner6: TWideStringField;
dstEmployeeDSDesigner7: TWideStringField;
dstEmployeeDSDesigner8: TWideStringField;
99
dstEmployeeDSDesigner9: TWideStringField;
dstEmployeeID: TIntegerField;
dstEmployeeID2: TIntegerField;
dstEmployeeDSDesigner1ID: TIntegerField;
dstEmployeeDSDesigner2ID: TIntegerField;
dstEmployeeID3: TIntegerField;
dstEmployeeDSDesigner10: TWideStringField;
dstEmployeeDSDesigner11: TWideStringField;
dstEmployeeDSDesigner12: TDateTimeField;
dstEmployeeDSDesigner13: TWideStringField;
dstEmployeeDSDesigner14: TWideStringField;
dstEmployeeDSDesigner15: TWideStringField;
dstEmployeeDSDesigner16: TWideStringField;
dstEmployeeDSDesigner17: TWideStringField;
dstEmployeeDSDesigner18: TWideStringField;
dstEmployeeDSDesigner19: TWideStringField;
dstEmployeeDSDesigner20: TWideStringField;
dstEmployeeDSDesigner21: TWideStringField;
dstEmployeeDSDesigner22: TBlobField;
dstEmployeeIntegerField: TStringField;
dstEmployeeIntegerField2: TStringField;
dstEmployeeIntegerField1: TStringField;
dstEmployeeIntegerField22: TStringField;
dstEmployeeIntegerField3: TStringField;
dstFamily: TADODataSet;
dsFamily: TDataSource;
dstFamilyID: TIntegerField;
dstFamilyDSDesigner: TWideStringField;
dstFamilyDSDesigner2: TWideStringField;
dstFamilyDSDesigner3: TDateTimeField;
dstFamilyDSDesigner4: TWideStringField;
dstFamilyDSDesigner5: TWideStringField;
dstEmpPosts: TADODataSet;
dsEmpPosts: TDataSource;
dstEmpPostsID2: TIntegerField;
dstEmpPostsID3: TIntegerField;
dstEmpPostsDSDesigner: TFloatField;
dstEmpPostsDSDesigner2: TBCDField;
dstEmpPostsDSDesigner3: TBCDField;
dstEmpPostsDSDesigner4: TDateTimeField;
dstEmpPostsDSDesigner5: TDateTimeField;
dstEmpPostsID4: TIntegerField;
dstEmpPostsN: TWideStringField;
dstEmpPostsDSDesigner6: TDateTimeField;
dstEmpPostsDSDesigner7: TWideStringField;
dstEmpPostsDSDesigner8: TBooleanField;
dstEmpPostsID5: TIntegerField;
dstEmpPostsID6: TIntegerField;
dstEmpPostsStringField: TStringField;
dstEmpPostsField: TStringField;
100
dstEmpPostsIntegerField: TStringField;
dstEmployeeByDep: TADODataSet;
AutoIncField1: TAutoIncField;
IntegerField1: TIntegerField;
IntegerField2: TIntegerField;
WideStringField18: TWideStringField;
StringField1: TStringField;
StringField2: TStringField;
dsEmployeeByDep: TDataSource;
dstVacancy: TADODataSet;
dstStaffField3: TIntegerField;
dstVacation: TADODataSet;
dsVacation: TDataSource;
dstVacationID: TIntegerField;
dstVacationDSDesigner: TDateTimeField;
dstVacationDSDesigner2: TDateTimeField;
dstVacationDSDesigner3: TWordField;
dstVacationDSDesigner4: TDateTimeField;
dstVacationDSDesigner5: TDateTimeField;
dstVacationID2: TIntegerField;
dstVacationDSDesigner6: TWideStringField;
dstVacationStringField: TStringField;
dstMission: TADODataSet;
dsMission: TDataSource;
dstMissionID: TIntegerField;
dstMissionDSDesigner: TDateTimeField;
dstMissionDSDesigner2: TWideStringField;
dstMissionDSDesigner3: TDateTimeField;
dstMissionDSDesigner4: TWideStringField;
dstMissionDSDesigner5: TWideStringField;
dstEmpPostsField2: TCurrencyField;
dstEmployeeByDepDSDesigner: TWideStringField;
dstEmployeeByDepDSDesigner2: TWideStringField;
dstVacancyList: TADODataSet;
dsVacancyList: TDataSource;
dstVacancyListDSDesigner: TWideStringField;
dstVacancyListDSDesigner2: TWideStringField;
dstVacancyListDSDesigner3: TWordField;
dstVacancyListDSDesigner4: TFloatField;
dstVacancyListDSDesigner5: TBCDField;
dstVacancyListDSDesigner6: TBCDField;
dstVacancyListDSDesigner7: TIntegerField;
dstVacancyListDSDesigner8: TIntegerField;
procedure DataModuleDestroy(Sender: TObject);
procedure dstEmployeeByDepAfterScroll(DataSet: TDataSet);
procedure dstStaffCalcFields(DataSet: TDataSet);
procedure dstEmpPostsCalcFields(DataSet: TDataSet);
private
{ Private declarations }
public