delphi Incompatible types的问题
AdoTable2.FieldByName('库存数').AsInteger + StrToInt(Edit4.text);
用delphi自动生成单据号,显示在form show里面
Close;SQL.Clear;SQL.Add('select max(单据号) as ss From 单据号 ');Open;end;If data1.ADOpublic.FieldByName('ss').Value = null then s := '001'else begin m:= Trim(data1.ADOpublic.FieldByName('ss').Value) ;i:= StrToInt(copy(m,2,3)) ;if i<9 then s:= '00'+ Int...
delphi Append是什么意思?怎么用?
2.数据库操作追加一条新纪录。另二楼的代码有问题,append最后需要post才能提交。
delphi 中的DBGRID列之间自动计算如何写程序
双击DBGrid的关联数据集控件比如ADOQuery ,然后右击点【New Field...】来增加新的计算字段。记得把FieldType 设置为Calculated 。然后在ADOQuery的OnCalcFields事件里写代码:ADOQuery.FieldByName('HJ').AsFloat:= ADOQuery.FieldByName('dj').AsFloat * ADOQuery.FieldByName('sj').AsInteger 。
delphi sql 在原有数据上加上一个数
fieldbyname('数量').AsFloat:=fieldbyname('数量').AsFloat+strtofloat(trim(edit1.Text));\/\/假如数量 是float变量的话,如果数量是整型int变量的话,此句应该改为:fieldbyname('数量').Asinteger:=fieldbyname('数量').Asinteger+strtoint(trim(edit1.Text));post;showmessage('修改指定ID的数量...
delphi7.0如何使用时间函数
ADateAndTime: TDateTime;begin ADateAndTime := StrToDateTime(Edit1.Text); Table1.FieldByName('TimeStamp').AsDateTime := ADateAndTime;end;---StrToTime 将字串转为TDateTime型态的时间.---Unit SysUtils函数原型 function StrToTime(const S: string): TDateTime;范例procedure TForm1.Button1Click(Sender...