知识大全进销存管理系统销售管理功能的实现（一）[2]

Posted 2022-07-14 知

篇首语：学习从来无捷径，循序渐进登高峰。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全进销存管理系统销售管理功能的实现（一）[2]相关的知识，希望对你有一定的参考价值。

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

Button : TButton; Edit : TEdit; Edit : TEdit; Edit : TEdit; Button : TButton; ADOQuery : TADOQuery; ADOCommand : TADOCommand; Button : TButton; procedure FormCreate(Sender: TObject); procedure StringGrid SelectCell(Sender: TObject; ACol ARow: Integer; var CanSelect: Boolean); procedure StringGrid MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X Y: Integer); procedure ComboBox Select(Sender: TObject); procedure StringGrid DblClick(Sender: TObject); procedure ComboBox DropDown(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button Click(Sender: TObject); procedure Button Click(Sender: TObject); private Private declarations // 设置选取的stringgrid单元成员的行列值为public 以供其他窗体中调用 public currentRow: integer; currentCol:integer; Public declarations end; var output: Toutput; currentRow: integer; currentCol:integer; implementation uses FormInfo FormManage; $R * dfm // 窗体创建时设置stringgrid的行列属性宽度等信息 // 同时为业务员添加数据词典 procedure Toutput FormCreate(Sender: TObject); var i j num:integer; begin // 设置stringgrid行列名称 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[ ]:= ; stringgrid Cols[ ] Add( 仓库 );

cha138/Article/program/Delphi/201311/24914

知识大全 进销存管理系统销售管理功能的实现（一）[2]

知识大全进销存管理系统销售管理功能的实现（一）[2]