Автоматизированные системы в медицине

Дипломная Купить готовую Узнать стоимостьмоей работы

ChildTemplateForm. Label1.Caption:='Информация о специалисте: '+edit1.Text; Procedure TMainClientsForm. BuildGridDatabaseDirectoryItem (sCaption:String; ds: TDataSource); NewConnection := PromptDataSource (Handle, MainClientsForm. ADOConnection1. Connectionstring); ChildTemplateForm. Label1.Caption:='Информация о пациенте: '+edit1.Text; Id_client:=MainClientsForm.DataSource2.DataSet.FieldByName… Читать ещё >

Автоматизированные системы в медицине (реферат, курсовая, диплом, контрольная)

Содержание

1. АНАЛИТИЧЕСКАЯ ЧАСТ
- 1. 1. Технико-экономическая характеристика предметной области
  - 1. 1. 1. Характеристика предприятия
  - 1. 1. 2. Краткая характеристика подразделения или видов его деятельности
- 1. 2. Техническая и технологическая сущность задачи
- 1. 3. Обоснование необходимости и цели использования вычислительных средств для решения задачи
- 1. 4. Постановка задачи
  - 1. 4. 1. Цель создания и назначение информационной системы
  - 1. 4. 2. Общая характеристика организации решения задачи вычислительными и телекоммуникационными средствами
  - 1. 4. 3. Формализация алгоритма решения задачи
- 1. 5. Анализ существующих разработок и обоснование выбора технологии проектирования модулей (сервисов)
- 1. 6. Обоснование проектных решений по видам обеспечения
  - 1. 6. 1. по техническому обеспечению
  - 1. 6. 2. по программному обеспечению
  - 1. 6. 3. по технологическому обеспечению
2. ПРОЕКТНАЯ ЧАСТ
- 2. 1. Техническое обеспечение задачи (комплекса задач, АРМ)
  - 2. 1. 1. Модель информационных потоков в информационной системе
  - 2. 1. 2. Физическая схема взаимодействия отдельных частей информационной системы
  - 2. 1. 3. Функции и назначение отдельных аппаратных компонентов проектируемой системы
  - 2. 1. 4. Характеристика аппаратного комплекса в целом
- 2. 2. Программное обеспечение
  - 2. 2. 1. Общие положения (дерево функций и сценарий диалога)
  - 2. 2. 2. Структурная схема пакета (дерево вызова процедур и программ)
  - 2. 2. 3. Описание программных модулей
  - 2. 2. 4. Схема взаимосвязи программных модулей и информационных (конфигурационных) файлов
- 2. 3. Технологическое обеспечение задачи (комплекса задач, АРМ)
  - 2. 3. 1. Организация технологии сбора, передачи, обработки и выдачи информации
  - 2. 3. 2. Схема технологического процесса сбора, передачи, обработки и выдачи информации
3. ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТА
- 3. 1. Выбор и обоснование методики расчёта экономической эффективности
- 3. 2. Расчёт показателей экономической эффективности проекта
ЗАКЛЮЧЕНИЕ
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
ПРИЛОЖЕНИЯ
ПРИЛОЖЕНИЕ А. ЛИСТИНГ РАЗРАБОТАННОЙ ПРОГРАММЫ

dfm}

function TMainClientsForm. IsMDIChildOpen (const AFormName: TForm; const AMDIChildName: string): Boolean;

var

i: Integer;

begin

Result := False;

for i := Pred (AFormName.MDIChildCount) DownTo 0 do

if (AFormName.MDIChildren[i]. Name = AMDIChildName) then

begin

Result := True;

AFormName.MDIChildren[i]. Free;

end;

function TMainClientsForm. IsFormOpen (const FormName: string): Boolean;

var

i: Integer;

begin

Result := False;

for i := Screen. FormCount — 1 DownTo 0 do

if (Screen.Forms[i]. Name = FormName) then

begin

Result := True;

Break;

end;

procedure TMainClientsForm. BuildGridDatabaseDirectoryItem (sCaption:String; ds: TDataSource);

begin

//создаем форму

DirectoryForm:=TDBDirectoryTemplateForm.Create (Owner);

DirectoryForm.TableDBGrid.DataSource:=ds;

DirectoryForm.Top:=0;

DirectoryForm.Left:=0;

DirectoryForm.Caption:=sCaption;

end;

procedure TMainClientsForm. N12Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='поиск специалиста ';

nomer_poisk:=3;

poisk.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.Label1.Caption:='Специализация врача';

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

procedure TMainClientsForm. N6Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;

