92
Приложение 4
Бланк документа «Командировочное удостоверение»
Унифицированная форма № Т-10
Утверждена Постановлением Госкомстата России
от 05.01.2004 № 1
Код
Форма по ОКУД
0301024
по ОКПО
(наименование организации)
Номер документа
Дата составления
КОМАНДИРОВОЧНОЕ УДОСТОВЕРЕНИЕ
Табельный номер
Работник
(фамилия, имя, отчество)
(структурного подразделения)
(должность (специальность, профессия))
командируется в
(место назначения (страна, город, организация))
для
(цель командировки)
на календарных дней (не считая времени нахождения в пути)
с
“
”
20
г. по “
”
20
г.
Действительно по предъявлении паспорта или заменяющего его документа
(наименование)
(номер)
Руководитель
(должность)
(личная подпись)
(расшифровка подписи)
93
Приложение 5
Описание обозначений базы данных
Primary key (PRI) – первичный ключ.
Foreign key (MUL) – внешний ключ.
Unsigned – данное свойство означает, что в столбце запрещены отрица-
тельные значения.
Auto_increment – данное свойство обеспечивает автоматическую нуме-
рацию строк таблицы.
Описание типов данных:
Integer или Int – целое число в диапазоне либо от -2 147 483 648 до 2
147 483 647, либо (если указано свойство Unsigned) от 0 до 4 294 967 295.
Date - lата в формате «yyyy-mm-dd», в диапазоне от «0000-01-01» до
«9999-12-31».
Varchar – символьная строка переменной длины, содержащая не более
указанного количества символов (от 0 до 65 535).
Decimal или Dec - точное (неокругляемое) число с фиксированной точ-
кой. Может содержать до 65 значащих цифр и до 30 цифр после десятичного
разделителя (в нашем случае – 8 значащих цифр и 2 после десятичного раз-
делителя).
TINYINT – логический тип данных (0 нет, 1 - да),
Mediumblob – строковый тип. Текст длиной от 0 до 16777215
0символов. Используется для графических материалов.
94
Приложение 6
Перечень форм разработанной программы
Форма
Название
Unit 1
Статистика работы сотрудников
Unit 2
Заставка
Unit 3
Начисление зарплаты
Unit 4
Карточка сотрудника
Unit 5
Надбавки/Вычеты
Unit 6
Справочники
Unit 7
Ввод данных о работе
Unit 8
Сводные показатели деятельности сотрудников компании
Unit 9
Ввод данных о сотруднике
Unit 10
Отчет по надбавкам к заработной плате
Unit 11
Отчет о вычетах из заработной платы
Unit 12
Ввод данных о надбавках
Unit 13
Ввод данных о вычетах
Unit 14
О программе
Unit 15
Отчет по заработной плате
Unit 16
Отчет по работе сотрудников
Unit 17
Документы
Unit 18
Организационная структура компании
Unit 19
Руководство пользователя
Unit 20
Модуль базы данных
Unit 21
Главное меню
Unit 22
Вход в систему
Unit 23
Параметры входа в систему
Unit 24
Штатное расписание
Unit 25
Потребность в кадрах
Unit 26
Измменить потребность в кадрах
Unit 27
График отпусков
Unit 28
Ввод данных об отпуске
Unit 29
Командировки
Unit 30
Ввод данных о командировке
Unit 31
Справка о доходах физического лица
95
Приложение 7
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters,
dxSkinsCore, dxSkinsdxNavBar2Painter, cxStyles,
dxSkinscxPCPainter,
cxCustomData, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData,
cxContainer, cxTextEdit, cxMaskEdit,
cxDropDownEdit, cxCalendar,
StdCtrls, Buttons, ADODB, cxGridLevel,
cxClasses, cxGridCustomView,
cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid,
ExtCtrls, dxNavBarCollns, dxNavBarBase,
dxNavBar, ComCtrls, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox,
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, dxPSDBCtrlLnks, Mask,
DBCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn5: TBitBtn;
Label1: TLabel;
Label2: TLabel;
BitBtn6: TBitBtn;
ADOTable4: TADOTable;
DataSource4: TDataSource;
ADOTable3: TADOTable;
DataSource5: TDataSource;
cxGrid1DBTableView1_: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn: TcxGridDB-
Column;
cxGrid1DBTableView1DBColumn1:
TcxGridDBColumn;
cxGrid1DBTableView1_1: TcxGridDBColumn;
cxGrid1DBTableView1DBColumn2:
TcxGridDBColumn;
cxGrid1DBTableView1DBColumn3:
TcxGridDBColumn;
dxComponentPrinter1: TdxComponentPrinter;
dxComponentPrinter1Link1: TdxCustomContain-
erReportLink;
DBEdit1: TDBEdit;
BitBtn4: TBitBtn;
DBLookupComboBox1: TDBLookupComboBox;
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure cxDBLookupCom-
boBox1PropertiesChange(Sender: TObject);
procedure cxGrid1DBTableView1CellDblClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo;
AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure DBLookupCom-
boBox1CloseUp(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit4, Unit3, Unit5, Unit6, Unit7, Unit10,
Unit11, Unit15, Unit16,
Unit17, Unit14, Unit19, Unit20;
{$R *.dfm}
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
dxComponentPrinter1.Preview(True,nil);
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
Var X: word;
begin
96
X := MessageDlg('Вы действительно хотите уда-
лить текущую запись?', MTConfirmation, [MBYes,
MBNo], 0);
If X = mrYes then ADOQuery1.Delete;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Insert;
Form7.ADOTable1.Close;
Form7.ADOTable1.Open;
Form7.DBEdit3.Text:='';
Form7.ShowModal;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.Open;
ADOTable4.Close;
ADOTable4.Open;
dm.ADOTable6.Close;
dm.ADOTable6.Open;
dm.ADOTable7.Close;
dm.ADOTable7.Open;
dm.ADOTable15.Close;
dm.ADOTable15.Open;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form7.DBEdit3.text:=ADOQuery1.FieldByName('st
oimost').Value;
Form7.show;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * from statisti-
ka_raboti where id_perioda like
'''+DBEdit1.Text+'''');
ADOQuery1.ExecSQL;
ADOQuery1.Open;
end;
procedure
TForm1.cxDBLookupComboBox1PropertiesChange(
Sender: TObject);
begin
BitBtn6.Click;
end;
procedure
TForm1.cxGrid1DBTableView1CellDblClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo;
AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
BitBtn2.Click;
end;
procedure
TForm1.DBLookupComboBox1CloseUp(Sender:
TObject);
begin
BitBtn6.Click;
end;
end.
unit Unit3;
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, cxPC,
cxCurrencyEdit, cxContainer, cxTextEdit,
cxMaskEdit, cxDropDownEdit,
cxLookupEdit, cxDBLookupEdit, cxD-
BLookupComboBox, Mask, DBCtrls,
cxButtonEdit, Menus;
type
TForm3 = class(TForm)
Panel1: TPanel;
Panel3: TPanel;
DataSource1: TDataSource;
Panel4: TPanel;
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
cxGrid2: TcxGrid;
cxGrid2DBTableView1: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid3: TcxGrid;
cxGridDBTableView1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
DataSource2: TDataSource;
DataSource3: TDataSource;
ADOTable4: TADOTable;
DataSource4: TDataSource;
ADOQuery1: TADOQuery;
ADOTable3: TADOTable;
DataSource5: TDataSource;
Label1: TLabel;
DBEdit1: TDBEdit;
ComboBox1: TComboBox;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
97
Panel5: TPanel;
Panel6: TPanel;
DataSource6: TDataSource;
DBEdit2: TDBEdit;
ADOTable2: TADOTable;
ADOTable5: TADOTable;
DBEdit3: TDBEdit;
ADOTable6: TADOTable;
cxGrid4: TcxGrid;
cxGridDBTableView2: TcxGridDBTableView;
cxGridDBTableView2DBColumn: TcxGridDB-
Column;
cxGridDBTableView2Column1: TcxGridDBCol-
umn;
cxGridLevel2: TcxGridLevel;
DBEdit4: TDBEdit;
Edit3: TEdit;
Panel7: TPanel;
Panel2: TPanel;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
cxGrid1: TcxGrid;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
BitBtn6: TBitBtn;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn9: TBitBtn;
DBEdit5: TDBEdit;
cxGrid2DBTableView1id_pooshreniya:
TcxGridDBColumn;
cxGrid2DBTableView1data: TcxGridDBColumn;
cxGrid2DBTableView1id_motiva: TcxGridDB-
Column;
cxGrid2DBTableView1id_vida_poosh:
TcxGridDBColumn;
cxGrid2DBTableView1summa: TcxGridDBCol-
umn;
cxGridDBTableView1id_uderj: TcxGridDBCol-
umn;
cxGridDBTableView1data: TcxGridDBColumn;
cxGridDBTableView1id_prichini: TcxGridDB-
Column;
cxGridDBTableView1yderj_zp: TcxGridDBCol-
umn;
cxGridDBTableView1summa: TcxGridDBCol-
umn;
cxGrid1DBTableView1id_nachisl: TcxGridDB-
Column;
cxGrid1DBTableView1data_nachisl: TcxGridDB-
Column;
cxGrid1DBTableView1oklad: TcxGridDBCol-
umn;
cxGrid1DBTableView1uderjaniya: TcxGridDB-
Column;
cxGrid1DBTableView1pooshreniya: TcxGridDB-
Column;
cxGrid1DBTableView1podoh_nalog:
TcxGridDBColumn;
cxGrid1DBTableView1k_oplate: TcxGridDBCol-
umn;
cxGrid1DBTableView1status: TcxGridDBCol-
umn;
cxGrid1DBTableView1vid_nachisl: TcxGridDB-
Column;
ADOConnection1: TADOConnection;
DBLookupComboBox1: TDBLookupComboBox;
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure cxGridDBTa-
bleView2Column3PropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
procedure N1Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure cxDBLookupCom-
boBox1PropertiesChange(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure DBLookupCom-
boBox1CloseUp(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit14, Unit20;
{$R *.dfm}
procedure TForm3.BitBtn3Click(Sender: TObject);
Var X: word;
begin
if
ADOTable6.FieldByName('status').Value='Начисле
но' Then begin ShowMessage('Невозможно удалить
текущую запись, т.к. денежные средства уже пе-
речислены сотруднику');
end
else begin
X := MessageDlg('Вы действительно хотите уда-
лить текущую запись?', MTConfirmation, [MBYes,
MBNo], 0);
If X = mrYes then ADOTable6.Delete;
end
end;
procedure TForm3.BitBtn6Click(Sender: TObject);
begin
if(DBLookupComboBox1.Text='') or (Com-
boBox1.Text='') Then begin
98
ShowMessage('Заполните поля "Период" и "Вид
начисления"');
end
else if ComboBox1.Text='Аванс' then begin
ADOTable6.Insert;
ADOTable6.Edit;
ADOTa-
ble6.FieldByName('vid_nachisl').Value:=ComboBox
1.Text;
ADOTa-
ble6.FieldByName('oklad').Value:=DBEdit2.Text;
ADOTable6.FieldByName('uderjaniya').Value:='0';
ADOTable6.FieldByName('pooshreniya').Value:='0';
ADOTable6.Post;
ADOTable2.Close;
ADOTable2.Open;
ADOTable5.Close;
ADOTable5.Open;
BitBtn7.Click;
end
else begin
ADOTable6.Insert;
ADOTable6.Edit;
ADOTa-
ble6.FieldByName('vid_nachisl').Value:=ComboBox
1.Text;
ADOTa-
ble6.FieldByName('oklad').Value:=DBEdit4.Text;
ADOTable6.Post;
ADOTable2.Close;
ADOTable2.Open;
ADOTable5.Close;
ADOTable5.Open;
BitBtn5.Click;
BitBtn8.Click
end
end;
procedure TForm3.BitBtn4Click(Sender: TObject);
begin
ADOTable6.Close;
ADOTable6.Open;
ADOQuery1.Close;
ADOQuery1.Open;
ADOTable2.Close;
ADOTable2.Open;
ADOTable5.Close;
ADOTable5.Open;
ADOTable4.Close;
ADOTable4.Open;
end;
procedure
TForm3.cxGridDBTableView2Column3PropertiesBu
ttonClick(
Sender: TObject; AButtonIndex: Integer);
begin
ADOTable6.Insert;
ADOTable6.Edit;
ADOTable6.Post;
ADOTable2.Close;
ADOTable2.Open;
ADOTable5.Close;
ADOTable5.Open;
end;
procedure TForm3.N1Click(Sender: TObject);
begin
ADOTable6.Insert;
ADOTable6.Edit;
ADOTable6.Post;
ADOTable2.Close;
ADOTable2.Open;
ADOTable5.Close;
ADOTable5.Open;
end;
procedure TForm3.BitBtn5Click(Sender: TObject);
begin
if
(cxGrid2DBTableView1.DataController.DataSource.
DataSet.IsEmpty=true) and (cxGridDBTa-
bleView1.DataController.DataSource.DataSet.IsEmpt
y=false) Then begin
ADOTable6.Edit;
ADOTable6.FieldByName('pooshreniya').Value:='0';
ADOTa-
ble6.FieldByName('uderjaniya').Value:=cxGridDBTa
bleView1.DataController.Summary.FooterSummary
Texts[0];
ADOTable6.Post;
end
else if (cxGridDBTa-
bleView1.DataController.DataSource.DataSet.IsEmpt
y=true) and
(cxGrid2DBTableView1.DataController.DataSource.
DataSet.IsEmpty=false) Then begin
ADOTable6.Edit;
ADOTa-
ble6.FieldByName('pooshreniya').Value:=cxGrid2D
BTa-
bleView1.DataController.Summary.FooterSummary
Texts[0];
ADOTable6.FieldByName('uderjaniya').Value:='0';
ADOTable6.Post;
end
else if (cxGridDBTa-
bleView1.DataController.DataSource.DataSet.IsEmpt
y=true) and
(cxGrid2DBTableView1.DataController.DataSource.
DataSet.IsEmpty=true) then begin
ADOTable6.Edit;
ADOTable6.FieldByName('pooshreniya').Value:='0';
ADOTable6.FieldByName('uderjaniya').Value:='0';
ADOTable6.Post;
end
else begin
ADOTable6.Edit;
ADOTa-
ble6.FieldByName('pooshreniya').Value:=cxGrid2D
BTa-
bleView1.DataController.Summary.FooterSummary
Texts[0];
99
ADOTa-
ble6.FieldByName('uderjaniya').Value:=cxGridDBTa
bleView1.DataController.Summary.FooterSummary
Texts[0];
ADOTable6.Post;
end
end;
procedure TForm3.BitBtn7Click(Sender: TObject);
var i,p,h,j,k,s:real ;
begin
ADOTable6.Edit;
i:=strtofloat(DBEdit2.Text);
p:=strtofloat(Edit3.Text);
h:=i*p;
ADOTa-
ble6.FieldByName('podoh_nalog').Value:=floattostr(
h);
j:=ADOTable6.FieldByName('uderjaniya').Value;
k:=ADOTable6.FieldByName('pooshreniya').Value;
s:=i-j-h+k;
ADOTa-
ble6.FieldByName('k_oplate').Value:=floattostr(s);
ADOTable6.post;
end;
procedure TForm3.BitBtn8Click(Sender: TObject);
var i,p,h,j,k,s:real ;
begin
ADOTable6.Edit;
i:=strtofloat(DBEdit4.Text);
p:=strtofloat(Edit3.Text);
h:=i*p;
ADOTa-
ble6.FieldByName('podoh_nalog').Value:=floattostr(
h);
j:=ADOTable6.FieldByName('uderjaniya').Value;
k:=ADOTable6.FieldByName('pooshreniya').Value;
s:=i-j-h+k;
ADOTa-
ble6.FieldByName('k_oplate').Value:=floattostr(s);
ADOTable6.post;
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
Var T: word;
begin
if
cxGrid1DBTableView1.DataController.DataSource.
DataSet.IsEmpty=true Then begin
ShowMessage('Невозможно начислить зарплату!
Поле "К оплате" не заполнено');
end
else if
ADOTable6.FieldByName('status').Value='Начисле
но' then begin ShowMessage('Денежные средства
за указанный период переведены сотруднику.
Повторное начисление не возможно!');
end
else begin
T := MessageDlg('После выполнения данной опе-
рации данные не будут доступны для удаления
или изменения. Выполнить?', MTConfirmation,
[MBYes, MBNo], 0);
If T = mrYes then ADOTable6.Edit;
ADOTable6.FieldByName('status').Value:='Начисле
но';
ADOTa-
ble6.FieldByName('data_nachisl').Value:=DateTostr(
Date);
ADOTable6.Post;
end
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * from zapros1
where id_perioda like '''+DBEdit5.Text+'''');
ADOQuery1.ExecSQL;
ADOQuery1.Open;
cxGridDBTa-
bleView2.DataController.Groups.FullExpand;
end;
procedure
TForm3.cxDBLookupComboBox1PropertiesChange(
Sender: TObject);
begin
BitBtn2.Click;
end;
procedure TForm3.BitBtn9Click(Sender: TObject);
begin
if ADOQuery1.FieldByName('oklad').Value=NULL
Then begin ShowMessage('Размер оклада не опре-
делен. Укажите в Трудовом договоре сотрудника
размер оклада и повторите попытку');
end
else begin
BitBtn6.Click;
end
end;
procedure
TForm3.DBLookupComboBox1CloseUp(Sender:
TObject);
begin
BitBtn2.Click;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters,
100
dxSkinsCore, dxSkinscxPCPainter, cxStyles, cxCus-
tomData, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData,
StdCtrls, Mask, DBCtrls,
cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, ADODB,
Buttons, cxGridLevel, cxClasses, cxGridCus-
tomView, cxGrid, ExtCtrls, cxPC,
cxImage, cxCalendar, cxCurrencyEdit,
cxDropDownEdit, cxMaskEdit,
cxDBLookupComboBox, 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, dxPSDBCtrlLnks, dxPSContainerLnk,
dxPScxCommon, cxCheckBox,
dxDockControl, dxDockPanel, RpCon, RpConDS,
RpDefine, RpRave;
type
TForm4 = class(TForm)
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
Panel1: TPanel;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
Panel3: TPanel;
Panel2: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
Panel4: TPanel;
DBImage1: TDBImage;
cxTabSheet3: TcxTabSheet;
Panel5: TPanel;
BitBtn6: TBitBtn;
Panel6: TPanel;
Panel7: TPanel;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BitBtn11: TBitBtn;
BitBtn12: TBitBtn;
BitBtn13: TBitBtn;
BitBtn14: TBitBtn;
BitBtn16: TBitBtn;
BitBtn17: TBitBtn;
BitBtn18: TBitBtn;
BitBtn19: TBitBtn;
cxGrid2DBTableView1: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
DataSource2: TDataSource;
DataSource3: TDataSource;
DataSource4: TDataSource;
cxGrid3: TcxGrid;
cxGridDBTableView1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
cxGrid4: TcxGrid;
cxGridDBTableView2: TcxGridDBTableView;
cxGridLevel2: TcxGridLevel;
Label4: TLabel;
cxGrid1DBTableView1id_sotrud: TcxGridDB-
Column;
cxGrid1DBTableView1FIO: TcxGridDBColumn;
cxGrid1DBTableView1DR: TcxGridDBColumn;
cxGrid1DBTableView1telefon: TcxGridDBCol-
umn;
cxGrid1DBTableView1email: TcxGridDBCol-
umn;
cxGrid1DBTableView1grajdanstvo: TcxGridDB-
Column;
cxGrid2DBTableView1id_trud_dog: TcxGridDB-
Column;
cxGrid2DBTableView1id_otdela: TcxGridDBCol-
umn;
cxGrid2DBTableView1id_doljnosti: TcxGridDB-
Column;
cxGrid2DBTableView1data_priema: TcxGridDB-
Column;
cxGrid2DBTableView1oklad: TcxGridDBCol-
umn;
cxGrid2DBTableView1id_rejima: TcxGridDB-
Column;
cxGrid2DBTableView1status: TcxGridDBCol-
umn;
cxGrid2DBTableView1data_vibitiya:
TcxGridDBColumn;
cxGridDBTableView1id_pasp_dan: TcxGridDB-
Column;
cxGridDBTableView1pasport: TcxGridDBCol-
umn;
cxGridDBTableView1data_vidachi: TcxGridDB-
Column;
cxGridDBTableView1kem_vidan: TcxGridDB-
Column;
cxGridDBTableView1INN: TcxGridDBColumn;
cxGridDBTableView1SNILS: TcxGridDBCol-
umn;
cxGridDBTableView2id_obrazovaniya:
TcxGridDBColumn;
cxGridDBTableView2uroven_obraz: TcxGridDB-
Column;
cxGridDBTableView2uch_zaved: TcxGridDB-
Column;
cxGridDBTableView2specialnost: TcxGridDB-
Column;
cxGridDBTableView2god_okonch: TcxGridDB-
Column;
101
cxGridDBTableView2nomer_diploma:
TcxGridDBColumn;
ADOConnection1: TADOConnection;
DBMemo1: TDBMemo;
BitBtn10: TBitBtn;
dxDockPanel1: TdxDockPanel;
dxFloatDockSite1: TdxFloatDockSite;
Edit1: TEdit;
Button1: TButton;
RvProject4: TRvProject;
RvDataSetConnection41: TRvDataSetConnection;
RvDataSetConnection42: TRvDataSetConnection;
RvDataSetConnection43: TRvDataSetConnection;
RvDataSetConnection44: TRvDataSetConnection;
RvDataSetConnection45: TRvDataSetConnection;
RvDataSetConnection46: TRvDataSetConnection;
RvDataSetConnection47: TRvDataSetConnection;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
procedure BitBtn14Click(Sender: TObject);
procedure BitBtn16Click(Sender: TObject);
procedure BitBtn18Click(Sender: TObject);
procedure BitBtn19Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn12Click(Sender: TObject);
procedure BitBtn17Click(Sender: TObject);
procedure cxGrid1DBTableView1CellDblClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo;
AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit9, Unit6, Unit20;
{$R *.dfm}
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Insert;
Form9.ShowModal;
end;
procedure TForm4.BitBtn3Click(Sender: TObject);
Var X: word;
begin
X := MessageDlg('Вы действительно хотите уда-
лить текущую запись?', MTConfirmation, [MBYes,
MBNo], 0);
If X = mrYes then ADOQuery1.Delete;
end;
procedure TForm4.BitBtn4Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.Open;
ADOTable1.Close;
ADOTable1.Open;
ADOTable2.Close;
ADOTable2.Open;
ADOTable3.Close;
ADOTable3.Open;
dm.ADOTable1.Close;
dm.ADOTable1.Open;
dm.ADOTable2.Close;
dm.ADOTable2.Open;
dm.ADOTable3.Close;
dm.ADOTable3.Open;
cxGrid1DBTableView1.DataController.Groups.FullE
xpand;
end;
procedure TForm4.BitBtn6Click(Sender: TObject);
begin
ADOTable1.Insert;
cxGrid2DBTableView1.OptionsData.Editing:=true;
end;
procedure TForm4.BitBtn8Click(Sender: TObject);
Var X: word;
begin
X := MessageDlg('Вы действительно хотите уда-
лить текущую запись?', MTConfirmation, [MBYes,
MBNo], 0);
If X = mrYes then ADOTable1.Delete;
end;
procedure TForm4.BitBtn9Click(Sender: TObject);
begin
ADOTable1.Edit;
ADOTable1.Post;
cxGrid2DBTableView1.OptionsData.Editing:=false;
end;
procedure TForm4.BitBtn11Click(Sender: TObject);
begin
cxGridDBTableView1.OptionsData.Editing:=true;
ADOTable2.Insert;
end;
procedure TForm4.BitBtn13Click(Sender: TObject);
Var X: word;
begin