Отбасылық дәрігерлік амбулатория жобасын құру

Автор работы: Пользователь скрыл имя, 11 Апреля 2013 в 17:18, курсовая работа

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

Модельдеу кез келген құбылыстардың, процестердің немесе обьект жүйелерінің қасиеттері мен сипаттамаларын зерттеу үшін олардың үлгісін құру және талдау, бар немесе жаңадан құрастырылған обьектілердің сипатын анықтау немесе айқындау үшін, олардың модельдерінде обьектілердің әртүрлі табиғатын зерттеу әдісі.
Бұл курстық жобаның тақырыбы: «Монте-Карло әдісін модельдеу» және де Delphi бағдарламалау ортасында «Отбасылық дәрігерлік амбулаторияда науқастың жеке картасын жүргізу және тіркеу бойынша АЖ құру».

Содержание

КІРІСПЕ................................................................................................................
1 БАҒДАРЛАМАЛАУДЫ ӨҢДЕУ ОРТАСЫН ТАҢДА...................................
1.1 Монте-Карло әдісімен модельдеу ..............................................................
1.2 Delphi бағдарламалау тілінің мүмкіндіктерін сипаттау ...........................
2 ЖОБАНЫ ӨҢДЕУДІ ЖОСПАРЛАУ БӨЛІМІ................................................
2.1 Отбасылық дәрігерлік амбулаторияны сипаттау......................................
2.2 Бағдарламалық жолмен модельді өңдеу ...................................................
3 ЖОБАНЫ ӨҢДЕУ БӨЛІМІ..............................................................................
3.1 Бағдарламаның құру кезеңдері..................................................................
3.2 Бағдарламада қолданылған компоненттерді сипаттау.............................
3.3 Қолданушы интерфейсі .............................................................................
ҚОРЫТЫНДЫ....................................................................................................
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР..

Скачать полностью (613.64 Кб) Сколько стоит заказать работу?

Прикрепленные файлы: 1 файл

Отьасылық дәрігерлік амбулатория жобасын құру.doc

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

Sheet.Cells[7,2]:='Тегі';

Sheet.Cells[7,3]:='Акесінін аты';

Sheet.Cells[7,4]:='Мекен-жайы';

Sheet.Cells[7,5]:='Телефоны';

Sheet.Cells[7,6]:='Диагнозы';

Sheet.Cells[7,7]:='Туган  жылы';

index:=8;

Data.poisk_pasient.First;

for i:=0 to Data.poisk_pasient.RecordCount-1 do

  begin

   Sheet.Cells[3,2]:=Data.poisk_pasient.Fields.Fields[1].AsString;

   Sheet.Cells[4,2]:=Data.poisk_pasient.Fields.Fields[2].AsString;

   Sheet.Cells[5,2]:=Data.poisk_pasient.Fields.Fields[3].AsString;

   Sheet.Cells[index,1]:=Data.poisk_pasient.Fields.Fields[4].AsString;

   Sheet.Cells[index,2]:= Data.poisk_pasient.Fields.Fields[5].AsString;

   Sheet.Cells[index,3]:=Data.poisk_pasient.Fields.Fields[6].AsString;

   Sheet.Cells[index,4]:=Data.poisk_pasient.Fields.Fields[7].AsString;

   Sheet.Cells[index,5]:=Data.poisk_pasient.Fields.Fields[8].AsString;

   Sheet.Cells[index,6]:= Data.poisk_pasient.Fields.Fields[9].AsString;

   Sheet.Cells[index,7]:= Data.poisk_pasient.Fields.Fields[10].AsString;

   Inc(index);

   Data.poisk_pasient.Next;

  end;

end;

 

procedure TForm2.N5Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;

Colum.Columns[1].ColumnWidth:=15;

Colum.Columns[2].ColumnWidth:=15;

Colum.Columns[3].ColumnWidth:=15;

Colum.Columns[4].ColumnWidth:=15;

Colum.Columns[5].ColumnWidth:=15;

Colum.Columns[6].ColumnWidth:=15;

Colum.Columns[7].ColumnWidth:=10; Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=12;

    Colum.Rows[7].Font.Color:=clred;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];

Sheet.Cells[1,3]:='         Кабылдау уакыттары';

Sheet.Cells[3,1]:='Аудан:';

Sheet.Cells[4,1]:='Дарігер:';

Sheet.Cells[5,1]:='Медбике:';

Sheet.Cells[7,1]:='Дуйсенбі';

Sheet.Cells[7,2]:='Сейсенбі';

Sheet.Cells[7,3]:='Сарсенбі';

 Sheet.Cells[7,4]:='Бейсенбі';

Sheet.Cells[7,5]:='Жума';

Sheet.Cells[7,6]:='Сенбі';

Sheet.Cells[7,7]:='Жексенбі';

index:=8;

Data.info_vrach.First;

