133
try
try
jpeg.LoadFromFile(OpenDialog1.FileName);
bmp.Assign(jpeg);
Dm.TPersonal.Edit;
Dm.TPersonal.FieldByName('Фото').Assign(bmp);
finally
jpeg.Free;
bmp.Free;
end;
except
ShowMessage('Неверный формат файла!');
end;
end;
end;
procedure TFormAnketa.Button2Click(Sender: TObject);
begin
if Dm.TPersonal.Modified then Dm.TPersonal.Post;
if Dm.TWork.Modified then Dm.TWork.Post;
if Dm.TFamily.Modified then Dm.TFamily.Post;
end;
end.
unit UnitPers;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids;
134
type
TFormPers = class(TForm)
DBGrid2: TDBGrid;
Panel8: TPanel;
Button1: TButton;
Button3: TButton;
Button8: TButton;
procedure Button8Click(Sender: TObject);
procedure DBGrid2DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormPers: TFormPers;
implementation
uses UnitAnketa;
{$R *.dfm}
procedure TFormPers.Button8Click(Sender: TObject);
begin
FormAnketa.Show;
end;
procedure TFormPers.DBGrid2DblClick(Sender: TObject);
begin
135
FormAnketa.Show;
end;
end.
unit UnitPersList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids;
type
TFormPersList = class(TForm)
DBGrid1: TDBGrid;
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormPersList: TFormPersList;
implementation
uses DMUnit;
{$R *.dfm}
136
procedure TFormPersList.DBGrid1DblClick(Sender: TObject);
begin
Dm.TState.Edit;
Dm.TState.FieldByName('Код
сотрудника').Value:=Dm.QChPersonal.FieldByName('Код сотрудника').Value;
FormPersList.Close;
end;
end.
unit UnitState;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, Buttons, Mask;
type
TFormStat = class(TForm)
GroupBox1: TGroupBox;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
Label5: TLabel;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
Label1: TLabel;
DBEdit1: TDBEdit;
SpeedButton1: TSpeedButton;
137
GroupBox2: TGroupBox;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
GroupBox3: TGroupBox;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
Label12: TLabel;
DBLookupComboBox4: TDBLookupComboBox;
SpeedButton2: TSpeedButton;
Label13: TLabel;
DBEdit9: TDBEdit;
Label14: TLabel;
DBEdit10: TDBEdit;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormStat: TFormStat;
138
implementation
uses DMUnit, UnitPersList, UnitStateList;
{$R *.dfm}
procedure TFormStat.SpeedButton1Click(Sender: TObject);
begin
FormStateList.Show;
end;
procedure TFormStat.SpeedButton2Click(Sender: TObject);
begin
FormPersList.Show;
end;
end.
unit DMUnit;
interface
uses
SysUtils, Classes, DB, ADODB, XPMan;
type
TDM = class(TDataModule)
ADOConnection1: TADOConnection;
TFamilyStatus: TADOTable;
TEducation: TADOTable;
TSpec: TADOTable;
TDoc: TADOTable;
