Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута

закрепление больных за врачами-ординаторами и медицинскими сестрами.

Активизируются пакеты плановых мероприятий на рабочих местах врачей-

ординаторов (с возможностью корректировки) и медицинских сестер. Врач-

ординатор анализирует данные за прошедшие сутки и вносит необходимые

изменения в один из пакетов.

Модуль «Администратор программы «ОРИТН в порядке»»

Поскольку разграничение доступа не позволяет корректировать записи в базе

данных, появилась необходимость в разработке. Данный модуль позволяет

вносить коррективы в любой раздел БД.

При загрузке модуль проверяет наличие прав доступа и в случае наличия

полномочий загружает основное окно (рис. 1п).

Рис. 1п

В наглядном виде представляются все данные, режим редактирования

общепринятый и интуитивно понятный.

В виде закладок отображены поля БД, для осуществления операций ввода и

удаления предусмотрены кнопочки. Ввод новой записи контролируется на

уникальность.

Рис. 2п

На рис. 2п представлена одна из закладок «персонал».

Рис. 3п

Суть данного модуля заключается в оперативной корректировке данных по всей

базе ОРИТН, поскольку основной модуль исключает возможность удаления

данных.

Заключение.

Модель автоматизации деятельности отделения РИТН МГБ №1 соответствует

требованиям разработанным в ходе построения модели. Стандартизированы нами

формы отчетности приняты за основу при дальнейшей разработке региональной

базы данных по учету больных в данной области медицины. Результатом

проектирования стало написание статистической базы данных “ОРИТН в порядке”

версии 1.0 и “модуля администратора” “ОРИТН в порядке” на языке Delphi

3.0. Проделанная работа одобрена руководством отделения РИТН, в лице зав.

Отделением Челнокова С.Б.

Литература

1. С.Д. Кузнецов “Основы современных баз данных”,

http://www.citforum.ru/database/osbd/contents.shtml

2. К. Дейта, "Введение в системы баз данных", Наука, 1980.

3. "Руководство по реляционной СУБД DB2", Финансы и статистика, 1988.

4. Дж. Ульман "Основы систем баз данных", Финансы и статистика, 1983.

5. Материалы 6-й Ежегодной Конференции Разработчиков Borland.

6. Периодические издания (1998 год): Delphi Informant, Delphi Developer,

Microsoft System Journal, Dr. Dobb Journal, Компьютерр-Пресс и др.

7. WWW-серверы: Borland, Miller Friman, Turbo Power, ProtoView, Popkin

Software, InterSolv, AOL и др.

8. "Delphi Developers Guide", S.Tiexeira & X. Pacheco, SAMS Publishing /

Borland PRESS.

9. Каталоги программных продуктов "Delphi Only Tools" ZAC Catalog,

"Delphi Power Tools" Informant Communications Group.

Приложение 1

Задание

на дипломное проектирование

Студента специальности: 05.13.16 Гудониса Юрия Владимировича

Тема: Разработка программного обеспечения для автоматизации работы ОРИТН.

Целевая установка: Разработка базы данных и интерфейса программы для данных

на поступающего в отделение больного.

Исходные данные: Паспортные данные т.е. Ф.И.О., дата рождения, дата

поступления, рост, вес, диагноз при поступлении и т.д.

Начало проектирования: 01.01.98 Конец проектирования: 04.06.98

Содержание работы.

1. Исследование объекта проектирования.

2. Приведение в систему всей вводимой информации.

3. Реализация проекта:

Разработка интерфейса.

Разработка модуля администратора баз данных “ОРИТН в порядке”

4. Предварительное тестирование программы на месте.

5. Устранение ошибок и дополнение.

6. Окончательная установка программы.

Отчетный материал.

1. Пояснительная записка на листах.

2. Графики и схемы на листах.

Литература.

1. "Delphi Developers Guide", S.Tiexeira & X. Pacheco, SAMS Publishing /

Borland PRESS.

2. Дж. Ульмана "Основы систем баз данных" (Финансы и статистика, 1983).

Подписи:

Задание получил студент: Ю. В. Гудонис

Руководитель проекта: С. Б. Челноков