mainclientsform.ADOTable1.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('План приема', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='номер';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='дата';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ИД доктора';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='ид.кабинет';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ид.операции';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Ид. запрос';

end;

procedure TMainClientsForm. N7Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;

mainclientsform.ADOTable2.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Пациенты', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='Ид. пациента';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:=' Фамилия ';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:=' Имя ';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='Отчество';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='год';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='телефон';

DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='адрес';

DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='номер карты';

DirectoryForm.TableDBGrid.Fields[8]. DisplayLabel:='Ид. диагноз';

end;

procedure TMainClientsForm. N8Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;

mainclientsform.ADOTable3.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Мед.персонал', mainclientsform. DataSource1);

directoryForm.TableDBGrid.Fields[0]. DisplayLabel:=' ИД. ';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:=' Фамилия ';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:=' Имя';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='Отчество';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='Специализация';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Квалификация';

DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='телефон';

DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='Ид. расписания';

end;

procedure TMainClientsForm. N9Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;

mainclientsform.ADOTable4.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Запросы на мед.

обслуживание', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='Ид. ';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='Дата';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Ид. доктор';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='Ид.Пациент';

end;

procedure TMainClientsForm. RzRapidFireButton1Click (Sender: TObject);

begin

MainClientsForm.N3Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton2Click (Sender: TObject);

begin

MainClientsForm.N4Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton3Click (Sender: TObject);

begin

MainClientsForm.N15Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton4Click (Sender: TObject);

begin

MainClientsForm.N14Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton5Click (Sender: TObject);

begin

MainClientsForm.Close;

end;

procedure TMainClientsForm. N10Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;

mainclientsform.ADOTable5.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Вид обслуживания ', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ИД';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='операция';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='примечание';

end;

procedure TMainClientsForm. N20Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;

mainclientsform.ADOTable6.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('диагнозы', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ИД';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='диагноз ';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='примечание';

end;

procedure TMainClientsForm. N21Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;

mainclientsform.ADOTable7.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Кабинеты', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:=' ИД ';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:=' кабинет';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='Ассистент';

end;

procedure TMainClientsForm. N22Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

MainClientsForm.N6Click (sender);

prosmForm:=Taddform.Create (Owner);

prosmForm.Top:=230;

prosmForm.Left:=0;

prosmForm.Width:=500;

prosmForm.Height:=200;

prosmForm.Caption:='просмотр записей';

prosmForm.DBNavigator2.Visible:=true;

mainflag:=true;

prosmForm.Show;

prosmForm.Button1.Visible:=false;

prosmForm.GroupBox3.Visible:=true;

prosmForm.GroupBox1.Visible:=false;

prosmForm.GroupBox2.Visible:=false;

prosmForm.GroupBox4.Visible:=false;

prosmForm.GroupBox5.Visible:=false;

MainClientsForm.DataSource1.DataSet.last;

end;

procedure TMainClientsForm. FormCreate (Sender: TObject);

var NewConnection: Widestring;

begin

NewConnection := PromptDataSource (Handle, MainClientsForm. ADOConnection1.Connectionstring);

MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;

MainClientsForm.ADOConnection1.Connected:=true;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable2.Active:=true;

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable4.Active:=true;

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable6.Active:=true;

MainClientsForm.ADOTable7.Active:=true;

MainClientsForm.ADOTable8.Active:=true;

end;

procedure TMainClientsForm. N3Click (Sender: TObject);

var dobForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'addForm');

dobForm:=Taddform.Create (Owner);

dobForm.Top:=240;

dobForm.Left:=3;

dobForm.Caption:='добавление пациента';

dobForm.Show;

dobForm.Button1.Visible:=true;

dobForm.GroupBox1.Visible:=false;

dobForm.GroupBox3.Visible:=false;

dobForm.GroupBox4.Visible:=false;

dobForm.GroupBox5.Visible:=false;

end;

procedure TMainClientsForm. DataSource1DataChange (Sender: TObject;

Field: TField);

var family, sec_name, name1, kabinet:string;

begin

if mainflag then

begin

prosmForm.Edit5.Text:='';

prosmForm.Edit50.Text:='';

prosmForm.Edit53.Text:='';

prosmForm.Edit59.Text:='';

prosmForm.Edit55.Text:='';

prosmForm.Edit45.Text:='';

prosmForm.Edit49.Text:='';

prosmForm.Edit63.Text:='';

prosmForm.Edit31.Text:='';

prosmForm.Edit54.Text:='';

prosmForm.Edit57.Text:='';

prosmForm.Edit60.Text:='';

date_pr:=MainClientsForm.ADOTable1.FieldByName ('date').AsDateTime;

id_doctor:=MainClientsForm.ADOTable1.FieldByName ('id_doctor').AsInteger;

id_kabinet:=MainClientsForm.ADOTable1.FieldByName ('id_kabinet').AsInteger;

id_zapros:=MainClientsForm.ADOTable1.FieldByName ('id_zapros').AsInteger;

id_operation:=MainClientsForm.ADOTable1.FieldByName ('id_operation').AsInteger;

prosmForm.Edit5.Text:=datetostr (date_pr);

sql_str:='SELECT * from doctor where id_doctor= :P11' ;

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=id_doctor;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

family:=MainClientsForm.ADOQuery1.FieldByName ('family').AsString;

prosmForm.Edit50.Text:=family;

name1:=MainClientsForm.ADOQuery1.FieldByName ('name').AsString;

prosmForm.Edit53.Text:=name1;

sec_name:=MainClientsForm.ADOQuery1.FieldByName ('sec_name').AsString;

prosmForm.Edit59.Text:=sec_name;

special:=MainClientsForm.ADOQuery1.FieldByName ('special').AsString;

prosmForm.Edit49.Text:=special;

sql_str:='SELECT * from operation where id_operation= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=id_operation;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

operation:=MainClientsForm.ADOQuery1.FieldByName ('operation').AsString;

prosmForm.Edit55.Text:=operation;

sql_str:='SELECT * from kabinet where id_kabinet= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=id_kabinet;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

kabinet:=MainClientsForm.ADOQuery1.FieldByName ('kabinet').AsString;

prosmForm.Edit45.Text:=kabinet;

sql_str:='SELECT * from zapros where id_zapros= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=id_zapros;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

id_pacient:=MainClientsForm.ADOQuery1.FieldByName ('id_pacient').AsInteger;

sql_str:='SELECT * from pacient where id_pacient= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=id_pacient;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

family:=MainClientsForm.ADOQuery1.FieldByName ('family').AsString;

prosmForm.Edit63.Text:=family;

name1:=MainClientsForm.ADOQuery1.FieldByName ('name').AsString;

prosmForm.Edit31.Text:=name1;

sec_name:=MainClientsForm.ADOQuery1.FieldByName ('sec_name').AsString;

prosmForm.Edit54.Text:=sec_name;

god_rogd:=MainClientsForm.ADOQuery1.FieldByName ('god').AsInteger;

prosmForm.Edit57.Text:=inttostr (god_rogd);

nomer_kart:=MainClientsForm.ADOQuery1.FieldByName ('nomer_kart').AsString;

prosmForm.Edit60.Text:=nomer_kart;

end;

procedure TMainClientsForm. DataSource2DataChange (Sender: TObject;

Field: TField);

begin

if mainflag then

begin

prosmForm.Edit22.Text:='';

prosmForm.Edit40.Text:='';

prosmForm.Edit32.Text:='';

prosmForm.Edit34.Text:='';

familiya:=MainClientsForm.DataSource2.DataSet.FieldByName ('familiya').AsString;

prosmForm.Edit22.Text:=familiya;

imya:=MainClientsForm.DataSource2.DataSet.FieldByName ('imya').AsString;

otchestvo:=MainClientsForm.DataSource2.DataSet.FieldByName ('otchestvo').AsString;

telefon:=MainClientsForm.DataSource2.DataSet.FieldByName ('telefon').AsString;

id_client:=MainClientsForm.DataSource2.DataSet.FieldByName ('id_client').AsInteger;

sql_str:='SELECT * from dogovor where id_client= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=id_client;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

nomer:=MainClientsForm.ADOQuery1.FieldByName ('nomer').AsString;

prosmForm.Edit42.Text:=nomer;

rezd:=MainClientsForm.ADOQuery1.FieldByName ('konec').AsDateTime;

prosmForm.Edit40.Text:=datetostr (rezd);

rezd:=MainClientsForm.ADOQuery1.FieldByName ('date').AsDateTime;

prosmForm.Edit32.Text:=datetostr (rezd);

id_operaciya:= MainClientsForm. ADOQuery1.FieldByName ('id_operacyia').AsInteger;

prosmForm.Edit34.Text:=inttostr (id_operaciya);

end;

procedure TMainClientsForm. N4Click (Sender: TObject);

var zakForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'zakForm');

