Вход

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

Дипломная работа*
Код 98869
Дата создания 2011
Страниц 102
Источников 37
Файлы будут доступны для скачивания после проверки оплаты.
Мы онлайн и готовы обработать ваш заказ.
7 680руб.
КУПИТЬ

Содержание

Содержание
ВВЕДЕНИЕ
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.
41
Специалисты
Лаборатория
Зам. Главного врача по лечебной части
Хозяйственная служба
бухгалтер
Гл. бухгалтер
Администратор
Регистратура
Проект
Бухгалтерия
Зам. Гл. врача по АХЧ
Главный врач
Главная форма приложения 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
28.Амосов Н.МL Зайцев Н.Г., Мельников ВТ. и др. Медицинская информационная система/Под общ.ред. НМ-Амосова. -Киев: Наукова думка, 1971.
29.Балаян Г.Г., Жарикова Г.Г., Комков Н.И. Информационно-логические модели научных исследований. - М-: Наука, 1978. - 342 с.
30.Бедный М.С. Общественное здоровье и здравоохранение // Медико-демографические исследования: Сб-науч. работ Моск. НИИ эпидемиологии и микробиологии им. ГН.Габричевского. -М., 1982. - С. 10-17.
31.Бутко С.Н., Ольшанский В.К. Новые системы поддержки принятия решений в медицине за рубежом // Автоматика и телемеханика. - 1990. - N6. - С.3-19.
32.Венедиктов Д.Д. Актуальные вопросы медицинского науковедения и автоматизация информационных процессов // Медицинское науковедение и автоматизация информационных процессов: Тез.докл. - М., 1984. - С. 3-6.
33.Венедиктов Д.Д, Кризис и реформа здравоохранения. - М., 1995.
34.Гасников В.К. Основы научного управления и информатизации в здравоохранении / Под ред. В.Н.Савельева, В.Ф. Мартыненко: Учебное пособие - Ижевск: Издательство "Вектор", 1997. - 169 с.
35.Гаспарян С-А. Моделирование системы здравоохранения как основы построения автоматизированной системы управления // Критерии эффективности организационных структур в здравоохранении: Труды 2-го ММИ, - Вып-4. - М., 1978.-С.З-40.
36.Удалов Ф.Е. Информационные аспекты организации труда на промышленных предприятиях. Межотраслевые проблемы: Автореф. дисс...докт. техн.наук. - МL 1988. - С.16.
37.Рябова Т. Опыт реализации автоматизированной системы управления станцией скорой и неотложной помощи г. Казани Компьютерные технологии в медицине - 1997 -N2. - С.34.
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала, который не является научным трудом, не является выпускной квалификационной работой и представляет собой результат обработки, структурирования и форматирования собранной информации, но может использоваться в качестве источника для подготовки работы указанной тематики.
© Рефератбанк, 2002 - 2018