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

122

end;

procedure TForm21.N33Click(Sender: TObject);

begin

Form31.Parent:=Form21.ScrollBox1;

Form31.show;

end;

end.

unit Unit22;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, Mask, DBCtrls;

type

TForm22 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

BitBtn2: TBitBtn;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form22: TForm22;

implementation

uses Unit21, Unit20;

{$R *.dfm}

procedure TForm22.BitBtn2Click(Sender: TObject);

begin

if (Edit1.Text=EmptyStr) or (Edit2.Text=EmptyStr)

then begin ShowMessage('Введите логин и

пароль');

end

else begin

if (Edit1.Text=DBEdit1.Text) and (Ed-

it2.Text=DBEdit2.Text) then begin

Form21.show;

Form21.WindowState:=wsMaximized;

end

else begin

ShowMessage('Неверный логин или пароль. По-

пробуйте еще раз.');

end

end;

end.

unit Unit23;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, Mask,

DBCtrls;

type

TForm23 = class(TForm)

Label1: TLabel;

Label2: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form23: TForm23;

implementation

uses Unit20;

{$R *.dfm}

procedure TForm23.BitBtn2Click(Sender: TObject);

begin

dm.ADOTable8.Close;

Form23.Close;

end;

procedure TForm23.BitBtn1Click(Sender: TObject);

begin

dm.ADOTable8.Edit;

dm.ADOTable8.Post;

Form23.Close;

end;

end.

unit Unit24;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

123

Dialogs, cxGraphics, cxControls, cxLookAndFeels,

cxLookAndFeelPainters,

cxStyles, dxSkinsCore, dxSkinscxPCPainter, cxCus-

tomData, cxFilter,

cxData, cxDataStorage, cxEdit, DB, cxDBData,

cxGridLevel,

cxGridCustomTableView, cxGridTableView,

cxGridDBTableView, cxClasses,

cxGridCustomView, cxGrid, StdCtrls, Buttons, Ex-

tCtrls, cxDBLookupComboBox,

RpCon, RpConDS, RpDefine, RpRave;

type

TForm24 = class(TForm)

Panel2: TPanel;

BitBtn1: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

cxGrid1: TcxGrid;

cxGrid1DBTableView1: TcxGridDBTableView;

cxGrid1Level1: TcxGridLevel;

cxGrid1DBTableView1id_otdela: TcxGridDBCol-

umn;

cxGrid1DBTableView1id_doljnosti: TcxGridDB-

Column;

cxGrid1DBTableView1kolich_stavok:

TcxGridDBColumn;

cxGrid1DBTableView1counttid_doljnosti:

TcxGridDBColumn;

cxGrid1DBTableView1vakantno: TcxGridDBCol-

umn;

cxGrid1DBTableView1Column1: TcxGridDBCol-

umn;

RvProject24: TRvProject;

RvDataSetConnection241: TRvDataSetConnec-

tion;

RvDataSetConnection242: TRvDataSetConnec-

tion;

RvDataSetConnection243: TRvDataSetConnec-

tion;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form24: TForm24;

implementation

uses Unit25, Unit20;

{$R *.dfm}

procedure TForm24.BitBtn1Click(Sender: TObject);

begin

Form25.ShowModal;

end;

procedure TForm24.BitBtn4Click(Sender: TObject);

begin

dm.ADOTable12.Close;

dm.ADOTable12.Open;

dm.ADOTable10.Close;

dm.ADOTable10.Open;

dm.ADOTable14.Close;

dm.ADOTable14.Open;

end;

procedure TForm24.BitBtn5Click(Sender: TObject);

begin

RvProject24.Execute;

end;

end.

unit Unit25;

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,

cxGridLevel,

cxGridCustomTableView, cxGridTableView,

cxGridDBTableView, cxClasses,

cxGridCustomView, cxGrid, StdCtrls, Buttons, Ex-

tCtrls, cxDBLookupComboBox;

type

TForm25 = class(TForm)

cxGrid1: TcxGrid;

cxGrid1DBTableView1: TcxGridDBTableView;

cxGrid1Level1: TcxGridLevel;

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

cxGrid1DBTableView1id_potreb: TcxGridDB-

Column;

cxGrid1DBTableView1id_otdela: TcxGridDBCol-

umn;

cxGrid1DBTableView1id_doljnosti: TcxGridDB-

Column;

cxGrid1DBTableView1kolich_stavok:

TcxGridDBColumn;

BitBtn5: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure cxGrid1DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo;

AButton: TMouseButton;

124

AShift: TShiftState; var AHandled: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form25: TForm25;

implementation

uses Unit20, Unit26;

{$R *.dfm}

procedure TForm25.BitBtn1Click(Sender: TObject);

begin

dm.ADOTable9.Insert;

Form26.showModal;

end;

procedure TForm25.BitBtn2Click(Sender: TObject);

begin

Form26.showModal;

end;

procedure TForm25.BitBtn3Click(Sender: TObject);

Var X: word;

begin

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

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

MBNo], 0);

