|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> stringgridColWidths[]:=; stringgridCols[]Add(单价); stringgridColWidths[]:=; stringgridCols[]Add(金额); stringgridColWidths[]:=; stringgridCols[]Add(税率); stringgridColWidths[]:=; stringgridCols[]Add(税额); stringgridColWidths[]:=; stringgridCols[]Add(不含税额); stringgridColWidths[]:=; for i:= to do begin stringgridRows[i]Add(inttostr(i)); stringgridRowHeights[i]:=; end; //设置业务员数据词典 adoqueryClose; adoquerySQLAdd(select 姓名 from 用户清单 where 姓名!=sys); adoqueryOpen; comboboxClear; while not adoqueryEof do begin comboboxItemsAdd(adoqueryfieldbyname(姓名)AsString); adoqueryNext; end; end; //设置选取的单元行列值 //添加销售价数量等信息并根据这些信息进行计算 //将统计结果显示在窗体下方的文本框中 procedure ToutputStringGridSelectCell(Sender: TObject; ACol ARow: Integer; var CanSelect: Boolean); var pricenumbertaxsum:double; j:integer; begin //读取选取的当前单元的行列值 currentCol:=ACol; currentRow:=ARow; //只有当选取仓库时动态下拉列表才显示 if (currentCol<>) then comboboxVisible:=false; //只有商品信息不为空时才可以输入单位和默认税率 if (currentCol=)and(stringgridCells[currentRow]<>) then begin adoqueryClose; adoquerySQLClear; adoquerySQLAdd(select distinct 单位 from 商品清单 where 货号一步 =+stringgridCells[currentRow]+); adoqueryOpen; stringgridCells[currentRow]:=adoqueryFieldByName(单位)AsString; stringgridCells[currentRow]:=; end; right>[http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [] [http://developcsaicn/delphi/htm>] |
