if datamodule4.ADOQuery2.IsEmpty then exit;
form5.Show;
form5.DataSource1.DataSet:=datamodule4.ADOQuery2;
form5.DateTimePicker1.Date:=datamodule4.ADOQuery2Datapr.Value;
end;
if pagecontrol1.ActivePage=tabsheet3 then begin
if datamodule4.ADOtable2.IsEmpty then exit;
form5.DataSource1.DataSet:=datamodule4.ADOTable2;
form5.DateTimePicker1.Date:=datamodule4.ADOTable2Datapr.Value;
procedure TForm2.bsSkinButton4Click(Sender: TObject);
begin
form3.Show;
procedure TForm2.N20Click(Sender: TObject);
form1.Close;
form2.Close;
form3.Close;
form5.Close;
form6.Close;
form7.Close;
form8.Close;
form9.Close;
form10.Close;
form11.Close;
form12.Close;
form13.Close;
form14.Close;
form15.Close;
procedure TForm2.N22Click(Sender: TObject);
form6.Caption:='Поиск по фамилии';
form6.bsSkinButton2.Visible:=true;
form14.show;
procedure TForm2.N23Click(Sender: TObject);
form6.Caption:='Поиск по званию';
form8.Show;
procedure TForm2.N24Click(Sender: TObject);
form6.Caption:='Поиск по области';
form9.show;
procedure TForm2.N25Click(Sender: TObject);
form6.Caption:='Поиск по службе';
form10.show;
procedure TForm2.N26Click(Sender: TObject);
form6.Caption:='Поиск по подразделению';
form11.show;
procedure TForm2.N32Click(Sender: TObject);
form6.Caption:='Поиск по должности';
form12.show;
procedure TForm2.N27Click(Sender: TObject);
form6.Caption:='Поиск по месту приказа';
form13.show;
procedure TForm2.N17Click(Sender: TObject);
if pagecontrol1.ActivePage=tabsheet1 then begin
form7.DataSource1.DataSet:=datamodule4.ADOQuery1;
form7.Show;
if pagecontrol1.ActivePage=tabsheet2 then begin
form7.DataSource1.DataSet:=datamodule4.ADOQuery2;
form7.DataSource1.DataSet:=datamodule4.ADOTable2;
procedure TForm2.N31Click(Sender: TObject);
form15.show;
procedure TForm2.N18Click(Sender: TObject);
if pagecontrol1.ActivePage=tabsheet1 then datamodule4.RvProject1.Execute;
if pagecontrol1.ActivePage=tabsheet2 then datamodule4.RvProject2.Execute;
procedure TForm2.N29Click(Sender: TObject);
shellExeCute(handle,nil,'Справка.chm',nil,nil,sw_restore);
end.
unit Unit3; //форма добавления записи
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, Buttons, ComCtrls, bsSkinCtrls, bsSkinData,
BusinessSkinForm, bsdbctrls, Mask, bsSkinBoxCtrls;
type
TForm3 = class(TForm)
Label2: TLabel;
Label3: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit11: TEdit;
Edit13: TEdit;
Edit4: TEdit;
PopupMenu1: TPopupMenu;
N1,N2, N3, N4, N5, N6, N7, N8, N9, N10, N11, N12, N13, N14, N15, N16, N17, N18, N19,N20: TMenuItem;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
PopupMenu2: TPopupMenu;
N21,N22,N23,N24,N25, N26, N27, N28, N29, N30,N31,N32,N33,N34,N35,N36,N37,N38,N39,N40,N41,N42,N43,N44,N45,N46,N47,N48, N49,N50,N51,N52,N53,N54,N55,N56,N57,N58,N59,N60,N61: TMenuItem;
DateTimePicker1: TDateTimePicker;
ComboBox3: TComboBox;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinData1: TbsSkinData;
bsCompressedStoredSkin1: TbsCompressedStoredSkin;
bsSkinButton1: TbsSkinButton;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label4: TLabel;
Edit6: TEdit;
Label5: TLabel;
Edit7: TEdit;
Label6: TLabel;
Edit8: TEdit;
bsSkinButton2: TbsSkinButton;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
var
Form3: TForm3;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm3.N2Click(Sender: TObject);
edit4.Text:='рядовой милиции';
procedure TForm3.N3Click(Sender: TObject);
edit4.Text:='младший сержант милиции';
procedure TForm3.N4Click(Sender: TObject);
edit4.Text:='сержант ';
procedure TForm3.N5Click(Sender: TObject);
edit4.Text:='старший сержат';
procedure TForm3.N6Click(Sender: TObject);
edit4.Text:='старшина милиции';
procedure TForm3.N7Click(Sender: TObject);
edit4.Text:='прапорщик';
procedure TForm3.N8Click(Sender: TObject);
edit4.Text:='старший прапорщик';
procedure TForm3.N10Click(Sender: TObject);
edit4.Text:='младший лейтенант милиции';
……….
procedure TForm3.BitBtn1Click(Sender: TObject);
form3.Hide;
procedure TForm3.Button1Click(Sender: TObject);
var s,b:string;
a:integer;
s:=datetostr(datetimepicker1.Date);
a:=strtoint(copy(s,7,4));
a:=a+1;
b:=copy(s,1,6);
s:=b+inttostr(a);
datamodule4.ADOQuery1.Insert;
datamodule4.ADOQuery1['Fam']:=edit1.Text;
datamodule4.ADOQuery1['Imia']:=edit2.Text;
datamodule4.ADOQuery1['Otc']:=edit3.Text;
datamodule4.ADOQuery1['Zvanie']:=edit4.Text;
datamodule4.ADOQuery1['Rugo']:=combobox2.Text;
datamodule4.ADOQuery1['Sl']:=edit6.Text;
datamodule4.ADOQuery1['Podr']:=edit7.Text;
datamodule4.ADOQuery1['Dolj']:=edit8.Text;
datamodule4.ADOQuery1['Vzisk']:=combobox1.Text;
datamodule4.ADOQuery1['Chpr']:=combobox3.Text;
datamodule4.ADOQuery1['Nompr']:=edit11.Text;
datamodule4.ADOQuery1['Datapr']:=datetimepicker1.Date;
datamodule4.ADOQuery1['Opis']:=edit13.Text;
datamodule4.ADOQuery1['Dataspr']:=strtodate(s);
datamodule4.ADOQuery1.Post;
procedure TForm3.FormActivate(Sender: TObject);
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
combobox1.Text:='';
edit6.Text:='';
combobox2.Text:='';
edit7.Text:='';
edit8.Text:='';
combobox3.Text:='';
edit11.Text:='';
datetimepicker1.Date:=date();
edit13.Text:='';
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10