for i:=0 to Data.info_vrach.RecordCount-1 do

  begin

   Sheet.Cells[3,2]:=Data.info_vrach.Fields.Fields[4].AsString;

   Sheet.Cells[4,2]:=Data.info_vrach.Fields.Fields[5].AsString;

   Sheet.Cells[5,2]:=Data.info_vrach.Fields.Fields[6].AsString;

   Sheet.Cells[index,1]:=Data.info_vrach.Fields.Fields[7].AsString;

   Sheet.Cells[index,2]:= Data.info_vrach.Fields.Fields[8].AsString;

   Sheet.Cells[index,3]:=Data.info_vrach.Fields.Fields[9].AsString;

   Sheet.Cells[index,4]:=Data.info_vrach.Fields.Fields[10].AsString;

   Sheet.Cells[index,5]:=Data.info_vrach.Fields.Fields[11].AsString;

   Sheet.Cells[index,6]:= Data.info_vrach.Fields.Fields[12].AsString;

   Sheet.Cells[index,7]:= Data.info_vrach.Fields.Fields[13].AsString;

   Inc(index);

   Data.info_vrach.Next;

  end;

end;

 

procedure TForm2.N7Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;

Colum.Columns[1].ColumnWidth:=15;

Colum.Columns[2].ColumnWidth:=15;

Colum.Columns[3].ColumnWidth:=15;

Colum.Columns[4].ColumnWidth:=15;

Colum.Columns[5].ColumnWidth:=20;

Colum.Columns[6].ColumnWidth:=15;

Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=12;

    Colum.Rows[7].Font.Color:=clred;

Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];

Sheet.Cells[1,3]:='         Жас сабилер';

Sheet.Cells[3,1]:='Аудан:';

Sheet.Cells[4,1]:='Дарігер:';

Sheet.Cells[5,1]:='Медбике:';

Sheet.Cells[7,1]:='Аты';

Sheet.Cells[7,2]:='Тегі';

Sheet.Cells[7,3]:='Акесінін  аты';

Sheet.Cells[7,4]:='Туган  жылы';

Sheet.Cells[7,5]:='Мекен-жайы';

Sheet.Cells[7,6]:='Телефоны';

index:=8;

Data.poisk_rebenok.First;

for i:=0 to Data.poisk_rebenok.RecordCount-1 do

  begin

   Sheet.Cells[3,2]:=Data.poisk_rebenok.Fields.Fields[1].AsString;

   Sheet.Cells[4,2]:=Data.poisk_rebenok.Fields.Fields[2].AsString;

   Sheet.Cells[5,2]:=Data.poisk_rebenok.Fields.Fields[3].AsString;

   Sheet.Cells[index,1]:=Data.poisk_rebenok.Fields.Fields[4].AsString;

   Sheet.Cells[index,2]:= Data.poisk_rebenok.Fields.Fields[5].AsString;

   Sheet.Cells[index,3]:=Data.poisk_rebenok.Fields.Fields[6].AsString;

   Sheet.Cells[index,4]:=Data.poisk_rebenok.Fields.Fields[8].AsString;

   Sheet.Cells[index,5]:=Data.poisk_rebenok.Fields.Fields[10].AsString;

   Sheet.Cells[index,6]:= Data.poisk_rebenok.Fields.Fields[11].AsString;

     Inc(index);

   Data.poisk_rebenok.Next;

  end;

end;

end.

 

Тізім

unit Unit3;

interface

uses

  SysUtils, Classes, ADODB, DB;

type

  TData = class(TDataModule)

    ADOConnection1: TADOConnection;

    kvartal: TADOQuery;

    kvartalSource1: TDataSource;

    info_vrachSource2: TDataSource;

    info_vrach: TADOTable;

    info_pasient: TADOTable;

    Info_pasientSource1: TDataSource;

    poisk_pasient: TADOQuery;

    poisk_pasientSource1: TDataSource;

    info_rebenok: TADOTable;

    info_rebenokSource1: TDataSource;

    poisk_rebenok: TADOQuery;

    poisk_rebenokSource1: TDataSource;

    poisk_vrach: TADOQuery;

    poisk_vrachSource1: TDataSource;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Data: TData;

implementation

{$R *.dfm}

end.

 

 

Бағдарлама  жайлы

unit Unit4;

interface

uses

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

  Dialogs, SkinEngine, jpeg, ExtCtrls, StdCtrls;

type

  TForm4 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

   Image1: TImage;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

{$R *.dfm}

end.


Информация о работе Отбасылық дәрігерлік амбулатория жобасын құру

Связанные документы

Өндірістік кәсіби аурулар

Эмбрионды көшіріп қондыру

Кеңселік жиһазды жасау цехын құру

Мердігерлік шартының жалпы сипаттамасы

Банктік менеджментті жетілдіру жолдары

Өндірістік шығындар есебін ұйымдастыру

Похожие темы

Подготовка груза к перевозке

Современные требования к менеджеру

Д. Рикардо