Сотрудники фирмы

[7] Журнал «PC Magazine Russian Edition» 17, 1994, статья У. Плейна, «Microsoft Access».

[8] Информатика Л.З Шауцукова ( Глава 7. Алгоритмы. Алгоритмизация. Алгоритмические языки)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложения:

 

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, ADODB, Menus, ExtCtrls, jpeg,ShellApi;

type

  TForm1 = class(TForm)

    ADOConnection1: TADOConnection;

    ADOQuery1: TADOQuery;

    DBGrid1: TDBGrid;

    DataSource1: TDataSource;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    MainMenu1: TMainMenu;

    afqk1: TMenuItem;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    Edit1: TEdit;

    Image1: TImage;

    N5: TMenuItem;

    N6: TMenuItem;

    Label1: TLabel;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure DBGrid1DblClick(Sender: TObject);

    procedure N6Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form2.show;

AdoQuery1.append;

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

AdoQuery1.Delete;

end;

 

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

Form3.Show;

end;

 

procedure TForm1.N2Click(Sender: TObject);

begin

form1.adoquery1.Sort:='fio DESC'

end;

 

procedure TForm1.N3Click(Sender: TObject);

begin

form1.ADOQuery1.Sort:= 'fio ASC'

end;

 

procedure TForm1.N4Click(Sender: TObject);

begin

close;

end;

 

procedure TForm1.Edit1Change(Sender: TObject);

var

help1, help2: string;

begin

help1:= '%'+unit1.Form1.Edit1.Text+'%';

help2:= quotedstr(help1);

with unit1.Form1.ADOQuery1 do

begin

close;

sql.clear;

sql.add('select*from tabl

where fio+g_d_roj+pol+yo+g_okon4ani9+staj+pred_m_r+kyrs+adress+sp+dolj+r93r9d+oklad like'+help2);

open;

end;

end;

 

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

ADOQuery1.Edit;

Image1.Picture.LoadFromFile(ADOQuery1.FieldByName('foto').AsString);

ADOQuery1.Post;

end;

 

procedure TForm1.DBGrid1DblClick(Sender: TObject);

begin

ADOQuery1.Edit;

Image1.Picture.LoadFromFile(ADOQuery1.FieldByName('foto').AsString);

ADOQuery1.Post;

end;

 

procedure TForm1.N6Click(Sender: TObject);

begin

ShellExecute(Handle, 'open','mmm.chm',nil, nil,Sw_show);

end;

end.

 

unit Unit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, Mask, DBCtrls;

type

  TForm2 = class(TForm)

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;

    DBEdit7: TDBEdit;

    DBEdit8: TDBEdit;

    DBEdit9: TDBEdit;

    DBEdit10: TDBEdit;

    DBEdit11: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit12: TDBEdit;

    DBEdit13: TDBEdit;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

 

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Form1.ADOQuery1.Post;

close;

end;

 

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

close;

end;

end.

 

unit Unit3;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Mask, DBCtrls, Buttons;

type

  TForm3 = class(TForm)

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    Label1: TLabel;

    Label2: TLabel;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;

    DBEdit7: TDBEdit;

    DBEdit8: TDBEdit;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    DBEdit9: TDBEdit;

    DBEdit10: TDBEdit;

   DBEdit11: TDBEdit;

    DBEdit12: TDBEdit;

    DBEdit13: TDBEdit;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

 

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

close;

end;

 

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Form1.show;

Form1.ADOQuery1.Post;

close;

end;

end.