Автоматизированная информационная система. Учет кадров на предприятии

  Edit0.Text:= IntToStr(NZ);

  Edit1.Text:= Q1.Fields[1].Text;

    Otd:= Q1.Fields[2].Value;

    Dlg:= Q1.Fields[3].Value;

    Obr:= Q1.Fields[4].Value;

  Edit2.Text:= Q1.Fields[14].Text;

  Edit3.Text:= Q1.Fields[15].Text;

  Edit4.Text:= Q1.Fields[16].Text;

  Edit5.Text:= Q1.Fields[5].Text;

    Okl:= Q1.Fields[6].Value;

    God:= Q1.Fields[7].Value;

  Edit6.Text:= IntToStr(Okl);

  Edit7.Text:= IntToStr(God);

    ms:=Q1.Fields[8].Text; den:= Q1.Fields[9].Text;

  Edit8.Text:= ms;

  Edit9.Text:= den;

  Edit10.Text:= Q1.Fields[10].Text;

  Edit11.Text:= Q1.Fields[11].Text;

    kold:= Q1.Fields[12].Value;

  Edit12.Text:= IntToStr(kold);

  Edit13.Text:= Q1.Fields[13].Text;

///////////////////////////////////////////

Panel1.Visible:= False;

Panel1.Hide;

AnimateWindow(Panel1.Handle,800,AW_HOR_NEGATIVE);

Panel1.Visible:= True;

//////////////////////////////

 

end;

 

procedure TFSotr.Edit2Click(Sender: TObject);

begin

DBLookupListBoxOtd.Visible:= True;

end;

 

procedure TFSotr.Edit3Click(Sender: TObject);

begin

  DBLookupListBoxDlg.Visible:= True;

end;

 

procedure TFSotr.Edit4Click(Sender: TObject);

begin

  DBLookupListBoxObr.Visible:= True;

end;

 

procedure TFSotr.DBLookupListBoxOtdClick(Sender: TObject);

begin

  Otd:= DBLookupListBoxOtd.KeyValue;

  Edit2.Text:= DBLookupListBoxOtd.SelectedItem;

  DBLookupListBoxOtd.Visible:= False;

end;

 

procedure TFSotr.DBLookupListBoxDlgClick(Sender: TObject);

begin

  Dlg:= DBLookupListBoxDlg.KeyValue;

  Edit3.Text:= DBLookupListBoxDlg.SelectedItem;

  DBLookupListBoxDlg.Visible:= False;

end;

 

procedure TFSotr.DBLookupListBoxObrClick(Sender: TObject);

begin

  Obr:= DBLookupListBoxObr.KeyValue;

  Edit4.Text:= DBLookupListBoxObr.SelectedItem;

  DBLookupListBoxObr.Visible:= False;

end;

 

procedure TFSotr.LabelSaveClick(Sender: TObject);

begin

//

Okl:= StrToInt(Edit6.Text);

God:= StrToInt(Edit7.Text);

kold:=StrToInt(Edit12.Text);

  if Reg = 1 then

    begin

     T1.Append;

     T1.Fields[0].Value:= NZ;

     T1.Fields[1].Text:= Edit1.Text;

     T1.Fields[2].Value:= Otd;

     T1.Fields[3].Value:= Dlg;

     T1.Fields[4].Value:= Obr;

     T1.Fields[5].Text:= Edit5.Text;

     T1.Fields[6].Value:= Okl;

     T1.Fields[7].Value:= God;

     T1.Fields[8].Text:= Edit8.Text;

     T1.Fields[9].Text:= Edit9.Text;

     T1.Fields[10].Text:= Edit10.Text;

     T1.Fields[11].Text:= Edit11.Text;

     T1.Fields[12].Value:= kold;

     T1.Fields[13].Text:= Edit13.Text;

     T1.Next;

    end

  else

    begin

     T1.FindKey([NZ]);

    T1.Edit;

     T1.Fields[1].Text:= Edit1.Text;

     T1.Fields[2].Value:= Otd;

     T1.Fields[3].Value:= Dlg;

     T1.Fields[4].Value:= Obr;

     T1.Fields[5].Text:= Edit5.Text;

     T1.Fields[6].Value:= Okl;

     T1.Fields[7].Value:= God;

     T1.Fields[8].Text:= Edit8.Text;

     T1.Fields[9].Text:= Edit9.Text;

     T1.Fields[10].Text:= Edit10.Text;

     T1.Fields[11].Text:= Edit11.Text;

     T1.Fields[12].Value:= kold;

     T1.Fields[13].Text:= Edit13.Text;

     T1.Last;

    end;

 

