Курсовые работы / ПРИС П _18
.pdfend; |
public |
result:=copy(path,length(path)-i+3,i); |
{ Public declarations } |
end; |
end; |
end. |
var |
unit Vrach; |
FVrach: TFVrach; |
interface |
implementation |
|
uses datm, aDiagnoz, aVrach, main; |
uses |
{$R *.dfm} |
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, |
|
Forms, |
|
|
procedure TFVrach.N1Click(Sender: TObject); |
Dialogs, Menus, Grids, DBGrids, StdCtrls, ExtCtrls,ueasypath; |
|
|
begin |
|
favrach.Caption:=Caption+' :: '+n1.Caption; |
type |
|
|
tm:=0; |
TFVrach = class(TForm) |
|
|
if |
Panel1: TPanel; |
fileexists(ExtractFilePath(Application.ExeName)+'Data\Фото\inkognito.j |
|
pg')=false then |
Label1: TLabel; |
|
|
begin |
e1: TEdit; |
|
|
showmessage('Отсутствует стандартное фото'); |
DBGrid1: TDBGrid; |
|
|
exit; |
PopupMenu1: TPopupMenu; |
|
|
end |
N1: TMenuItem; |
|
|
else |
N2: TMenuItem; |
|
|
begin |
N3: TMenuItem; |
|
Label2: TLabel; |
foto:=NameFile(ExtractFilePath(Application.ExeName)+'Data\Фото\ink |
|
ognito.jpg',true); |
Button1: TButton; |
|
Button2: TButton; |
favrach.Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeN |
|
ame)+'Data\Фото\inkognito.jpg'); |
procedure N1Click(Sender: TObject); |
|
|
favrach.ShowModal; |
procedure N2Click(Sender: TObject); |
|
|
end; |
procedure N3Click(Sender: TObject); |
|
|
end; |
procedure e1Change(Sender: TObject); |
|
|
procedure TFVrach.N2Click(Sender: TObject); |
procedure Button1Click(Sender: TObject); |
|
|
begin |
procedure Button2Click(Sender: TObject); |
|
|
if dm.vr.Fields[0].AsString='' then |
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
|
|
begin |
private |
|
|
showmessage('Запись для редактирования отсутствует'); |
{ Private declarations } |
|
72
exit;
end; tmp:=dm.vr.Fieldbyname('id_vr').AsString;tm:=1; ind:=dm.vr.RecNo; //******************************
if fmain.Update('vr','vrach')=false then begin
showmessage('Данная запись используется другим пользователем'); exit;
end; favrach.e1.Text:=dm.vr.fieldbyname('fio_vr').AsString; favrach.se1.Text:=dm.vr.fieldbyname('kat_vr').AsString; favrach.dtp1.Date:=dm.vr.fieldbyname('dr_vr').AsDateTime;
foto:=ExtractFilePath(Application.ExeName)+'Data\Фото\'+dm.vr.fieldb yname('photo_vr').AsString;
if fileexists(foto)=false then begin
showmessage('Отсутствует фото'); exit;
end
else favrach.Image1.Picture.LoadFromFile(foto);
foto:=namefile(ExtractFilePath(Application.ExeName)+'Data\Фото\'+dm
.vr.fieldbyname('photo_vr').AsString,true);
favrach.Caption:=n2.Caption;
favrach.ShowModal;
end;
procedure TFVrach.N3Click(Sender: TObject); begin
if dm.vr.Fields[0].AsString='' then
begin
showmessage('Запись для редактирования отсутствует');
exit;
end;
tmp:=dm.vr.Fields[0].AsString;tm:=1;
if fmain.Delete('vr','vrach',tmp)=false then
begin
showmessage('Данная запись используется другим пользователем');
exit;
end
else dm.vr.Requery();
end;
procedure TFVrach.e1Change(Sender: TObject);
begin
dm.vr.Active:=false;
dm.vr.CommandText:='Select * from vrach WHERE (fio_vr like "%'+e1.Text+'%")';
dm.vr.Active:=true;
end;
procedure TFVrach.Button1Click(Sender: TObject);
begin
dm.vr.Active:=false;
dm.vr.CommandText:='Select * from vrach WHERE (fio_vr like "%'+e1.Text+'%") ORDER BY dr_vr';
dm.vr.Active:=true;
end;
procedure TFVrach.Button2Click(Sender: TObject);
begin
dm.vr.Active:=false;
dm.vr.CommandText:='Select * from vrach WHERE (fio_vr like "%'+e1.Text+'%") ORDER BY kat_vr';
dm.vr.Active:=true;
end;
procedure TFVrach.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
e1.Clear;
dm.vr.Active:=false;
end;
end.
73