IsMDIChildOpen (MainClientsForm,'addForm');

zakForm:=Taddform.Create (Owner);

zakForm.Top:=240;

zakForm.Left:=3;

zakForm.Caption:='запрос на лечение (операция) ';

zakForm.Show;

zakForm.Button1.Visible:=true;

zakForm.GroupBox1.Visible:=false;

zakForm.GroupBox2.Visible:=false;

zakForm.GroupBox4.Visible:=false;

zakForm.GroupBox3.Visible:=false;

zakForm.GroupBox5.Visible:=true;

zakForm.GroupBox3.Left:=2;

zakForm.GroupBox3.Top:=2;

// show;

end;

procedure TMainClientsForm. N14Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='расписание приема ';

nomer_poisk:=1;

poisk.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

procedure TMainClientsForm. N15Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='поиск пациента ';

nomer_poisk:=2;

poisk.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.Label1.Caption:='Фамилия пациента';

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

procedure TMainClientsForm. N16Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='поиск клиента';

nomer_poisk:=3;

poisk.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

procedure TMainClientsForm. N17Click (Sender: TObject);

var poisk: Tparampoik;

begin

end;

procedure TMainClientsForm. N1Click (Sender: TObject);

var dobForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'addForm');

dobForm:=Taddform.Create (Owner);

