im working with delphi 4..using .dbf and .mdx files.. try to look at
this code:
procedure TTimeForm.sekTime(Sender: TObject;
regin:string;regout:string;
regin2:string;regout2:string);
var
//some var here..
begin
with dmod.ETIME do
begin
open;
// if record is existing... no insertion will be done instead it
will edit the
// remaining field of the same record...
if locate('idno;wdate',vararrayof([id,curdate.caption]),[]) then
begin
if fieldbyname('timeout').asstring='' then //time out ..1st
begin
//if timeout field is empty or null.. edit and place value
end
else if fieldbyname('timein2').asstring='' then //time in..2nd
begin
//if timein2 field is empty or null.. edit and place value
end
else if fieldbyname('timeout2').asstring='' then //time
out..2nd
begin
//if timeout2 field is empty or null.. edit and place value
end;
end;
//if record does not exist... it will insert a record.
if not locate('idno;wdate',vararrayof([id,curdate.caption]),[]) then
begin
// insert idno, date...make new record here...
end;
close;
end;
end;
----------------------------
im totally novice to delphi...for me this algo make sense. my
problem..sometimes if the record is existing already, instead of doing
some editing, it inserts new record.
can someone pls point out if what's wrong w/ my code?
tnx...
|