If X = mrYes then dm.ADOTable9.Delete;

end;

procedure TForm25.BitBtn5Click(Sender: TObject);

begin

dm.ADOTable1.Close;

dm.ADOTable1.Open;

dm.ADOTable2.Close;

dm.ADOTable2.Open;

dm.ADOTable9.Close;

dm.ADOTable9.Open;

dm.ADOTable14.Close;

dm.ADOTable14.Open;

dm.ADOTable12.Close;

dm.ADOTable12.Open;

end;

procedure

TForm25.cxGrid1DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo;

AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

begin

BitBtn2.Click;

end;

end.

unit Unit26;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, Mask,

DBCtrls;

type

TForm26 = class(TForm)

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

DBEdit1: TDBEdit;

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form26: TForm26;

implementation

uses Unit20;

{$R *.dfm}

procedure TForm26.BitBtn1Click(Sender: TObject);

begin

dm.ADOTable9.Edit;

dm.ADOTable9.Post;

Form26.Close;

end;

procedure TForm26.BitBtn2Click(Sender: TObject);

begin

dm.ADOTable9.Cancel;

Form26.Close;

end;

end.

unit Unit27;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, cxGraphics, cxControls, cxLookAndFeels,

cxLookAndFeelPainters,

125

cxStyles, dxSkinsCore, dxSkinscxPCPainter, cxCus-

tomData, cxFilter,

cxData, cxDataStorage, cxEdit, DB, cxDBData,

StdCtrls, Buttons, ExtCtrls,

cxGridLevel, cxGridCustomTableView,

cxGridTableView, cxGridDBTableView,

cxClasses, cxGridCustomView, cxGrid, 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, dxPScxCommon;

type

TForm27 = class(TForm)

cxGrid1: TcxGrid;

cxGrid1DBTableView1: TcxGridDBTableView;

cxGrid1Level1: TcxGridLevel;

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

cxGrid1DBTableView1id_otpuska: TcxGridDB-

Column;

cxGrid1DBTableView1id_sotrud: TcxGridDB-

Column;

cxGrid1DBTableView1id_perioda: TcxGridDB-

Column;

cxGrid1DBTableView1srok: TcxGridDBColumn;

cxGrid1DBTableView1id_otdela: TcxGridDBCol-

umn;

cxGrid1DBTableView1id_doljnosti: TcxGridDB-

Column;

BitBtn5: TBitBtn;

Panel2: TPanel;

Edit1: TEdit;

Label1: TLabel;

Button1: TButton;

dxComponentPrinter1: TdxComponentPrinter;

dxComponentPrinter1Link1: TdxGridReportLink;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure cxGrid1DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo;

AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

procedure Button1Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form27: TForm27;

implementation

uses Unit20, Unit28;

{$R *.dfm}

procedure TForm27.BitBtn1Click(Sender: TObject);

begin

dm.ADOQuery1.Insert;

Form28.showModal;

end;

procedure TForm27.BitBtn2Click(Sender: TObject);

begin

Form28.showModal;

end;

procedure TForm27.BitBtn4Click(Sender: TObject);

begin

dm.ADOQuery1.Close;

dm.ADOQuery1.Open;

