请高手帮忙翻译一段Delphi程序，跪谢！

来源：百度知道 编辑：UC知道 时间：2024/05/29 13:16:52
procedure Tsbrkform.Button1Click(Sender: TObject);
begin
if edit6.Text='' then
begin
showmessage('该记录不能为空');
exit;
edit6.Clear;
edit6.SetFocus ;
end;
if length(trim(edit1.Text))<>6 then
begin
showmessage('请输入6位设备编号');//判断设备编号是否为6位
edit1.Clear;
edit1.SetFocus ;
exit;
end;
with adoquery1 do
begin
close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from 设备表 where 编号=:id');
parameters.parambyname('id').Value:=edit1.text;
adoquery1.Open;
if recordcount>0 then
begin
adoquery1.Edit;
adoquery1.fieldbyname('数量').Value :=strtoint(edit3.text)+strtoint(adoquery1.FieldByName('数量').asstring);
adoquery1.FieldByName('总金额').Value:=strtoint(adoquery1.fieldbyname('单价').asstring)*strtoint(adoquery1.fieldbyname('数量').as

程序Tsbrkform.Button1Click （发件人： TObject ） ;
开始
如果edit6.Text = ''然后
开始
showmessage （ '该记录不能为空' ） ;
退出;
edit6.Clear ;
edit6.SetFocus ;
结束;
如果长度（修剪（ edit1.Text ） ） “ ” 6然后
开始
showmessage （ '请输入6位设备编号');//判断设备编号是否为6位
edit1.Clear ;
edit1.SetFocus ;
退出;
结束;
这样做与adoquery1
开始
关闭;
adoquery1.SQL.Clear ;
adoquery1.SQL.add （ '选择*从设备表在编号= ：编号' ） ;
parameters.parambyname （为' id ' ） 。值： = edit1.text ;
adoquery1.Open ;
如果recordcount “ 0然后
开始
adoquery1.Edit ;
adoquery1.fieldbyname （ '数量' ） 。值： = strtoint （ edit3.text ） + strtoint （ adoquery1.FieldByName （ '数量' ） 。 asstring ） ;
adoquery1.FieldByName （ '总金额） 。值： = strtoint （ adoquery1.fieldbyname （ '单价' ） 。 asstring ） * strtoint （ adoquery1.fieldbynam