Диплом: Автоматизация управления персоналом АО "МОСПРОМПРОЕКТ", страницы 102-111

102

X := MessageDlg('Вы действительно хотите уда-

лить текущую запись?', MTConfirmation, [MBYes,

MBNo], 0);

If X = mrYes then ADOTable2.Delete;

end;

procedure TForm4.BitBtn14Click(Sender: TObject);

begin

ADOTable2.Edit;

ADOTable2.Post;

cxGridDBTableView1.OptionsData.Editing:=false;

end;

procedure TForm4.BitBtn16Click(Sender: TObject);

begin

cxGridDBTableView2.OptionsData.Editing:=true;

ADOTable3.Insert;

end;

procedure TForm4.BitBtn18Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Вы действительно хотите уда-

лить текущую запись?', MTConfirmation, [MBYes,

MBNo], 0);

If X = mrYes then ADOTable3.Delete;

end;

procedure TForm4.BitBtn19Click(Sender: TObject);

begin

ADOTable3.Edit;

ADOTable3.Post;

cxGridDBTableView2.OptionsData.Editing:=false;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

Form9.ShowModal;

end;

procedure TForm4.BitBtn7Click(Sender: TObject);

begin

cxGrid2DBTableView1.OptionsData.Editing:=true;

end;

procedure TForm4.BitBtn12Click(Sender: TObject);

begin

cxGridDBTableView1.OptionsData.Editing:=true;

end;

procedure TForm4.BitBtn17Click(Sender: TObject);

begin

cxGridDBTableView2.OptionsData.Editing:=true;

end;

procedure

TForm4.cxGrid1DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo;

AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

begin