dobForm.Top:=240;

dobForm.Left:=3;

dobForm.Caption:='Мед сотудник расписание';

dobForm.Show;

dobForm.Button1.Visible:=false;

dobForm.GroupBox1.Visible:=true;

dobForm.GroupBox3.Visible:=false;

dobForm.GroupBox2.Visible:=false;

dobForm.GroupBox4.Visible:=false;

dobForm.GroupBox5.Visible:=false;

end;

procedure TMainClientsForm. N18Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;

mainclientsform.ADOTable8.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Расписание приема ', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ИД.';

DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='пн';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='вт';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='ср ';

DirectoryForm.TableDBGrid.Fields[4]. DisplayLabel:='чт';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='пт';

DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='суб';

DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='вс';

end;

procedure TMainClientsForm. Button1Click (Sender: TObject);

begin

MainClientsForm.N22Click (sender);

end;

end.

unit addsorce;

interface

uses

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

Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,

StdCtrls, Mask, DateUtils, ExtCtrls, ComCtrls, DBCtrls, comobj;

type

TaddForm = class (TForm)

Panel1: TPanel;

GroupBox2: TGroupBox;

Button1: TButton;

Label35: TLabel;

Label30: TLabel;

Label27: TLabel;

Label23: TLabel;

Label18: TLabel;

Label15: TLabel;

Edit18: TEdit;

Edit21: TEdit;

Edit26: TEdit;

Edit37: TEdit;

Edit39: TEdit;

Label36: TLabel;

Label34: TLabel;

Edit36: TEdit;

Edit30: TEdit;

Edit33: TEdit;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label13: TLabel;

Label17: TLabel;

Label19: TLabel;

Button3: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit9: TEdit;

Edit11: TEdit;

Edit14: TEdit;

GroupBox4: TGroupBox;

Label8: TLabel;

Edit6: TEdit;

Label11: TLabel;

Edit8: TEdit;

Button4: TButton;

GroupBox5: TGroupBox;

Label31: TLabel;

Label39: TLabel;

Label44: TLabel;

Label46: TLabel;

Label47: TLabel;

Edit22: TEdit;

Edit32: TEdit;

Edit34: TEdit;

Edit40: TEdit;

Edit42: TEdit;

Edit27: TEdit;

Label29: TLabel;

Label16: TLabel;

Edit19: TEdit;

Label21: TLabel;

Edit24: TEdit;

Label25: TLabel;

Edit28: TEdit;

Label33: TLabel;

Edit38: TEdit;

Label64: TLabel;

Edit65: TEdit;

Label65: TLabel;

Edit66: TEdit;

Button6: TButton;

Label3: TLabel;

Edit3: TEdit;

GroupBox3: TGroupBox;

Label9: TLabel;

Label12: TLabel;

Label50: TLabel;

Label54: TLabel;

Label55: TLabel;

Label57: TLabel;

Label60: TLabel;

Label62: TLabel;

Edit5: TEdit;

Edit45: TEdit;

Edit49: TEdit;

Edit50: TEdit;

Edit53: TEdit;

Edit54: TEdit;

Edit55: TEdit;

DBNavigator2: TDBNavigator;

Edit31: TEdit;

Edit57: TEdit;

Edit60: TEdit;

Edit63: TEdit;

Edit59: TEdit;

procedure Button6Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

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

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

addForm: TaddForm;

naim:string;

ed_izm:string;

kolvo:integer;

cena:real;

nomerpartiya:string;

sernum:string;

srok_godnost:tdate;

postavchik:string;

description:string;

location:string;

location_part:string;

primech:string;

Ayear, amonth, aday: word;

razmer_part, kol: integer;

id_part, idaddional, idlocation, idzapas: integer;

idtov, id_proffesiya:integer;

Familiya, imya, otchestvo, pasportnomer, pasportvudan: string;

dogovor_nomer:string;

data_dog, okonch: tdatetime;

id_operac:integer;

implementation

uses MainClients;

{$R *.dfm}

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

begin

Action:=caFree;

end;

