完整的进销存管理系统 进销存管理系统销售管理功能的实现（一）[3]

进销存管理系统销售管理功能的实现（一）[3]  

    ——此文章摘自《Delphi 数据库开发经典案例解析》定价 ￥ 　特价 ￥ 　购买>>//track linktech cn/?m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>

    stringgrid ColWidths[ ]:= ;     stringgrid Cols[ ] Add( 单价 );     stringgrid ColWidths[ ]:= ;     stringgrid Cols[ ] Add( 金额 );     stringgrid ColWidths[ ]:= ;     stringgrid Cols[ ] Add( 税率 );     stringgrid ColWidths[ ]:= ;     stringgrid Cols[ ] Add( 税额 );     stringgrid ColWidths[ ]:= ;     stringgrid Cols[ ] Add( 不含税额 );     stringgrid ColWidths[ ]:= ;           for i:= to do     begin     stringgrid Rows[i] Add(inttostr(i));     stringgrid RowHeights[i]:= ;     end;     // 设置业务员数据词典     adoquery Close;     adoquery SQL Add( select 姓名 from 用户清单 where 姓名!= sys );     adoquery Open;     bobox Clear;     while not adoquery Eof do     begin     bobox Items Add(adoquery fieldbyname( 姓名 ) AsString);     adoquery Next;     end;     end;           // 设置选取的单元行 列值     // 添加销售价 数量等信息并根据这些信息进行计算     // 将统计结果显示在窗体下方的文本框中     procedure Toutput StringGrid SelectCell(Sender: TObject; ACol     ARow: Integer; var CanSelect: Boolean);     var     price number tax sum:double;     j:integer;     begin     //读取选取的当前单元的行 列值     currentCol:=ACol;     currentRow:=ARow;     //只有当选取仓库时 动态下拉列表才显示     if (currentCol<> ) then     bobox Visible:=false;     //只有商品信息不为空时才可以输入单位和默认税率     if (currentCol= )and(stringgrid Cells[ currentRow]<> ) then     begin     adoquery Close;     adoquery SQL Clear;     adoquery SQL Add( select distinct 单位 from 商品清单 where 货号一步= +stringgrid Cells[ currentRow]+ );     adoquery Open;     stringgrid Cells[ currentRow]:=adoquery FieldByName( 单位 ) AsString;     stringgrid Cells[ currentRow]:= ;     end;

lishixinzhi/Article/program/Delphi/201311/24915