Зав. Кафедрой: В. А. Острейковский

Приложение 2

Исходные тексты программы

Модуль «Администратор программы «ОРИТН в порядке»»

Main.pas

unit Main;

interface

uses

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

ExtCtrls, ComCtrls, StdCtrls, Buttons, ToolWin, Grids, DBGrids, DBCtrls;

type

TFrmMain = class(TForm)

Panel1: TPanel;

ToolBar1: TToolBar;

BitBtn1: TBitBtn;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

TabSheet6: TTabSheet;

TabSheet7: TTabSheet;

TabSheet8: TTabSheet;

TabSheet9: TTabSheet;

Panel2: TPanel;

DBGrid1: TDBGrid;

PageControl2: TPageControl;

TabSheet10: TTabSheet;

TabSheet11: TTabSheet;

TabSheet12: TTabSheet;

TabSheet13: TTabSheet;

DBMemo1: TDBMemo;

DBMemo2: TDBMemo;

DBMemo3: TDBMemo;

DBMemo4: TDBMemo;

DBGrid2: TDBGrid;

Panel3: TPanel;

DBNavigator1: TDBNavigator;

Panel4: TPanel;

DBNavigator2: TDBNavigator;

Panel5: TPanel;

Panel6: TPanel;

Panel7: TPanel;

Panel8: TPanel;

Panel9: TPanel;

Panel10: TPanel;

Panel11: TPanel;

Panel12: TPanel;

EditDS: TEdit;

BitBtn2: TBitBtn;

BtnSAVE: TBitBtn;

Panel13: TPanel;

DBNavigator3: TDBNavigator;

DBGrid3: TDBGrid;

BitBtn3: TBitBtn;

Panel14: TPanel;

Panel15: TPanel;

DBNavigator4: TDBNavigator;

DBGrid4: TDBGrid;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BtnSAVEENTER: TBitBtn;

EditENTER: TEdit;

Panel16: TPanel;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BtnSAVEENTER2: TBitBtn;

EditENTER2: TEdit;

Panel17: TPanel;

DBNavigator5: TDBNavigator;

DBGrid5: TDBGrid;

Panel18: TPanel;

BitBtn8: TBitBtn;

BitBtn9: TBitBtn;

BtnSAVEPERSONAL: TBitBtn;

Panel19: TPanel;

DBNavigator6: TDBNavigator;

EditPERSONAL: TEdit;

DBGrid6: TDBGrid;

Panel20: TPanel;

BitBtn10: TBitBtn;

BitBtn11: TBitBtn;

BtnSAVEPTYPE: TBitBtn;

EditPTYPE: TEdit;

Panel21: TPanel;

DBNavigator7: TDBNavigator;

DBGrid7: TDBGrid;

Panel22: TPanel;

BitBtn12: TBitBtn;

BitBtn13: TBitBtn;

BtnSAVESTREET: TBitBtn;

EditSTREET: TEdit;

Panel23: TPanel;

DBNavigator8: TDBNavigator;

DBGrid8: TDBGrid;

Panel24: TPanel;

BitBtn14: TBitBtn;

BitBtn15: TBitBtn;

BtnSAVEVILLAGE: TBitBtn;

EditVILLAGE: TEdit;

Panel25: TPanel;

DBNavigator9: TDBNavigator;

DBGrid9: TDBGrid;