procedure TaddForm. Button1Click (Sender: TObject);

begin

Familiya:=edit18.Text;

imya:=edit21.Text;

otchestvo:=edit26.Text;

adres:=edit30.Text;

dom_tel:=edit36.Text;

god_rogd:=strtoint (edit33.Text);

id_diagnoz:=strtoint (edit37.Text);

nomer_kart:=edit39.Text;

MainClientsForm.ADOTable2.Active:=true;

MainClientsForm.ADOTable2.Insert;

MainClientsForm.ADOTable2.FieldByName ('family').AsString:=Familiya;

MainClientsForm.ADOTable2.FieldByName ('name').AsString:=imya;

MainClientsForm.ADOTable2.FieldByName ('sec_name').AsString:=otchestvo;

MainClientsForm.ADOTable2.FieldByName ('adres').AsString:=adres;

MainClientsForm.ADOTable2.FieldByName ('telefon').AsString:=dom_tel;

MainClientsForm.ADOTable2.FieldByName ('god').AsInteger:=god_rogd;

MainClientsForm.ADOTable2.FieldByName ('nomer_kart').AsString:=nomer_kart;

MainClientsForm.ADOTable2.FieldByName ('id_diagnoz').AsInteger:=id_diagnoz;

MainClientsForm.ADOTable2.Post;

end;

procedure TaddForm. Button2Click (Sender: TObject);

var metro, ud_metro:string;

etagnost:integer;

type_dom, planirovka: string;

pl_kuhnya, pl_shilaya:integer;

pl_komnat, perekrut, lift, parkovka, pol, telefon: string;

cena:integer;

begin

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable5.Insert;

MainClientsForm.ADOTable5.FieldByName ('operaciya_name').AsString:= operrac;

MainClientsForm.ADOTable5.FieldByName ('notes').AsString:=notes;

MainClientsForm.ADOTable5.Post;

id_operaciya:=MainClientsForm.ADOTable5.FieldByName ('id_operaciya').AsInteger;

MainClientsForm.ADOTable6.Active:=true;

MainClientsForm.ADOTable6.Insert;

MainClientsForm.ADOTable6.FieldByName ('document_name').AsString:= dokument;

MainClientsForm.ADOTable6.FieldByName ('document_date').AsDateTime:= data_dok;

MainClientsForm.ADOTable6.Post;

id_dokument:= MainClientsForm. ADOTable6.FieldByName ('id_dokument').AsInteger;

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable3.Insert;

MainClientsForm.ADOTable3.FieldByName ('type').AsString:= type_ob;

MainClientsForm.ADOTable3.FieldByName ('kharakteristic').AsString:= harak;

MainClientsForm.ADOTable3.FieldByName ('komnat').AsInteger:=komnat;

MainClientsForm.ADOTable3.FieldByName ('square').asfloat:=ploshad;

MainClientsForm.ADOTable3.FieldByName ('adres').AsString:=adres;

MainClientsForm.ADOTable3.FieldByName ('flor').AsString:=etag;

MainClientsForm.ADOTable3.FieldByName ('rayon').AsString:=rayon;

MainClientsForm.ADOTable3.FieldByName ('notes').AsString:=notes;

MainClientsForm.ADOTable3.FieldByName ('metro').AsString:=metro;

MainClientsForm.ADOTable3.FieldByName ('udalen').AsString:=ud_metro;

MainClientsForm.ADOTable3.FieldByName ('type_dom').AsString:=type_dom;

MainClientsForm.ADOTable3.FieldByName ('etagnost').AsInteger:=etagnost;

MainClientsForm.ADOTable3.FieldByName ('pl_shil').AsInteger:= pl_shilaya;

MainClientsForm.ADOTable3.FieldByName ('pl_kuhnya').AsInteger:=pl_kuhnya;

MainClientsForm.ADOTable3.FieldByName ('ploshad_komn').AsString:=pl_komnat;

MainClientsForm.ADOTable3.FieldByName ('perekrut').AsString:=perekrut;

MainClientsForm.ADOTable3.FieldByName ('lift').AsString:=lift;

MainClientsForm.ADOTable3.FieldByName ('parkovka').AsString:=parkovka;

MainClientsForm.ADOTable3.FieldByName ('pol').AsString:=pol;

MainClientsForm.ADOTable3.FieldByName ('telefon').AsString:=telefon;

MainClientsForm.ADOTable3.FieldByName ('cena').AsInteger:=cena;

MainClientsForm.ADOTable3.Post;

id_type:= MainClientsForm. ADOTable3.FieldByName ('id_type').AsInteger;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable1.Insert;

MainClientsForm.ADOTable1.FieldByName ('id_dokument').AsInteger:= id_dokument;

