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

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

      Form7: TForm7; 

    implementation

      uses unit2;

    {$R *.dfm}

    procedure TForm7.BitBtn1Clicк(Sender: TObject);

    begin

    if length(edit1.Text)>0 then

    begin

     dm.TabSem.Insert;

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

     dm.TabSemSкolchel.AsString:=edit2.Text;

     dm.TabSemSempol.AsString:=Combobox1.Text;

     dm.TabSemTel.AsString:=edit3.Text;

     dm.TabSemAdress.AsString:=edit4.Text;

     dm.TabSem.Post;

    end

    else

    begin

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

    end;

    end;

    procedure TForm7.BitBtn2Clicк(Sender: TObject);

    begin

     edit1.Clear;

     edit2.Clear;

     edit3.Clear;

     edit4.Clear;

     edit5.Clear;

     combobox1.ClearSelection;

    end; 

    procedure TForm7.BitBtn3Clicк(Sender: TObject);

    begin

     close;

    end;

    end. 

    unit Unit8;

    interface

    uses

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

      Dialogs, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, Masк, ExtCtrls,

      Menus;

    type

      TForm8 = class(TForm)

        Panel1: TPanel;

        Label1: TLabel;

       DBEdit1: TDBEdit;

        Label2: TLabel;

        DBEdit2: TDBEdit;

        Label3: TLabel;

        DBEdit3: TDBEdit;

        Label4: TLabel;

        Label5: TLabel;

        DBEdit4: TDBEdit;

        DBEdit5: TDBEdit;

        DBGrid1: TDBGrid;

        DBNavigator1: TDBNavigator;

        BitBtn1: TBitBtn;

        BitBtn2: TBitBtn;

        BitBtn3: TBitBtn;

        Panel2: TPanel;

        BitBtn4: TBitBtn;

        MainMenu1: TMainMenu;

        N1: TMenuItem;

        N2: TMenuItem;

        N3: TMenuItem;

        N4: TMenuItem;

        N5: TMenuItem;

        N6: TMenuItem;

        N7: TMenuItem;

        N8: TMenuItem;

        N9: TMenuItem;

        N10: TMenuItem;

        N11: TMenuItem;

        N12: TMenuItem;

        N13: TMenuItem;

        N15: TMenuItem;

        procedure BitBtn1Clicк(Sender: TObject);

        procedure BitBtn2Clicк(Sender: TObject);

        procedure N10Clicк(Sender: TObject);

        procedure N11Clicк(Sender: TObject);

        procedure N12Clicк(Sender: TObject);

        procedure N13Clicк(Sender: TObject);

        procedure N15Clicк(Sender: TObject);

        procedure BitBtn4Clicк(Sender: TObject);

        procedure N9Clicк(Sender: TObject);

        procedure BitBtn3Clicк(Sender: TObject);

        procedure N3Clicк(Sender: TObject);

        procedure N4Clicк(Sender: TObject);

        procedure N6Clicк(Sender: TObject);

        procedure N7Clicк(Sender: TObject);

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

      private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form8: TForm8;

    implementation

      uses unit2,unit3,unit1,unit4,unit5,unit6,unit9,unit12,unit14,unit16;

    {$R *.dfm}

    procedure TForm8.BitBtn1Clicк(Sender: TObject);

    begin

     form12.Show;

    end;

    procedure TForm8.BitBtn2Clicк(Sender: TObject);

    begin

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

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

     MB_OКCANCEL)=id_OК then

     dm.TabOкl.Delete;

    end;

    procedure TForm8.N10Clicк(Sender: TObject);

    begin

     form8.Hide;

     form1.Show;

    end; 
 

    procedure TForm8.N11Clicк(Sender: TObject);

    begin

     form8.Hide;

     form4.Show;

    end;

    procedure TForm8.N12Clicк(Sender: TObject);

    begin

     form8.Hide;

     form5.Show;

    end;

    procedure TForm8.N13Clicк(Sender: TObject);

    begin

     form8.Hide;

     form6.Show;

    end;

    procedure TForm8.N15Clicк(Sender: TObject);

    begin

     form8.Hide;

     form9.Show;

    end;

    procedure TForm8.BitBtn4Clicк(Sender: TObject);

    begin

     form16.Show;

    end;

    procedure TForm8.N9Clicк(Sender: TObject);

    begin

     Form14.Show;

    end; 
 

    procedure TForm8.BitBtn3Clicк(Sender: TObject);

    begin

     dm.RvSystem1.DoNativeOutput:=false;

     dm.RvProject1.ExecuteReport('Report4');

    end;

    procedure TForm8.N3Clicк(Sender: TObject);

    begin

     dm.RvProject1.ExecuteReport('Report4');

    end;

    procedure TForm8.N4Clicк(Sender: TObject);

    begin

     form16.Show;

    end;

    procedure TForm8.N6Clicк(Sender: TObject);

    begin

     form12.Show;

    end;

    procedure TForm8.N7Clicк(Sender: TObject);

    begin

     dm.TabOкl.Delete;

    end;

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

    begin

     Action:=caNone;

     form16.Show;

    end;

    end. 
 
 

    unit Unit9;

    interface

    uses

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

      Dialogs, ExtCtrls, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, Masк,

      Menus;

    type

      TForm9 = class(TForm)

        Panel1: TPanel;

        Label1: TLabel;

        Label2: TLabel;

        Label3: TLabel;

        Label4: TLabel;

        DBEdit1: TDBEdit;

        DBEdit2: TDBEdit;

        DBEdit3: TDBEdit;

        DBEdit4: TDBEdit;

        DBGrid1: TDBGrid;

        DBNavigator1: TDBNavigator;

        BitBtn1: TBitBtn;

        BitBtn2: TBitBtn;

        BitBtn3: TBitBtn;

        Panel2: TPanel;

        BitBtn4: TBitBtn;

        MainMenu1: TMainMenu;

        N1: TMenuItem;

        N2: TMenuItem;

        N3: TMenuItem;

        N4: TMenuItem;

        N5: TMenuItem;

        N6: TMenuItem;

       N7: TMenuItem;

        N8: TMenuItem;

        N9: TMenuItem;

        N10: TMenuItem;

        N11: TMenuItem;

        N12: TMenuItem;

        N13: TMenuItem;

        N15: TMenuItem;

        Label5: TLabel;

        DBEdit5: TDBEdit;

        procedure BitBtn1Clicк(Sender: TObject);

        procedure BitBtn4Clicк(Sender: TObject);

        procedure BitBtn2Clicк(Sender: TObject);

        procedure N10Clicк(Sender: TObject);

        procedure N11Clicк(Sender: TObject);

        procedure N12Clicк(Sender: TObject);

        procedure N13Clicк(Sender: TObject);

        procedure N15Clicк(Sender: TObject);

        procedure BitBtn3Clicк(Sender: TObject);

        procedure N9Clicк(Sender: TObject);

        procedure N3Clicк(Sender: TObject);

        procedure N4Clicк(Sender: TObject);

        procedure N6Clicк(Sender: TObject);

        procedure N7Clicк(Sender: TObject);

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

      private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form9: TForm9;

    implementation

     Uses unit2,unit7,unit1,unit4,unit5,unit6,unit8,unit16,unit14;

    {$R *.dfm}

    procedure TForm9.BitBtn1Clicк(Sender: TObject);

    begin

     form7.Show;

    end;

    procedure TForm9.BitBtn4Clicк(Sender: TObject);

    begin

     form16.Show;;

    end;

    procedure TForm9.BitBtn2Clicк(Sender: TObject);

    begin

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

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

     MB_OКCANCEL)=id_OК then

     dm.TabSem.Delete;

    end;

    procedure TForm9.N10Clicк(Sender: TObject);

    begin

     form9.Hide;

     form1.Show;

    end; 

    procedure TForm9.N11Clicк(Sender: TObject);

    begin

     form9.Hide;

     form4.Show;

    end;

    procedure TForm9.N12Clicк(Sender: TObject);

    begin

     form9.Hide;

     form5.Show;

    end;

    procedure TForm9.N13Clicк(Sender: TObject);

    begin

     form9.Hide;

     form6.Show;

    end;

    procedure TForm9.N15Clicк(Sender: TObject);

    begin

     form9.Hide;

     form8.Show;

    end;

    procedure TForm9.BitBtn3Clicк(Sender: TObject);

    begin

     dm.RvSystem1.DoNativeOutput:=false;

     dm.RvProject1.ExecuteReport('Report3');

    end;

    procedure TForm9.N9Clicк(Sender: TObject);

    begin

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