procedure EditDSChange(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BtnSAVEClick(Sender: TObject);

procedure EditDSClick(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BtnSAVEENTERClick(Sender: TObject);

procedure EditENTERChange(Sender: TObject);

procedure EditENTERClick(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BtnSAVEENTER2Click(Sender: TObject);

procedure EditENTER2Change(Sender: TObject);

procedure EditENTER2Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BtnSAVEPERSONALClick(Sender: TObject);

procedure EditPERSONALChange(Sender: TObject);

procedure EditPERSONALKeyPress(Sender: TObject; var Key: Char);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn11Click(Sender: TObject);

procedure BtnSAVEPTYPEClick(Sender: TObject);

procedure EditPTYPEChange(Sender: TObject);

procedure EditPTYPEKeyPress(Sender: TObject; var Key: Char);

procedure BitBtn12Click(Sender: TObject);

procedure BitBtn13Click(Sender: TObject);

procedure BtnSAVESTREETClick(Sender: TObject);

procedure EditSTREETChange(Sender: TObject);

procedure EditSTREETKeyPress(Sender: TObject; var Key: Char);

procedure BitBtn14Click(Sender: TObject);

procedure BitBtn15Click(Sender: TObject);

procedure BtnSAVEVILLAGEClick(Sender: TObject);

procedure EditVILLAGEChange(Sender: TObject);

procedure EditVILLAGEKeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FrmMain: TFrmMain;

implementation

uses AdminDM, DB;

{$R *.DFM}

procedure TFrmMain.EditDSChange(Sender: TObject);

begin

With DMAdmin do

begin

TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]);

if (TblDSTITLE.Value <> EditDS.Text) and

(EditDS.Text <> '')

then

BtnSAVE.Enabled := True

else

BtnSAVE.Enabled := False;

TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]);

end;

end;

procedure TFrmMain.BitBtn2Click(Sender: TObject);

begin

EditDS.Enabled := True;

EditDS.SetFocus;

end;

procedure TFrmMain.BtnSAVEClick(Sender: TObject);

begin

DMAdmin.TblDS.Insert;

DMAdmin.TblDSCODE.Value := DMAdmin.TblDS.RecordCount;

DMAdmin.TblDSTITLE.Value := EditDS.Text;

DMAdmin.TblDS.Post;

DMAdmin.TblDS.Refresh;

EditDS.Text := '';

EditDS.Enabled := False;

BtnSAVE.Enabled := False;

end;

procedure TFrmMain.EditDSClick(Sender: TObject);

begin

With DMAdmin do

begin

TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]);

if (TblDSTITLE.Value <> EditDS.Text) and

(EditDS.Text <> '')

then

BtnSAVE.Enabled := True

else

BtnSAVE.Enabled := False;

TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]);

end;

end;

procedure TFrmMain.BitBtn4Click(Sender: TObject);

begin

EditENTER.Enabled := True;

EditENTER.SetFocus;

end;

procedure TFrmMain.BitBtn3Click(Sender: TObject);

begin

EditDS.Text := '';

EditDS.Enabled := False;

BtnSAVE.Enabled := False;

end;

procedure TFrmMain.BitBtn5Click(Sender: TObject);

begin

EditENTER.Text := '';

EditENTER.Enabled := False;

BtnSAVEENTER.Enabled := False;

end;

procedure TFrmMain.BtnSAVEENTERClick(Sender: TObject);

begin

DMAdmin.TblENTERA.Insert;

DMAdmin.TblENTERACODE.Value := DMAdmin.TblENTERA.RecordCount;

DMAdmin.TblENTERATITLE.Value := EditENTER.Text;

DMAdmin.TblENTERA.Post;

DMAdmin.TblENTERA.Refresh;

EditENTER.Text := '';

EditENTER.Enabled := False;

BtnSAVEENTER.Enabled := False;

end;

procedure TFrmMain.EditENTERChange(Sender: TObject);

begin

With DMAdmin do

begin

TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]);

if (TblENTERATITLE.Value <> EditENTER.Text) and

(EditENTER.Text <> '')

then

BtnSAVEENTER.Enabled := True

else

BtnSAVEENTER.Enabled := False;

TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]);

end;

end;

procedure TFrmMain.EditENTERClick(Sender: TObject);

begin

With DMAdmin do

begin

TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]);

if (TblENTERTITLE.Value <> EditENTER.Text) and

(EditENTER.Text <> '')

then

BtnSAVEENTER.Enabled := True

else

BtnSAVEENTER.Enabled := False;

TblENTERA.Locate('TITLE', EditENTER.Text, [loPartialKey]);

end;

end;

procedure TFrmMain.BitBtn6Click(Sender: TObject);

begin

EditENTER2.Enabled := True;

EditENTER2.SetFocus;

end;

procedure TFrmMain.BitBtn7Click(Sender: TObject);

begin

EditENTER2.Text := '';