BitBtn2.Click;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('Select * from sotrudniki

where FIO like ''%'+Edit1.Text+'%''');

ADOQuery1.ExecSQL;

ADOQuery1.Open;

end;

procedure TForm4.Edit1Change(Sender: TObject);

begin

Button1.Click;

end;

procedure TForm4.BitBtn10Click(Sender: TObject);

begin

dxDockPanel1.Show;

end;

procedure TForm4.FormShow(Sender: TObject);

begin

dxDockPanel1.Hide;

end;

procedure TForm4.BitBtn5Click(Sender: TObject);

begin

RvProject4.Execute;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, cxGraphics, cxControls, cxLookAndFeels,

cxLookAndFeelPainters,

dxSkinsCore, dxSkinscxPCPainter, cxStyles, cxCus-

tomData, cxFilter,

cxData, cxDataStorage, cxEdit, DB, cxDBData,

cxGridCustomTableView,

cxGridTableView, cxGridDBTableView, StdCtrls,

Buttons, ExtCtrls, ADODB,

cxGridLevel, cxClasses, cxGridCustomView,

cxGrid, cxPC, cxHyperLinkEdit,

cxMRUEdit, cxDBExtLookupComboBox, cxCur-

rencyEdit, cxContainer,

cxTextEdit, cxMaskEdit, cxDropDownEdit,

cxLookupEdit, cxDBLookupEdit,

cxDBLookupComboBox, Mask, DBCtrls, RpCon,

RpConDS, RpDefine, RpRave;

type

TForm5 = class(TForm)

cxPageControl1: TcxPageControl;

103

cxTabSheet1: TcxTabSheet;

cxGrid2: TcxGrid;

cxGrid2DBTableView1: TcxGridDBTableView;

cxGrid2Level1: TcxGridLevel;

cxTabSheet2: TcxTabSheet;

cxGrid3: TcxGrid;

cxGridDBTableView1: TcxGridDBTableView;

cxGridLevel1: TcxGridLevel;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

ADOQuery2: TADOQuery;

DataSource2: TDataSource;

Panel3: TPanel;

Panel2: TPanel;

Label1: TLabel;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

cxGrid2DBTableView1_: TcxGridDBColumn;

cxGrid2DBTableView1DBColumn: TcxGridDB-

Column;

cxGrid2DBTableView1DBColumn1:

TcxGridDBColumn;

cxGrid2DBTableView1DBColumn2:

TcxGridDBColumn;

cxGrid2DBTableView1_1: TcxGridDBColumn;

cxGrid2DBTableView1_2: TcxGridDBColumn;

cxGrid2DBTableView1DBColumn3:

TcxGridDBColumn;

cxGridDBTableView1_: TcxGridDBColumn;

cxGridDBTableView1DBColumn: TcxGridDB-

Column;

cxGridDBTableView1DBColumn1: TcxGridDB-

Column;

cxGridDBTableView1DBColumn2: TcxGridDB-

Column;

cxGridDBTableView1DBColumn3: TcxGridDB-

Column;

cxGridDBTableView1DBColumn4: TcxGridDB-

Column;

cxGridDBTableView1_1: TcxGridDBColumn;

cxGridDBTableView1_2: TcxGridDBColumn;

cxGridDBTableView1DBColumn5: TcxGridDB-

Column;

cxGrid2DBTableView1Column1: TcxGridDBCol-

umn;

ADOTable4: TADOTable;

DataSource4: TDataSource;

ADOTable3: TADOTable;

DataSource5: TDataSource;

BitBtn11: TBitBtn;

DBEdit1: TDBEdit;

DBLookupComboBox1: TDBLookupComboBox;

RvProject5: TRvProject;

RvDataSetConnection51: TRvDataSetConnection;

RvDataSetConnection52: TRvDataSetConnection;

RvDataSetConnection53: TRvDataSetConnection;

RvDataSetConnection54: TRvDataSetConnection;

RvDataSetConnection55: TRvDataSetConnection;

RvDataSetConnection56: TRvDataSetConnection;

RvDataSetConnection57: TRvDataSetConnection;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn11Click(Sender: TObject);

procedure cxDBLookupCom-

boBox1PropertiesChange(Sender: TObject);

procedure cxGrid2DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo;

AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

procedure cxGridDBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo;

AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

procedure DBLookupCom-

boBox1CloseUp(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit12, Unit13, Unit20;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

ADOQuery1.Insert;

Form12.ADOTable1.Close;

Form12.ADOTable1.Open;

Form12.ShowModal;

end;

procedure TForm5.BitBtn6Click(Sender: TObject);

begin

ADOQuery2.Insert;

Form13.ADOTable1.Close;

Form13.ADOTable1.Open;

Form13.ShowModal;

end;

procedure TForm5.BitBtn3Click(Sender: TObject);

104

Var X: word;

begin

X := MessageDlg('Вы действительно хотите уда-

лить текущую запись?', MTConfirmation, [MBYes,

MBNo], 0);

If X = mrYes then ADOQuery1.Delete;

end;

procedure TForm5.BitBtn4Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.Open;

ADOTable4.Close;

ADOTable4.Open;

end;

procedure TForm5.BitBtn8Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Вы действительно хотите уда-

лить текущую запись?', MTConfirmation, [MBYes,

MBNo], 0);

If X = mrYes then ADOQuery2.Delete;

end;

procedure TForm5.BitBtn9Click(Sender: TObject);

begin

ADOQuery2.Close;

ADOQuery2.Open;

ADOTable4.Close;

ADOTable4.Open;

end;

procedure TForm5.BitBtn2Click(Sender: TObject);

begin

Form12.ShowModal;

end;

procedure TForm5.BitBtn7Click(Sender: TObject);

begin

Form13.ShowModal;

end;

procedure TForm5.BitBtn11Click(Sender: TObject);

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('Select * from poochreniya

where id_perioda like ''%'+DBEdit1.Text+'%''');

ADOQuery1.ExecSQL;

