112
dm.ADOTable17.Open;
cxGrid2DBTableView1.DataController.Groups.FullE
xpand;
end;
procedure TForm10.BitBtn5Click(Sender: TObject);
begin
dxComponentPrinter1.Preview(True,nil);
end;
procedure TForm10.cxGridDBTableView1CellClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo;
AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
cxGrid2DBTableView1.DataController.Groups.FullE
xpand;
end;
end.
unit Unit11;
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,
ADODB, DBCtrls, cxGridLevel,
cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses,
cxGridCustomView, cxGrid, StdCtrls, Buttons, Ex-
tCtrls, 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, cxDBLookupComboBox;
type
TForm11 = class(TForm)
Panel1: TPanel;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Panel2: TPanel;
Panel5: TPanel;
cxGrid1: TcxGrid;
cxGridDBTableView1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
Panel3: TPanel;
Panel4: TPanel;
cxGrid2: TcxGrid;
cxGrid2DBTableView1: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
ADOTable2: TADOTable;
cxGrid2DBTableView1DBColumn2:
TcxGridDBColumn;
cxGrid2DBTableView1DBColumn3:
TcxGridDBColumn;
cxGrid2DBTableView1DBColumn5:
TcxGridDBColumn;
cxGrid2DBTableView1_1: TcxGridDBColumn;
cxGrid2DBTableView1_2: TcxGridDBColumn;
cxGrid2DBTableView1Column1: TcxGridDBCol-
umn;
Label2: TLabel;
DBText3: TDBText;
cxGrid2DBTableView1Column2: TcxGridDBCol-
umn;
dxComponentPrinter1: TdxComponentPrinter;
cxGridDBTableView1DBColumn: TcxGridDB-
Column;
cxGrid2DBTableView1Column3: TcxGridDBCol-
umn;
dxComponentPrinter1Link1: TdxCustomContain-
erReportLink;
Panel6: TPanel;
cxGrid2DBTableView1Column4: TcxGridDBCol-
umn;
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
Form11: TForm11;
implementation
uses Unit20;
{$R *.dfm}
procedure TForm11.BitBtn4Click(Sender: TObject);
begin
ADOTable1.Close;
ADOTable1.Open;
ADOTable2.Close;
ADOTable2.Open;
dm.ADOTable16.Close;
113
dm.ADOTable16.Open;
dm.ADOTable14.Close;
dm.ADOTable14.Open;
dm.ADOTable17.Close;
dm.ADOTable17.Open;
cxGrid2DBTableView1.DataController.Groups.FullE
xpand;
end;
procedure TForm11.BitBtn5Click(Sender: TObject);
begin
dxComponentPrinter1.Preview(True,nil);
end;
procedure TForm11.cxGridDBTableView1CellClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo;
AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
cxGrid2DBTableView1.DataController.Groups.FullE
xpand;
end;
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters,
cxContainer, cxEdit, dxSkinsCore, ExtCtrls,
cxTextEdit, cxMaskEdit,
cxDropDownEdit, cxCalendar, cxDBEdit, StdCtrls,
Buttons, DBCtrls, Mask,
cxLookupEdit, cxDBLookupEdit, cxD-
BLookupComboBox, DB, ADODB;
type
TForm12 = class(TForm)
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBEdit3: TDBEdit;
cxDBDateEdit1: TcxDBDateEdit;
Panel1: TPanel;
BitBtn2: TBitBtn;
Label6: TLabel;
Label7: TLabel;
cxDBLookupComboBox1: TcxDBLookupCom-
boBox;
cxDBLookupComboBox2: TcxDBLookupCom-
boBox;
DBEdit4: TDBEdit;
Label8: TLabel;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
Label9: TLabel;
cxDBLookupComboBox3: TcxDBLookupCom-
boBox;
Label10: TLabel;
BitBtn3: TBitBtn;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form12: TForm12;
implementation
uses Unit8, Unit5, Unit6, Unit20;
{$R *.dfm}
procedure TForm12.BitBtn2Click(Sender: TObject);
begin
if (DBLookupComboBox1.Text='') or
(DBLookupComboBox2.Text='') Then begin
ShowMessage ('Заполните поля "Сотрудник" и
"Структурное подразделение"!');
end
else begin
Form5.ADOQuery1.Edit;
Form5.ADOQuery1.Post;
Form12.Close;
end
end;
procedure TForm12.BitBtn3Click(Sender: TObject);
begin
Form5.ADOQuery1.Cancel;
Form12.Close;
end;
end.
unit Unit13;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters,
cxContainer, cxEdit, dxSkinsCore, StdCtrls,
DBCtrls, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxDBExt-
LookupComboBox, ExtCtrls,
cxTextEdit, cxMaskEdit, cxCalendar, cxDBEdit,
Buttons, Mask, DB, ADODB,
114
cxDBLookupComboBox, cxHyperLinkEdit, cxBut-
tonEdit, ComCtrls, ShlObj,
cxShellCommon, cxShellComboBox, cxDBShell-
ComboBox, cxBlobEdit, Menus,
cxButtons, cxImage;
type
TForm13 = class(TForm)
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit3: TDBEdit;
cxDBDateEdit1: TcxDBDateEdit;
Panel1: TPanel;
BitBtn2: TBitBtn;
DBEdit6: TDBEdit;
Label9: TLabel;
Label10: TLabel;
DBCheckBox1: TDBCheckBox;
Label8: TLabel;
cxDBLookupComboBox1: TcxDBLookupCom-
boBox;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
cxDBMaskEdit1: TcxDBMaskEdit;
cxDBLookupComboBox2: TcxDBLookupCom-
boBox;
BitBtn3: TBitBtn;
Label2: TLabel;
Label1: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form13: TForm13;
implementation
uses Unit5, Unit8, Unit6, Unit20;
{$R *.dfm}
procedure TForm13.BitBtn2Click(Sender: TObject);
begin
if (DBLookupComboBox1.Text='') or
(DBLookupComboBox2.Text='') Then begin
ShowMessage('Заполните поля "Сотрудник" и
"Структурное подразделение"!');
end
else begin
Form5.ADOQuery2.Edit;
Form5.ADOQuery2.Post;
Form13.Close;
end
end;
procedure TForm13.BitBtn3Click(Sender: TObject);
begin
Form5.ADOQuery2.Cancel;
Form13.Close;
end;
end.
unit Unit15;
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,
DBCtrls, StdCtrls,
cxGridLevel, cxClasses, cxGridCustomView,
cxGrid, Buttons, ExtCtrls,
dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd,
dxWrap, dxPrnDev,
dxPSCompsProvider, dxPSFillPatterns, dxPSEdge-
Patterns, dxPSPDFExportCore,
dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd,
dxPSPrVwAdv, dxPSPrVwRibbon,
dxPScxPageControlProducer, dxPScxGrid6Lnk,
dxPScxEditorProducers,
dxPScxExtEditorProducers, dxSkinsdxBarPainter,
dxPSCore, dxPSDBCtrlLnks,
dxPSContainerLnk, cxDBLookupComboBox,
RpCon, RpConDS, RpDefine, RpRave;
type
TForm15 = class(TForm)
Panel1: TPanel;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Panel2: TPanel;
Panel5: TPanel;
cxGrid1: TcxGrid;
cxGridDBTableView1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
Panel3: TPanel;
Panel4: TPanel;
Label3: TLabel;
DBText1: TDBText;
DBText2: TDBText;
Label4: TLabel;
cxGrid2: TcxGrid;
cxGrid2DBTableView1: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
ADOConnection1: TADOConnection;
115
DataSource1: TDataSource;
DataSource2: TDataSource;
ADOTable2: TADOTable;
ADOQuery1: TADOQuery;
cxGridDBTableView1DBColumn: TcxGridDB-
Column;
cxGridDBTableView1_: TcxGridDBColumn;
dxComponentPrinter1: TdxComponentPrinter;
dxComponentPrinter1Link1: TdxCustomContain-
erReportLink;
Panel6: TPanel;
cxGrid2DBTableView1id_nachisl: TcxGridDB-
Column;
cxGrid2DBTableView1id_sotrud: TcxGridDB-
Column;
cxGrid2DBTableView1data_nachisl: TcxGridDB-
Column;
cxGrid2DBTableView1oklad: TcxGridDBCol-
umn;
cxGrid2DBTableView1uderjaniya: TcxGridDB-
Column;
cxGrid2DBTableView1pooshreniya: TcxGridDB-
Column;
cxGrid2DBTableView1podoh_nalog:
TcxGridDBColumn;
cxGrid2DBTableView1k_oplate: TcxGridDBCol-
umn;
cxGrid2DBTableView1status: TcxGridDBCol-
umn;
cxGrid2DBTableView1id_otdela: TcxGridDBCol-
umn;
RvProject15: TRvProject;
RvDataSetConnection151: TRvDataSetConnec-
tion;
RvDataSetConnection152: TRvDataSetConnec-
tion;
RvDataSetConnection153: TRvDataSetConnec-
tion;
RvDataSetConnection154: TRvDataSetConnec-
tion;
RvDataSetConnection155: TRvDataSetConnec-
tion;
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
Form15: TForm15;
implementation
uses Unit20;
{$R *.dfm}
procedure TForm15.BitBtn4Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.Open;
ADOTable2.Close;
ADOTable2.Open;
dm.ADOTable14.Close;
dm.ADOTable14.Open;
dm.ADOTable17.Close;
dm.ADOTable17.Open;
cxGrid2DBTableView1.DataController.Groups.FullE
xpand;
cxGridDBTa-
bleView1.DataController.Groups.FullExpand;
end;
procedure TForm15.BitBtn5Click(Sender: TObject);
begin
RvProject15.Execute;
end;
procedure TForm15.cxGridDBTableView1CellClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo;
AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
cxGrid2DBTableView1.DataController.Groups.FullE
xpand;
end;
end.
unit Unit16;
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,
ADODB, DBCtrls, StdCtrls,
cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView,
cxClasses, cxGridCustomView, cxGrid, Buttons,
ExtCtrls, Mask, dxPSGlbl,
dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap,
dxPrnDev, dxPSCompsProvider,
dxPSFillPatterns, dxPSEdgePatterns, dxPSPDFEx-
portCore, dxPSPDFExport,
cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv,
dxPSPrVwRibbon,
dxPScxPageControlProducer, dxPScxGrid6Lnk,
dxPScxEditorProducers,
dxPScxExtEditorProducers, dxSkinsdxBarPainter,
dxPSCore, dxPSDBCtrlLnks,
116
dxPSContainerLnk, cxDBLookupComboBox,
cxContainer, cxTextEdit,
cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit;
type
TForm16 = class(TForm)
Panel1: TPanel;
BitBtn5: TBitBtn;
Panel2: TPanel;
Panel5: TPanel;
cxGrid1: TcxGrid;
cxGridDBTableView1: TcxGridDBTableView;
cxGrid2DBTableView1DBColumn: TcxGridDB-
Column;
cxGridLevel1: TcxGridLevel;
Panel3: TPanel;
Panel4: TPanel;
Label3: TLabel;
DBText1: TDBText;
Label4: TLabel;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
ADOTable2: TADOTable;
Panel6: TPanel;
ADOTable3: TADOTable;
DataSource3: TDataSource;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Edit1: TEdit;
Edit2: TEdit;
Label2: TLabel;
BitBtn1: TBitBtn;
cxGrid2DBTableView1: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
cxGrid2DBTableView1_: TcxGridDBColumn;
cxGrid2DBTableView1DBColumn2:
TcxGridDBColumn;
cxGrid2DBTableView1_1: TcxGridDBColumn;
cxGrid2DBTableView1DBColumn3:
TcxGridDBColumn;
cxGridDBTableView1Column2: TcxGridDBCol-
umn;
BitBtn2: TBitBtn;
dxComponentPrinter1: TdxComponentPrinter;
Label5: TLabel;
DBText3: TDBText;
Panel7: TPanel;
dxComponentPrinter1Link1: TdxCustomContain-
erReportLink;
cxDBLookupComboBox1: TcxDBLookupCom-
boBox;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure cxGridDBTableView1CellClick(Sender:
TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo;
AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form16: TForm16;
implementation
uses Unit20, Unit8, Unit21;
{$R *.dfm}
procedure TForm16.BitBtn1Click(Sender: TObject);
var a,b,c,d:integer;
begin
Ed-
it1.Text:=cxGrid2DBTableView1.DataController.Su
mmary.FooterSummaryTexts[1];
Ed-
it2.Text:=cxGrid2DBTableView1.DataController.Su
mmary.FooterSummaryTexts[0];
a:=strtoint(Edit1.Text);
b:=strtoint(DBEdit1.Text);
c:=strtoint(Edit2.Text);
d:=strtoint(DBEdit2.Text);
if (a>b) and (c>d) Then begin
Label2.Visible:=true;
Label2.Caption:=' Сотрудник перевыполнил
установленную норму работы и заслуживает по-
ощрения!';
end
else begin
Label2.Visible:=false;
end
end;
procedure TForm16.cxGridDBTableView1CellClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo;
AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
BitBtn2.Click;
end;
procedure TForm16.BitBtn2Click(Sender: TObject);
begin
if
cxGrid2DBTableView1.DataController.DataSource.
DataSet.IsEmpty=false
then begin
BitBtn1.Click;
end
else begin
117
Label2.Visible:=false;
end
end;
procedure TForm16.BitBtn4Click(Sender: TObject);
begin
ADOTable1.Close;
ADOTable1.Open;
ADOTable2.Close;
ADOTable2.Open;
ADOTable3.Close;
ADOTable3.Open;
dm.ADOTable18.Close;
dm.ADOTable18.Open;
dm.ADOTable15.Close;
dm.ADOTable15.Open;
dm.ADOTable17.Close;
dm.ADOTable17.Open;
end;
procedure TForm16.BitBtn5Click(Sender: TObject);
begin
dxComponentPrinter1.Preview(True,nil);
end;
procedure TForm16.BitBtn3Click(Sender: TObject);
begin
Form8.Parent:=Form21.ScrollBox1;
Form8.show;
end;
end.
unit Unit17;
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,
cxCurrencyEdit,
cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, ADODB,
StdCtrls, Buttons, ExtCtrls, cxGridLevel, cxClasses,
cxGridCustomView,
cxGrid, cxPC, dxPSGlbl, dxPSUtl, dxPSEngn,
dxPrnPg, dxBkgnd, dxWrap,
dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
dxPSEdgePatterns,
dxPSPDFExportCore, dxPSPDFExport, cxDraw-
TextUtils, dxPSPrVwStd,
dxPSPrVwAdv, dxPSPrVwRibbon, dxPScxPage-
ControlProducer, dxPScxGrid6Lnk,
dxPScxEditorProducers, dxPScxExtEditorProduc-
ers, dxSkinsdxBarPainter,
dxPSCore, dxPSContainerLnk, cxDBLookupCom-
boBox;
type
TForm17 = class(TForm)
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxGrid2: TcxGrid;
cxGrid2DBTableView1: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
Panel1: TPanel;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
cxTabSheet2: TcxTabSheet;
cxGrid3: TcxGrid;
cxGridDBTableView1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
Panel3: TPanel;
BitBtn9: TBitBtn;
BitBtn10: TBitBtn;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOTable4: TADOTable;
DataSource4: TDataSource;
ADOTable3: TADOTable;
DataSource5: TDataSource;
cxTabSheet3: TcxTabSheet;
ADOTable1: TADOTable;
cxGrid1: TcxGrid;
cxGridDBTableView2: TcxGridDBTableView;
cxGridLevel2: TcxGridLevel;
Panel4: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
dxComponentPrinter1: TdxComponentPrinter;
dxComponentPrinter2: TdxComponentPrinter;
dxComponentPrinter3: TdxComponentPrinter;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
dxComponentPrinter1Link1: TdxCustomContain-
erReportLink;
dxComponentPrinter2Link1: TdxCustomContain-
erReportLink;
dxComponentPrinter3Link1: TdxCustomContain-
erReportLink;
cxGrid2DBTableView1id_trud_dog: TcxGridDB-
Column;
cxGrid2DBTableView1id_sotrud: TcxGridDB-
Column;
cxGrid2DBTableView1id_otdela: TcxGridDBCol-
umn;
cxGrid2DBTableView1id_doljnosti: TcxGridDB-
Column;
cxGrid2DBTableView1data_priema: TcxGridDB-
Column;
cxGrid2DBTableView1oklad: TcxGridDBCol-
umn;
cxGrid2DBTableView1id_rejima: TcxGridDB-
Column;
cxGrid2DBTableView1data_vibitiya:
TcxGridDBColumn;
cxGridDBTableView1id_pasp_dan: TcxGridDB-
Column;
118
cxGridDBTableView1id_sotrud: TcxGridDBCol-
umn;
cxGridDBTableView1pasport: TcxGridDBCol-
umn;
cxGridDBTableView1data_vidachi: TcxGridDB-
Column;
cxGridDBTableView1kem_vidan: TcxGridDB-
Column;
cxGridDBTableView1INN: TcxGridDBColumn;
cxGridDBTableView1SNILS: TcxGridDBCol-
umn;
cxGridDBTableView2id_obrazovaniya:
TcxGridDBColumn;
cxGridDBTableView2id_sotrud: TcxGridDBCol-
umn;
cxGridDBTableView2uroven_obraz: TcxGridDB-
Column;
cxGridDBTableView2uch_zaved: TcxGridDB-
Column;
cxGridDBTableView2specialnost: TcxGridDB-
Column;
cxGridDBTableView2god_okonch: TcxGridDB-
Column;
cxGridDBTableView2nomer_diploma:
TcxGridDBColumn;
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form17: TForm17;
implementation
uses Unit20;
{$R *.dfm}
procedure TForm17.BitBtn4Click(Sender: TObject);
begin
ADOTable4.Close;
ADOTable4.Open;
dm.ADOTable12.Close;
dm.ADOTable12.Open;
dm.ADOTable14.Close;
dm.ADOTable14.Open;
dm.ADOTable17.Close;
dm.ADOTable17.Open;
cxGrid2DBTableView1.DataController.Groups.FullE
xpand;
end;
procedure TForm17.BitBtn9Click(Sender: TObject);
begin
ADOTable3.Close;
ADOTable3.Open;
end;
procedure TForm17.BitBtn1Click(Sender: TObject);
begin
ADOTable1.Close;
ADOTable1.Open;
end;
procedure TForm17.BitBtn5Click(Sender: TObject);
begin
dxComponentPrinter1.Preview(True,nil);
end;
procedure TForm17.BitBtn10Click(Sender:
TObject);
begin
dxComponentPrinter2.Preview(True,nil);
end;
procedure TForm17.BitBtn2Click(Sender: TObject);
begin
dxComponentPrinter3.Preview(True,nil);
end;
end.
unit Unit18;
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, cxDBLookupComboBox,
dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd,
dxWrap, dxPrnDev,
dxPSCompsProvider, dxPSFillPatterns, dxPSEdge-
Patterns, dxPSPDFExportCore,
dxPSPDFExport, cxDrawTextUtils, dxPSPrVwStd,
dxPSPrVwAdv, dxPSPrVwRibbon,
dxPScxPageControlProducer, dxPScxGrid6Lnk,
dxPScxEditorProducers,
dxPScxExtEditorProducers, dxSkinsdxBarPainter,
dxPSCore, dxPScxCommon;
type
TForm18 = class(TForm)
Panel2: TPanel;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
cxGrid1: TcxGrid;
119
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1DBTableView1id_otdela: TcxGridDBCol-
umn;
cxGrid1DBTableView1id_doljnosti: TcxGridDB-
Column;
cxGrid1DBTableView1Column1: TcxGridDBCol-
umn;
cxGrid1DBTableView1kolich_stavok:
TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
dxComponentPrinter1: TdxComponentPrinter;
dxComponentPrinter1Link1: TdxGridReportLink;
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form18: TForm18;
implementation
uses Unit20;
{$R *.dfm}
procedure TForm18.BitBtn4Click(Sender: TObject);
begin
dm.ADOQuery4.Close;
dm.ADOQuery4.Open;
dm.ADOTable17.Close;
dm.ADOTable17.Open;
dm.ADOTable12.Close;
dm.ADOTable12.Open;
dm.ADOTable14.Close;
dm.ADOTable14.Open;
end;
procedure TForm18.BitBtn5Click(Sender: TObject);
begin
dxComponentPrinter1.Preview(True,nil);
end;
end.
unit Unit21;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, Menus;
type
TForm21 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
ScrollBox1: TScrollBox;
N31: TMenuItem;
N32: TMenuItem;
N33: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N27Click(Sender: TObject);
procedure N28Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure N30Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure N32Click(Sender: TObject);
procedure N33Click(Sender: TObject);
private
{ Private declarations }
public
120
{ Public declarations }
end;
var
Form21: TForm21;
implementation
uses Unit3, Unit17, Unit5, Unit4, Unit6, Unit15,
Unit16, Unit10, Unit11,
Unit14, Unit19, Unit23, Unit1, Unit24, Unit29,
Unit27, Unit18, Unit31;
{$R *.dfm}
procedure TForm21.N2Click(Sender: TObject);
begin
Form3.Parent:=Form21.ScrollBox1;
Form3.show;
Form3.ADOTable2.Close;
Form3.ADOTable2.Open;
Form3.ADOTable5.Close;
Form3.ADOTable5.Open;
Form3.ADOTable6.Close;
Form3.ADOTable6.Open;
Form3.ADOQuery1.Close;
Form3.ADOQuery1.Open;
Form3.ADOTable4.Close;
Form3.ADOTable4.Open;
end;
procedure TForm21.N7Click(Sender: TObject);
begin
Form17.show;
Form17.ADOTable4.Close;
Form17.ADOTable4.Open;
Form17.ADOTable3.Close;
Form17.ADOTable3.Open;
Form17.ADOTable1.Close;
Form17.ADOTable1.Open;
Form17.cxGrid2DBTableView1.DataController.Grou
ps.FullExpand;
Form17.cxPageControl1.ActivePageIndex:=0;
end;
procedure TForm21.N3Click(Sender: TObject);
begin
Form5.Parent:=Form21.ScrollBox1;
Form5.show;
Form5.cxPageControl1.ActivePageIndex:=0;
Form5.ADOTable4.Close;
Form5.ADOTable4.Open;
Form5.ADOQuery1.Close;
Form5.ADOQuery1.Open;
end;
procedure TForm21.N4Click(Sender: TObject);
begin
Form5.Parent:=Form21.ScrollBox1;
Form5.show;
Form5.cxPageControl1.ActivePageIndex:=1;
Form5.ADOTable4.Close;
Form5.ADOTable4.Open;
Form5.ADOQuery2.Close;
Form5.ADOQuery2.Open;
end;
procedure TForm21.N6Click(Sender: TObject);
begin
Form4.Parent:=Form21.ScrollBox1;
Form4.show;
Form4.cxGrid1DBTableView1.DataController.Group
s.FullExpand;
Form4.cxPageControl1.ActivePageIndex:=0;
end;
procedure TForm21.N12Click(Sender: TObject);
begin
Form6.Parent:=Form21.ScrollBox1;
Form6.show;
Form6.cxPageControl1.ActivePageIndex:=0;
end;
procedure TForm21.N13Click(Sender: TObject);
begin
Form6.Parent:=Form21.ScrollBox1;
Form6.show;
Form6.cxPageControl1.ActivePageIndex:=1;
end;
procedure TForm21.N14Click(Sender: TObject);
begin
Form6.Parent:=Form21.ScrollBox1;
Form6.show;
Form6.cxPageControl1.ActivePageIndex:=2;
end;
procedure TForm21.N27Click(Sender: TObject);
begin
Form15.Parent:=Form21.ScrollBox1;
Form15.ADOQuery1.Close;
Form15.ADOQuery1.Open;
Form15.ADOTable2.Close;
Form15.ADOTable2.Open;
Form15.cxGrid2DBTableView1.DataController.Grou
ps.FullExpand;
Form15.cxGridDBTableView1.DataController.Group
s.FullExpand;
Form15.show;
end;
procedure TForm21.N28Click(Sender: TObject);
begin
Form16.Parent:=Form21.ScrollBox1;
Form16.ADOTable1.Close;
Form16.ADOTable1.Open;
Form16.ADOTable2.Close;
Form16.ADOTable2.Open;
Form16.ADOTable3.Close;
Form16.ADOTable3.Open;
Form16.show;
end;
procedure TForm21.N26Click(Sender: TObject);
121
begin
Form10.Parent:=Form21.ScrollBox1;
Form10.ADOTable1.Close;
Form10.ADOTable1.Open;
Form10.ADOTable2.Close;
Form10.ADOTable2.Open;
Form10.cxGridDBTableView1.DataController.Group
s.FullExpand;
Form10.cxGrid2DBTableView1.DataController.Grou
ps.FullExpand;
Form10.Show;
end;
procedure TForm21.N25Click(Sender: TObject);
begin
Form11.Parent:=Form21.ScrollBox1;
Form11.ADOTable1.Close;
Form11.ADOTable1.Open;
Form11.ADOTable2.Close;
Form11.ADOTable2.Open;
Form11.cxGridDBTableView1.DataController.Group
s.FullExpand;
Form11.cxGrid2DBTableView1.DataController.Grou
ps.FullExpand;
Form11.Show;
end;
procedure TForm21.N23Click(Sender: TObject);
begin
Form14.Parent:=Form21.ScrollBox1;
Form14.show;
end;
procedure TForm21.N24Click(Sender: TObject);
begin
Form19.Parent:=Form21.ScrollBox1;
Form19.show;
Form19.WebBrowser1.Navigate(ExtractFilePath(Ap
plication.ExeName) + 'Помощь.htm');
end;
procedure TForm21.N15Click(Sender: TObject);
begin
Form6.Parent:=Form21.ScrollBox1;
Form6.show;
Form6.cxPageControl1.ActivePageIndex:=3;
end;
procedure TForm21.N16Click(Sender: TObject);
begin
Form6.Parent:=Form21.ScrollBox1;
Form6.show;
Form6.cxPageControl1.ActivePageIndex:=4;
end;
procedure TForm21.N18Click(Sender: TObject);
begin
Form6.Parent:=Form21.ScrollBox1;
Form6.show;
Form6.cxPageControl1.ActivePageIndex:=5;
end;
procedure TForm21.N19Click(Sender: TObject);
begin
Form6.Parent:=Form21.ScrollBox1;
Form6.show;
Form6.cxPageControl1.ActivePageIndex:=6;
end;
procedure TForm21.N17Click(Sender: TObject);
begin
Form6.Parent:=Form21.ScrollBox1;
Form6.show;
Form6.cxPageControl1.ActivePageIndex:=7;
end;
procedure TForm21.N20Click(Sender: TObject);
begin
Form6.Parent:=Form21.ScrollBox1;
Form6.show;
Form6.cxPageControl1.ActivePageIndex:=8;
end;
procedure TForm21.N29Click(Sender: TObject);
begin
Form23.Parent:=Form21.ScrollBox1;
Form23.show;
end;
procedure TForm21.N30Click(Sender: TObject);
begin
Form1.Parent:=Form21.ScrollBox1;
Form1.show;
end;
procedure TForm21.N8Click(Sender: TObject);
begin
Form24.Parent:=Form21.ScrollBox1;
Form24.show;
end;
procedure TForm21.N10Click(Sender: TObject);
begin
Form29.Parent:=Form21.ScrollBox1;
Form29.show;
end;
procedure TForm21.N9Click(Sender: TObject);
begin
Form27.Parent:=Form21.ScrollBox1;
Form27.show;
end;
procedure TForm21.N31Click(Sender: TObject);
begin
Form18.Parent:=Form21.ScrollBox1;
Form18.show;
end;
procedure TForm21.N32Click(Sender: TObject);
begin
Form6.Parent:=Form21.ScrollBox1;
Form6.show;
Form6.cxPageControl1.ActivePageIndex:=11;