進銷存管理系統銷售管理功能的實現（一）[2]

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>http://tracklinktechcn/?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 StringGridSelectCell(Sender: TObject; ACol ARow: Integer;
          var CanSelect: Boolean);
        procedure StringGridMouseDown(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X Y: Integer);
        procedure ComboBoxSelect(Sender: TObject);
        procedure StringGridDblClick(Sender: TObject);
        procedure ComboBoxDropDown(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure ButtonClick(Sender: TObject);
        procedure ButtonClick(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 ToutputFormCreate(Sender: TObject);
    var
    ijnum:integer;
    begin
    //設置stringgrid行列名稱
    stringgridCols[]Add(序號);
    stringgridColWidths[]:=;
    stringgridCols[]Add(貨號(雙擊));
    stringgridColWidths[]:=;
    stringgridCols[]Add(品名);
    stringgridColWidths[]:=;
    stringgridCols[]Add(單位);
    stringgridColWidths[]:=;
    stringgridCols[]Add(數量);
    stringgridColWidths[]:=;
    stringgridCols[]Add(倉庫);

right>[http://developcsaicn/delphi/htm>]  []  [http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24914.html