EditENTER2.Enabled := False;

BtnSAVEENTER2.Enabled := False;

end;

procedure TFrmMain.BtnSAVEENTER2Click(Sender: TObject);

begin

DMAdmin.TblENTER2A.Insert;

DMAdmin.TblENTER2ACODE.Value := DMAdmin.TblENTER2A.RecordCount;

DMAdmin.TblENTER2ATITLE.Value := EditENTER2.Text;

DMAdmin.TblENTER2A.Post;

DMAdmin.TblENTER2A.Refresh;

EditENTER2.Text := '';

EditENTER2.Enabled := False;

BtnSAVEENTER2.Enabled := False;

end;

procedure TFrmMain.EditENTER2Change(Sender: TObject);

begin

With DMAdmin do

begin

TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]);

if (TblENTER2ATITLE.Value <> EditENTER2.Text) and

(EditENTER2.Text <> '')

then

BtnSAVEENTER2.Enabled := True

else

BtnSAVEENTER2.Enabled := False;

TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]);

end;

end;

procedure TFrmMain.EditENTER2Click(Sender: TObject);

begin

With DMAdmin do

begin

TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]);

if (TblENTER2TITLE.Value <> EditENTER2.Text) and

(EditENTER2.Text <> '')

then

BtnSAVEENTER2.Enabled := True

else

BtnSAVEENTER2.Enabled := False;

TblENTER2A.Locate('TITLE', EditENTER2.Text, [loPartialKey]);

end;

end;

procedure TFrmMain.BitBtn8Click(Sender: TObject);

begin

EditPERSONAL.Enabled := True;

EditPERSONAL.SetFocus;

end;

procedure TFrmMain.BitBtn9Click(Sender: TObject);

begin

EditPERSONAL.Text := '';

EditPERSONAL.Enabled := False;

BtnSAVEPERSONAL.Enabled := False;

end;

procedure TFrmMain.BtnSAVEPERSONALClick(Sender: TObject);

begin

DMAdmin.TblPERSONAL.Insert;

DMAdmin.TblPERSONALID.Value := DMAdmin.TblPERSONAL.RecordCount + 1;

DMAdmin.TblPERSONALFIO.Value := EditPERSONAL.Text;

DMAdmin.TblPERSONAL.Post;

DMAdmin.TblPERSONAL.Refresh;

EditPERSONAL.Text := '';

EditPERSONAL.Enabled := False;

BtnSAVEPERSONAL.Enabled := False;

end;

procedure TFrmMain.EditPERSONALChange(Sender: TObject);

begin

With DMAdmin do

begin

TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]);

if (TblPERSONALFIO.Value <> EditPERSONAL.Text) and

(EditPERSONAL.Text <> '')

then

BtnSAVEPERSONAL.Enabled := True

else

BtnSAVEPERSONAL.Enabled := False;

TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]);

end;

end;

procedure TFrmMain.EditPERSONALKeyPress(Sender: TObject; var Key: Char);

begin

With DMAdmin do

begin

TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]);

if (TblPERSONALFIO.Value <> EditPERSONAL.Text) and

(EditPERSONAL.Text <> '')

then

BtnSAVEPERSONAL.Enabled := True

else

BtnSAVEPERSONAL.Enabled := False;

TblPERSONAL.Locate('FIO', EditPERSONAL.Text, [loPartialKey]);

end;

end;

procedure TFrmMain.BitBtn10Click(Sender: TObject);

begin

EditPTYPE.Enabled := True;

EditPTYPE.SetFocus;

end;

procedure TFrmMain.BitBtn11Click(Sender: TObject);

begin

EditPTYPE.Text := '';

EditPTYPE.Enabled := False;

BtnSAVEPTYPE.Enabled := False;

end;

procedure TFrmMain.BtnSAVEPTYPEClick(Sender: TObject);

begin

DMAdmin.TblPTYPE.Insert;

DMAdmin.TblPTYPECODE.Value := DMAdmin.TblPTYPE.RecordCount + 1;

DMAdmin.TblPTYPETITLE.Value := EditPTYPE.Text;

DMAdmin.TblPTYPE.Post;

