Учет пациентов в ветеринарной клинике

Содержание
Введение 3
1. Исследование и описание предметной области 4
2. ER-модель предметной области 6
3. Реляционная модель 7
4. Описание приложения 10
Заключение 17
Список литературы 18
Приложения 19
Приложение 1. Форма документа «Талон» 19
Приложение 2. Фрагменты исходного кода приложения 20

Date:=Now;DecodeDate(Now(),Y,M,D); // DateTimePickerOT.Date:=EncodeDate(Y,M,1);GetOrders(); //DatetimeDo.Date:=Now; //DateTimeOt.Date:=EncodeDate(Y,M,1);end;procedure TForm6.GetOrders();beginQtxt:='select IDpr,Data,Vrem,Prodo,Fio,Klich,IDv,IDa from Priem inner join Vrach on Priem.IDv=Vrach.IDv inner join Animal on Priem.IDa=Animal.IDa';withQueryOrd do begin SQL.Clear; SQl.Add(Qtxt); Open; end;end;procedure TForm6.ToolButton1Click(Sender: TObject);begin Form7.ShowModal;end;procedure TForm6.ToolButton7Click(Sender: TObject);begin Form1.ShowModal;end;procedure TForm6.ToolButton8Click(Sender: TObject);begin Form2.ShowModal;end;procedure TForm6.N6Click(Sender: TObject);begin Form6.Close;end;Function TForm6.MakeConv(rDat:TDateTime):string;begin Result:=FormatDateTime('dd.mm.yyyy',rDat); Result:='convert(datetime,'''+Result+''',104)';end;procedure TForm6.ToolButton2Click(Sender: TObject);begin Form1.MYDB.StartTransaction;ErrSoob:='';TryIfMessageDLG('Вы уверены, что хотите удалить талон?',mtWarning,[mbYes,mbNo],0) = mrNo then Exit;Qtxt:='delete from Priem where IDpr = '+ QueryOrd.FieldByName('IDpr').AsString;with QueryMody do begin SQL.Clear; SQL.Add(Qtxt); ExecSQL; end;GetOrders(); Form1.MYDB.Commitexcepton E: EDatabaseError do ErrSoob:= E.Message+#10#13#10#13+Qtxt;else ErrSoob:= Qtxt;end;ifErrSoob>'' thenbegin Form1.MyDB.Rollback;MessageBoxEx(Self.Handle,PCHAR('Отказприпопытке '+'удалить талон. Возможно, у Вас нет прав на '+ 'совершение этой операции. '+#10#13+#10#13+ErrSoob),'Ошибкаудаления', MB_OK or MB_ICONERROR, (SUBLANG_DEFAULT shl 10) or LANG_RUSSIAN);end;GetOrders();end;procedure TForm6.ToolButton3Click(Sender: TObject);begin Panel1.Visible:=True; Button1.Visible:=True; Edit1.Text:=QueryOrd.FieldByName('IDpr').AsString; Edit2.Text:=QueryOrd.FieldByName('Data').AsString; Edit3.Text:=QueryOrd.FieldByName('Vrem').AsString; Edit4.Text:=QueryOrd.FieldByName('IDv').AsString; Edit5.Text:=QueryOrd.FieldByName('Ida').AsString;end;procedure TForm6.Button1Click(Sender: TObject);begin Form1.MYDB.StartTransaction;ErrSoob:=''; TryQtxt:='Update Priem Set IDpr='''+edit1.text+''', Data='''+edit2.text+''', '+ 'Vrem='''+edit3.text+''', '+ 'IDv='''+edit4.text +''', IDa='''+edit5.text+''''+' whereIDpr = '+QueryOrd.FieldByName('IDpr').AsString;with QueryMody do begin SQL.Clear; SQL.Add(Qtxt); ExecSQL; end;GetOrders(); Panel1.Visible:=False; Button1.Visible:=False; Form1.MYDB.Commitexcepton E: EDatabaseError do ErrSoob:= E.Message+#10#13#10#13+Qtxt;else ErrSoob:= Qtxt;end;ifErrSoob>'' thenbegin Form1.MyDB.Rollback;MessageBoxEx(Self.Handle,PCHAR('Отказприпопытке '+'изменить ордер. Возможно, у Вас нет прав на '+ 'совершение этой операции. '+#10#13+#10#13+ErrSoob),'Ошибкаизменения', MB_OK or MB_ICONERROR, (SUBLANG_DEFAULT shl 10) or LANG_RUSSIAN);end;GetOrders(); Panel1.Visible:=False; Button1.Visible:=False;end;procedure TForm6.ToolButton4Click(Sender: TObject);beginQtxt:= 'selectIDpr,Data,Vrem,Prodo,Fio,Klich,IDv,IDa from Priem inner join Vrach on Priem.IDv=Vrach.IDv inner join Animal on Priem.IDa=Animal.IDa Where Priem.Data between '''+edit6.text+ ''' and '''+edit7.text+''' '''+ 'Order By IDpr';withQueryOrd do begin SQL.clear; sql.add(Qtxt); Open; end;end;procedure TForm6.Button2Click(Sender: TObject);beginQtxt:= 'SELECT IDpr,Data,Vrem,Prodo,Fio,Klich,IDv,IDa '+ 'FROM Priem inner join Vrach on Priem.IDv=Vrach.IDv inner join Animal on Priem.IDa=Animal.IDa '+ 'WHERE IDpr = '+IntToStr(QueryOrd['IDpr']); With QueryOtch do begin SQL.Clear; SQL.Add(Qtxt); Open; end; frReport2.Clear; With frReport2 do begin // взятьформуотчетасдискаLoadFromFile(ExtractFilePath(Application.ExeName)+'Талон.frf');// показать готовый отчетShowReport;end;end;procedure TForm6.Button3Click(Sender: TObject);beginQtxt1:= 'SELECT IDpr,Data,Vrem,Prodo,Fio,Klich,IDv,IDa '+ 'FROM Priem inner join Vrach on Priem.IDv=Vrach.IDv inner join Animal on Priem.IDa=Animal.IDa '+ 'Where Priem.Data between '''+edit8.text+ ''' and '''+edit9.text+''''; With QueryOtch do begin SQL.Clear; SQL.Add(Qtxt1); Open; end; frReport1.Clear; With frReport1 do begin // взятьформуотчетасдискаLoadFromFile(ExtractFilePath(Application.ExeName)+'Otchet.frf'); // присвоитьпеременнойотчетазначениеDictionary.Variables['DateOt']:=''''+Edit8.Text+'''';Dictionary.Variables['DateDo']:=''''+Edit9.Text+'''';// показать готовый отчетShowReport;end;end;procedure TForm6.N7Click(Sender: TObject);begin Form8.ShowModal;end;end.