Курсовые работы / ПРИС П _16

Panel1: TPanel; DBGrid1: TDBGrid BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; Label1: TLabel;

e1: TEdit; BitBtn4: TBitBtn; BitBtn5: TBitBtn; Button1: TButton; procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure Button1Click(Sender: TObject);

private

{Private declarations } public

{Public declarations } end;

varFZil: TFZil;

implementation uses datm, azil; {$R *.dfm}

procedure TFZil.BitBtn1Click(Sender: TObject);begin fazil.Caption:=bitbtn1.Caption;

tm:=1;

fazil.ShowModal;

end;procedure TFZil.BitBtn2Click(Sender: TObject); begin

if dm.z.Fields[0].AsString='' then exit; tm:=2;ind:=dm.z.RecNo; fazil.Caption:=bitbtn2.Caption; tmp:=dm.z.Fields[0].AsString; dm.temp.Active:=false;

dm.temp.CommandText:='Select log_z from zil where id_z='+tmp+''; dm.temp.Active:=true;

if dm.temp.Fields[0].AsBoolean=false then begin

fazil.e1.Text:=dm.z.fieldbyname('adr_z').AsString; fazil.e2.Text:=dm.z.fieldbyname('pl_z').AsString; fazil.e3.Text:=dm.z.fieldbyname('dom_z').AsString; fazil.e4.Text:=dm.z.fieldbyname('kv_z').AsString; dm.com.CommandText:='Update zil SET log_z=TRUE WHERE (id_z='+tmp+')'; dm.com.Execute;

fazil.ShowModal; end

else begin

ЬСШаЦОЬЬКРО('

')

end;

end;

procedure TFZil.BitBtn3Click(Sender: TObject); begin

if dm.z.Fields[0].AsString='' then exit; tmp:=dm.z.Fields[0].AsString; dm.temp.Active:=false;

dm.temp.CommandText:='Select log_z from zil where id_z='+tmp+'';

72

dm.temp.Active:=true;

if dm.temp.Fields[0].AsBoolean=false then begin

if application.MessageBox(' ?',' ',mb_yesno+mb_iconquestion)=idyes then begin

dm.com.CommandText:='DELETE * from zil WHERE (id_z='+tmp+')'; dm.com.Execute;

dm.z.Requery();

end; end

else begin

ЬСШаЦОЬЬКРО('

')

end;

end;

procedure TFZil.BitBtn4Click(Sender: TObject); begin

dm.z.Active:=false;

dm.z.CommandText:='Select id_z,adr_z,pl_z,log_z,dom_z,kv_z from zil WHERE (adr_z like "%'+e1.Text+'%") ORDER BY kv_z';dm.z.Active:=true;end;

procedure TFZil.BitBtn5Click(Sender: TObject);begin dm.z.Active:=false;

dm.z.CommandText:='Select id_z,adr_z,pl_z,log_z,dom_z,kv_z from zil WHERE (adr_z like "%'+e1.Text+'%") ORDER BYkv_z'; dm.z.Active:=true;

end;procedure TFZil.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin

dm.z.Active:=false;

e1.Clear;

end;

procedure TFZil.Button1Click(Sender: TObject); begin

dm.z.Active:=false;

dm.z.CommandText:='Select id_z,adr_z,pl_z,log_z,dom_z,kv_z from zil ORDER BY adr_z'; dm.z.Active:=true;

end;

end.

73