Шымкент қалалық жедел жәрдем көмек көрсету станциясының диспетчерлік бөлімінің бағдарламалық жабдықтамасын өңдеу

Автор работы: Пользователь скрыл имя, 27 Ноября 2013 в 06:42, курсовая работа

Краткое описание

Шымкент қаласының жедел жәрдем қызметкерлері Елбасы Жолдауына қолдау білдірді. Шымкент қаласы Еңбекші аудандық әкімдігінің ұйымдастыруымен ҚР Президенті Н.Ә.Назарбаевтың «Қазақстан-2050» Стратегиясы қалыптасқан мемлекеттің жаңа саяси бағыты» атты Қазақстан халқына арналған Жолдауын кеңінен насихаттау және түсіндіру жиыны өткізілді. Қаладағы медициналық жедел жәрдем көрсету стансасында ұйымдастырылған шараға Еңбекші ауданының әкімі Ә. Құртаев және ақпараттық-насихаттық топ, медицина қызметкерлерімен кездесіп, Жолдаудың басымдықтары аясында келелі ой қозғалды. Жиын барысында еліміздің соңғы жылдары қоғамның барлық салаларында толағай жетістіктерге қол жеткізгендігі, дей тұрғанмен алдағы уақыт еншісінде де атқарылар міндеттің ауқымды екендігі сөз болды.

Содержание

Нормативті сілтемелер................................................................................................5
Анықтамалар................................................................................................................6
Белгілеулер мен қысқартулар.....................................................................................7
Кіріспе……...................................................................................................................8
1 Аналитикалық бөлім................................................................................................9
1.1 Шымкент қалалық жедел жәрдем көмек көрсетуі жайлы мағлұмат................9
1.2 Жедел жәрдем жеделділігі..................................................................................12
1.3 Жеке тұлғаларға арналған медициналық сақтандыру.....................................15
1.4 Диспетчерлік қызмет...........................................................................................16
1.5 Емхананың негізгі міндеті..................................................................................18
1.6 Тіркеу орны..........................................................................................................18
1.7 Медициналық мекеме қызметі жайлы...............................................................19
1.8 Delphi – де жұмыс істеу.....................................................................................20
1.9 Бағдарлама кодының есептелуі……………………………………………......25
2 Жобалық бөлім.....................................................................................................26
2.1 Шымкент қалалық жедел жәрдем көмек көрсету станциясының
диспетчерлік бөлімінің бағдарламалық жабдықтамасын құру.............................26
2.2 Программаны іске қосу.......................................................................................31
Қорытынды.................................................................................................................36
Пайдаланылған әдебиеттер тізімі............................................................................37
Қосымша А.................................................................................................................38

Скачать полностью (2.41 Мб) Сколько стоит заказать работу?
Прикрепленные файлы: 1 файл

КУРСОВОЙ Улжан.doc

— 3.48 Мб (Скачать документ)

           Петербург.

  1. А.Жуков. Изучаем Delphi, 2001г.
  2. М.Эбнер. Delphi 4. Руководство разработчика, БХВ, Киев, 2000г.
  3. А.Я. Архангельский. Программирование в Delphi 2.0. Издательство

           БИНОМ. Москва, 2008г.

  1. Епанешников А., Епанешников В. Программирование в среде Delphi.

           Учебное пособие 4-х частях, М. 1997-1993.

  1. О. Камардинов., Х. Жантелі. Delphi 5-1. Оқу құралы. Шымкент. 2002ж. –

          214 бет. 

  1.   Архангельский А.Я. Программирование в Delphi 4, М., ЗАО.

            Издательство БИНОМ 2000г.

  1. Тейлор Д. и др. Delphi 3. Библиотека программиста. СПБ, Питер, 1998г
  2. Гофман А.С., Хомоненко В. В.  Delphi 4.0. –СпБ:2000г.
  3. Культин.Н.Б. Delphi в задачах и примерах. С-П. БХВ-Петербург: 2005г.
  4. Пачеко К., Тексейра С. Delphi 4.0. Руководство разработчика. Том 1,2-

            2000г.

  1. Васильев Г.П. и др. Программное обеспечение сетей ЭВМ.-М.: Финансы

            и статистика, 1983г.-87с.

 

 

Қосымша А

 

Бағдарлама  коды

 

unit Unit1;

 

interface

 

uses

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

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

 

type

TForm1 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Image2: TImage;

Image1: TImage;

BitBtn3: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

uses Unit2, Unit7;

 

{$R *.dfm}

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

form2.show;

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

form1.Close;

end;

 

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

form7.show;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

 

unit Unit2;

 

interface

 

uses

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

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

 

type

TForm2 = class(TForm)

Image1: TImage;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Image2: TImage;

BitBtn4: TBitBtn;

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

 public

 { Public declarations }

 end;

 

var

Form2: TForm2;

 

implementation

 

uses Unit6, Unit5, Unit3;

 

{$R *.dfm}

 

procedure TForm2.BitBtn4Click(Sender: TObject);

begin

form2.Close;

end;

 

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

