p align="left">form5.Show; form5.DataSource1.DataSet:=datamodule4.ADOTable2; form5.DateTimePicker1.Date:=datamodule4.ADOTable2Datapr.Value; end; end; procedure TForm2.BitBtn4Click(Sender: TObject); begin if pagecontrol1.ActivePage=tabsheet1 then begin if datamodule4.ADOQuery1.IsEmpty then exit; if datamodule4.ADOQuery1 = nil then Exit; if MessageBox(0,'Вы действительно хотите удалить?','Подтверждение', 33) <> IDOKthen Exit; datamodule4.ADOQuery1.Delete; datamodule4.ADOQuery1.Requery; end; if pagecontrol1.ActivePage=tabsheet2 then begin if datamodule4.ADOQuery2.IsEmpty then exit; if datamodule4.ADOQuery2 = nil then Exit; if MessageBox(0,'Вы действительно хотите удалить?','Подтверждение', 33) <> IDOKthen Exit; datamodule4.ADOQuery2.Delete; datamodule4.ADOQuery2.Requery; end; if pagecontrol1.ActivePage=tabsheet3 then begin if datamodule4.ADOTable2.IsEmpty then exit; if datamodule4.ADOTable2 = nil then Exit; if MessageBox(0,'Вы действительно хотите удалить?','Подтверждение', 33) <> IDOKthen Exit; datamodule4.ADOTable2.Delete; datamodule4.ADOTable2.Requery; end; end; procedure TForm2.N3Click(Sender: TObject); begin form1.Close; form2.Close; form3.Close; form5.Close; form6.Close; form7.Close; form8.Close; form9.Close; form10.Close; form11.Close; form12.Close; form13.Close; end; procedure TForm2.N7Click(Sender: TObject); begin form6.Caption:='Поиск по званию'; form8.Show; end; procedure TForm2.N8Click(Sender: TObject); begin form6.Caption:='Поиск по области'; form9.show; end; procedure TForm2.N9Click(Sender: TObject); begin form6.Caption:='Поиск по службе'; form10.show; end; procedure TForm2.N10Click(Sender: TObject); begin form6.Caption:='Поиск по подразделению'; form11.show; end; procedure TForm2.N11Click(Sender: TObject); begin form6.Caption:='Поиск по должности'; form12.show; end; procedure TForm2.N13Click(Sender: TObject); begin form6.Caption:='Поиск по месту приказа'; form13.show; end; procedure TForm2.bsSkinButton1Click(Sender: TObject); begin 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; end; procedure TForm2.bsSkinButton2Click(Sender: TObject); begin if pagecontrol1.ActivePage=tabsheet1 then begin if datamodule4.ADOQuery1.IsEmpty then exit; if datamodule4.ADOQuery1 = nil then Exit; if MessageBox(0,'Вы действительно хотите удалить?','Подтверждение', 33) <> IDOKthen Exit; datamodule4.ADOQuery1.Delete; datamodule4.ADOQuery1.Requery; end; if pagecontrol1.ActivePage=tabsheet2 then begin if datamodule4.ADOQuery2.IsEmpty then exit; if datamodule4.ADOQuery2 = nil then Exit; if MessageBox(0,'Вы действительно хотите удалить?','Подтверждение', 33) <> IDOKthen Exit; datamodule4.ADOQuery2.Delete; datamodule4.ADOQuery2.Requery; end; if pagecontrol1.ActivePage=tabsheet3 then begin if datamodule4.ADOTable2.IsEmpty then exit; if datamodule4.ADOTable2 = nil then Exit; if MessageBox(0,'Вы действительно хотите удалить?','Подтверждение', 33) <> IDOKthen Exit; datamodule4.ADOTable2.Delete; datamodule4.ADOTable2.Requery; end; end; procedure TForm2.bsSkinButton3Click(Sender: TObject); begin if pagecontrol1.ActivePage=tabsheet1 then begin if datamodule4.ADOQuery1.IsEmpty then exit; form5.Show; form5.DataSource1.DataSet:=datamodule4.ADOQuery1; form5.DateTimePicker1.Date:=datamodule4.ADOQuery1Datapr.Value; end; if pagecontrol1.ActivePage=tabsheet2 then begin 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.Show; form5.DataSource1.DataSet:=datamodule4.ADOTable2; form5.DateTimePicker1.Date:=datamodule4.ADOTable2Datapr.Value; end; end; procedure TForm2.bsSkinButton4Click(Sender: TObject); begin form3.Show; end; procedure TForm2.N20Click(Sender: TObject); begin 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; end; procedure TForm2.N22Click(Sender: TObject); begin form6.Caption:='Поиск по фамилии'; form6.bsSkinButton2.Visible:=true; form14.show; end; procedure TForm2.N23Click(Sender: TObject); begin form6.Caption:='Поиск по званию'; form8.Show; end; procedure TForm2.N24Click(Sender: TObject); begin form6.Caption:='Поиск по области'; form9.show; end; procedure TForm2.N25Click(Sender: TObject); begin form6.Caption:='Поиск по службе'; form10.show; end; procedure TForm2.N26Click(Sender: TObject); begin form6.Caption:='Поиск по подразделению'; form11.show; end; procedure TForm2.N32Click(Sender: TObject); begin form6.Caption:='Поиск по должности'; form12.show; end; procedure TForm2.N27Click(Sender: TObject); begin form6.Caption:='Поиск по месту приказа'; form13.show; end; procedure TForm2.N17Click(Sender: TObject); begin if pagecontrol1.ActivePage=tabsheet1 then begin form7.DataSource1.DataSet:=datamodule4.ADOQuery1; form7.Show; end; if pagecontrol1.ActivePage=tabsheet2 then begin form7.DataSource1.DataSet:=datamodule4.ADOQuery2; form7.Show; end; if pagecontrol1.ActivePage=tabsheet3 then begin form7.DataSource1.DataSet:=datamodule4.ADOTable2; form7.Show; end; end; procedure TForm2.N31Click(Sender: TObject); begin form15.show; end; procedure TForm2.N18Click(Sender: TObject); begin if pagecontrol1.ActivePage=tabsheet1 then datamodule4.RvProject1.Execute; if pagecontrol1.ActivePage=tabsheet2 then datamodule4.RvProject2.Execute; end; procedure TForm2.N29Click(Sender: TObject); begin shellExeCute(handle,nil,'Справка.chm',nil,nil,sw_restore); end; 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 } end; var Form3: TForm3; implementation uses Unit4; {$R *.dfm} procedure TForm3.N2Click(Sender: TObject); begin edit4.Text:='рядовой милиции'; end; procedure TForm3.N3Click(Sender: TObject); begin edit4.Text:='младший сержант милиции'; end; procedure TForm3.N4Click(Sender: TObject); begin edit4.Text:='сержант '; end; procedure TForm3.N5Click(Sender: TObject); begin edit4.Text:='старший сержат'; end; procedure TForm3.N6Click(Sender: TObject);
Страницы: 1, 2, 3, 4, 5, 6, 7, 8
|