MainClientsForm.ADOTable1.FieldByName ('id_dogovor').AsInteger:= id_dogovor;

MainClientsForm.ADOTable1.FieldByName ('id_agent').AsInteger:= id_agent;

MainClientsForm.ADOTable1.FieldByName ('id_type').AsInteger:= id_type;

MainClientsForm.ADOTable1.FieldByName ('cena_expert').asfloat:=cena_ekspert;

MainClientsForm.ADOTable1.FieldByName ('cena_clint').asfloat:=cena_client;

MainClientsForm.ADOTable1.FieldByName ('status').asstring:= ' в работе';

MainClientsForm.ADOTable1.Post;

end;

procedure TaddForm. Button3Click (Sender: TObject);

var tovar, srtkl, name_poisk, sqlwhere, stroka_SQL :string;

dolgnost:string;

p1:tparameter;

begin

mon:=edit19.Text;

thu:=edit24.Text;

wen:=edit28.Text;

thit:=edit38.Text;

fr:=edit65.Text;

sat:=edit66.Text;

MainClientsForm.ADOTable8.Active:=true;

MainClientsForm.ADOTable8.Insert;

MainClientsForm.ADOTable8.FieldByName ('mon').asstring:= mon;

MainClientsForm.ADOTable8.FieldByName ('thu').asstring:= thu;

MainClientsForm.ADOTable8.FieldByName ('wen').asstring:= wen;

MainClientsForm.ADOTable8.FieldByName ('thit').asstring:= thit;

MainClientsForm.ADOTable8.FieldByName ('fr').asstring:= fr;

MainClientsForm.ADOTable8.FieldByName ('sat').asstring:= sat;

MainClientsForm.ADOTable8.Post;

id_raspis:= MainClientsForm. ADOTable8.FieldByName ('id_raspis').AsInteger;

Familiya:=edit1.Text;

imya:=edit2.Text;

otchestvo:=edit9.Text;

special:=edit11.Text;

dom_tel:=edit14.Text;

dolgnost:=edit27.Text;

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable3.Insert;

MainClientsForm.ADOTable3.FieldByName ('family').AsString:=Familiya;

MainClientsForm.ADOTable3.FieldByName ('name').AsString:=imya;

MainClientsForm.ADOTable3.FieldByName ('sec_name').AsString:=otchestvo;

MainClientsForm.ADOTable3.FieldByName ('special').AsString:=special;

MainClientsForm.ADOTable3.FieldByName ('telefon').AsString:=dom_tel;

MainClientsForm.ADOTable3.FieldByName ('kvalif').AsString:=dolgnost;

MainClientsForm.ADOTable3.FieldByName ('id_raspis').AsInteger:=id_raspis;

MainClientsForm.ADOTable3.Post;

end;

procedure TaddForm. Button4Click (Sender: TObject);

var data_sd:tdatetime;

id_object:integer;

summa:real;

avans:real;

dog1,dog2:integer;

id_operac:integer;

data_prim:tdatetime;

begin

diagnoz:=(edit6.text);

notes:=(edit8.text);

MainClientsForm.ADOTable6.Active:=true;

MainClientsForm.ADOTable6.Insert;

MainClientsForm.ADOTable6.FieldByName ('diagnoz').AsString:=diagnoz;

MainClientsForm.ADOTable6.FieldByName ('notes').AsString:=notes;

MainClientsForm.ADOTable6.Post;

end;

procedure TaddForm. Button6Click (Sender: TObject);

begin

operation:=(edit42.text);

notes:=(edit32.text);

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable5.Insert;

MainClientsForm.ADOTable5.FieldByName ('operation').AsString:=operation;

MainClientsForm.ADOTable5.FieldByName ('notes').AsString:=notes;

MainClientsForm.ADOTable5.Post;

id_operation:= MainClientsForm. ADOTable5.FieldByName ('id_operation').AsInteger;

date_pr:=strtodate (edit40.Text);

id_doctor:=strtoint (edit34.Text);

id_pacient:=strtoint (edit22.Text);

id_kabinet:=strtoint (edit3.Text);

MainClientsForm.ADOTable4.Active:=true;

MainClientsForm.ADOTable4.Insert;

MainClientsForm.ADOTable4.FieldByName ('date').AsDateTime:=date_pr;

MainClientsForm.ADOTable4.FieldByName ('id_doctor').AsInteger:=id_doctor;

MainClientsForm.ADOTable4.FieldByName ('id_pacient').AsInteger:=id_pacient;

MainClientsForm.ADOTable4.Post;

id_zapros:=MainClientsForm.ADOTable4.FieldByName ('id_zapros').AsInteger;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable1.Insert;

