小弟在做一个电脑销售的小系统,现客户要实现这样的功能:
先说明有以下表:
产品表:产品号,产品名,生产厂家,规格,价格
销售表:销售单号,产品号,数量
在TTable控件中实现,在第一列中输入产品号回车,第二,三,四,五列自动显示产品名,生产厂家,规格,价格,第六列数量获得焦点,输入数量回车,第七列自动显示金额(第五列价格*第六列的数量),光标移到下一行继续输入产品号......
先说明有以下表:
产品表:产品号,产品名,生产厂家,规格,价格
销售表:销售单号,产品号,数量
在TTable控件中实现,在第一列中输入产品号回车,第二,三,四,五列自动显示产品名,生产厂家,规格,价格,第六列数量获得焦点,输入数量回车,第七列自动显示金额(第五列价格*第六列的数量),光标移到下一行继续输入产品号......
手工编写代码;
先把table指针指到第一列中,(别说这也不会)
,然后用table['字段名]依次给2,3,4,5 列,然后6列.setfocus,
在6的keypress中判断如key=#13 then 则 strtoint(5)*strtoint(6) 给7列