DMAdmin.TblPTYPE.Refresh;

EditPTYPE.Text := '';

EditPTYPE.Enabled := False;

BtnSAVEPTYPE.Enabled := False;

end;

procedure TFrmMain.EditPTYPEChange(Sender: TObject);

begin

With DMAdmin do

begin

TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]);

if (TblPTYPETITLE.Value <> EditPTYPE.Text) and

(EditPTYPE.Text <> '')

then

BtnSAVEPTYPE.Enabled := True

else

BtnSAVEPTYPE.Enabled := False;

TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]);

end;

end;

procedure TFrmMain.EditPTYPEKeyPress(Sender: TObject; var Key: Char);

begin

With DMAdmin do

begin

TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]);

if (TblPTYPETITLE.Value <> EditPTYPE.Text) and

(EditPTYPE.Text <> '')

then

BtnSAVEPTYPE.Enabled := True

else

BtnSAVEPTYPE.Enabled := False;

TblPTYPE.Locate('TITLE', EditPTYPE.Text, [loPartialKey]);

end;

end;

procedure TFrmMain.BitBtn12Click(Sender: TObject);

begin

EditSTREET.Enabled := True;

EditSTREET.SetFocus;

end;

procedure TFrmMain.BitBtn13Click(Sender: TObject);

begin

EditSTREET.Text := '';

EditSTREET.Enabled := False;

BtnSAVESTREET.Enabled := False;

end;

procedure TFrmMain.BtnSAVESTREETClick(Sender: TObject);

begin

DMAdmin.TblSTREET.Insert;

DMAdmin.TblSTREETCODE.Value := DMAdmin.TblSTREET.RecordCount + 1;

DMAdmin.TblSTREETTITLE.Value := EditSTREET.Text;

DMAdmin.TblSTREET.Post;

DMAdmin.TblSTREET.Refresh;

EditSTREET.Text := '';

EditSTREET.Enabled := False;

BtnSAVESTREET.Enabled := False;

end;

procedure TFrmMain.EditSTREETChange(Sender: TObject);

begin

With DMAdmin do

begin

TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]);

if (TblSTREETTITLE.Value <> EditSTREET.Text) and

(EditSTREET.Text <> '')

then

BtnSAVESTREET.Enabled := True

else

BtnSAVESTREET.Enabled := False;

TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]);

end;

end;

procedure TFrmMain.EditSTREETKeyPress(Sender: TObject; var Key: Char);

begin

With DMAdmin do

begin

TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]);

if (TblSTREETTITLE.Value <> EditSTREET.Text) and

(EditSTREET.Text <> '')

then

BtnSAVESTREET.Enabled := True

else

BtnSAVESTREET.Enabled := False;

TblSTREET.Locate('TITLE', EditSTREET.Text, [loPartialKey]);

end;

end;

procedure TFrmMain.BitBtn14Click(Sender: TObject);

begin

EditVILLAGE.Enabled := True;

EditVILLAGE.SetFocus;

end;

procedure TFrmMain.BitBtn15Click(Sender: TObject);

begin

EditVILLAGE.Text := '';

EditVILLAGE.Enabled := False;

BtnSAVEVILLAGE.Enabled := False;

end;

procedure TFrmMain.BtnSAVEVILLAGEClick(Sender: TObject);

begin

DMAdmin.TblVILLAGE.Insert;

DMAdmin.TblVILLAGECODE.Value := DMAdmin.TblVILLAGE.RecordCount + 1;

DMAdmin.TblVILLAGETITLE.Value := EditVILLAGE.Text;

DMAdmin.TblVILLAGE.Post;

DMAdmin.TblVILLAGE.Refresh;

EditVILLAGE.Text := '';

EditVILLAGE.Enabled := False;

BtnSAVEVILLAGE.Enabled := False;

end;

procedure TFrmMain.EditVILLAGEChange(Sender: TObject);

begin

With DMAdmin do

begin

TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]);

if (TblVILLAGETITLE.Value <> EditVILLAGE.Text) and

(EditVILLAGE.Text <> '')

then

BtnSAVEVILLAGE.Enabled := True

