oint(sledit.text)*price;
close;
sql.Clear;
sql.Add(''update kcb set 数量=:sl,总金额=:je where 编号=:bh'');
Parameters.ParamByName(''bh'').Value:=trim(clbhedit.Text);
Parameters.ParamByName(''sl'').Value:=sl;
Parameters.ParamByName(''je'').Value:=je;
execsql;
end
else
begin
with adoquery do
begin
close;
sql.Clear;
str:=''insert into kcb (名称,编号,品类,数量,单位,总金额,货位)'';
str:=str+'' values(:mc,:bh,:pl,:sl,:dw,:zje,:hw)'';
sql.Add(str);
Parameters.ParamByName(''mc'').Value:=trim(clmcbox.Text);
Parameters.ParamByName(''bh'').Value:=trim(clbhedit.Text);
Parameters.ParamByName(''pl'').Value:=trim(clplbox.Text);
Parameters.ParamByName(''sl'').Value:=trim(sledit.Text);
Parameters.ParamByName(''dw'').Value:=trim(dwbox.Text);
Parameters.ParamByName(''zje'').Value:=trim(zjeedit.Text);
Parameters.ParamByName(''hw'').Value:=trim(hwedit.Text);
execsql;
end;
end;
showmessage(''入库成功!'');
end;
except
showmessage(''入库失败!'');
end;
clbhedit.Clear;
clplbox.Clear;
sledit.Clear;
zjeedit.Clear;
jhdwbox.Clear;
hwedit.Clear;
djbhedit.Clear;
end;
procedure Tinfm.clmcboxChange(Sender: TObject);
begin
jhdwbox.Clear;
with adoquery do
begin
close;
sql.Clear;
sql.Add(''select * from bhb where 名称=:mc'');
Parameters.ParamByName(''mc'').Value:=trim(clmcbox.Text);
open;
clbhedit.Text:=fieldbyname(''编号'').AsString;
clplbox.Text:=fieldbyname(''品类'').AsString;
price:=fieldbyname(''单位价格'').AsInteger;
hwedit.Text:=fieldbyname(''货位'').AsString;
end;
with adoquery do
begin
close;
sql.Clear;
sql.Add(''select * from ghdwb where 供货品类=:pl'');
Parameters.ParamByName(''pl'').Value:=trim(clplbox.Text);
open;
first;
while not eof do
begin
jhdwbox.Items.Add(fieldbyname(''供货商'').AsString);
next;
end;
end;
end;
procedure Tinfm.dwboxChange(Sender: TObject);
begin
if sledit.Text='''' then
begin
showmessage(''请输入数量!'');
exit;
end;
zjeedit.Text:=inttostr(price*strtoint(sledit.Text));
end;
procedure Tinfm.SpeedButton2Click(Sender: TObject);
begin
clbhedit.Clear;
clplbox.Clear;
sledit.Clear;
zjeedit.Clear;
jhdwbox.Clear;
hwedit.Clear;
djbhedit.Clear;
end;
procedure Tinfm.SpeedButton4Click(Sender: TObject);
begin
print;
end;
procedure Tinfm.jyyboxKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
SpeedButton1.Click;
end;
procedure Tinfm.djbheditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
SpeedButton1.Click;
end;
参 考 文 献
[1] 邵洋、谷宇、何旭洪编著.Bland Delphi 7.0数据库系统开发实例导航(第二版)人民邮电出版社
[2] 卢湘鸿主编.Bland Delphi7.0 数据库与程序设计 电子工业出版社,2002年11月
[3] 郭赢发,张红娟,赵伟华《Delphi7.0 及其程序设计》 ,西安电子科技大学出版社 , 2001
上一篇:
基于Delphi学生成绩管理系统
下一篇:
临床前药物安全性评价中毒性病理学新技术的应用