Q1.Close; Q1.Open;

Panel1.Visible:= False;

//

end;

 

procedure TFSotr.FormCreate(Sender: TObject);

begin

//

Otd:= 0;

Dlg:= 0;

Obr:= 0;

//

end;

 

procedure TFSotr.PanelAddClick(Sender: TObject);

begin

//

   Otd:=0; Dlg:=0; Obr:=0; Okl:=0; God:=0; kold:=0;

Reg:= 1;

   T1.Open;

   T1.Last;

if T1.Fields[0].IsNull then NZ:= 1 else NZ:= T1.Fields[0].Value + 1;

Edit0.Text:= IntToStr(NZ);

Edit1.Text:= '';

Edit2.Text:= '';

Edit3.Text:= '';

Edit4.Text:= '';

Edit5.Text:= '';

Edit6.Text:= '';

Edit7.Text:= '';

Edit8.Text:= '';

Edit9.Text:= '';

Edit10.Text:= '';

Edit11.Text:= '';

Edit12.Text:= '0';

Edit13.Text:= '';

Panel1.Visible:= True;

//

end;

 

procedure TFSotr.DBGridOCellClick(Column: TColumn);

begin

Otd:= TOtd.Fields[0].Value;

Q1.SQL.Clear;

Q1.SQL.Add('select TSotr.*, TOtdel.Name, TDolg.Name, TObraz.Name ');

Q1.SQL.Add('from TSotr, TOtdel, TDolg, TObraz ');

Q1.SQL.Add('where TSotr.Otdel=TOtdel.Otdel ');

Q1.SQL.Add('and TSotr.Dolg=TDolg.Dolg and TSotr.Obraz=TObraz.Obraz');

Q1.SQL.Add(' and TSotr.Otdel=' + IntToStr(Otd));

Q1.Close; Q1.Open;

DBgrid1.Visible:=True;

Panel1.Visible:=False;

end;

 

end.

 

 

 

Модуль Vibor.

 

unit Vibor;

 

interface

 

uses

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

  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls;

 

type

  TFVibor = class(TForm)

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    EditOtd: TEdit;

    EditDlg: TEdit;

    EditObr: TEdit;

    EditGod: TEdit;

    Q1: TQuery;

    DataSource1: TDataSource;

    LabelNo: TLabel;

    TOtd: TTable;

    TDlg: TTable;

    TObr: TTable;

    DataSourceOtd: TDataSource;

    DataSourceDlg: TDataSource;

    DataSourceObr: TDataSource;

    Panel1: TPanel;

    DBGrid1: TDBGrid;

    DBLookupListBoxDlg: TDBLookupListBox;

    DBLookupListBoxObr: TDBLookupListBox;

    PaneOk: TPanel;

    DBLookupListBoxOtd: TDBLookupListBox;

    PanelEx: TPanel;

    procedure EditOtdClick(Sender: TObject);

    procedure EditDlgClick(Sender: TObject);

    procedure EditObrClick(Sender: TObject);

    procedure DBLookupListBoxOtdClick(Sender: TObject);

    procedure DBLookupListBoxDlgClick(Sender: TObject);

    procedure DBLookupListBoxObrClick(Sender: TObject);

    procedure LabelNoClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure PaneOkClick(Sender: TObject);

    procedure PanelExClick(Sender: TObject);

  private

    { Private declarations }

    Otd,Dlg,Obr,God: Short;

 

  public

    { Public declarations }

  end;

 

