strSQL := 'select max(dep_id) as a from dep_info;
with DataModuleManage do
begin
AdoQueryPub1.SQL.Clear;
AdoQueryPub1.Close;
AdoQueryPub1.SQL.Add(strSQL);
AdoQueryPub1.Open;
max_id := AdoQueryPub1.FieldByName('a').asstring;
end; if max_id = '' then
EditDepID.Text := '1';
else
next_id := strtoint(max_id) + 1;
with DataModuleManage do
begin
AdoQueryPub1.SQL.Clear;
AdoQueryPub1.Close;
AdoQueryPub1.SQL.Add(strSQL);
AdoQueryPub1.Open;
max_id := AdoQueryPub1.FieldByName('a').asstring;
end; if max_id = '' then
EditDepID.Text := '1';
else
next_id := strtoint(max_id) + 1;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货