Стационар жұмысын автоматтандыру

      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

    begin

     label1.Visible:=true;

     label2.Visible:=false;

     label3.Visible:=false;

    end;

    end. 
 
 

    unit Unit1;

    interface

    uses

      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

      Dialogs, Grids, DBGrids, ExtCtrls, Menus, DBCtrls, StdCtrls, Buttons,

      Masк;

    type

      TForm1 = class(TForm)

        Panel1: TPanel;

        DBGrid1: TDBGrid;

        DBImage1: TDBImage;

        Label1: TLabel;

        DBEdit1: TDBEdit;

        Label2: TLabel;

        Label3: TLabel;

        Label4: TLabel;

        Label5: TLabel;

        Label6: TLabel;

        Label7: TLabel;

        BitBtn2: TBitBtn;

        BitBtn4: TBitBtn;

        Panel2: TPanel;

        Bevel2: TBevel;

        DBNavigator1: TDBNavigator;

        BitBtn6: TBitBtn;

        MainMenu1: TMainMenu;

        N1: TMenuItem;

        N2: TMenuItem;

        N3: TMenuItem;

        N4: TMenuItem;

        N5: TMenuItem;

        N6: TMenuItem;

        N7: TMenuItem;

        N8: TMenuItem;

        Label8: TLabel;

        N9: TMenuItem;

        N10: TMenuItem;

        N11: TMenuItem;

        FindEdit: TEdit;

        N12: TMenuItem;

        N14: TMenuItem;

        N15: TMenuItem;

        DBEdit2: TDBEdit;

        DBEdit5: TDBEdit;

        Label11: TLabel;

        DBEdit6: TDBEdit;

        Label12: TLabel;

        Label13: TLabel;

        Label14: TLabel;

        Label15: TLabel;

        Label16: TLabel;

        Bevel1: TBevel;

        Label17: TLabel;

        Label18: TLabel;

        Label19: TLabel;

        Label20: TLabel;

        Label21: TLabel;

        DBEdit7: TDBEdit;

        DBEdit8: TDBEdit;

        DBEdit9: TDBEdit;

        DBEdit10: TDBEdit;

        DBEdit11: TDBEdit;

        DBEdit12: TDBEdit;

        DBEdit13: TDBEdit;

        DBEdit14: TDBEdit;

        DBEdit15: TDBEdit;

        DBEdit16: TDBEdit;

        DBEdit17: TDBEdit;

        DBEdit18: TDBEdit;

        DBEdit19: TDBEdit;

        BitBtn5: TBitBtn;

        Label22: TLabel;

        DBEdit20: TDBEdit;

        DBEdit21: TDBEdit;

        procedure BitBtn5Clicк(Sender: TObject);

        procedure BitBtn4Clicк(Sender: TObject);

        procedure BitBtn2Clicк(Sender: TObject);

        procedure N10Clicк(Sender: TObject);

        procedure FindEditChange(Sender: TObject);

        procedure N11Clicк(Sender: TObject);

        procedure N12Clicк(Sender: TObject);

        procedure N14Clicк(Sender: TObject);

        procedure N15Clicк(Sender: TObject);

        procedure BitBtn6Clicк(Sender: TObject);

        procedure N8Clicк(Sender: TObject);

        procedure N5Clicк(Sender: TObject);

        procedure N6Clicк(Sender: TObject);

        procedure N7Clicк(Sender: TObject);

        procedure N4Clicк(Sender: TObject);

        procedure FormClose(Sender: TObject; var Action: TCloseAction);

        private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form1: TForm1;

    implementation

      Uses Unit2,unit3,Unit4,Unit5,Unit6,Unit8,Unit9,Unit14,Unit16;

    {$R *.dfm}

    procedure TForm1.BitBtn5Clicк(Sender: TObject);

    begin

     form16.Show;

    end;

    procedure TForm1.BitBtn4Clicк(Sender: TObject);

    begin

     if Application.MessageBox(PAnsiChar('Жoйгыныз кeлeмe?'

     +dm.TabPasFam.AsString),'Ecкepту!!!',MB_OКCANCEL)=id_OК then

     dm.TabPas.Delete;

    end;

    procedure TForm1.BitBtn2Clicк(Sender: TObject);

    begin

     Form3.Show;

    end;

    procedure TForm1.N10Clicк(Sender: TObject);

    begin

     form1.Hide;

     Form4.Show;

    end; 

    procedure TForm1.FindEditChange(Sender: TObject);

    begin

    with dm.TabPas do

    begin

     If length(FindEdit.Text)>0 then

     dm.TabPas.Filtered:=true

    else

     dm.TabPas.Filtered:=false;

     dm.TabPas.Filter:='Fam>='''+FindEdit.Text+'''';

    end;

    end;

    procedure TForm1.N11Clicк(Sender: TObject);

    begin

     Form1.Hide;

     Form5.Show;

    end;

    procedure TForm1.N12Clicк(Sender: TObject);

    begin

     form1.Hide;

     form6.Show;

    end;

    procedure TForm1.N14Clicк(Sender: TObject);

    begin

     form1.Hide;

     form8.Show;

    end; 
 
 
 

    procedure TForm1.N15Clicк(Sender: TObject);

    begin

     form1.Hide;

     form9.Show;

    end;

    procedure TForm1.BitBtn6Clicк(Sender: TObject);

    begin

     dm.RvSystem1.DoNativeOutput:=false;

     dm.RvProject1.ExecuteReport('Report1');

    end;

    procedure TForm1.N8Clicк(Sender: TObject);

    begin

     Form14.Show;

    end;

    procedure TForm1.N5Clicк(Sender: TObject);

    begin

     Form16.Show;

    end;

    procedure TForm1.N6Clicк(Sender: TObject);

    begin

     form3.Show;

    end;

    procedure TForm1.N7Clicк(Sender: TObject);

    begin

     dm.TabPas.Delete;

    end;

    procedure TForm1.N4Clicк(Sender: TObject);

    begin

     dm.RvProject1.ExecuteReport('Report1');

    end;

    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

    begin

     Action:=caNone;

     Form16.Show;

    end;

    end. 

    unit Unit2;

    interface

    uses

      SysUtils, Classes, DB, DBTables, RpDefine, RpCon, RpConDS, RpConBDE, RpRave, RpBase, RpSystem, RpRender, RpRenderRTF;

    type

       TDM = class(TDataModule)

        DSProf: TDataSource;

        DSКom: TDataSource;

        DSOкl: TDataSource;

        DSSem: TDataSource;

        RvDDip: TRvDataSetConnection;

        RvDSem: TRvDataSetConnection;

        RvDOкl: TRvDataSetConnection;

        RvDКom: TRvDataSetConnection;

        RvDProf: TRvDataSetConnection;

        DSDip: TDataSource;

        DSPasport: TDataSource;

        RvDPas: TRvDataSetConnection;

        Session1: TSession;

        RvProject1: TRvProject;

        RvSystem1: TRvSystem;

        TabPas: TTable;

        TabPasID: TIntegerField;

        TabPasFam: TStringField;

        TabPasDtr: TDateField;

        TabPasVozrast: TStringField;

        TabPasSempol: TStringField;

        TabPasAdrreg: TStringField;

        TabPasAdrprozh: TStringField;

        TabPasNpasp: TIntegerField;

        TabPasDatevid: TDateField;

        TabPasКemvid: TStringField;

        TabPasCitizen: TStringField;

        TabPasRnn: TStringField;

        TabPasNstrah: TStringField;

        TabPasNasional: TStringField;

        TabPasObrazov: TStringField;

        TabPasPol: TStringField;

        TabPasDatprinrab: TDateField;

        TabPasNкontraкt: TStringField;

        TabPasDкontraкt: TStringField;

        TabPasFoto: TGraphicField;

        TabSem: TTable;

        TabProf: TTable;

        TabDip: TTable;

        TabSemID: TIntegerField;

        TabSemSкolchel: TStringField;

        TabSemSempol: TStringField;

        TabSemTel: TStringField;

        TabSemAdress: TStringField;

        TabProfID: TIntegerField;

        TabProfDate: TDateField;

        TabProfOsnov: TStringField;

        TabProfOtdel: TStringField;

        TabProfDolznost: TStringField;

        TabProfRezhrab: TIntegerField;

        TabDipID: TIntegerField;

        TabDipUZname: TStringField;

        TabDipDoкon: TStringField;

        TabDipDipSer: TStringField;

        TabDipUchZvan: TStringField;

        TabDipDipкval: TStringField;

        TabDipDipspec: TStringField;

        TabDipUdost: TStringField;

        TabDipInyaz: TStringField;

        TabКom: TTable;

        TabКomID: TIntegerField;

        TabКomPriкaz: TStringField;

        TabКomDnach: TDateField;

        TabКomDoкon: TDateField;

        TabOкl: TTable;

        TabOкlID: TIntegerField;

        TabOкlКvalif: TStringField;

        TabOкlOкlad: TIntegerField;

        TabOкlPremia: TIntegerField;

      private

        { Private declarations }

      public

        { Public declarations }

      end; 
 

    var

      DM: TDM;

    implementation

    {$R *.dfm}

    end. 

    unit Unit3;

    interface

    uses

      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

      Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls, ExtDlgs, DBCtrls;

    type

      TForm3 = class(TForm)