var

  FVibor: TFVibor;

 

implementation

 

{$R *.dfm}

 

procedure TFVibor.EditOtdClick(Sender: TObject);

begin

  DBLookupListBoxOtd.Visible:= True;

end;

 

procedure TFVibor.EditDlgClick(Sender: TObject);

begin

  DBLookupListBoxDlg.Visible:= True;

end;

 

procedure TFVibor.EditObrClick(Sender: TObject);

begin

  DBLookupListBoxObr.Visible:= True;

end;

 

procedure TFVibor.DBLookupListBoxOtdClick(Sender: TObject);

begin

  Otd:= DBLookupListBoxOtd.KeyValue;

  EditOtd.Text:= DBLookupListBoxOtd.SelectedItem;

  DBLookupListBoxOtd.Visible:= False;

end;

 

procedure TFVibor.DBLookupListBoxDlgClick(Sender: TObject);

begin

  Dlg:= DBLookupListBoxDlg.KeyValue;

  EditDlg.Text:= DBLookupListBoxDlg.SelectedItem;

  DBLookupListBoxDlg.Visible:= False;

end;

 

procedure TFVibor.DBLookupListBoxObrClick(Sender: TObject);

begin

  Obr:= DBLookupListBoxObr.KeyValue;

  EditObr.Text:= DBLookupListBoxObr.SelectedItem;

  DBLookupListBoxObr.Visible:= False;

end;

 

procedure TFVibor.LabelNoClick(Sender: TObject);

begin

//

Otd:= 0;

Dlg:= 0;

Obr:= 0;

EditOtd.Text:= '';

EditDlg.Text:= '';

EditObr.Text:= '';

EditGod.Text:= '';

Q1.SQL.Clear;

Q1.SQL.Add('select TSotr.*, TOtdel.Name, TDolg.Name, TObraz.Name ');

Q1.SQL.Add('from TSotr, TOtdel, TDolg, TObraz ');

Q1.SQL.Add('where TSotr.Otdel=TOtdel.Otdel ');

Q1.SQL.Add('and TSotr.Dolg=TDolg.Dolg and TSotr.Obraz=TObraz.Obraz');

Q1.Open;

//

end;

 

procedure TFVibor.FormCreate(Sender: TObject);

begin

//

Otd:= 0;

Dlg:= 0;

Obr:= 0;

EditOtd.Text:= '';

EditDlg.Text:= '';

EditObr.Text:= '';

EditGod.Text:= '';

//

end;

 

procedure TFVibor.PaneOkClick(Sender: TObject);

begin

//

if EditGod.Text > '' then God:= StrToInt(EditGod.Text);

   Q1.SQL.Clear;

Q1.SQL.Add('select TSotr.*, TOtdel.Name, TDolg.Name, TObraz.Name ');

Q1.SQL.Add('from TSotr, TOtdel, TDolg, TObraz ');

Q1.SQL.Add('where TSotr.Otdel=TOtdel.Otdel ');

Q1.SQL.Add('and TSotr.Dolg=TDolg.Dolg and TSotr.Obraz=TObraz.Obraz');

  if Otd > 0 then Q1.SQL.Add(' and TSotr.Otdel=' + IntToStr(Otd));

   if Dlg > 0 then Q1.SQL.Add(' and TSotr.Dolg=' + IntToStr(Dlg));

    if Obr > 0 then Q1.SQL.Add(' and TSotr.Obraz=' + IntToStr(Obr));

     if God > 0 then Q1.SQL.Add(' and TSotr.God=' + IntToStr(God));

Q1.Open;

end;

 

procedure TFVibor.PanelExClick(Sender: TObject);

begin

Close;

end;

 

end.