MainClientsForm.ADOTable1.FieldByName ('date').AsDateTime:=date_pr;

MainClientsForm.ADOTable1.FieldByName ('id_doctor').AsInteger:=id_doctor;

MainClientsForm.ADOTable1.FieldByName ('id_kabinet').AsInteger:=id_kabinet;

MainClientsForm.ADOTable1.FieldByName ('id_zapros').AsInteger:=id_zapros;

MainClientsForm.ADOTable1.FieldByName ('id_operation').AsInteger:=id_operation;

MainClientsForm.ADOTable1.Post;

end;

end.

unit parampoisk;

interface

uses

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

Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids, addsorce,

StdCtrls, Mask, DateUtils, ExtCtrls, ComCtrls ;

type

Tparampoik = class (TForm)

Button1: TButton;

GroupBox1: TGroupBox;

Label1: TLabel;

Edit1: TEdit;

Label7: TLabel;

Edit2: TEdit;

UpDown1: TUpDown;

Edit3: TEdit;

Edit4: TEdit;

UpDown2: TUpDown;

Edit5: TEdit;

UpDown3: TUpDown;

Edit6: TEdit;

UpDown4: TUpDown;

Edit7: TEdit;

Label2: TLabel;

Label3: TLabel;

procedure RzBitBtn4Click (Sender: TObject);

procedure RzBitBtn3Click (Sender: TObject);

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

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

parampoik: Tparampoik;

ChildTemplateForm1: TChildTemplateForm;

ff:string;

flagpoisk:boolean;

p1,p2:tparameter;

all:boolean;

ahour, aminute, asecond, amillisecond: word;

priznak:string;

stroka_SQL, pole, tabl, srtkl, name_poisk, sqlwhere: string;

idnakl, idzapas, i, sravn, kolnakl, kolzapas, rezerv_kol:integer;

implementation

uses mainclients;

{$R *.dfm}

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

begin

Action:=caFree;

end;

procedure Tparampoik. RzBitBtn3Click (Sender: TObject);

var ChildTemplateForm: TChildTemplateform;

all:boolean;

stroka_SQL, pole, tabl, srtkl, name_poisk, sqlwhere: string;

fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;

begin

MainClientsForm.IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'addform');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'ChildTemplateForm');

ChildTemplateForm:=TChildTemplateform.Create (Owner);

ChildTemplateForm.Left:=0;

ChildTemplateForm.Top:=3;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1;

mainclientsform.ADOQuery1.Active:=false;

mainclientsform.ADOQuery1.SQL.Clear;

P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

end;

procedure Tparampoik. RzBitBtn4Click (Sender: TObject);

begin

flagpoisk:=false;

MainClientsForm.IsMDIChildOpen (MainClientsForm,'parampoik');

end;

procedure Tparampoik. Button1Click (Sender: TObject);

var ChildTemplateForm: TChildTemplateform;

timenach, timekon: tdatetime;

begin

MainClientsForm.IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'addform');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'ChildTemplateForm');

ChildTemplateForm:=TChildTemplateform.Create (Owner);

ChildTemplateForm.Left:=0;

ChildTemplateForm.Top:=3;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2;

mainclientsform.ADOQuery2.Active:=false;

mainclientsform.ADOQuery2.SQL.Clear;

if nomer_poisk=1 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

if edit1. Text<>'' then begin

srtkl := edit1. Text;

end;

if srtkl<>'' then

begin

srtkl:='%'+ srtkl+'%';

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

end;

ChildTemplateForm.Label1.Caption:='Расписание приема: '+edit1.Text;

sqlwhere:= ' where (raspis.id_raspis = (select doctor. id_raspis from doctor where doctor. family like: P1))';

stroka_SQL:='select * from raspis'+sqlwhere ;

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

if nomer_poisk=2 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

if edit1. Text<>'' then begin

srtkl := edit1. Text;

end;

if srtkl<>'' then

begin

srtkl:='%'+ srtkl+'%';

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

end;

ChildTemplateForm.Label1.Caption:='Информация о пациенте: '+edit1.Text;

sqlwhere:= ' where pacient. family like: P1';

stroka_SQL:='select * from pacient'+sqlwhere ;

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

if nomer_poisk=3 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

if edit1. Text<>'' then begin

srtkl := edit1. Text;

end;

if srtkl<>'' then

begin

srtkl:='%'+ srtkl+'%';

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

end;

ChildTemplateForm.Label1.Caption:='Информация о специалисте: '+edit1.Text;

sqlwhere:= ' where doctor. special like: P1';

stroka_SQL:='select * from doctor'+sqlwhere ;

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

mainclientsform.ADOTable3.Next;

end;

end

else showmessage ('проводка накладной не требуется')