form6.show;

end;

 

procedure TForm2.BitBtn3Click(Sender: TObject);

begin

form5.show;

end;

 

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

form3.show;

end;

end.

 

unit Unit3;

 

interface

 

uses

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

Dialogs, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls, Buttons;

 

type

TForm3 = class(TForm)

Table1NAIMENOVANIE: TStringField;

Table1PROIZVODSTVO: TStringField;

Table1LITSENZIA: TStringField;

Table1SOSTAV: TStringField;

Table1SROKGODNOSTI: TStringField;

Table1DATAVIROBOTKI: TStringField;

Table1VESMASSA: TStringField;

Table1PRIMESHANIE: TStringField;

 DBGrid1: TDBGrid;

   DBNavigator: TDBNavigator;

    Panel1: TPanel;

    DataSource1: TDataSource;

    Panel2: TPanel;

    Table1: TTable;

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Edit1: TEdit;

    BitBtn1: TBitBtn;

    procedure FormCreate(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure RadioButton1Click(Sender: TObject);

    private

    { private declarations }

    public

    { public declarations }

    end;

 

    var

    Form3: TForm3;

 

implementation

 

{$R *.DFM}

 

procedure TForm3.FormCreate(Sender: TObject);

begin

Table1.Open;

end;

 

procedure TForm3.Edit1Change(Sender: TObject);

begin

if Length(Edit1.Text)>0 then begin

form3.Table1.Active:=true;

form3.Table1.Filter:='NAIMENOVANIE>'''+Edit1.Text+'''';

form3.Table1.Filtered:=true; end

else form3.Table1.Filtered:=false;

end;

 

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

if Length(Edit1.Text)>0 then begin

form3.Table1.Active:=true;

form3.Table1.Filter:='NAIMENOVANIE='''+Edit1.Text+'''';

form3.Table1.Filtered:=true; end

else form3.Table1.Filtered:=false;

end;

 

 

 

procedure TForm3.RadioButton1Click(Sender: TObject);

begin

table1.IndexName:='NAIMENOVANIE';

end;

end.

 

unit Unit4;

 

interface

 

uses

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

Dialogs;

 

type

TForm4 = class(TForm)

private

{ Private declarations }

 public

 { Public declarations }

end;

 

var

Form4: TForm4;

 

implementation

 

{$R *.dfm}

end.

 

 

unit Unit5;

 

interface

 

uses

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

Dialogs, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls;

 

type

TForm5 = class(TForm)

Table1FIO: TStringField;

Table1DIAGNOZI: TStringField;

Table1OTDELENIE: TStringField;

Table1PALATA: TStringField;

Table1LEKARSTVO: TStringField;

Table1PROTSEDYRA: TStringField;

Table1ADRESS: TStringField;

Table1TELEFON: TStringField;

DBGrid1: TDBGrid;

DBNavigator: TDBNavigator;

Panel1: TPanel;

DataSource1: TDataSource;

Panel2: TPanel;

Table1: TTable;

procedure FormCreate(Sender: TObject);

private

{ private declarations }

 public

{ public declarations }

 end;

 

var

Form5: TForm5;

 

implementation

 

{$R *.DFM}

 

procedure TForm5.FormCreate(Sender: TObject);

begin

Table1.Open;

end;

end.

 

unit Unit6;

 

interface

 

uses

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

Dialogs, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls;

 

type

TForm6 = class(TForm)

Table1SPETSIALISTI: TStringField;

Table1FIO: TStringField;

Table1ADRESS: TStringField;

Table1TELEFONE: TStringField;

Table1STAJ: TStringField;

Table1OBRAZOVANIE: TStringField;

Table1ZARPLATA: TStringField;

Table1SEMEINOEPOLOJENIE: TStringField;

DBGrid1: TDBGrid;

DBNavigator: TDBNavigator;

Panel1: TPanel;

DataSource1: TDataSource;

Panel2: TPanel;

Table1: TTable;

procedure FormCreate(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

 

var

Form6: TForm6;

 

implementation

 

{$R *.DFM}

 

procedure TForm6.FormCreate(Sender: TObject);

begin

Table1.Open;

end;

end.

 

unit Unit7;

 

interface

 

uses

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

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

 

type

TForm7 = class(TForm)

 Label1: TLabel;

 Label2: TLabel;

 Label3: TLabel;

 Label4: TLabel;

 Label5: TLabel;

 Label6: TLabel;

 Label8: TLabel;

 Label10: TLabel;

 BitBtn2: TBitBtn;

 img1: TImage;

 procedure BitBtn2Click(Sender: TObject);

 private

{ Private declarations }

 public

{ Public declarations }

 end;

 

var

Form7: TForm7;

 

implementation

 

{$R *.dfm}

 

procedure TForm7.BitBtn2Click(Sender: TObject);

begin

form7.Close;

end;

end.

 

 

 

 

 

 

 


Информация о работе Шымкент қалалық жедел жәрдем көмек көрсету станциясының диспетчерлік бөлімінің бағдарламалық жабдықтамасын өңдеу