else

BtnSAVEVILLAGE.Enabled := False;

TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]);

end;

end;

procedure TFrmMain.EditVILLAGEKeyPress(Sender: TObject; var Key: Char);

begin

With DMAdmin do

begin

TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]);

if (TblVILLAGETITLE.Value <> EditVILLAGE.Text) and

(EditVILLAGE.Text <> '')

then

BtnSAVEVILLAGE.Enabled := True

else

BtnSAVEVILLAGE.Enabled := False;

TblVILLAGE.Locate('TITLE', EditVILLAGE.Text, [loPartialKey]);

end;

end;

end.

AdminDM.pas

unit AdminDM;

interface

uses

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

Db, DBTables;

type

TDMAdmin = class(TDataModule)

TblDATA: TTable;

DatSrcDATA: TDataSource;

TblYEARS: TTable;

DatSrcYEARS: TDataSource;

TblDATAYEARNUM: TFloatField;

TblDATANN: TFloatField;

TblDATAHISTORYNUM: TFloatField;

TblDATAFIO: TStringField;

TblDATABORNDATE: TDateField;

TblDATABORNTIMEH: TSmallintField;

TblDATABORNTIMEM: TSmallintField;

TblDATAENTERDATE: TDateField;

TblDATAENTERTIMEH: TSmallintField;

TblDATAENTERTIMEM: TSmallintField;

TblDATASEX: TSmallintField;

TblDATABODYMASS: TFloatField;

TblDATABODYLENGHT: TFloatField;

TblDATAAPGAR: TStringField;

TblDATADN: TSmallintField;

TblDATAENTER: TFloatField;

TblDATAENTER2: TSmallintField;

TblDATAENTERDS: TMemoField;

TblDATADS: TFloatField;

TblDATADSNOTE: TMemoField;

TblDATASTATUS: TFloatField;

TblDATASTATUSDATE: TDateField;

TblDATASTATUSTIME: TStringField;

TblDATASTATUSNOTE: TMemoField;

TblDATAADDRESS: TFloatField;

TblDATAVILLAGE: TFloatField;

TblDATASTREET: TFloatField;

TblDATAHOME: TStringField;

TblDATAFLAT: TStringField;

TblDATAPHONE: TStringField;

TblDATANOTE: TMemoField;

TblDATAOPERATION: TFloatField;

TblDATAYEARs: TIntegerField;

TblDATABORNTIMEs: TStringField;

TblDATAENTERTIMEs: TStringField;

TblDATASEXs: TStringField;

TblDATADNs: TStringField;

TblENTER: TTable;

DatSrcENTER: TDataSource;

TblENTER2: TTable;

DatSrcENTER2: TDataSource;

TblDATAENTERs: TStringField;

TblDATAENTER2s: TStringField;

TblDS: TTable;

DatSrcDS: TDataSource;

TblDATADSs: TStringField;

TblDATASTATUSs: TStringField;

TblDATAADDRESSs: TStringField;

TblSTREET: TTable;

DatSrcSTREET: TDataSource;

TblVILLAGE: TTable;

DatSrcVILLAGE: TDataSource;

TblDATASTREETs: TStringField;

TblDATAVILLAGEs: TStringField;

TblDATA2: TTable;

DatSrcDATA2: TDataSource;

TblDATA2NN: TFloatField;

TblDATA2NEUROL1: TSmallintField;

TblDATA2NEUROL2: TSmallintField;

TblDATA2NEUROL3: TSmallintField;

TblDATA2NEUROL4: TSmallintField;

TblDATA2NEUROL5: TSmallintField;

TblDATA2NEUROL6: TSmallintField;

TblDATA2NEUROL7: TSmallintField;

TblDATA2NEUROL8: TSmallintField;

TblDATA2NEUROL9: TSmallintField;

TblDATA2NEUROL10: TSmallintField;

TblDATA2EXT1: TSmallintField;

TblDATA2EXT2: TSmallintField;

TblDATA2EXT3: TSmallintField;

TblDATA2EXT4: TSmallintField;

TblDATA2EXT5: TSmallintField;

TblDATA2EXT6: TSmallintField;

