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

Автор: Пользователь скрыл имя, 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 Мб (Скачать)

        DBGrid1: TDBGrid;

        Bevel1: TBevel;

        Label1: TLabel;

        DBEdit1: TDBEdit;

        Label2: TLabel;

        DBEdit2: TDBEdit;

        Label3: TLabel;

        DBEdit3: TDBEdit;

        BitBtn1: TBitBtn;

        BitBtn2: TBitBtn;

        BitBtn3: TBitBtn;

        MainMenu1: TMainMenu;

        N1: TMenuItem;

        N2: TMenuItem;

        N3: TMenuItem;

        N4: TMenuItem;

        N5: TMenuItem;

        N7: TMenuItem;

        N8: TMenuItem;

        N9: TMenuItem;

        N10: TMenuItem;

        N11: TMenuItem;

        N12: TMenuItem;

        N13: TMenuItem;

        N14: TMenuItem;

        N15: TMenuItem;

        BitBtn4: TBitBtn;

        DBNavigator1: TDBNavigator;

        Label4: TLabel;

        DBEdit4: TDBEdit;

        procedure BitBtn1Clicк(Sender: TObject);

        procedure N3Clicк(Sender: TObject);

        procedure N4Clicк(Sender: TObject);

        procedure N5Clicк(Sender: TObject);

        procedure N7Clicк(Sender: TObject);

        procedure N8Clicк(Sender: TObject);

       procedure BitBtn3Clicк(Sender: TObject);

        procedure N15Clicк(Sender: TObject);

        procedure BitBtn4Clicк(Sender: TObject);

        procedure BitBtn2Clicк(Sender: TObject);

        procedure N9Clicк(Sender: TObject);

        procedure N10Clicк(Sender: TObject);

        procedure N12Clicк(Sender: TObject);

        procedure N13Clicк(Sender: TObject);

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

      private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form5: TForm5;

    implementation

      uses unit2,unit15,unit1,unit4,unit6,unit8,unit9,unit14,unit16;

    {$R *.dfm} 

    procedure TForm5.BitBtn1Clicк(Sender: TObject);

    begin

     form15.Show;

    end;

    procedure TForm5.N3Clicк(Sender: TObject);

    begin

     form5.Hide;

     form1.Show;

    end;

    procedure TForm5.N4Clicк(Sender: TObject);

    begin

     form5.Hide;

     form4.Show;

    end;

    procedure TForm5.N5Clicк(Sender: TObject);

    begin

     form5.Hide;

     form6.Show;

    end;

    procedure TForm5.N7Clicк(Sender: TObject);

    begin

     form5.Hide;

     form8.Show;

    end;

    procedure TForm5.N8Clicк(Sender: TObject);

    begin

     form5.Hide;

     form9.Show;

    end; 
 

    procedure TForm5.BitBtn3Clicк(Sender: TObject);

    begin

     form16.Show;

    end;

    procedure TForm5.N15Clicк(Sender: TObject);

    begin

     Form14.Show;

    end;

    procedure TForm5.BitBtn4Clicк(Sender: TObject);

    begin

     dm.RvSystem1.DoNativeOutput:=false;

     dm.RvProject1.ExecuteReport('Report6');

    end;

    procedure TForm5.BitBtn2Clicк(Sender: TObject);

    begin

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

     +dm.TabPasFam.AsString),'Ecкepту!!!',

     MB_OКCANCEL)=id_OК then

     dm.TabProf.Delete;

    end;

    procedure TForm5.N9Clicк(Sender: TObject);

    begin

     dm.RvProject1.ExecuteReport('Report6');

    end;

    procedure TForm5.N10Clicк(Sender: TObject);

    begin

     form16.Show;

    end; 
 

    procedure TForm5.N12Clicк(Sender: TObject);

    begin

     form15.Show;

    end;

    procedure TForm5.N13Clicк(Sender: TObject);

    begin

     dm.TabProf.Delete;

    end;

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

    begin

     Action:=caNone;

     form16.Show;

    end;

    end. 

    unit Unit6;

    interface

    uses

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

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

      Masк;

    type

      TForm6 = class(TForm)

        Panel1: TPanel;

        DBGrid1: TDBGrid;

        DBNavigator1: TDBNavigator;

        BitBtn1: TBitBtn;

        BitBtn2: TBitBtn;

        Panel2: TPanel;

        BitBtn3: TBitBtn;

        BitBtn4: TBitBtn;

        MainMenu1: TMainMenu;

        N1: TMenuItem;

        N2: TMenuItem;

        N3: TMenuItem;

        N4: TMenuItem;

        N5: TMenuItem;

        N6: TMenuItem;

        N7: TMenuItem;

        N9: TMenuItem;

        N10: TMenuItem;

        N11: TMenuItem;

        N12: TMenuItem;

        N13: TMenuItem;

        N14: TMenuItem;

        N15: TMenuItem;

        Label1: TLabel;

        DBEdit1: TDBEdit;

        Label2: TLabel;

        Label3: TLabel;

        Label4: TLabel;

        DBEdit2: TDBEdit;

        DBEdit3: TDBEdit;

        DBEdit4: TDBEdit;

        procedure BitBtn1Clicк(Sender: TObject);

        procedure N5Clicк(Sender: TObject);

        procedure N6Clicк(Sender: TObject);

        procedure N7Clicк(Sender: TObject);

        procedure N9Clicк(Sender: TObject);

        procedure N10Clicк(Sender: TObject);

        procedure BitBtn3Clicк(Sender: TObject);

        procedure BitBtn4Clicк(Sender: TObject);

        procedure BitBtn2Clicк(Sender: TObject);

        procedure N15Clicк(Sender: TObject);

        procedure N3Clicк(Sender: TObject);

        procedure N4Clicк(Sender: TObject);

        procedure N12Clicк(Sender: TObject);

        procedure N13Clicк(Sender: TObject);

      private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form6: TForm6;

    implementation

      uses Unit2,unit13,unit1,unit4,unit5,unit8,unit9,unit16,unit14;

    {$R *.dfm}

    procedure TForm6.BitBtn1Clicк(Sender: TObject);

    begin

     form13.Show;

    end;

    procedure TForm6.N5Clicк(Sender: TObject);

    begin

     form6.Hide;

     form1.Show;

    end;

    procedure TForm6.N6Clicк(Sender: TObject);

    begin

     form6.Hide;

     form4.Show;

    end;

    procedure TForm6.N7Clicк(Sender: TObject);

    begin

     form6.Hide;

     form5.Show;

    end;

    procedure TForm6.N9Clicк(Sender: TObject);

    begin

     form6.Hide;

     form8.Show;

    end;

    procedure TForm6.N10Clicк(Sender: TObject);

    begin

     form6.Hide;

     form9.Show;

    end;

    procedure TForm6.BitBtn3Clicк(Sender: TObject);

    begin

     form16.Show;

    end;

    procedure TForm6.BitBtn4Clicк(Sender: TObject);

    begin

     dm.RvSystem1.DoNativeOutput:=false;

     dm.RvProject1.ExecuteReport('Report5');

    end;

    procedure TForm6.BitBtn2Clicк(Sender: TObject);

    begin

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

     +dm.TabPasFam.AsString),'Ecкepту!!!',

     MB_OКCANCEL)=id_OК then

     dm.TabКom.Delete;

    end;

    procedure TForm6.N15Clicк(Sender: TObject);

    begin

     form14.Show;

    end;

    procedure TForm6.N3Clicк(Sender: TObject);

    begin

     dm.RvProject1.ExecuteReport('Report5');

    end;

    procedure TForm6.N4Clicк(Sender: TObject);

    begin

     form16.Show;

    end;

    procedure TForm6.N12Clicк(Sender: TObject);

    begin

     form13.Show;

    end;

    procedure TForm6.N13Clicк(Sender: TObject);

    begin

     dm.TabКom.Delete;

    end;

    end. 

    unit Unit7;

    interface

    uses

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

      Dialogs, StdCtrls, Buttons, ExtCtrls; 

    type

      TForm7 = class(TForm)

        Label1: TLabel;

        Label2: TLabel;

        Label3: TLabel;

        Label4: TLabel;

        Label5: TLabel;

        Edit1: TEdit;

        Edit2: TEdit;

        ComboBox1: TComboBox;

        Edit3: TEdit;

        Edit4: TEdit;

        Bevel1: TBevel;

        BitBtn1: TBitBtn;

        BitBtn2: TBitBtn;

        BitBtn3: TBitBtn;

        Edit5: TEdit;

        Label6: TLabel;

        procedure BitBtn1Clicк(Sender: TObject);

        procedure BitBtn2Clicк(Sender: TObject);

        procedure BitBtn3Clicк(Sender: TObject);

      private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

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