• Готовые работы
  • Дипломная работа
    • Дипломная работа
    • Доклад
    • Курсовая работа
    • Ответы на билеты
    • Реферат
    • Эссе
  • Информационные технологии

Информационная система коммерческого медицинского учреждения

Заказать уникальную дипломную работу
Тип работы: Дипломная работа
Предмет: Информационные технологии
  • 101 101 страница
  • 27 + 27 источников
  • Добавлена 04.10.2013
4 785 руб.
Скачать в 1 клик Купить работу
  • Содержание
  • Часть работы
  • Список литературы
  • Вопросы/Ответы
Содержание
ВВЕДЕНИЕ
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;
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;
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');
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;
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;
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;
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;
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;
end;
end;
end;
end;
mainclientsform.ADOTable3.Next;
end;
end;
end;
end
else showmessage('проводка накладной не требуется')
end;
end;
end;
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.











2





Специалисты

Лаборатория

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

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

бухгалтер

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

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

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

Проект

Бухгалтерия

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

Главный врач

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

childTemplate.pas

DbdDirectoryTemplate

AddSource.pas

ParamPoisk.pas

Показать больше
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

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







Вопрос-ответ:

Что включает в себя аналитическая часть информационной системы коммерческого медицинского учреждения?

Аналитическая часть информационной системы коммерческого медицинского учреждения включает в себя технико-экономическую характеристику предметной области, характеристику предприятия, краткую характеристику подразделения или видов его деятельности, обоснование необходимости и цели использования вычислительных средств для решения задач, а также постановку конкретной задачи.

Каково назначение информационной системы коммерческого медицинского учреждения?

Назначение информационной системы коммерческого медицинского учреждения - это обеспечение эффективного управления и организации работы учреждения, автоматизация процессов сбора, обработки и анализа информации, а также повышение уровня обслуживания пациентов и оптимизация бизнес-процессов.

Какую информацию предоставляет аналитическая часть информационной системы коммерческого медицинского учреждения?

Аналитическая часть информационной системы коммерческого медицинского учреждения предоставляет информацию о технико-экономических характеристиках предметной области, характеристиках предприятия, подразделении или виде его деятельности, а также обоснование необходимости использования вычислительных средств и целей решения задач. Также в аналитической части представлена постановка конкретной задачи информационной системы.

Какие преимущества в использовании информационной системы коммерческого медицинского учреждения?

Использование информационной системы коммерческого медицинского учреждения позволяет повысить эффективность управления учреждением, улучшить качество оказываемых услуг пациентам, автоматизировать процессы сбора и обработки информации, сократить время на выполнение административных задач, оптимизировать бизнес-процессы и повысить уровень прибыльности учреждения.

Что такое информационная система коммерческого медицинского учреждения?

Информационная система коммерческого медицинского учреждения - это специализированное программное обеспечение, разработанное для автоматизации работы медицинского учреждения. Она предназначена для обработки и хранения информации о пациентах, записи на прием, проведении диагностических исследований, планировании приемов врачей и других задач, связанных с работой медицинского учреждения.

Какие задачи решает информационная система коммерческого медицинского учреждения?

Информационная система коммерческого медицинского учреждения позволяет решать широкий спектр задач, связанных с организацией и управлением медицинским учреждением. Она помогает вести учет пациентов, записи на прием, проведение диагностических исследований, контроль приемов врачей, планирование работы отделений, составление отчетов и многое другое. Использование информационной системы значительно упрощает и ускоряет работу медицинского учреждения, повышает качество предоставляемых услуг и оптимизирует затраты.

Какая цель создания информационной системы коммерческого медицинского учреждения?

Цель создания информационной системы коммерческого медицинского учреждения - обеспечение эффективной организации работы и управления медицинским учреждением. Она предназначена для автоматизации и упрощения процессов, связанных с ведением учета пациентов, записью на прием, проведением и анализом диагностических исследований, контролем приемов врачей и многое другое. Использование информационной системы позволяет сократить временные и трудовые затраты медицинского персонала, повысить качество и оперативность оказания медицинских услуг.

Что такое информационная система коммерческого медицинского учреждения 1?

Информационная система коммерческого медицинского учреждения 1 - это комплекс программных и аппаратных средств, предназначенных для автоматизации и управления информационными процессами в коммерческом медицинском учреждении.

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