TblDATA2EXT7: TSmallintField;

TblDATA2EXT8: TSmallintField;

TblDATA2EXT9: TSmallintField;

TblDATA2EXT10: TSmallintField;

TblDATA2EXT11: TSmallintField;

TblDATA2NAMEs: TStringField;

TblENTERTITLE: TStringField;

TblENTERCODE: TSmallintField;

TblENTER2ENTERID: TSmallintField;

TblENTER2TITLE: TStringField;

TblENTER2CODE: TSmallintField;

TblDSTITLE: TStringField;

TblDSCODE: TFloatField;

TblSTREETTITLE: TStringField;

TblSTREETCODE: TFloatField;

TblVILLAGETITLE: TStringField;

TblVILLAGECODE: TFloatField;

TblENTER2ENTERs: TStringField;

TblENTERA: TTable;

DatSrcENTERA: TDataSource;

TblENTER2A: TTable;

DatSrcENTER2A: TDataSource;

TblENTER2AENTERID: TSmallintField;

TblENTER2ATITLE: TStringField;

TblENTER2ACODE: TSmallintField;

TblENTERATITLE: TStringField;

TblENTERACODE: TSmallintField;

TblENTER2AENTERs: TStringField;

TblPERSONAL: TTable;

DatSrcPERSONAL: TDataSource;

TblPTYPE: TTable;

DatSrcPTYPE: TDataSource;

TblPERSONALID: TSmallintField;

TblPERSONALFIO: TStringField;

TblPERSONALNAME1: TStringField;

TblPERSONALNAME2: TStringField;

TblPERSONALTYPE: TSmallintField;

TblPERSONALISACTIVE: TSmallintField;

TblPERSONALPSW: TStringField;

TblPTYPECODE: TSmallintField;

TblPTYPETITLE: TStringField;

TblPERSONALPTYPEs: TStringField;

procedure DMAdminCreate(Sender: TObject);

procedure TblDATACalcFields(DataSet: TDataSet);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DMAdmin: TDMAdmin;

implementation

{$R *.DFM}

procedure TDMAdmin.DMAdminCreate(Sender: TObject);

begin

TblDATA.Open;

TblDATA2.Open;

TblYEARS.Open;

TblENTER.Open;

TblENTER2.Open;

TblDS.Open;

TblSTREET.Open;

TblVILLAGE.Open;

TblENTERA.Open;

TblENTER2A.Open;

TblPERSONAL.Open;

TblPTYPE.Open;

end;

procedure TDMAdmin.TblDATACalcFields(DataSet: TDataSet);

begin

TblDATABORNTIMEs.Value := IntToStr(TblDATABORNTIMEH.Value) +

':' +

IntToStr(TblDATABORNTIMEM.Value);

TblDATAENTERTIMEs.Value := IntToStr(TblDATAENTERTIMEH.Value) +

':' +

IntToStr(TblDATAENTERTIMEM.Value);

Case TblDATASEX.AsInteger of

0:

TblDATASexs.Value := 'МУЖ';

1:

TblDATASexs.Value := 'ЖЕН';

else

TblDATASexs.Value := '???';

end; { Case }

Case TblDATADN.AsInteger of

0:

TblDATADNs.Value := 'ДОН';

1:

TblDATADNs.Value := 'НЕД';

else

TblDATADNs.Value := '???';

end; { Case }

Case TblDATASTATUS.AsInteger of

0:

TblDATASTATUSs.Value := 'БЕЗ ИЗМЕНЕНИЙ';

1:

TblDATASTATUSs.Value := 'ПЕРЕВЕДЕН';

2:

TblDATASTATUSs.Value := 'УМЕР';

else

TblDATASTATUSs.Value := '???';

end; { Case }

Case TblDATAADDRESS.AsInteger of

0:

TblDATAADDRESSs.Value := 'СУРГУТ';

1:

TblDATAADDRESSs.Value := 'РАЙОН';

else

TblDATAADDRESSs.Value := '???';

end; { Case }

end;

end.

-----------------------

[pic]

[pic]

Страницы: 1, 2, 3, 4, 5, 6