熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

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

2013-11-23 17:42:09  來源: Delphi編程 
    ——此文章摘自《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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.