procedure TPDfrm.churukushuliangChange(Sender: TObject);
//本次数量编辑框的onChange事件代码
begin
if (churukushuliang.Text<>'') and (shuliang.Text<>'') and (rbchu.Checked :=true) then
shuliang.Text:=inttostr(strtoint(churukushuliang.Text)+strtoint(shuliang.Text)); if (shuliang.Text >churukushuliang.Text ) and (churukushuliang.Text<>' ') and (shuliang.Text<>' ') and (rbru.Checked :=true) then
shuliang.Text:=inttostr(strtoint(shuliang.Text)+strtoint(churukushuliang.Text))
else
application.MessageBox('库存量不足!','提示信息',mb_ok);
churukushuliang.SetFocus; end;我看了之前做的也是这样的用法呀
//本次数量编辑框的onChange事件代码
begin
if (churukushuliang.Text<>'') and (shuliang.Text<>'') and (rbchu.Checked :=true) then
shuliang.Text:=inttostr(strtoint(churukushuliang.Text)+strtoint(shuliang.Text)); if (shuliang.Text >churukushuliang.Text ) and (churukushuliang.Text<>' ') and (shuliang.Text<>' ') and (rbru.Checked :=true) then
shuliang.Text:=inttostr(strtoint(shuliang.Text)+strtoint(churukushuliang.Text))
else
application.MessageBox('库存量不足!','提示信息',mb_ok);
churukushuliang.SetFocus; end;我看了之前做的也是这样的用法呀
解决方案 »
- 帮忙修改该程序 实现自动删除批处理文件中的重复项中的一项
- 好久没玩D了,我想请问下这种情况下是否有线程安全的问题?
- Runtime error 216 at 0040328A
- 請教高手;新年讓我回家-----打印標籤
- 实在不知道就问
- If [You Use] (PacketRecords<>-1) And ([You Use] TSQLConnection.StartTransaction) On MSSQL ,It Will Be Error. How Can Repair It?
- 关于分发程序的一个问题(困惑中)给100
- label问题
- 请问各位大虾:哪有delphi5.0或delphi6.0可下载
- 谁知道哪一个API函数可以检测有多少台机器和我建立连接(或访问)。。好答案我将尽力加分。。。。
- 怎么让字符变量名随自身文件名而改变?
- 500分,从第二代身份证里读取的姓名怎么转也转不了繁体,很是烦啊。。
中的 (rbchu.Checked :=true) 不对
应该是if (churukushuliang.Text <>'') and (shuliang.Text <>'') and (rbchu.Checked)