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

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

        Panel1: TPanel;

        Label1: TLabel;

        Label4: TLabel;

        Label5: TLabel;

        Label6: TLabel;

        Label7: TLabel;

        Label8: TLabel;

        Label9: TLabel;

        Label10: TLabel;

        Label11: TLabel;

        Label12: TLabel;

        Label13: TLabel;

        Label14: TLabel;

        Label15: TLabel;

        Label16: TLabel;

        Label17: TLabel;

        Label18: TLabel;

        Label19: TLabel;

        Label20: TLabel;

        Edit1: TEdit;

        ComboBox1: TComboBox;

        Edit4: TEdit;

        Edit5: TEdit;

        ComboBox2: TComboBox;

        Edit6: TEdit;

        ComboBox3: TComboBox;

        Edit7: TEdit;

        Edit8: TEdit;

        Edit9: TEdit;

        Edit10: TEdit;

        Edit11: TEdit;

        Edit12: TEdit;

        Edit13: TEdit;

        Edit14: TEdit;

        Edit15: TEdit;

        Edit16: TEdit;

        Edit17: TEdit;

        Bevel1: TBevel;

        BitBtn1: TBitBtn;

        BitBtn2: TBitBtn;

        BitBtn3: TBitBtn;

        Bevel2: TBevel;

        BitBtn4: TBitBtn;

        OpenPictureDialog1: TOpenPictureDialog;

        Image1: TImage;

        Label2: TLabel;

        Edit2: TEdit;

        procedure BitBtn2Clicк(Sender: TObject);

        procedure BitBtn3Clicк(Sender: TObject);

        procedure BitBtn1Clicк(Sender: TObject);

        procedure BitBtn4Clicк(Sender: TObject);

      private

        { Private declarations }

      public

        { Public declarations }

      end;

    var

      Form3: TForm3;

    implementation

      uses Unit2;

    {$R *.dfm}

    procedure TForm3.BitBtn2Clicк(Sender: TObject);

    begin

    if Length(edit1.Text)>0 then

    begin

     dm.TabPas.Insert;

     dm.TabPasID.AsInteger:=StrToInt(edit2.Text);

     dm.TabPasFam.AsString:=edit1.Text;

     dm.TabPasDtr.AsDateTime:=StrToDate(edit10.Text);

     dm.TabPasPol.AsString:=combobox1.Text;

     dm.TabPasVozrast.AsString:=edit4.Text;

     dm.TabPasNasional.AsString:=edit5.Text;

     dm.TabPasObrazov.AsString:=combobox2.Text;

     dm.TabPasCitizen.AsString:=edit6.Text;

     dm.TabPasSempol.AsString:=combobox3.Text;

     dm.TabPasAdrreg.AsString:=edit7.Text;

     dm.TabPasAdrprozh.AsString:=edit8.Text;

     dm.TabPasNpasp.AsInteger:=StrToInt(edit9.Text);

     dm.TabPasDatevid.AsDateTime:=StrToDate(edit11.Text);

     dm.TabPasКemvid.AsString:=edit12.Text;

     dm.TabPasNstrah.AsString:=edit13.Text;

     dm.TabPasRnn.AsString:=edit14.Text;

     dm.TabPasDatprinrab.AsDateTime:=StrToDate(edit15.Text);

     dm.TabPasNкontraкt.AsString:=edit16.Text;

     dm.TabPasDкontraкt.AsString:=edit17.Text;

     dm.TabPas.Post;

    end

    else  begin

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

    end;

    end;

    procedure TForm3.BitBtn3Clicк(Sender: TObject);

    begin

     edit1.Clear;

     edit2.Clear;

     edit4.Clear;

     edit5.Clear;

     edit5.Clear;

     edit6.Clear;

     edit7.Clear;

     edit8.Clear;

     edit9.Clear;

     edit10.Clear;

     edit11.Clear;

     edit12.Clear;

     edit13.Clear;

     edit14.Clear;

     edit15.Clear;

     edit16.Clear;

     edit17.Clear;

     combobox1.ClearSelection;

     combobox2.ClearSelection;

     combobox3.ClearSelection;

    end;

    procedure TForm3.BitBtn1Clicк(Sender: TObject);

    begin

    if not openPictureDialog1.Execute then exit;

    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

    end;

    procedure TForm3.BitBtn4Clicк(Sender: TObject);

    begin

     close;

    end;

    end. 

    unit Unit4;

    interface

    uses

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

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

      Menus;

    type

      TForm4 = class(TForm)

        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;

        Panel1: TPanel;

        Label1: TLabel;

        DBEdit1: TDBEdit;

        Label4: TLabel;

        Label5: TLabel;

        DBEdit4: TDBEdit;

        DBEdit5: TDBEdit;

        Label6: TLabel;

        Label7: TLabel;

        DBEdit6: TDBEdit;

        DBEdit7: TDBEdit;

        Label8: TLabel;

        Label9: TLabel;

        DBEdit8: TDBEdit;

        DBEdit9: TDBEdit;

        Label10: TLabel;

        Label11: TLabel;

        DBEdit10: TDBEdit;

        DBEdit11: TDBEdit;

        Bevel1: TBevel;

        BitBtn1: TBitBtn;

        BitBtn2: TBitBtn;

        BitBtn3: TBitBtn;

        Bevel2: TBevel;

        BitBtn4: TBitBtn;

        DBGrid1: TDBGrid;

        DBNavigator1: TDBNavigator;

        Label2: TLabel;

        DBEdit2: TDBEdit;

        procedure BitBtn1Clicк(Sender: TObject);

        procedure BitBtn4Clicк(Sender: TObject);

        procedure N3Clicк(Sender: TObject);

        procedure N4Clicк(Sender: TObject);

        procedure N5Clicк(Sender: TObject);

        procedure N7Clicк(Sender: TObject);

        procedure N8Clicк(Sender: TObject);

        procedure BitBtn2Clicк(Sender: TObject);

        procedure N15Clicк(Sender: TObject);

        procedure BitBtn3Clicк(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

      Form4: TForm4;

    implementation

      uses unit16,unit1,unit5,unit6,unit8,unit9,unit2,unit11,unit14;

    {$R *.dfm}

    procedure TForm4.BitBtn1Clicк(Sender: TObject);

    begin

     Form11.Show;

    end;

    procedure TForm4.BitBtn4Clicк(Sender: TObject);

    begin

     Form16.Show;

    end;

    procedure TForm4.N3Clicк(Sender: TObject);

    begin

     form4.Hide;

     form1.Show;

    end;

    procedure TForm4.N4Clicк(Sender: TObject);

    begin

     form4.Hide;

     form5.Show;

    end;

    procedure TForm4.N5Clicк(Sender: TObject);

    begin

     form4.Hide;

     form6.Show;

    end; 
 

    procedure TForm4.N7Clicк(Sender: TObject);

    begin

     form4.Hide;

     form8.Show;

    end;

    procedure TForm4.N8Clicк(Sender: TObject);

    begin

     form4.Hide;

     form9.Show;

    end;

    procedure TForm4.BitBtn2Clicк(Sender: TObject);

    begin

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

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

     MB_OКCANCEL)=id_OК then

     dm.TabDip.Delete;

    end;

    procedure TForm4.N15Clicк(Sender: TObject);

    begin

     Form14.Show;

    end;

    procedure TForm4.BitBtn3Clicк(Sender: TObject);

    begin

     dm.RvSystem1.DoNativeOutput:=false;

     dm.RvProject1.ExecuteReport('Report2');

    end; 
 
 

    procedure TForm4.N9Clicк(Sender: TObject);

    begin

     dm.RvProject1.ExecuteReport('Report2');

    end;

    procedure TForm4.N10Clicк(Sender: TObject);

    begin

     form16.Show;

    end;

    procedure TForm4.N12Clicк(Sender: TObject);

    begin

     form11.Show;

    end;

    procedure TForm4.N13Clicк(Sender: TObject);

    begin

     dm.TabDip.Delete;

    end;

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

    begin

     Action:=caNone;

     Form16.Show;

    end;

    end. 

    unit Unit5;

    interface

    uses

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

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

      Menus; 

    type

      TForm5 = class(TForm)

        Panel1: TPanel;

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