u_form_producestock_dx1.pas

这是一个啤酒行业的软件

unit U_Form_ProduceStock_DX1;

interface

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

type
  TForm_productStock_DX1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Image1: TImage;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    beginDate: TMaskEdit;
    _beginDate: TDateTimePicker;
    Label1: TLabel;
    beginTime: TDateTimePicker;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    ComboBox2: TComboBox;
    Label6: TLabel;
    ComboBox3: TComboBox;
    Label7: TLabel;
    Edit2: TEdit;
    Label8: TLabel;
    Edit3: TEdit;
    Label9: TLabel;
    beginDate1: TMaskEdit;
    _begindate1: TDateTimePicker;
    Label10: TLabel;
    beginTime1: TDateTimePicker;
    Label11: TLabel;
    ComboBox4: TComboBox;
    Label12: TLabel;
    ComboBox5: TComboBox;
    Label13: TLabel;
    ComboBox6: TComboBox;
    Label14: TLabel;
    Edit4: TEdit;
    BtnFind: TButtonExCtl;
    ButtonExit: TButtonExCtl;
    Label15: TLabel;
    Edit5: TEdit;
    Label16: TLabel;
    Edit6: TEdit;
    Grid1: TEasyGrid;
    ButtonExCtl1: TButtonExCtl;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure ButtonExitClick(Sender: TObject);
    procedure BtnFindClick(Sender: TObject);
    procedure ButtonExCtl1Click(Sender: TObject);
  private
    { Private declarations }
       _AdoNewProduce:TuAdoSet;
    _Adosale:TuAdoSet;
    _Check:TCheckValidate;
    _str:TuString;
  public
    { Public declarations }
  end;

var
  Form_productStock_DX1: TForm_productStock_DX1;

implementation

uses U_Form_ProduceStock_DX,uGlobal;

{$R *.dfm}

procedure TForm_productStock_DX1.FormCreate(Sender: TObject);
var
    param:TStringList;
    strsql:string;

begin
     _AdoNewProduce:=TuAdoSet.Create('newProduce',1);
     _Adosale:=TuAdoSet.Create('newsale',1);

    _Check:=TCheckValidate.create;
    _str:=TuString.Create;

    param:=TStringList.Create;
    param.clear;
    //strsql:='select distinct wareTypeName from  saleArea_tmp';
    //_Adosale.FillControl(combobox4,strsql,param,'wareTypeName');

     ///////添加规格/////////////////////////////
    combobox5.Items.Add('24');
    combobox5.Items.Add('15');
    combobox5.Items.Add('12');
    combobox5.Items.Add('10');
    combobox5.Items.Add('8');
    combobox5.Items.Add('6');
    combobox5.Items.Add('9');

    ///////添加包装//////////////
    combobox6.Items.Add('塑箱');
    combobox6.Items.Add('塑包');
    combobox6.Items.Add('纸箱');
    combobox6.Items.Add('千升');
    combobox6.Items.Add('桶');

    with _AdoNewproduce do
    begin
        setGridTitle(grid1,1,'编号',120);
        setGridTitle(grid1,2,'倒箱日期',120);
        setGridTitle(grid1,3,'倒箱时间',120);
        setGridTitle(grid1,4,'产品名称',140);
        setGridTitle(grid1,5,'规格',80);
        setGridTitle(grid1,6,'单位',80);
        setGridTitle(grid1,7,'成套数',90);
        setGridTitle(grid1,8,'空箱数',80);
        setGridTitle(grid1,9,'整瓶数',100);
    end;
end;

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

procedure TForm_productStock_DX1.FormShow(Sender: TObject);
var
   param:TStringList;
   strSql:string;
   _RsCount:integer;
   _billcode:string;
   _RsCount1:integer;
   _billcode1:string;

   i,j:integer;
begin
     param:=TStringList.Create;
     param.Clear;
     {/*
         计算倒箱前的编号
     */}
     param.clear;
     param.Add(trim(formatDateTime('yyyy-mm-dd',now)));
     param.Add(trim(_whichStore));
     strSql:='select * from  sale_IntoStore_DX_Before  where  SIB_intoDate=:s1  and  SIB_whichStore=:s2';
     _RsCount:=_AdoNewProduce.getRecordCount(strSql,param);
     if  (_RsCount>=0) and (_RsCount<9) then
     begin
        _BillCode:='00'+intToStr(_RsCount+1)
     end;
     if  (_RsCount>=9) and (_RsCount<99) then
     begin
        _BillCode:='0'+intToStr(_RsCount+1)
     end;
     if  (_RsCount>=99) and (_RsCount<999) then
     begin
        _BillCode:=intToStr(_RsCount+1)
     end;
     edit1.Text:='DXB'+trim(FormatdateTime('yyyymmdd',now))+'_'+trim(_whichStore)+trim(_BillCode);
     {/*
         计算倒箱后的编号
     */}
     param.clear;
     param.Add(trim(formatDateTime('yyyy-mm-dd',now)));
     param.Add(trim(_whichStore));
     strSql:='select * from  sale_IntoStore_DX_After  where  SIA_intoDate=:s1  and  SIA_whichStore=:s2';
     _RsCount1:=_AdoNewProduce.getRecordCount(strSql,param);
     if  (_RsCount1>=0) and (_RsCount1<9) then
     begin
        _BillCode1:='00'+intToStr(_RsCount1+1)
     end;
     if  (_RsCount1>=9) and (_RsCount1<99) then
     begin
        _BillCode1:='0'+intToStr(_RsCount1+1)
     end;
     if  (_RsCount1>=99) and (_RsCount1<999) then
     begin
        _BillCode1:=intToStr(_RsCount1+1)
     end;
     edit3.Text:='DXA'+trim(FormatdateTime('yyyymmdd',now))+'_'+trim(_whichStore)+trim(_BillCode1);
     {
     }
     beginDate.Text:=trim(formatDateTime('yyyy-mm-dd',now));
     beginTime.Time:=strToDateTime(trim(formatDateTime('hh:mm:ss',now)));

     beginDate1.Text:=trim(formatDateTime('yyyy-mm-dd',now));
     beginTime1.Time:=strToDateTime(trim(formatDateTime('hh:mm:ss',now)));

     combobox1.Text:=trim(DX_produceName);
     combobox4.Text:=trim(DX_produceName);
     combobox2.Text:=trim(DX_specification);
     combobox3.Text:=trim(DX_unitName);
     edit2.Text:=trim(DX_boxNum);
     edit4.Text:='0';
     edit5.Text:='0';
     edit6.Text:='0';

     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;  
end;

procedure TForm_productStock_DX1.ButtonExitClick(Sender: TObject);
begin
     EnableWindow(Form_produceStock_dx.Handle,true);
     Close;
end;

procedure TForm_productStock_DX1.BtnFindClick(Sender: TObject);
var
   param:TStringList;
   strSql:string;

   _boxNum,_boxNum1:integer;
   _emptyBoxNum,_emptyBoxNum1:integer;
   _bottleNum,_bottleNum1:integer;

   _OrderID:integer;

   i,j:integer;
begin
   param:=TStringList.Create;
   param.Clear;
   {/*
      2008.06.06
      倒箱入库之前先检查是否进行接班任务
   */}
   param.clear;
   param.Add(trim(formatDateTime('yyyy-mm-dd',now)));
   param.add('1');