J
jbas
Unregistered / Unconfirmed
GUEST, unregistred user!
function TDbM.DbAddDpInfo(var ADpInfo: TDpInfo): boolean;
var
TempDpName:string;
TempDpbh:string;
TempDpRTe:string;
TempDpPe:string;
TempDpsjName:string;
TempDpsjbh:string;
TempDpMm:string;
begin
result:=false;
with ADOQueryAddDpInfo do
begin
connection:=ADOConnwage;
if active then active:=false;
sql.Clear;
sql.Add('insert into 公司信息表(部门名称,部门编号,部门创建时间,部门电话,上级部门名称,上级部门编号,部门备注)');
sql.Add('values TempDpName,:TempDpbh,:TempDpRTe,:TempDpPe,:TempDpsjName,:TempDpsjbh,:TempDpMm)');
parameters.ParamByName('TempDpName').Value:=ADpInfo.ADpName;
parameters.ParamByName('TempDpbh').Value:=ADpInfo.ADpbh;
parameters.ParamByName('TempDpRTe').Value:=datetostr(now);
parameters.ParamByName('TempDpPe').Value:=ADpInfo.ADpPe;
parameters.ParamByName('TempDpsjName').Value:=ADpInfo.ADpsjName;
parameters.ParamByName('TempDpsjbh').Value:=ADpInfo.ADpsjbh;
parameters.ParamByName('TempDpMm').Value:=ADpInfo.ADpMm;
try
if ADOConnwage.InTransaction=false then
ADOConnwage.BeginTrans;
execsql;
result:=true;
except
adoconnwage.RollbackTrans;
result:=false;
end;
end;
end;
总提示"insert into “部门备注”这个字段找不到,可是在access xp中公司信息表中有
这个字段的,why?????????
还有我用程序确时添加进了数据,用程序可以读出来,但access中看不到那些数据。why????
var
TempDpName:string;
TempDpbh:string;
TempDpRTe:string;
TempDpPe:string;
TempDpsjName:string;
TempDpsjbh:string;
TempDpMm:string;
begin
result:=false;
with ADOQueryAddDpInfo do
begin
connection:=ADOConnwage;
if active then active:=false;
sql.Clear;
sql.Add('insert into 公司信息表(部门名称,部门编号,部门创建时间,部门电话,上级部门名称,上级部门编号,部门备注)');
sql.Add('values TempDpName,:TempDpbh,:TempDpRTe,:TempDpPe,:TempDpsjName,:TempDpsjbh,:TempDpMm)');
parameters.ParamByName('TempDpName').Value:=ADpInfo.ADpName;
parameters.ParamByName('TempDpbh').Value:=ADpInfo.ADpbh;
parameters.ParamByName('TempDpRTe').Value:=datetostr(now);
parameters.ParamByName('TempDpPe').Value:=ADpInfo.ADpPe;
parameters.ParamByName('TempDpsjName').Value:=ADpInfo.ADpsjName;
parameters.ParamByName('TempDpsjbh').Value:=ADpInfo.ADpsjbh;
parameters.ParamByName('TempDpMm').Value:=ADpInfo.ADpMm;
try
if ADOConnwage.InTransaction=false then
ADOConnwage.BeginTrans;
execsql;
result:=true;
except
adoconnwage.RollbackTrans;
result:=false;
end;
end;
end;
总提示"insert into “部门备注”这个字段找不到,可是在access xp中公司信息表中有
这个字段的,why?????????
还有我用程序确时添加进了数据,用程序可以读出来,但access中看不到那些数据。why????