pfm_statics.pas

来自「超市的销售」· PAS 代码 · 共 98 行

unit pfm_statics;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, DBTables, ComCtrls, StdCtrls, Buttons;

type
  Tfm_statwizard = class(TForm)
    StoredProc1: TStoredProc;
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox3: TComboBox;
    Label3: TLabel;
    ComboBox4: TComboBox;
    Label4: TLabel;
    BBtn_OK: TBitBtn;
    Table1: TTable;
    ComboBox2: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure BBtn_OKClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_statwizard: Tfm_statwizard;

implementation

{$R *.DFM}

procedure Tfm_statwizard.FormCreate(Sender: TObject);
var
i:integer;
begin
    table1.open;
    for i:=0 to table1.Fields.Count-1 do
    begin
        combobox1.items.Add(table1.fields[i].FieldName);
        combobox2.items.Add(table1.fields[i].FieldName);
        combobox3.items.Add(table1.fields[i].FieldName);
    end;
   // table1.close;
    combobox4.items.Add('数量');
    combobox4.items.Add('个数');



{
       storedproc1.ParamByName('@chrRowHead').asstring:='stor_id';
        storedproc1.ParamByName('@chrColHead').asstring:='ord_date';
        storedproc1.ParamByName('@chrValue').asstring:='qty';
        storedproc1.ParamByName('@chrSource').asstring:='sales';
        storedproc1.ParamByName('@inyType').asinteger:=1;
        storedproc1.ParamByName('@inyGrouping').asinteger:=5;
        storedproc1.open;
        }

end;

procedure Tfm_statwizard.BBtn_OKClick(Sender: TObject);
begin
    storedproc1.close;
    storedproc1.ParamByName('@chrRowHead').asstring:=combobox1.text;
    storedproc1.ParamByName('@chrColHead').asstring:=combobox2.text;
    storedproc1.ParamByName('@chrValue').asstring:=combobox3.text;
    storedproc1.ParamByName('@chrSource').asstring:='t_spxx';
    if combobox4.text='数量' then
    begin
        storedproc1.ParamByName('@inyType').asinteger:=1;
    end
    else
    begin
        storedproc1.ParamByName('@inyType').asinteger:=5;
    end;
    storedproc1.ParamByName('@inyGrouping').asinteger:=0;
    storedproc1.open;

end;

procedure Tfm_statwizard.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
        action:=caFree;
end;

end.