u_form_storage_init.~pas

这是一个啤酒行业的软件

unit U_Form_Storage_Init;

interface

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

type
  TForm_Storage_Init = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    BtnSave: TButtonExCtl;
    BtnExit: TButtonExCtl;
    BtnFind: TButtonExCtl;
    ButtonExCtl1: TButtonExCtl;
    Grid1: TEasyGrid;
    procedure BtnExitClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure BtnFindClick(Sender: TObject);
    procedure Grid1InsertRow(Sender: TObject; InsertRect: TRect);
    procedure Grid1DeleteRow(Sender: TObject; DeleteRect: TRect);
    procedure Grid1KeyPress(Sender: TObject; var Key: Char);
    procedure BtnSaveClick(Sender: TObject);
    procedure ButtonExCtl1Click(Sender: TObject);
  private
    { Private declarations }
    _AdoNewProduce:TuAdoSet;
    _Adosale:TuAdoSet;
    _Check:TCheckValidate;
    _str:TuString;
  public
    { Public declarations }
  end;

var
  Form_Storage_Init: TForm_Storage_Init;

implementation

uses U_Form_MainMenu,uGlobal,U_Form_Storage_InitFind;

{$R *.dfm}

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

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

procedure TForm_Storage_Init.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);
         setGridTitle(grid1,8,'酒库名称',80);
     end;
end;

procedure TForm_Storage_Init.BtnFindClick(Sender: TObject);
var
   param:TStringList;
   strsql:string;
   i:integer;
begin
   param:=TStringList.Create;
   param.clear;
   {/*
       开始检索数据 ,fxdgdfg
   */}
   param.Add(_whichStore);
   strSql:='select  OrderID,ProduceName,specification,UnitName  from  sale_Storage  Where  whichStore=:s1  order by  OrderID';
   _AdoNewproduce.BindToGrid(grid1,strsql,param);
   grid1.Colcount:=9;
   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);
         setGridTitle(grid1,8,'酒库名称',80);
   end;
   for i:=2 to grid1.RowCount-2 do
   begin
       grid1.cells[8,i].ForeText:=trim(_whichStore);
   end;
   grid1.Refresh;
end;

procedure TForm_Storage_Init.Grid1InsertRow(Sender: TObject;
  InsertRect: TRect);
var
   i:integer;
begin
   for i:=grid1.row to grid1.RowCount-1 do
   begin
       grid1.Cells[1,i].ForeText:=inttostr(i-1);
   end;
end;

procedure TForm_Storage_Init.Grid1DeleteRow(Sender: TObject;
  DeleteRect: TRect);
var
   i:integer;
begin
   for i:=grid1.row+1 to grid1.RowCount do
   begin
       grid1.Cells[1,i-1].ForeText:=inttostr(i-2);
   end;
end;

procedure TForm_Storage_Init.Grid1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     begin
        if grid1.row<grid1.RowCount-2 then
        begin
           grid1.row:=grid1.row+1;
           
        end;
     end;
end;

procedure TForm_Storage_Init.BtnSaveClick(Sender: TObject);
var
   param:TStringList;
   strSql:string;
   i:integer;
begin
   param:=TStringList.Create;
   {/*
       首先删除一线酒库的库存记录
   */}
   param.Clear;
   param.Add(trim(_whichStore));
   strSql:='delete  from  sale_Storage where  whichstore=:s1';
   _AdoNewproduce.actionRecord(strsql,param);
   {/*
       进行存盘操作
   */}
   if messageDLG('确定是否存盘,如果选择Yes，那么库存数据将全部清除，然后存储为新输入的数据?',mtconfirmation,[mbyes,mbno],0)=mryes then
   begin
     for i:=2 to grid1.RowCount-2 do
     begin
       param.clear;
       param.Add(trim(grid1.cells[1,i].foretext));
       param.Add(trim(grid1.cells[2,i].foretext));
       param.Add(trim(grid1.cells[3,i].foretext));
       param.Add(trim(grid1.cells[4,i].foretext));
       if grid1.cells[5,i].foretext<>'' then
       begin
          param.Add(trim(grid1.cells[5,i].foretext));
       end
       else
       begin
          param.Add('0');
       end;

       if grid1.cells[6,i].foretext<>'' then
       begin
          param.Add(trim(grid1.cells[6,i].foretext));
       end
       else
       begin
          param.Add('0');
       end;

       if grid1.cells[7,i].foretext<>'' then
       begin
          param.Add(trim(grid1.cells[7,i].foretext));
       end
       else
       begin
          param.Add('0');
       end;

       if grid1.cells[8,i].foretext<>'' then
       begin
          param.Add(trim(grid1.cells[8,i].foretext));
       end
       else
       begin
          param.Add('0');
       end;
       strSql:='insert into  sale_storage(OrderID,ProduceName,specification,UnitName,';
       strSql:=strsql+'boxNum,EmptyBoxNum,bottleNum,whichStore) Values(:s1,:s2,:s3,:s4,';
       strsql:=strsql+':s5,:s6,:s7,:s8)';
       _AdoNewproduce.actionRecord(strSql,param);
     end;///for i
   end;//if
   _str.actionOK(at_save);
end;

procedure TForm_Storage_Init.ButtonExCtl1Click(Sender: TObject);
begin
    if Form_Storage_InitFind=nil then
    begin
       EnableWindow(Form_Storage_Init.Handle,false);
       Form_Storage_InitFind:=TForm_Storage_InitFind.Create(Application);
       Form_Storage_InitFind.Show;
    end
    else
    begin
       EnableWindow(Form_Storage_Init.Handle,false);
       Form_Storage_InitFind.Show;
    end;
end;

end.