u_form_producestock_dx.~pas

这是一个啤酒行业的软件

unit U_Form_ProduceStock_DX;

interface

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

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

var
  Form_ProduceStock_DX: TForm_ProduceStock_DX;

implementation

uses U_Form_MainMenu,uGlobal,U_Form_produceStock_DX1;

{$R *.dfm}

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

procedure TForm_ProduceStock_DX.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_ProduceStock_DX.BtnFindClick(Sender: TObject);
var
   param:TStringList;
   strSql:string;

   i,j:integer;
begin
     for i:=2 to grid1.RowCount-1 do
     begin
         for j:=1 to grid1.ColCount-1 do
         begin
             grid1.cells[j,i].ForeText:='';
         end;
     end;
     grid1.RowCount:=3;
     grid1.Refresh;  
     param:=TStringList.Create;
     param.Clear;
     param.Add('0');
     
     param.Add(trim(_whichStore));
     strsql:='select OrderID,produceName,specification,unitName,BoxNum,emptyBoxNum,bottleNum  ';
     strSql:=strsql+'from  sale_storage  where  convert(real,boxNum)+convert(real,emptyboxNum)+convert(real,bottleNum)<>:s1  ';
     strSql:=strSql+' and    whichStore=:s4  order by orderID';
     _AdoNewproduce.BindToGrid_JK(grid1,strSql,param,1,7,1);
     grid1.Refresh;
end;

procedure TForm_ProduceStock_DX.Grid1DblClick(Sender: TObject);
begin
     DX_OrderID:=trim(grid1.cells[1,grid1.row].foretext);
     DX_produceName:=trim(grid1.cells[2,grid1.row].foretext);
     DX_specification:=trim(grid1.cells[3,grid1.row].foretext);
     DX_unitName:=trim(grid1.cells[4,grid1.row].foretext);
     DX_boxNum:=trim(grid1.cells[5,grid1.row].foretext);
     DX_emptyBoxNum:=trim(grid1.cells[6,grid1.row].foretext);
     DX_bottleNum:=trim(grid1.cells[7,grid1.row].foretext);
     if Form_productStock_DX1=nil then
     begin
        EnableWindow(Form_produceStock_dx.Handle,false);
        Form_productStock_DX1:=TForm_productStock_DX1.create(Application);
        Form_productStock_DX1.show;
     end
     else
     begin
        EnableWindow(Form_produceStock_dx.Handle,false);
        Form_productStock_DX1.show;
     end;
end;

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

end.