Вход

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

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 85873
Дата создания 2015
Страниц 44
Источников 37
Мы сможем обработать ваш заказ 29 сентября в 12:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
2 170руб.
КУПИТЬ

Содержание

ОГЛАВЛЕНИЕ
ВВЕДЕНИЕ 2
1. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ. 5
1.1 Формализация представления процесса проектирования информационной системы с помощью СУБД. 5
1.2 Методика оценки технико-экономической эффективности применения выбранной технологии, методов и средств проектирования. 8
2. Проектная часть. 13
2.1. Описание «Постановки задачи». 13
2.2. Описание компонент проектного решения 14
Физическая схема взаимодействия отдельных частей информационной системы 17
2.3. Расчет технико-экономических показателей оценки эффективности применения выбранной технологии и инструментального средства 27
ЗАКЛЮЧЕНИЕ 39
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ 41
ПРИЛОЖЕНИЯ 44

Фрагмент работы для ознакомления

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;beginend;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;interfaceuses 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;implementationuses 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;beginmon:=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;interfaceuses 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;implementationuses 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;beginMainClientsForm.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;beginMainClientsForm.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 beginsrtkl:='%'+ 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 beginsrtkl:='%'+ 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 beginsrtkl:='%'+ 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;endelseshowmessage('проводка накладной не требуется')end; end;end; end;end.unit ChildTemplate;interfaceuses 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);beginAction:=caFree;end;procedure TChildTemplateForm.RzToolbarButton1Click(Sender: TObject);begindbgrid1.DataSource.DataSet.Insert;end;procedure TChildTemplateForm.RzToolbarButton2Click(Sender: TObject);begindbgrid1.DataSource.DataSet.Edit;end;end.

Список литературы [ всего 37]

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
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 - 2022