u_form_storage_initfind.pas

来自「这是一个啤酒行业的软件」· PAS 代码 · 共 94 行

unit U_Form_Storage_InitFind;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, EasyGrid, ButtonExCtl, StdCtrls,uAdoSet,uCheckValidate,uString;

type
  TForm_Storage_InitFind = class(TForm)
    GroupBox2: TGroupBox;
    BtnExit: TButtonExCtl;
    ButtonExCtl1: TButtonExCtl;
    GroupBox1: TGroupBox;
    Grid1: TEasyGrid;
    procedure BtnExitClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure ButtonExCtl1Click(Sender: TObject);
  private
    { Private declarations }
    _AdoNewProduce:TuAdoSet;
    _Adosale:TuAdoSet;
    _Check:TCheckValidate;
    _str:TuString;
  public
    { Public declarations }
  end;

var
  Form_Storage_InitFind: TForm_Storage_InitFind;

implementation

uses U_Form_Storage_Init,uGlobal;

{$R *.dfm}

procedure TForm_Storage_InitFind.BtnExitClick(Sender: TObject);
begin
     EnableWindow(Form_Storage_Init.Handle,true);
     Close;
end;

procedure TForm_Storage_InitFind.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
     EnableWindow(Form_Storage_Init.Handle,true);
     CanClose:=true;
end;

procedure TForm_Storage_InitFind.FormCreate(Sender: TObject);
begin
    _AdoNewProduce:=TuAdoSet.Create('newProduce',1);
    _Adosale:=TuAdoSet.Create('newsale',1);
    _Check:=TCheckValidate.create;
    _str:=TuString.Create;



     with _AdoNewProduce do
     begin
         setGridTitle(grid1,1,'序号',60);
         setGridTitle(grid1,2,'产品名称',140);
         setGridTitle(grid1,3,'规格',80);
         setGridTitle(grid1,4,'单位',80);
         setGridTitle(grid1,5,'成套数',90);
         setGridTitle(grid1,6,'空箱数',80);
         setGridTitle(grid1,7,'整瓶数',100);

     end;
end;

procedure TForm_Storage_InitFind.ButtonExCtl1Click(Sender: TObject);
var
   param:TStringList;
   strSql:string;
begin
   param:=TStringList.Create;
   {/*
       显示记录
   */}
   {/*
       开始检索数据 ,fxdgdfg
   */}
   param.Clear;
   param.Add(_whichStore);
   strSql:='select  OrderID,ProduceName,specification,UnitName,boxNum,emptyboxNum,bottleNum  from  sale_Storage  Where  whichStore=:s1  order by  OrderID';
   _AdoNewproduce.BindToGrid(grid1,strsql,param);
   grid1.Refresh; 
end;

end.