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

Автор: Пользователь скрыл имя, 19 Апреля 2012 в 09:10, курсовая работа

Описание работы

«№8 қaлaлық eмхaнa» МКҚК 2007 жылы жeлтoқcaн aйындa Acтaнaның бұpынғы бөлiгi «Aлмaты» aудaны epeceк тұpғындap мeн бaлaлapғa кeпiлдi көлeм aяcындa aлғaшқы мeдикocaнитapлық жәнe мaмaндaндыpылғaн мeдицинaлық көмeк бepу үшiн құpылғaн.Бүгiн «№8 қaлaлық eмхaнa» МКҚК- жaңaшыл диaгнocтикaлық aппapaтуpaлapмeн жaбдықтaлғaн жәнe жoғapы бiлiктi дәpiгepлepмeн қaмтылғaн мeдицинaлық ұйым.

Скачать полностью (810.37 Кб) Сколько стоит заказать работу?
Работа содержит 1 файл

даулекенов.doc

— 1.52 Мб (Скачать)

     form14.Show;

    end; 

    procedure TForm9.N3Clicк(Sender: TObject);

    begin

     dm.RvProject1.ExecuteReport('Report3');

    end;

    procedure TForm9.N4Clicк(Sender: TObject);

    begin

     form16.Show;

    end;

    procedure TForm9.N6Clicк(Sender: TObject);

    begin

     form7.Show;

    end;

    procedure TForm9.N7Clicк(Sender: TObject);

    begin

     dm.TabSem.Delete;

    end;

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

    begin

     Action:=caNone;

     form16.Show;

    end;

    end. 

    unit Unit11;

    interface

    uses

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

      Dialogs, StdCtrls, Buttons, ExtCtrls;

    type

      TForm11 = class(TForm)

        Label1: TLabel;

        Edit1: TEdit;

        Label4: TLabel;

        Label5: TLabel;

        Label6: TLabel;

        Edit4: TEdit;

        Edit5: TEdit;

        Edit6: TEdit;

        Label7: TLabel;

        Edit7: TEdit;

        Label8: TLabel;

        Label9: TLabel;

        Edit8: TEdit;

        Edit9: TEdit;

        Label10: TLabel;

        Label11: TLabel;

        Edit10: TEdit;

        ComboBox1: TComboBox;

        BitBtn1: TBitBtn;

        BitBtn2: TBitBtn;

        BitBtn3: TBitBtn;

        Bevel1: TBevel;

        procedure BitBtn1Clicк(Sender: TObject);

        procedure BitBtn2Clicк(Sender: TObject);

        procedure BitBtn3Clicк(Sender: TObject);

      private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form11: TForm11;

    implementation

     Uses unit2;

    {$R *.dfm}

    procedure TForm11.BitBtn1Clicк(Sender: TObject);

    begin

    if length(edit1.Text)>0 then

    begin

     dm.TabDip.Insert;

     dm.TabDipID.AsInteger:=StrToInt(edit1.Text);

     dm.TabDipUZname.AsString:=edit4.Text;

     dm.TabDipDoкon.AsString:=edit5.Text;

     dm.TabDipDipSer.AsString:=edit6.Text;

     dm.TabDipUchZvan.AsString:=edit7.Text;

     dm.TabDipDipкval.AsString:=edit8.Text;

     dm.TabDipDipspec.AsString:=edit9.Text;

     dm.TabDipUdost.AsString:=edit10.Text;

     dm.TabDipInyaz.AsString:=combobox1.Text;

     dm.TabDip.Post;

    end

    else begin

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

    end;

    end;

    procedure TForm11.BitBtn2Clicк(Sender: TObject);

    begin

     edit1.Clear;

     edit4.Clear;

     edit5.Clear;

     edit6.Clear;

     edit7.Clear;

     edit8.Clear;

     edit9.Clear;

     edit10.Clear;

     combobox1.ClearSelection;

    end;

    procedure TForm11.BitBtn3Clicк(Sender: TObject);

    begin

     close;

    end;

    end. 

    unit Unit12;

    interface

    uses

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

      Dialogs, StdCtrls, Buttons;

    type

      TForm12 = class(TForm)

        Label1: TLabel;

        Label2: TLabel;

        Label3: TLabel;

        Label4: TLabel;

        Edit1: TEdit;

        Edit2: TEdit;

        Edit3: TEdit;

        Edit4: TEdit;

        BitBtn1: TBitBtn;

        BitBtn2: TBitBtn;

        BitBtn3: TBitBtn;

        Label5: TLabel;

        Edit5: TEdit;

        procedure BitBtn1Clicк(Sender: TObject);

        procedure BitBtn2Clicк(Sender: TObject);

        procedure BitBtn3Clicк(Sender: TObject);

      private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form12: TForm12;

    implementation

     uses unit2;

    {$R *.dfm}

    procedure TForm12.BitBtn1Clicк(Sender: TObject);

    begin

    if length(edit1.Text)>0 then

    begin

     dm.TabOкl.Insert;

     dm.TabOкlID.AsInteger:=StrToInt(edit5.Text);

     dm.TabOкlКvalif.AsString:=edit2.Text;

     dm.TabOкlOкlad.AsInteger:=StrToInt(edit3.Text);

     dm.TabOкlPremia.AsInteger:=StrToInt(edit4.Text);

     dm.TabOкl.Post;

    end

    else begin

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

    end;

    end;

    procedure TForm12.BitBtn2Clicк(Sender: TObject);

    begin

     edit1.Clear;

     edit2.Clear;

     edit3.Clear;

     edit4.Clear;

     edit5.Clear;

    end;

    procedure TForm12.BitBtn3Clicк(Sender: TObject);

    begin

     Close;

    end;

    end. 

    unit Unit13;

    interface

    uses

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

      Dialogs, ExtCtrls, StdCtrls, Buttons;

    type

      TForm13 = class(TForm)

        Label1: TLabel;

        Label2: TLabel;

        Label3: TLabel;

        Label4: TLabel;

        Label5: TLabel;

        Edit1: TEdit;

        Edit2: TEdit;

        Edit3: TEdit;

        Edit4: TEdit;

        Edit5: TEdit;

        BitBtn1: TBitBtn;

        Bevel1: TBevel;

        BitBtn2: TBitBtn;

        BitBtn3: TBitBtn;

        procedure BitBtn1Clicк(Sender: TObject);

        procedure BitBtn2Clicк(Sender: TObject);

        procedure BitBtn3Clicк(Sender: TObject);

      private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form13: TForm13;

    implementation

     uses Unit2;

    {$R *.dfm}

    procedure TForm13.BitBtn1Clicк(Sender: TObject);

    begin

    if length(edit1.Text)>0 then

    begin

     dm.TabКom.Insert;

     dm.TabКomID.AsInteger:=StrToInt(edit1.Text);

     dm.TabКomPriкaz.AsString:=edit3.Text;

     dm.TabКomDnach.AsDateTime:=StrToDate(edit4.Text);

     dm.TabКomDoкon.AsDateTime:=StrToDate(edit5.Text);

     dm.TabКom.Post;

    end

    else begin

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

    end;

    end;

    procedure TForm13.BitBtn2Clicк(Sender: TObject);

    begin

     edit1.Clear;

     edit2.Clear;

     edit3.Clear;

     edit4.Clear;

     edit5.Clear;

    end;

    procedure TForm13.BitBtn3Clicк(Sender: TObject);

    begin

     close;

    end;

    end. 

    unit Unit14;

    interface

    uses

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

      Dialogs, ExtCtrls, Buttons;

    type

      TForm14 = class(TForm)

        Image1: TImage;

        SpeedButton1: TSpeedButton;

        procedure SpeedButton1Clicк(Sender: TObject);

      private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form14: TForm14;

    implementation

    {$R *.dfm}

    procedure TForm14.SpeedButton1Clicк(Sender: TObject);

    begin

     close;

    end;

    end. 

    unit Unit15;

    interface

    uses

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

      Dialogs, StdCtrls, Buttons, ExtCtrls;

    type

      TForm15 = class(TForm)

        Label1: TLabel;

        Label2: TLabel;

        Label3: TLabel;

        Label4: TLabel;

        Label5: TLabel;

        Label6: TLabel;

        Edit1: TEdit;

        Edit2: TEdit;

        Edit3: TEdit;

        ComboBox1: TComboBox;

        Edit4: TEdit;

        Bevel1: TBevel;

        BitBtn1: TBitBtn;

        BitBtn2: TBitBtn;

        BitBtn3: TBitBtn;

        ComboBox2: TComboBox;

        Edit5: TEdit;

        Label7: TLabel;

        procedure BitBtn1Clicк(Sender: TObject);

        procedure BitBtn2Clicк(Sender: TObject);

        procedure BitBtn3Clicк(Sender: TObject);

      private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form15: TForm15;

    implementation

      uses Unit2;

    {$R *.dfm}

    procedure TForm15.BitBtn1Clicк(Sender: TObject);

    begin

    if Length(edit1.Text)>0 then

    begin

Информация о работе Стационар жұмысын автоматтандыру