n="justify">//Edit17.Text:=DateTimeToStr (Now) ;; TfAddSotr.BitBtn2Click (Sender: TObject) ;;; TfAddSotr.Edit8KeyPress (Sender: TObject; var Key: Char); (not (Key in [ 0 .. 9 , # 8])) then key:=chr (0) ;;. unit Umain ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, DB, DBTables, Menus, ComCtrls, ToolWin, DBCtrls, StdCtrls ,, ExtCtrls, Grids, DBGrids, ADODB, XPMan;=class (TForm): TToolBar ;: TStatusBar ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TADOConnection; Deti: TADOTable; Deti: TDataSource ;: TXPManifest ;: TADOTable ;: TDataSource ;: TDataSource ;: TADOTable ;: TPageControl ;: TTabSheet ;: TDBGrid ;: TDBNavigator ;: TPanel ;: TLabel ;: TRadioGroup ;: TEdit ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TPanel ;: TSpeedButton ;: TBitBtn;:TTabSheet ;: TDBNavigator ;: TPanel ;: TDBGrid ;: TPanel ;: TLabel ;: TDBLookupComboBox ;: TTabSheet ;: TDBGrid ;: TDBNavigator ;: TPanel ;: TPanel ;: TLabel ;: TDBLookupComboBox ;: TTabSheet ;: TPanel ;: TLabel ;: TDBLookupComboBox ;: TToolBar ;: TDBGrid ;: TDBNavigator ;: TTabSheet ;: TDBGrid ;: TDBNavigator ;: TPanel ;: TSpeedButton ;: TDBGrid ;: TTabSheet ;: TDBGrid ;: TDBNavigator ;: TTabSheet ;: TDBGrid ;: TDBNavigator ;: TMenuItem; BitBtn8Click (Sender: TObject); DBGrid1TitleClick (Column: TColumn); DBGrid2TitleClick (Column: TColumn); DBGrid3TitleClick (Column: TColumn); DBGrid4TitleClick (Column: TColumn); DBGrid6TitleClick (Column: TColumn); DBGrid7TitleClick (Column: TColumn) ; DBGrid5TitleClick (Column: TColumn); SpeedButton1Click (Sender: TObject); BitBtn7Click (Sender: TObject); BitBtn2Click (Sender: TObject); BitBtn1Click (Sender: TObject); N3Click (Sender: TObject); N5Click (Sender: TObject); N4Click (Sender: TObject); N6Click (Sender: TObject); N9Click (Sender: TObject); BitBtn3Click (Sender: TObject); SpeedButton2Click (Sender: TObject); N2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TfMain; Udm, Unit1, uAddDolj, uAddSotr, UoSpisSotrAdrTel, UoSpisSotr ,, UoSpisSotrDeti;
{$ R * .dfm} TfMain.BitBtn8Click (Sender: TObject) ;;; TfMain.DBGrid1TitleClick (Column: TColumn) ;. ADOTable1Sotr.Sort:=Column.FieldName ;; TfMain.DBGrid2TitleClick ( Column: TColumn) ;. ADOTable1Obr.Sort:=Column.FieldName ;; TfMain.DBGrid3TitleClick (Column: TColumn) ;. ADOTable1Lich.Sort:=Column.FieldName ;; TfMain.DBGrid4TitleClick (Column: TColumn) ;. ADOTable1Deti.Sort: =Column.FieldName ;; TfMain.DBGrid6TitleClick (Column: TColumn) ;. ADOTable1podr.Sort:=Column.FieldName ;; TfMain.DBGrid7TitleClick (Column: TColumn) ;. ADOTable1ur.Sort:=Column.FieldName ;; TfMain.DBGrid5TitleClick ( Column: TColumn) ;. ADOTable1Dolj.Sort:=Column.FieldName ;; TfMain.SpeedButton1Click (Sender: TObject) ;. ShowModal ;; TfMain.BitBtn7Click (Sender: TObject) ;. Show ;; TfMain.BitBtn2Click (Sender: TObject) ; .ADOTable1Sotr.Filtered:=False ;; TfMain.BitBtn1Click (Sender: TObject); s: string; not (radiogroup1.ItemIndex in [0..14]) then ShowMessage ( Відзначте поле вибору ) (edit1.Text = ) and (radiogroup1.itemindex in [0..14]) then
ShowMessage ( Чи не введений критерій вибору );
edit1.setfocus ;; begin.ADOTable1Sotr.Filtered:=True; radiogroup1.ItemIndex of
: begin s:= КодСотрудніка + = + edit1.Text; end;
: begin s:= Прізвище like + + edit1.Text + * ; end;
: begin s:= Ім'я like + + edit1.Text + * raquo ;; end;
: begin s:= батькові like + + edit1.Text + * raquo ;; end;
: begin s:= СтажВДолжності + = + edit1.Text; end;
: begin s:= ОбщійСтаж + = + edit1.Text; end;
: begin s:= Прийом like + * + edit1.Text + * ; end;
: begin s:= СрокКонтракта + = + edit1.Text; end;
: begin s:= Закінчення like + * + edit1.Text + * ; end;
: begin s:= КолічествоДетей + = + edit1.Text; end;
: begin s:= КолічествоДетей + gt;= + edit1.Text; end;
: begin s:= УсловіяСотруднічества like + * + edit1.Text + * ; end;
: begin s:= ОсобиеОтметкі like + * + edit1.Text + * ; end;
: begin s:= Вік + = + edit1.Text; end;
: begin s:=laquo;Возрастraquo;+laquo;gt;=raquo;+edit1.Text;end;;.ADOTable1Sotr.Filter:=s;;//else;TfMain.N3Click(Sender: TObject) ;;; TfMain.N5Click (Sender: TObject) ;. QuickRep1.Preview ;; TfMain.N4Click (Sender: TObject) ;. QuickRep1.Preview ;; TfMain.N6Click (Sender: TObject) ;. QuickRep1.Preview ;; TfMain.N9Click (Sender: TObject) ;. QuickRep1.Preview ;; TfMain.BitBtn3Click (Sender: TObject); s: string; radiogroup1.ItemIndex of...