dm.ADOTable12.Open;

dm.ADOTable12.Close;

dm.ADOTable12.Open;

dm.ADOTable14.Close;

dm.ADOTable14.Open;

dm.ADOTable17.Close;

dm.ADOTable17.Open;

dm.ADOTable15.Close;

dm.ADOTable15.Open;

dm.ADOTable20.Close;

dm.ADOTable20.Open;

end;

procedure TForm27.BitBtn3Click(Sender: TObject);

Var X: word;

begin

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

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

MBNo], 0);

If X = mrYes then dm.ADOQuery1.Delete;

end;

procedure

TForm27.cxGrid1DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo;

AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

begin

BitBtn2.Click;

end;

procedure TForm27.Button1Click(Sender: TObject);

begin

dm.ADOQuery1.Close;

126

dm.ADOQuery1.SQL.Clear;

dm.ADOQuery1.SQL.Add('Select * from otpusk

where id_perioda in (select id_perioda from period

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

dm.ADOQuery1.ExecSQL;

dm.ADOQuery1.Open;

end;

procedure TForm27.Edit1Change(Sender: TObject);

begin

Button1.Click;

end;

procedure TForm27.BitBtn5Click(Sender: TObject);

begin

dxComponentPrinter1.Preview(True,nil);

end;

end.

unit Unit28;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, cxGraphics, cxControls, cxLookAndFeels,

cxLookAndFeelPainters,

cxContainer, cxEdit, dxSkinsCore, StdCtrls, But-

tons, ExtCtrls, Mask,

DBCtrls, cxTextEdit, cxMaskEdit,

cxDropDownEdit, cxLookupEdit,

cxDBLookupEdit, cxDBLookupComboBox;

type

TForm28 = class(TForm)

Label8: TLabel;

Label2: TLabel;

cxDBLookupComboBox1: TcxDBLookupCom-

boBox;

DBLookupComboBox2: TDBLookupComboBox;

Label1: TLabel;

DBEdit2: TDBEdit;

Label4: TLabel;

Label3: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DBComboBox1: TDBComboBox;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form28: TForm28;

implementation

uses Unit20;

{$R *.dfm}

procedure TForm28.BitBtn1Click(Sender: TObject);

begin

dm.ADOQuery1.Edit;

dm.ADOQuery1.FieldByName('id_doljnosti').Value:

=DBEdit2.Text;

dm.ADOQuery1.Post;

Form28.Close;

end;

procedure TForm28.BitBtn2Click(Sender: TObject);

begin

dm.ADOQuery1.Cancel;

Form28.Close;

end;

end.

unit Unit29;

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,

StdCtrls, Buttons, ExtCtrls,

cxGridLevel, cxGridCustomTableView,

cxGridTableView, cxGridDBTableView,

cxClasses, cxGridCustomView, cxGrid, cxD-

BLookupComboBox, RpCon, RpConDS,

RpDefine, RpRave;

type

TForm29 = class(TForm)

cxGrid1: TcxGrid;

cxGrid1DBTableView1: TcxGridDBTableView;

cxGrid1Level1: TcxGridLevel;

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

cxGrid1DBTableView1id_komandir:

TcxGridDBColumn;

cxGrid1DBTableView1id_sotrud: TcxGridDB-

Column;

cxGrid1DBTableView1id_otdela: TcxGridDBCol-

umn;

cxGrid1DBTableView1id_doljnosti: TcxGridDB-

Column;

127

cxGrid1DBTableView1mesto_komand:

TcxGridDBColumn;

cxGrid1DBTableView1cel: TcxGridDBColumn;

cxGrid1DBTableView1srok: TcxGridDBColumn;

cxGrid1DBTableView1data_nachala:

TcxGridDBColumn;

cxGrid1DBTableView1data_okonch:

TcxGridDBColumn;

BitBtn5: TBitBtn;

RvProject29: TRvProject;

RvDataSetConnection291: TRvDataSetConnec-

tion;

RvDataSetConnection292: TRvDataSetConnec-

tion;

RvDataSetConnection293: TRvDataSetConnec-

tion;

RvDataSetConnection294: TRvDataSetConnec-

tion;

RvDataSetConnection295: TRvDataSetConnec-

tion;

RvDataSetConnection296: TRvDataSetConnec-

tion;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure cxGrid1DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo;

AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

procedure BitBtn5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form29: TForm29;

implementation

uses Unit20, Unit30;

{$R *.dfm}

procedure TForm29.BitBtn1Click(Sender: TObject);

begin

dm.ADOQuery2.Insert;

Form30.showModal;

end;

procedure TForm29.BitBtn2Click(Sender: TObject);

begin

Form30.showModal;

end;

procedure TForm29.BitBtn4Click(Sender: TObject);

begin

dm.ADOQuery2.Close;

dm.ADOQuery2.Open;

dm.ADOTable12.Open;

dm.ADOTable12.Close;

dm.ADOTable12.Open;

dm.ADOTable14.Close;

dm.ADOTable14.Open;

dm.ADOTable17.Close;

dm.ADOTable17.Open;

end;

procedure TForm29.BitBtn3Click(Sender: TObject);

Var X: word;

begin

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

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

MBNo], 0);