end;

end.

unit ChildTemplate;

interface

uses

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

Dialogs, Buttons, Grids, DBGrids, ExtCtrls, Menus, StdCtrls;

type

TChildTemplateForm = class (TForm)

DBGrid1: TDBGrid;

Label1: TLabel;

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

procedure RzToolbarButton2Click (Sender: TObject);

procedure RzToolbarButton1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

implementation

{$R *.dfm}

uses mainclients;

procedure TChildTemplateForm. FormClose (Sender: TObject;

var Action: TCloseAction);

begin

Action:=caFree;

end;

procedure TChildTemplateForm. RzToolbarButton1Click (Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Insert;

end;

procedure TChildTemplateForm. RzToolbarButton2Click (Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Edit;

end;

end.

Специалисты

Лаборатория

Зам. Главного врача по лечебной части

Хозяйственная служба

бухгалтер

Гл. бухгалтер

Администратор

Регистратура

Проект

Бухгалтерия

Зам. Гл. врача по АХЧ

Главный врач

Главная форма приложения MainClients

childTemplate.pas

DbdDirectoryTemplate

AddSource.pas

ParamPoisk.pas

Показать весь текст

Список литературы

Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.
Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.
Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.
Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.
Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. -304с.
Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. — М.: Финансы и статистика, 1995. — 240с.
Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. — 654с.
Волков В. Ф. Экономика предприятия. — М.: Вита-Пресс, 1998. — 380с.
Галатенко В. Информационная безопасность // Открытые системы- 1996. — N 1−4.
Глушаков С.В., Ломотько Д. В. Базы данных .- Х.: Фолио, 2002. — 504 с.
Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. — 450с.
Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. — 280с.
Гофман В.Э. Хомоненко А.Д. Delphi 5. — СПб.: — Санки-Петербург, 2000. -800с.
Гофман В.Э. Хомоненко А.Д. Delphi 6. — СПб.: — Санки-Петербург, 2001. -1145с.
Дайан А. и др. Маркетинг. М., Экономика, 1993.
Жидецкий В. Ц. Охрана труда пользователей компьютеров. — К.: «Освгга», 1999.- 186с.
Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.
Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.
Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. — 1111 с.
Культин Н.Б. Delphi 6: Программирование на OBJECT PASCAL. — М.: Бином, 2001. — 526 с.
Культин Н.Б. Delphi 7: Программирование на OBJECT PASCAL. — М.: Бином, 2003. — 535 с.
Магнус Я.Р., Катышев П. К., Пересецкий А. А. Эконометрика. Начальный курс. М., Дело, 1997
Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. -Харьков: Фактор, 2001. — 566с.
Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22−27. // www. ITC-UA.COM
Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. — 1128с.
Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22−27. www. ITC-UA.COM
Амосов Н. МL Зайцев Н. Г., Мельников ВТ. и др. Медицинская информационная система/Под общ.ред. НМ-Амосова. -Киев: Наукова думка, 1971.
Балаян Г. Г., Жарикова Г. Г., Комков Н. И. Информационно-логические модели научных исследований. — М-: Наука, 1978. — 342 с.
Бедный М.С. Общественное здоровье и здравоохранение // Медико-демографические исследования: Сб-науч. работ Моск. НИИ эпидемиологии и микробиологии им. ГН.Габричевского. -М., 1982. — С. 10−17.
Бутко С.Н., Ольшанский В. К. Новые системы поддержки принятия решений в медицине за рубежом // Автоматика и телемеханика. — 1990. — N6. — С.3−19.
Венедиктов Д.Д. Актуальные вопросы медицинского науковедения и автоматизация информационных процессов // Медицинское науковедение и автоматизация информационных процессов: Тез.докл. — М., 1984. — С. 3−6.
Венедиктов Д. Д, Кризис и реформа здравоохранения. — М., 1995.
Гасников В.К. Основы научного управления и информатизации в здравоохранении / Под ред. В. Н. Савельева, В. Ф. Мартыненко: Учебное пособие — Ижевск: Издательство «Вектор», 1997. — 169 с.
Гаспарян С-А. Моделирование системы здравоохранения как основы построения автоматизированной системы управления // Критерии эффективности организационных структур в здравоохранении: Труды 2-го ММИ, — Вып-4. — М., 1978.-С.З-40.
Удалов Ф.Е. Информационные аспекты организации труда на промышленных предприятиях. Межотраслевые проблемы: Автореф. дисс… докт. техн.наук. — МL 1988. — С.16.
Рябова Т. Опыт реализации автоматизированной системы управления станцией скорой и неотложной помощи г. Казани Компьютерные технологии в медицине — 1997 -N2. — С.34.

Заполнить форму текущей работой

Купить готовую работу