storege.pas

学习程序,用于初学进销存的参考代码学习程序,用于初学进销存的参考代码

unit storege;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ToolWin, ComCtrls, Grids, DBGrids, DB, ADODB;

type
  TfrmStorege = class(TForm)
    CoolBar1: TCoolBar;
    SpeedButton36: TSpeedButton;
    SB_Save: TSpeedButton;
    SpeedButton38: TSpeedButton;
    SB_Add: TSpeedButton;
    SpeedButton40: TSpeedButton;
    SpeedButton41: TSpeedButton;
    SpeedButton42: TSpeedButton;
    SB_Refresh: TSpeedButton;
    DB_Storege: TDBGrid;
    DS_Storege: TDataSource;
    ADO_Storege: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton36Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmStorege: TfrmStorege;

implementation

uses unit_main_dm;

{$R *.dfm}

procedure TfrmStorege.FormShow(Sender: TObject);
begin
    ADO_Storege.Close;
    ADO_Storege.SQL.Clear;
    ADO_Storege.SQL.Add('exec sp_cjh_query_storege');
     ADO_Storege.Open;

    DB_Storege.Columns.Items[0].FieldName:='pruduct_des';
    DB_Storege.Columns.Items[1].FieldName:='prod_type';
    DB_Storege.Columns.Items[2].FieldName:='Storege_Qty';
    DB_Storege.Columns.Items[3].FieldName:='Unit_des';
    DB_Storege.Columns.Items[4].FieldName:='Ref_Price';
    DB_Storege.Columns.Items[5].FieldName:='total_money';
    DB_Storege.Columns.Items[6].FieldName:='stock_in_Qty';
    DB_Storege.Columns.Items[7].FieldName:='sell_Qty';
end;

procedure TfrmStorege.SpeedButton36Click(Sender: TObject);
begin
//    Main_DM.ExitActivePage;
end;

end.