//讀入要刪除記錄的職員的姓名和職員編號
deleteName:=edit
deleteNum:=dbgrid
//為保險起見
adocommand
where (內部編號=
adocommand
//顯示刪除成功的消息
MessageBox(
label
//刷新dbgrid的數據
adotable
adotable
end;
//
procedure Tmain
var
MaxIntNum:integer;
TotalNum:integer;
begin
adoquery
adoquery
adoquery
adoquery
//計算數據表中職員內部編號的最大值和總人數
//自動計算新插入的職員數據的內部編號
MaxIntNum:=adoquery
TotalNum:=adoquery
adoquery
adoquery
adoquery
where 職員編號=
adoquery
//判斷輸入的職員編號
if (adoquery
MessageBox(
else
begin
//不允許用戶輸入空的編號和姓名
if (edit
MessageBox(
else
begin
//打開職員基本信息表插入許可
adocommand
adocommand
//向表中插入新記錄
adocommand
right
From:http://tw.wingwit.com/Article/program/Delphi/201311/24778.html