客户端用
clientdataset

clientDataSet 保存记录。

[@more@]procedure TDeptForm.Button2Click(Sender: TObject);
var
csql: string;
begin
csql:= 'insert into bas_dept (deptNo,DeptName) values ('+ QuotedStr(edit1.text)+','+ QuotedStr(edit2.text) +')';
clientDataSet1.close;
clientDataSet1.CommandText:=csql;
clientDataSet1.Execute; // 保存 新增记录。
clientDataSet1.CommandText:='select * from bas_dept';
clientdataSet1.Open;
end;