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

     dm.TabProf.Insert;

     dm.TabProfID.AsInteger:=StrToInt(edit5.Text);

     dm.TabProfDate.AsDateTime:=StrToDate(edit2.Text);

     dm.TabProfOsnov.AsString:=edit3.Text;

     dm.TabProfOtdel.AsString:=combobox1.Text;

     dm.TabProfDolznost.AsString:=combobox2.Text;

     dm.TabProfRezhrab.AsInteger:=StrToInt(edit4.Text);

     dm.TabProf.Post;

    end

    else begin

    ShowMessage('Мaлiмeттep eнгiзiнiз');

    end;

    end;

    procedure TForm15.BitBtn2Clicк(Sender: TObject);

    begin

     edit1.Clear;

     edit2.Clear;

     edit3.Clear;

     edit4.Clear;

     edit5.Clear;

     combobox1.ClearSelection;

     combobox2.ClearSelection;

    end;

    procedure TForm15.BitBtn3Clicк(Sender: TObject);

    begin

     close;

    end;

    end. 

    unit Unit16;

    interface

    uses

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

      Dialogs, StdCtrls, Buttons;

    type

      TForm16 = class(TForm)

        Label1: TLabel;

        BitBtn1: TBitBtn;

        BitBtn2: TBitBtn;

        procedure BitBtn2Clicк(Sender: TObject);

        procedure BitBtn1Clicк(Sender: TObject);

      private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form16: TForm16;

    implementation

    {$R *.dfm}

    procedure TForm16.BitBtn2Clicк(Sender: TObject);

    begin

     Form16.Close;

    end;

    procedure TForm16.BitBtn1Clicк(Sender: TObject);

    begin

     Application.Terminate;

    end;

    end.