ADOQuery1.Open;

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('Select * from uderjaniya

where id_perioda like ''%'+DBEdit1.Text+'%''');

ADOQuery2.ExecSQL;

ADOQuery2.Open;

end;

procedure

TForm5.cxDBLookupComboBox1PropertiesChange(

Sender: TObject);

begin

BitBtn11.Click;

end;

procedure

TForm5.cxGrid2DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo;

AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

begin

BitBtn2.Click;

end;

procedure

TForm5.cxGridDBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo;

AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

begin

BitBtn7.Click;

end;

procedure

TForm5.DBLookupComboBox1CloseUp(Sender:

TObject);

begin

BitBtn11.Click;

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, cxGraphics, cxControls, cxLookAndFeels,

cxLookAndFeelPainters,

dxSkinsCore, dxSkinscxPCPainter, cxStyles, cxCus-

tomData, cxFilter,

cxData, cxDataStorage, cxEdit, DB, cxDBData,

cxGridCustomTableView,

cxGridTableView, cxGridDBTableView, ADODB,

StdCtrls, Buttons, ExtCtrls,

cxGridLevel, cxClasses, cxGridCustomView,

cxGrid, cxPC, cxCurrencyEdit,

cxContainer, cxTextEdit, cxMaskEdit,

cxDropDownEdit, cxLookupEdit,

cxDBLookupEdit, cxDBLookupComboBox, Mask,

DBCtrls;

type

TForm6 = class(TForm)

cxPageControl1: TcxPageControl;

cxTabSheet1: TcxTabSheet;

cxGrid2: TcxGrid;

cxGrid2DBTableView1: TcxGridDBTableView;

cxGrid2Level1: TcxGridLevel;

105

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn3: TBitBtn;

cxTabSheet2: TcxTabSheet;

cxGrid3: TcxGrid;

cxGridDBTableView1: TcxGridDBTableView;

cxGridLevel1: TcxGridLevel;

Panel3: TPanel;

BitBtn6: TBitBtn;

BitBtn8: TBitBtn;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

cxTabSheet3: TcxTabSheet;

Panel2: TPanel;

BitBtn11: TBitBtn;

BitBtn13: TBitBtn;

cxGrid1: TcxGrid;

cxGridDBTableView2: TcxGridDBTableView;

cxGridLevel2: TcxGridLevel;

BitBtn2: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn7: TBitBtn;

BitBtn9: TBitBtn;

BitBtn10: TBitBtn;

cxTabSheet4: TcxTabSheet;

cxTabSheet5: TcxTabSheet;

Panel4: TPanel;

Panel5: TPanel;

BitBtn12: TBitBtn;

BitBtn14: TBitBtn;

BitBtn15: TBitBtn;

BitBtn16: TBitBtn;

BitBtn17: TBitBtn;

BitBtn18: TBitBtn;

BitBtn19: TBitBtn;

BitBtn20: TBitBtn;

cxGrid4: TcxGrid;

cxGridDBTableView3: TcxGridDBTableView;

cxGridLevel3: TcxGridLevel;

cxGrid5: TcxGrid;

cxGridDBTableView4: TcxGridDBTableView;

cxGridLevel4: TcxGridLevel;

ADOTable4: TADOTable;

ADOTable5: TADOTable;

DataSource4: TDataSource;

DataSource5: TDataSource;

cxTabSheet6: TcxTabSheet;

Panel6: TPanel;

cxGrid6: TcxGrid;

cxGridDBTableView5: TcxGridDBTableView;

cxGridLevel5: TcxGridLevel;

ADOTable6: TADOTable;

DataSource6: TDataSource;

BitBtn21: TBitBtn;

BitBtn22: TBitBtn;

cxTabSheet7: TcxTabSheet;

Panel7: TPanel;

cxGrid7: TcxGrid;

cxGridDBTableView6: TcxGridDBTableView;

cxGridLevel6: TcxGridLevel;

ADOTable7: TADOTable;

DataSource7: TDataSource;

BitBtn23: TBitBtn;

BitBtn24: TBitBtn;

BitBtn25: TBitBtn;

BitBtn26: TBitBtn;

cxTabSheet8: TcxTabSheet;

Panel8: TPanel;

cxGrid8: TcxGrid;

cxGridDBTableView7: TcxGridDBTableView;

cxGridLevel7: TcxGridLevel;

ADOTable8: TADOTable;

DataSource8: TDataSource;

BitBtn27: TBitBtn;

BitBtn28: TBitBtn;

BitBtn29: TBitBtn;

BitBtn30: TBitBtn;

cxTabSheet9: TcxTabSheet;

Panel9: TPanel;

cxGrid9: TcxGrid;

cxGridDBTableView8: TcxGridDBTableView;

cxGridLevel8: TcxGridLevel;

ADOTable9: TADOTable;

DataSource9: TDataSource;

BitBtn31: TBitBtn;

BitBtn32: TBitBtn;

BitBtn33: TBitBtn;

BitBtn34: TBitBtn;

cxGrid2DBTableView1id_otdela: TcxGridDBCol-

umn;

cxGrid2DBTableView1nazvanie: TcxGridDBCol-

umn;

cxGridDBTableView1id_doljnosti: TcxGridDB-

Column;

cxGridDBTableView1nazvanie: TcxGridDBCol-

umn;

cxGridDBTableView2id_rejima: TcxGridDBCol-

umn;

cxGridDBTableView2nazvanie: TcxGridDBCol-

umn;

cxGridDBTableView3id_motiva: TcxGridDBCol-

umn;

cxGridDBTableView3opisanie: TcxGridDBCol-

umn;

cxGridDBTableView4id_vida_poosh:

TcxGridDBColumn;

cxGridDBTableView4nazvanie: TcxGridDBCol-

umn;

cxGridDBTableView5id: TcxGridDBColumn;

cxGridDBTableView5kolichestvo: TcxGridDB-

Column;

cxGridDBTableView5stoimost: TcxGridDBCol-

umn;

cxGridDBTableView6id_perioda: TcxGridDB-

Column;

cxGridDBTableView6nazvanie: TcxGridDBCol-

umn;

106

cxGridDBTableView7id_prichini: TcxGridDB-

Column;

cxGridDBTableView7opisanie: TcxGridDBCol-

umn;

cxGridDBTableView8id_uslugi: TcxGridDBCol-

umn;

cxGridDBTableView8stoimost: TcxGridDBCol-

umn;

cxGridDBTableView8nazvanie: TcxGridDBCol-

umn;

cxTabSheet10: TcxTabSheet;

Panel10: TPanel;

BitBtn35: TBitBtn;

BitBtn36: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

cxDBLookupComboBox1: TcxDBLookupCom-

boBox;

cxDBLookupComboBox2: TcxDBLookupCom-

boBox;

BitBtn37: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure Panel2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn13Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn11Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn12Click(Sender: TObject);

procedure BitBtn17Click(Sender: TObject);

procedure BitBtn14Click(Sender: TObject);

procedure BitBtn16Click(Sender: TObject);

procedure BitBtn15Click(Sender: TObject);

procedure BitBtn20Click(Sender: TObject);

procedure BitBtn19Click(Sender: TObject);

procedure BitBtn18Click(Sender: TObject);

procedure BitBtn21Click(Sender: TObject);

procedure BitBtn22Click(Sender: TObject);

procedure BitBtn23Click(Sender: TObject);

procedure BitBtn24Click(Sender: TObject);

procedure BitBtn26Click(Sender: TObject);

procedure BitBtn25Click(Sender: TObject);

procedure BitBtn27Click(Sender: TObject);

procedure BitBtn28Click(Sender: TObject);

procedure BitBtn29Click(Sender: TObject);

procedure BitBtn30Click(Sender: TObject);

procedure BitBtn31Click(Sender: TObject);

procedure BitBtn32Click(Sender: TObject);

procedure BitBtn33Click(Sender: TObject);

procedure BitBtn34Click(Sender: TObject);

procedure BitBtn37Click(Sender: TObject);

procedure BitBtn36Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit20;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

cxGrid2DBTableView1.OptionsData.Editing:=true;

ADOTable1.Insert;

end;

procedure TForm6.BitBtn6Click(Sender: TObject);

begin

ADOTable2.Insert;

cxGridDBTableView1.OptionsData.Editing:=true;

end;

procedure TForm6.Panel2Click(Sender: TObject);

begin

ADOTable3.Insert;

end;

procedure TForm6.BitBtn3Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Вы действительно хотите уда-

лить текущую запись?', MTConfirmation, [MBYes,

MBNo], 0);

If X = mrYes then ADOTable1.Delete;

end;

procedure TForm6.BitBtn8Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Вы действительно хотите уда-

лить текущую запись?', MTConfirmation, [MBYes,

MBNo], 0);

If X = mrYes then ADOTable2.Delete;

107

end;

procedure TForm6.BitBtn13Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Вы действительно хотите уда-

лить текущую запись?', MTConfirmation, [MBYes,

MBNo], 0);

If X = mrYes then ADOTable3.Delete;

end;

procedure TForm6.BitBtn2Click(Sender: TObject);

begin

ADOTable1.Edit;

ADOTable1.Post;

cxGrid2DBTableView1.OptionsData.Editing:=false;

end;

procedure TForm6.BitBtn4Click(Sender: TObject);

begin

ADOTable2.Edit;

ADOTable2.Post;

cxGridDBTableView1.OptionsData.Editing:=false;

end;

procedure TForm6.BitBtn5Click(Sender: TObject);

begin

ADOTable3.Edit;

ADOTable3.Post;

cxGridDBTableView2.OptionsData.Editing:=false;

end;

procedure TForm6.BitBtn11Click(Sender: TObject);

begin

ADOTable3.Insert;

cxGridDBTableView2.OptionsData.Editing:=true;

end;

procedure TForm6.BitBtn7Click(Sender: TObject);

begin

cxGrid2DBTableView1.OptionsData.Editing:=true;

end;

procedure TForm6.BitBtn9Click(Sender: TObject);

begin

cxGridDBTableView1.OptionsData.Editing:=true;

end;

procedure TForm6.BitBtn10Click(Sender: TObject);

begin

cxGridDBTableView2.OptionsData.Editing:=true;

end;

procedure TForm6.BitBtn12Click(Sender: TObject);

begin

cxGridDBTableView3.OptionsData.Editing:=true;

ADOTable4.Insert;

end;

procedure TForm6.BitBtn17Click(Sender: TObject);

begin

cxGridDBTableView4.OptionsData.Editing:=true;

ADOTable5.Insert;

end;

procedure TForm6.BitBtn14Click(Sender: TObject);

begin

cxGridDBTableView3.OptionsData.Editing:=true;

end;

procedure TForm6.BitBtn16Click(Sender: TObject);

begin

ADOTable4.Edit;

ADOTable4.Post;

cxGridDBTableView3.OptionsData.Editing:=false;

end;

procedure TForm6.BitBtn15Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Вы действительно хотите уда-

лить текущую запись?', MTConfirmation, [MBYes,

MBNo], 0);

If X = mrYes then ADOTable4.Delete;

end;

procedure TForm6.BitBtn20Click(Sender: TObject);

begin

ADOTable5.Edit;

ADOTable5.Post;

cxGridDBTableView4.OptionsData.Editing:=false;

end;

procedure TForm6.BitBtn19Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Вы действительно хотите уда-

лить текущую запись?', MTConfirmation, [MBYes,

MBNo], 0);

If X = mrYes then ADOTable5.Delete;

end;

procedure TForm6.BitBtn18Click(Sender: TObject);

begin

cxGridDBTableView4.OptionsData.Editing:=true;

end;

procedure TForm6.BitBtn21Click(Sender: TObject);

begin

cxGridDBTableView5.OptionsData.Editing:=true;

end;

procedure TForm6.BitBtn22Click(Sender: TObject);

begin

ADOTable6.Edit;

ADOTable6.Post;

cxGridDBTableView5.OptionsData.Editing:=false;

end;

procedure TForm6.BitBtn23Click(Sender: TObject);

begin

cxGridDBTableView6.OptionsData.Editing:=true;

ADOTable7.Insert;

end;

108

procedure TForm6.BitBtn24Click(Sender: TObject);

begin

cxGridDBTableView6.OptionsData.Editing:=true;

end;

procedure TForm6.BitBtn26Click(Sender: TObject);

begin

ADOTable7.Edit;

ADOTable7.Post;

cxGridDBTableView6.OptionsData.Editing:=false;

end;

procedure TForm6.BitBtn25Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Вы действительно хотите уда-

лить текущую запись?', MTConfirmation, [MBYes,

MBNo], 0);

If X = mrYes then ADOTable7.Delete;

end;

procedure TForm6.BitBtn27Click(Sender: TObject);

begin

cxGridDBTableView7.OptionsData.Editing:=true;

ADOTable8.Insert;

end;

procedure TForm6.BitBtn28Click(Sender: TObject);

begin

cxGridDBTableView7.OptionsData.Editing:=true;

end;

procedure TForm6.BitBtn29Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Вы действительно хотите уда-

лить текущую запись?', MTConfirmation, [MBYes,

MBNo], 0);

If X = mrYes then ADOTable8.Delete;

end;

procedure TForm6.BitBtn30Click(Sender: TObject);

begin

ADOTable8.Edit;

ADOTable8.Post;

cxGridDBTableView7.OptionsData.Editing:=false;

end;

procedure TForm6.BitBtn31Click(Sender: TObject);

begin

cxGridDBTableView8.OptionsData.Editing:=true;

ADOTable9.Insert;

end;

procedure TForm6.BitBtn32Click(Sender: TObject);

begin

cxGridDBTableView8.OptionsData.Editing:=true;

end;

procedure TForm6.BitBtn33Click(Sender: TObject);

Var X: word;

begin

X := MessageDlg('Вы действительно хотите уда-

лить текущую запись?', MTConfirmation, [MBYes,

MBNo], 0);

If X = mrYes then ADOTable9.Delete;

end;

procedure TForm6.BitBtn34Click(Sender: TObject);

begin

ADOTable9.Edit;

ADOTable9.Post;

cxGridDBTableView8.OptionsData.Editing:=false;

end;

procedure TForm6.BitBtn37Click(Sender: TObject);

begin

dm.ADOTable11.Close;

dm.ADOTable11.Open;

dm.ADOTable17.Close;

dm.ADOTable17.Open;

end;

procedure TForm6.BitBtn36Click(Sender: TObject);

begin

dm.ADOTable11.Edit;

dm.ADOTable11.Post;

end;

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, cxGraphics, cxControls, cxLookAndFeels,

cxLookAndFeelPainters,

cxContainer, cxEdit, dxSkinsCore, ExtCtrls,

StdCtrls, cxTextEdit,

cxMaskEdit, cxDropDownEdit, cxCalendar, cxD-

BEdit, Buttons, DBCtrls, Mask,

DB, ADODB, cxLookupEdit, cxDBLookupEdit,

cxDBLookupComboBox;

type

TForm7 = class(TForm)

DBEdit3: TDBEdit;

cxDBDateEdit1: TcxDBDateEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Panel1: TPanel;

BitBtn2: TBitBtn;

Label7: TLabel;

Label8: TLabel;

cxDBLookupComboBox1: TcxDBLookupCom-

boBox;

ADOConnection1: TADOConnection;

109

ADOTable1: TADOTable;

DataSource1: TDataSource;

BitBtn4: TBitBtn;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit8, Unit1, Unit6, Unit18, Unit20;

{$R *.dfm}

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

if (DBLookupComboBox1.Text='') or

(DBLookupComboBox2.Text='') Then begin

ShowMessage('Невозможно сохранить запись,

поле сотрудник не заполнено!');

end

else begin

Form1.ADOQuery1.Edit;

Form1.ADOQuery1.FieldByName('stoimost').Value:

=DBEdit3.text;

Form1.ADOQuery1.Post;

Form7.Close;

end

end;

procedure TForm7.BitBtn4Click(Sender: TObject);

begin

Form1.ADOQuery1.Cancel;

Form7.Close;

end;

end.

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, cxGraphics, cxControls, cxLookAndFeels,

cxLookAndFeelPainters,

cxStyles, dxSkinsCore, dxSkinscxPCPainter, cxCus-

tomData, cxFilter,

cxData, cxDataStorage, cxEdit, DB, cxDBData,

cxGridCustomTableView,

cxGridTableView, cxGridDBTableView, ADODB,

cxGridLevel, cxClasses,

cxGridCustomView, cxGrid, StdCtrls, Buttons, Ex-

tCtrls, cxContainer,

cxTextEdit, cxMaskEdit, cxDropDownEdit,

cxLookupEdit, cxDBLookupEdit,

cxDBLookupComboBox, Mask, DBCtrls,

dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,

dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,

dxPSFillPatterns,

dxPSEdgePatterns, dxPSPDFExportCore, dxPSPD-

FExport, cxDrawTextUtils,

dxPSPrVwStd, dxPSPrVwAdv, dxPSPrVwRibbon,

dxPScxPageControlProducer,

dxPScxGrid6Lnk, dxPScxEditorProducers, dxP-

ScxExtEditorProducers,

dxSkinsdxBarPainter, dxPSCore, dxPSContain-

erLnk;

type

TForm8 = class(TForm)

Panel2: TPanel;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

cxGrid1: TcxGrid;

cxGrid1DBTableView1: TcxGridDBTableView;

cxGrid1Level1: TcxGridLevel;

cxGrid1DBTableView1id_sotrud: TcxGridDB-

Column;

cxGrid1DBTableView1kolichestvo: TcxGridDB-

Column;

cxGrid1DBTableView1stoimost: TcxGridDBCol-

umn;

cxGrid1DBTableView1id_perioda: TcxGridDB-

Column;

Panel1: TPanel;

DBEdit1: TDBEdit;

Label1: TLabel;

Button1: TButton;

CheckBox1: TCheckBox;

DBLookupComboBox1: TDBLookupComboBox;

dxComponentPrinter1: TdxComponentPrinter;

dxComponentPrinter1Link1: TdxCustomContain-

erReportLink;

procedure Button1Click(Sender: TObject);

procedure cxDBLookupCom-

boBox1PropertiesChange(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure DBLookupCom-

boBox1CloseUp(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit20;

110

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);

begin

if CheckBox1.Checked=false then begin

dm.ADOQuery3.Close;

dm.ADOQuery3.SQL.Clear;

dm.ADOQuery3.SQL.Add('Select * from zapros5

where id_perioda like '''+DBEdit1.Text+'''');

dm.ADOQuery3.ExecSQL;

dm.ADOQuery3.Open;

end

else begin

dm.ADOQuery3.Close;

dm.ADOQuery3.SQL.Clear;

dm.ADOQuery3.SQL.Add('Select * from zapros6

where id_perioda like '''+DBEdit1.Text+'''');

dm.ADOQuery3.ExecSQL;

dm.ADOQuery3.Open;

end

end;

procedure

TForm8.cxDBLookupComboBox1PropertiesChange(

Sender: TObject);

begin

Button1.Click;

end;

procedure TForm8.BitBtn4Click(Sender: TObject);

begin

dm.ADOQuery3.Close;

dm.ADOQuery3.Open;

end;

procedure

TForm8.DBLookupComboBox1CloseUp(Sender:

TObject);

begin

Button1.Click;

end;

procedure TForm8.BitBtn5Click(Sender: TObject);

begin

dxComponentPrinter1.Preview(True,nil);

end;

procedure TForm8.CheckBox1Click(Sender:

TObject);

begin

Button1.Click;

end;

end.

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, cxGraphics, cxControls, cxLookAndFeels,

cxLookAndFeelPainters,

cxContainer, cxEdit, dxSkinsCore, StdCtrls, But-

tons, ExtCtrls,

cxDropDownEdit, cxLookupEdit, cxDBLookupEd-

it, cxDBLookupComboBox,

cxTextEdit, cxMaskEdit, cxCalendar, cxDBEdit,

cxImage, DBCtrls, Mask;

type

TForm9 = class(TForm)

DBEdit1: TDBEdit;

DBComboBox1: TDBComboBox;

cxDBImage1: TcxDBImage;

cxDBDateEdit1: TcxDBDateEdit;

DBEdit2: TDBEdit;

Label1: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Panel1: TPanel;

BitBtn1: TBitBtn;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBMemo1: TDBMemo;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

cxDBMaskEdit1: TcxDBMaskEdit;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Label2: TLabel;

DBEdit5: TDBEdit;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit4, Unit6;

{$R *.dfm}

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

if (DBEdit2.Text='') Then begin

ShowMessage('Введите ФИО сотрудника!');

end

else begin

Form4.ADOQuery1.Edit;

Form4.ADOQuery1.Post;

111

Form9.Close;

end

end;

procedure TForm9.BitBtn2Click(Sender: TObject);

begin

cxDBImage1.LoadFromFile;

end;

procedure TForm9.BitBtn3Click(Sender: TObject);

begin

Form4.ADOQuery1.Cancel;

Form9.Close;

end;

end.

unit Unit10;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, cxGraphics,

cxControls,

cxLookAndFeels, cxLookAndFeelPainters,

cxStyles, dxSkinsCore,

dxSkinscxPCPainter, cxCustomData, cxFilter,

cxData, cxDataStorage,

cxEdit, DB, cxDBData, ADODB, cxGridCustom-

TableView, cxGridTableView,

cxGridDBTableView, cxGridLevel, cxClasses,

cxGridCustomView, cxGrid,

DBCtrls, cxContainer, cxTextEdit, cxMaskEdit,

cxDropDownEdit,

cxLookupEdit, cxDBLookupEdit, cxD-

BLookupComboBox, dxPSGlbl, dxPSUtl,

dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev,

dxPSCompsProvider,

dxPSFillPatterns, dxPSEdgePatterns, dxPSPDFEx-

portCore, dxPSPDFExport,

cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv,

dxPSPrVwRibbon,

dxPScxPageControlProducer, dxPScxGrid6Lnk,

dxPScxEditorProducers,

dxPScxExtEditorProducers, dxSkinsdxBarPainter,

dxPSCore, dxPSDBCtrlLnks,

dxPSContainerLnk;

type

TForm10 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

cxGrid2: TcxGrid;

cxGrid2DBTableView1: TcxGridDBTableView;

cxGrid2Level1: TcxGridLevel;

cxGrid1: TcxGrid;

cxGridDBTableView1: TcxGridDBTableView;

cxGridLevel1: TcxGridLevel;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DataSource2: TDataSource;

ADOTable2: TADOTable;

cxGrid2DBTableView1DBColumn2:

TcxGridDBColumn;

cxGrid2DBTableView1DBColumn3:

TcxGridDBColumn;

cxGrid2DBTableView1_1: TcxGridDBColumn;

cxGrid2DBTableView1_2: TcxGridDBColumn;

cxGrid2DBTableView1DBColumn5:

TcxGridDBColumn;

DBText2: TDBText;

Label4: TLabel;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

cxGrid2DBTableView1Column2: TcxGridDBCol-

umn;

cxGridDBTableView1DBColumn: TcxGridDB-

Column;

Panel6: TPanel;

cxGrid2DBTableView1Column1: TcxGridDBCol-

umn;

cxGrid2DBTableView1Column4: TcxGridDBCol-

umn;

dxComponentPrinter1: TdxComponentPrinter;

dxComponentPrinter1Link1: TdxCustomContain-

erReportLink;

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure cxGridDBTableView1CellClick(Sender:

TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo;

AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

uses Unit20;

{$R *.dfm}

procedure TForm10.BitBtn4Click(Sender: TObject);

begin

ADOTable1.Close;

ADOTable1.Open;

ADOTable2.Close;

ADOTable2.Open;

dm.ADOTable13.Close;

dm.ADOTable13.Open;

dm.ADOTable14.Close;

dm.ADOTable14.Open;

dm.ADOTable17.Close;

Смотрите также:

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)