p align="left"> private { Private declarations } public { Public declarations } end; var Form6: TForm6; implementation uses Unit4, Unit2, Unit1, Unit3, Unit5, Unit7; {$R *.dfm} procedure TForm6.BitBtn1Click(Sender: TObject); begin dbgrid1.Columns[0].Visible:=true; dbgrid1.Columns[1].Visible:=true; dbgrid1.Columns[2].Visible:=true; dbgrid1.Columns[3].Visible:=true; dbgrid1.Columns[4].Visible:=true; dbgrid1.Columns[5].Visible:=true; dbgrid1.Columns[6].Visible:=true; dbgrid1.Columns[7].Visible:=true; dbgrid1.Columns[8].Visible:=true; dbgrid1.Columns[9].Visible:=true; dbgrid1.Columns[10].Visible:=true; dbgrid1.Columns[11].Visible:=true; dbgrid1.Columns[12].Visible:=true; form2.show; form6.Hide; form6.bsSkinButton2.Visible:=false; end; procedure TForm6.BitBtn2Click(Sender: TObject); begin form7.DataSource1.DataSet:=datamodule4.ADOQuery3; form7.Show; end; procedure TForm6.bsSkinButton1Click(Sender: TObject); begin dbgrid1.Columns[0].Visible:=true; dbgrid1.Columns[1].Visible:=true; dbgrid1.Columns[2].Visible:=true; dbgrid1.Columns[3].Visible:=true; dbgrid1.Columns[4].Visible:=true; dbgrid1.Columns[5].Visible:=true; dbgrid1.Columns[6].Visible:=true; dbgrid1.Columns[7].Visible:=true; dbgrid1.Columns[8].Visible:=true; dbgrid1.Columns[9].Visible:=true; dbgrid1.Columns[10].Visible:=true; dbgrid1.Columns[11].Visible:=true; dbgrid1.Columns[12].Visible:=true; form2.show; form6.Hide; form6.bsSkinButton2.Visible:=false; end; procedure TForm6.bsSkinButton2Click(Sender: TObject); begin form7.DataSource1.DataSet:=datamodule4.ADOQuery3; form7.Show; end; procedure TForm6.bsSkinButton3Click(Sender: TObject); begin datamodule4.RvProject3.Execute; end; end. unit Unit7; //форма досрочного снятия сотрудника interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, DB, ComCtrls, bsSkinCtrls, bsSkinData, BusinessSkinForm; type TForm7 = class(TForm) DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DataSource1: TDataSource; Edit1: TEdit; DateTimePicker1: TDateTimePicker; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; bsBusinessSkinForm1: TbsBusinessSkinForm; bsSkinData1: TbsSkinData; bsCompressedStoredSkin1: TbsCompressedStoredSkin; bsBusinessSkinForm2: TbsBusinessSkinForm; bsSkinData2: TbsSkinData; bsCompressedStoredSkin2: TbsCompressedStoredSkin; bsBusinessSkinForm3: TbsBusinessSkinForm; bsSkinData3: TbsSkinData; bsCompressedStoredSkin3: TbsCompressedStoredSkin; bsBusinessSkinForm4: TbsBusinessSkinForm; bsSkinData4: TbsSkinData; bsCompressedStoredSkin4: TbsCompressedStoredSkin; bsSkinButton1: TbsSkinButton; bsSkinButton2: TbsSkinButton; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form7: TForm7; implementation uses Unit4, Unit6, Unit5; {$R *.dfm} procedure TForm7.Button2Click(Sender: TObject); begin form6.show; form7.Hide; end; procedure TForm7.Button1Click(Sender: TObject); begin DataSource1.DataSet.Edit; DataSource1.DataSet.FieldValues['Nomspr']:=edit1.Text; DataSource1.DataSet.FieldValues['Dataspr']:=DateTimePicker1.Date; DataSource1.DataSet.Post; form7.Hide; end; procedure TForm7.bsSkinButton1Click(Sender: TObject); begin DataSource1.DataSet.Edit; DataSource1.DataSet.FieldValues['Nomspr']:=edit1.Text; DataSource1.DataSet.FieldValues['Dataspr']:=DateTimePicker1.Date; DataSource1.DataSet.Post; form7.Hide; end; procedure TForm7.bsSkinButton2Click(Sender: TObject); begin form7.Hide; end; end. unit Unit8; //Поиск по званию (аналогично Unit9-по области; Unit10-по службе; Unit11-по подразделению; Unit12-по должности; Unit13-по месту приказа; Unit14-по фамилии) interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, bsSkinCtrls, bsSkinData, BusinessSkinForm; type TForm8 = class(TForm) ComboBox1: TComboBox; bsBusinessSkinForm1: TbsBusinessSkinForm; bsSkinData1: TbsSkinData; bsCompressedStoredSkin1: TbsCompressedStoredSkin; bsSkinButton1: TbsSkinButton; bsSkinButton2: TbsSkinButton; procedure Button1Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form8: TForm8; implementation uses Unit6, Unit4, Unit2, Unit3; {$R *.dfm} procedure TForm8.Button1Click(Sender: TObject); var zv: string[30]; begin form8.Hide; form6.Caption:='Поиск по званию'; zv:=form8.ComboBox1.Text; if Form2.PageControl1.ActivePage=form2.tabsheet1 then begin if zv<> '' then begin with datamodule4.ADOQuery3 do begin Close; SQL.Clear; //очищение предыдущего запроса SQL.Add('select * from Pract'); //выбирает все данные из таблицы Sotr1 SQL.Add('where (Zvanie like "'+zv+ '%") and (Rugo="Аппарат УВД")'); //выбор данных из таблицы, где Open; if RecordCount <> 0 then //чтение записей пока не дойдет до последней begin datamodule4.DataSource4.DataSet:=datamodule4.adoquery3; end else begin ShowMessage('В БД сотрудников нет записей, удовлетворяющих' + #13 + 'критерию запроса.'); exit; end; end; end; end; if form2.PageControl1.ActivePage=form2.tabsheet2 then begin if zv<> '' then begin with datamodule4.ADOQuery3 do begin Close; SQL.Clear; //очищение предыдущего запроса SQL.Add('select * from Pract'); //выбирает все данные из таблицы Sotr1 SQL.Add('where (Zvanie like "'+zv+ '%") and (Rugo<>"Аппарат УВД")'); //выбор данных Open; if RecordCount <> 0 then //чтение записей пока не дойдет до последней begin datamodule4.DataSource4.DataSet:=datamodule4.adoquery3; end else begin ShowMessage('В БД сотрудников нет записей, удовлетворяющих' + #13 + 'критерию запроса.'); exit; end; end; end; end; if form2.pagecontrol1.ActivePage=form2.tabsheet3 then begin if zv<> '' then begin with datamodule4.ADOQuery3 do begin Close; SQL.Clear; //очищение предыдущего запроса SQL.Add('select * from SnVzisk'); //выбирает все данные из таблицы Sotr1 SQL.Add('where (zvanie like "'+zv+ '%")'); //выбор данных из таблицы, где Open; if RecordCount <> 0 then //чтение записей пока не дойдет до последней begin datamodule4.DataSource4.DataSet:=datamodule4.adoquery3; end else begin ShowMessage('В БД сотрудников нет записей, удовлетворяющих' + #13 + 'критерию запроса.'); exit; end; end; end; end; form6.Show; end; procedure TForm8.FormActivate(Sender: TObject); begin combobox1.Text:=''; end; procedure TForm8.bsSkinButton1Click(Sender: TObject); var zv: string[30]; begin form8.Hide; form6.Caption:='Поиск по званию'; zv:=form8.ComboBox1.Text; if Form2.PageControl1.ActivePage=form2.tabsheet1 then begin if zv<> '' then begin form6.Show; form6.bsSkinButton3.Visible:=true; with datamodule4.ADOQuery4 do begin Close; SQL.Clear; //очищение предыдущего запроса SQL.Add('select * from Pract'); //выбирает все данные из таблицы Sotr1 SQL.Add('where (Zvanie like "'+zv+ '%") and (Rugo="Аппарат УВД")'); //выбор данных Open; if RecordCount <> 0 then //чтение записей пока не дойдет до последней begin datamodule4.DataSource4.DataSet:=datamodule4.adoquery4; end else begin form6.hide; ShowMessage('В БД сотрудников нет записей, удовлетворяющих' + #13 + 'критерию запроса.'); exit; end; end; end; end; if form2.PageControl1.ActivePage=form2.tabsheet2 then begin if zv<> '' then begin form6.Show; form6.bsSkinButton3.Visible:=true; with datamodule4.ADOQuery4 do begin Close; SQL.Clear; //очищение предыдущего запроса SQL.Add('select * from Pract'); //выбирает все данные из таблицы Sotr1 SQL.Add('where (Zvanie like "'+zv+ '%") and (Rugo<>"Аппарат УВД")'); //выбор данных Open; if RecordCount <> 0 then //чтение записей пока не дойдет до последней begin datamodule4.DataSource4.DataSet:=datamodule4.adoquery4; end else begin form6.hide; ShowMessage('В БД сотрудников нет записей, удовлетворяющих' + #13 + 'критерию запроса.'); exit; end; end; end; end; if form2.pagecontrol1.ActivePage=form2.tabsheet3 then begin if zv<> '' then begin form6.Show; form6.bsSkinButton3.Visible:=false; with datamodule4.ADOQuery3 do begin Close; SQL.Clear; //очищение предыдущего запроса SQL.Add('select * from SnVzisk'); //выбирает все данные из таблицы Sotr1 SQL.Add('where (zvanie like "'+zv+ '%")'); //выбор данных Open; if RecordCount <> 0 then //чтение записей пока не дойдет до последней begin datamodule4.DataSource4.DataSet:=datamodule4.adoquery3; end else begin form6.hide; ShowMessage('В БД сотрудников нет записей, удовлетворяющих' + #13 + 'критерию запроса.'); exit; end; end; end; end; end; procedure TForm8.bsSkinButton2Click(Sender: TObject); begin form8.Hide; end; end. unit Unit15; //форма информации о программе interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, bsSkinCtrls, bsSkinData, BusinessSkinForm; type TForm15 = class(TForm) bsBusinessSkinForm1: TbsBusinessSkinForm; bsSkinData1: TbsSkinData; bsCompressedStoredSkin1: TbsCompressedStoredSkin; bsSkinButton1: TbsSkinButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; procedure bsSkinButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form15: TForm15; implementation {$R *.dfm} procedure TForm15.bsSkinButton1Click(Sender: TObject); begin form15.Hide; end; end.
Страницы: 1, 2, 3, 4, 5, 6, 7, 8
|