写DELETE或UPDATE语句,如:Update table Set FXX=VarXX Where Date=(当前记录的日期)
procedure TForm1.BitBtn1Click(Sender: TObject); begin with table1 do form2.spinedit1.text:=table1.FieldByName('工號').AsString; form2.edit1.text:=table1.FieldByName('姓名').AsString; form2.ShowModal; end; procedure TForm2.BitBtn1Click(Sender: TObject); begin table1.edit; form1.table1.FieldByName('工號').AsString:=spinedit1.text; form1.table1.FieldByName('姓名').AsString:=edit1.text; form1.table1.post; end;
procedure TForm1.BitBtn1Click(Sender: TObject); begin table1.delete; end;
procedure TForm1.BitBtn1Click(Sender: TObject); begin table1.delete; end;
是那条,不是那天,,对不起!!谢谢
begin
with table1 do
form2.spinedit1.text:=table1.FieldByName('工號').AsString;
form2.edit1.text:=table1.FieldByName('姓名').AsString;
form2.ShowModal; end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
table1.edit;
form1.table1.FieldByName('工號').AsString:=spinedit1.text;
form1.table1.FieldByName('姓名').AsString:=edit1.text;
form1.table1.post;
end;
begin
table1.delete;
end;
begin
table1.delete;
end;