123
ExcelApp.Range['G46',EmptyParam].Formula:=Date;
end;
procedure TFormMain.Button7Click(Sender: TObject);
begin
FormStList.Show;
end;
procedure TFormMain.Button5Click(Sender: TObject);
begin
FormVacMis.Show;
FormVacMis.TabSheet1.Show;
end;
procedure TFormMain.Button6Click(Sender: TObject);
begin
FormVacMis.Show;
FormVacMis.TabSheet2.Show;
end;
procedure TFormMain.N12Click(Sender: TObject);
begin
FormPers.Show;
end;
end.
unit SprUnit;
interface
uses
124
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids;
type
TFormSpr = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
DBGrid1: TDBGrid;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
DBEdit1: TDBEdit;
Label1: TLabel;
DBGrid2: TDBGrid;
DBNavigator2: TDBNavigator;
Panel2: TPanel;
Label2: TLabel;
DBEdit2: TDBEdit;
DBGrid3: TDBGrid;
DBNavigator3: TDBNavigator;
Panel3: TPanel;
Label3: TLabel;
DBEdit3: TDBEdit;
DBGrid4: TDBGrid;
DBNavigator4: TDBNavigator;
Panel4: TPanel;
Label4: TLabel;
125
DBEdit4: TDBEdit;
DBGrid5: TDBGrid;
DBNavigator5: TDBNavigator;
Panel5: TPanel;
Label5: TLabel;
DBEdit5: TDBEdit;
DBGrid6: TDBGrid;
DBNavigator6: TDBNavigator;
Panel6: TPanel;
Label6: TLabel;
DBEdit6: TDBEdit;
DBGrid7: TDBGrid;
DBNavigator7: TDBNavigator;
Panel7: TPanel;
Label7: TLabel;
DBEdit7: TDBEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormSpr: TFormSpr;
implementation
uses DMUnit;
{$R *.dfm}
end.
126
program Staff;
uses
Forms,
MainUnit in 'MainUnit.pas' {FormMain},
DMUnit in 'DMUnit.pas' {DM: TDataModule},
SprUnit in 'SprUnit.pas' {FormSpr},
UnitAbout in 'UnitAbout.pas' {FormAbout},
UnitAnketa in 'UnitAnketa.pas' {FormAnketa},
UnitStateList in 'UnitStateList.pas' {FormStateList},
UnitStList in 'UnitStList.pas' {FormStList},
UnitVacMis in 'UnitVacMis.pas' {FormVacMis},
UnitPers in 'UnitPers.pas' {FormPers},
UnitState in 'UnitState.pas' {FormStat},
UnitPersList in 'UnitPersList.pas' {FormPersList};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TFormMain, FormMain);
Application.CreateForm(TDM, DM);
Application.CreateForm(TFormSpr, FormSpr);
Application.CreateForm(TFormAbout, FormAbout);
Application.CreateForm(TFormAnketa, FormAnketa);
Application.CreateForm(TFormStateList, FormStateList);
Application.CreateForm(TFormStList, FormStList);
Application.CreateForm(TFormVacMis, FormVacMis);
Application.CreateForm(TFormPers, FormPers);
Application.CreateForm(TFormStat, FormStat);
Application.CreateForm(TFormPersList, FormPersList);
127
Application.Run;
end.
unit UnitAbout;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, iniFiles;
type
TFormAbout = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
Label3: TLabel;
Label2: TLabel;
Label1: TLabel;
Edit3: TEdit;
Edit2: TEdit;
Edit1: TEdit;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
Button1: TButton;
Edit6: TEdit;
Label6: TLabel;
Edit7: TEdit;
Label7: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
128
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormAbout: TFormAbout;
implementation
{$R *.dfm}
procedure TFormAbout.Button1Click(Sender: TObject);
var ConfigFile: TIniFile;
begin
ConfigFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.ini');
ConfigFile.WriteString('Firm','Name',Edit1.Text);
ConfigFile.WriteString('Firm','Duty',Edit2.Text);
ConfigFile.WriteString('Firm','Director',Edit3.Text);
ConfigFile.WriteString('Firm','INN',Edit4.Text);
ConfigFile.WriteString('Firm','KPP',Edit5.Text);
ConfigFile.WriteString('Firm','Adress',Edit6.Text);
ConfigFile.WriteString('Firm','RegNumberPFR',Edit7.Text);
end;
procedure TFormAbout.FormCreate(Sender: TObject);
var ConfigFile: TIniFile;
begin
ConfigFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.ini');
Edit1.Text:=ConfigFile.ReadString('Firm','Name','');
Edit2.Text:=ConfigFile.ReadString('Firm','Duty','');
129
Edit3.Text:=ConfigFile.ReadString('Firm','Director','');
Edit4.Text:=ConfigFile.ReadString('Firm','INN','');
Edit5.Text:=ConfigFile.ReadString('Firm','KPP','');
Edit6.Text:=ConfigFile.ReadString('Firm','Adress','');
Edit7.Text:=ConfigFile.ReadString('Firm','RegNumberPFR','');
end;
end.
unit UnitAnketa;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, ComCtrls, ExtCtrls, StdCtrls, Mask, Grids, DBGrids, jpeg,
Buttons;
type
TFormAnketa = class(TForm)
Panel1: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
130
Button2: TButton;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label6: TLabel;
DBEdit5: TDBEdit;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
DBEdit8: TDBEdit;
Label10: TLabel;
DBEdit9: TDBEdit;
Label11: TLabel;
DBEdit10: TDBEdit;
Label12: TLabel;
DBEdit11: TDBEdit;
Label13: TLabel;
DBEdit12: TDBEdit;
GroupBox3: TGroupBox;
Label15: TLabel;
DBEdit13: TDBEdit;
Label17: TLabel;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
Label18: TLabel;
DBEdit14: TDBEdit;
Label16: TLabel;
GroupBox4: TGroupBox;
DBEdit17: TDBEdit;
Label19: TLabel;
Label20: TLabel;
DBEdit18: TDBEdit;
Label21: TLabel;
131
DBEdit19: TDBEdit;
DBLookupComboBox3: TDBLookupComboBox;
DBLookupComboBox4: TDBLookupComboBox;
Label22: TLabel;
DBLookupComboBox5: TDBLookupComboBox;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Panel3: TPanel;
DBGrid2: TDBGrid;
DBNavigator2: TDBNavigator;
Panel4: TPanel;
OpenDialog1: TOpenDialog;
Label23: TLabel;
DBEdit6: TDBEdit;
Label24: TLabel;
Label25: TLabel;
DBEdit7: TDBEdit;
Label26: TLabel;
DBEdit20: TDBEdit;
Label27: TLabel;
DBMemo1: TDBMemo;
Label28: TLabel;
DBEdit21: TDBEdit;
Label29: TLabel;
DBEdit22: TDBEdit;
Label30: TLabel;
DBEdit26: TDBEdit;
DBEdit4: TDBEdit;
Label4: TLabel;
Label5: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
Label14: TLabel;
132
Label35: TLabel;
DBEdit27: TDBEdit;
DBImage1: TDBImage;
Button1: TButton;
DBComboBox1: TDBComboBox;
DBEdit23: TDBEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormAnketa: TFormAnketa;
implementation
uses DMUnit, UnitStateList;
{$R *.dfm}
procedure TFormAnketa.Button1Click(Sender: TObject);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
if OpenDialog1.Execute then
begin
jpeg := TJPEGImage.Create;
bmp := TBitmap.Create;