If X = mrYes then dm.ADOQuery2.Delete;

end;

procedure

TForm29.cxGrid1DBTableView1CellDblClick(

Sender: TcxCustomGridTableView;

ACellViewInfo: TcxGridTableDataCellViewInfo;

AButton: TMouseButton;

AShift: TShiftState; var AHandled: Boolean);

begin

BitBtn2.Click;

end;

procedure TForm29.BitBtn5Click(Sender: TObject);

begin

RvProject29.Execute;

end;

end.

unit Unit30;

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, cxGraphics,

cxControls,

cxLookAndFeels, cxLookAndFeelPainters, cxCon-

tainer, cxEdit, dxSkinsCore,

cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCal-

endar, cxDBEdit, Mask,

DBCtrls, DateUtils;

type

TForm30 = class(TForm)

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label8: TLabel;

Label2: TLabel;

DBLookupComboBox2: TDBLookupComboBox;

Label1: TLabel;

DBEdit2: TDBEdit;

Label4: TLabel;

DBEdit3: TDBEdit;

128

Label3: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DBEdit1: TDBEdit;

Label5: TLabel;

DBEdit4: TDBEdit;

cxDBDateEdit1: TcxDBDateEdit;

cxDBDateEdit2: TcxDBDateEdit;

Label6: TLabel;

Label7: TLabel;

Button1: TButton;

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form30: TForm30;

implementation

uses Unit20, Unit29;

{$R *.dfm}

procedure TForm30.BitBtn1Click(Sender: TObject);

begin

if (DBLookupComboBox1.Text='') or

(DBLookupComboBox2.Text='') or (cxDBDateEd-

it1.Text='') or (cxDBDateEdit2.Text='') Then begin

ShowMessage('Заполните пустые поля!');

end

else begin

Button1.Click;

dm.ADOQuery2.Edit;

dm.ADOQuery2.FieldByName('id_doljnosti').Value:

=DBEdit2.Text;

dm.ADOQuery2.Post;

Form30.Close;

end

end;

procedure TForm30.Button1Click(Sender: TObject);

var nach, okonch: Tdate;

var srok: integer;

begin

nach:=strtodate(cxDBDateEdit1.Text);

okonch:=strtodate(cxDBDateEdit2.Text);

srok:=DaysBetween(nach,okonch);

DBEdit3.Text:=inttostr(srok);

end;

procedure TForm30.BitBtn2Click(Sender: TObject);

begin

dm.ADOQuery2.Cancel;

Form30.Close;

end;

end.

unit Unit31;

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,

cxDBLookupComboBox,

dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd,

dxWrap, dxPrnDev,

dxPSCompsProvider, dxPSFillPatterns, dxPSEdge-

Patterns, dxPSPDFExportCore,

dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd,

dxPSPrVwAdv, dxPSPrVwRibbon,

dxPScxPageControlProducer, dxPScxEditorProduc-

ers,

dxPScxExtEditorProducers, dxSkinsdxBarPainter,

dxPSCore, dxPScxCommon,

dxPScxGrid6Lnk, StdCtrls, Buttons, ExtCtrls,

cxGridLevel,

cxGridCustomTableView, cxGridTableView,

cxGridDBTableView, cxClasses,

cxGridCustomView, cxGrid, Mask, DBCtrls,

ComCtrls, RpCon, RpConDS,

RpDefine, RpRave;

type

TForm31 = class(TForm)

cxGrid1: TcxGrid;

cxGrid1DBTableView1: TcxGridDBTableView;

cxGrid1Level1: TcxGridLevel;

Panel1: TPanel;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

Panel2: TPanel;

Label1: TLabel;

Button1: TButton;

cxGrid1DBTableView1id_sotrud: TcxGridDB-

Column;

cxGrid1DBTableView1data_nachisl: TcxGridDB-

Column;

cxGrid1DBTableView1sumpooshreniya:

TcxGridDBColumn;

cxGrid1DBTableView1sumuderjaniya:

TcxGridDBColumn;

cxGrid1DBTableView1sumpodoh_nalog:

TcxGridDBColumn;

cxGrid1DBTableView1sumk_oplate:

TcxGridDBColumn;

cxGrid1DBTableView1id_perioda: TcxGridDB-

Column;

DBLookupComboBox1: TDBLookupComboBox;

DBEdit1: TDBEdit;

Label2: TLabel;

Label3: TLabel;

DateTimePicker1: TDateTimePicker;

129

Label4: TLabel;

DateTimePicker2: TDateTimePicker;

Button2: TButton;

DBLookupComboBox2: TDBLookupComboBox;

Label5: TLabel;

DBEdit2: TDBEdit;

cxGrid1DBTableView1Column1: TcxGridDBCol-

umn;

RvProject31: TRvProject;

RvDataSetConnection311: TRvDataSetConnec-

tion;

RvDataSetConnection312: TRvDataSetConnec-

tion;

RvDataSetConnection313: TRvDataSetConnec-

tion;

RvDataSetConnection314: TRvDataSetConnec-

tion;

RvDataSetConnection315: TRvDataSetConnec-

tion;

procedure Button1Click(Sender: TObject);

procedure DBLookupCom-

boBox1CloseUp(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form31: TForm31;

implementation

uses Unit20;

{$R *.dfm}

procedure TForm31.Button1Click(Sender: TObject);

begin

dm.ADOQuery5.Close;

dm.ADOQuery5.SQL.Clear;

dm.ADOQuery5.SQL.Add('Select * from zapros7

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

dm.ADOQuery5.ExecSQL;

dm.ADOQuery5.Open;

end;

procedure

TForm31.DBLookupComboBox1CloseUp(Sender:

TObject);

begin

Button1.Click;

end;

procedure TForm31.BitBtn4Click(Sender: TObject);

begin

dm.ADOQuery5.Close;

dm.ADOQuery5.Open;

end;

procedure TForm31.Button2Click(Sender: TObject);

var StartDate, EndDate: string;

begin

StartDate:=formatDateTime('yyyy-mm-

dd',DateTimePicker1.Date);

EndDate:=formatDateTime('yyyy-mm-

dd',DateTimePicker2.Date);

dm.ADOQuery5.Close;

dm.ADOQuery5.SQL.Clear;

dm.ADOQuery5.SQL.Text:='SELECT * FROM

zapros7 where (data_nachisl between :StartDate

AND :EndDate) and (id_sotrud like

'''+DBEdit2.Text+''')';

dm.ADOQuery5.Parameters.ParamByName('StartDat

e').DataType:= ftDate;

dm.ADOQuery5.Parameters.ParamByName('EndDat

e').DataType:= ftDate;

dm.ADOQuery5.Parameters.ParamValues['StartDate'

]:=DateToStr(DateTimePicker1.Date);

dm.ADOQuery5.Parameters.ParamValues['EndDate']

:=DateToStr(DateTimePicker2.Date);

dm.ADOQuery5.Open;

end;

procedure TForm31.BitBtn5Click(Sender: TObject);

begin

RvProject31.Execute;

end;

end.

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

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