kccx.~pas

delphi 生产管理系统 sql2000位后台数据库

unit KCCX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB,ADODB,ExtCtrls;

type
  TFrm_KCCX = class(TForm)
    Temp: TADOQuery;
    temp1: TADOQuery;
    BOX_MC: TComboBox;
    BOX_XH: TComboBox;
    BOX_SHENG: TComboBox;
    BOX_GG: TComboBox;
    BOX_SHI: TComboBox;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label1: TLabel;
    bsSkinButton5: TButton;
    bsSkinButton1: TButton;
    panel1: TPanel;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_KCCX: TFrm_KCCX;

implementation

{$R *.dfm}

uses main,share,Zhcx;

procedure TFrm_KCCX.bsSkinButton1Click(Sender: TObject);
begin
 close;
end;

procedure TFrm_KCCX.bsSkinButton5Click(Sender: TObject);
var s1,s2,s11:string;
    A,B,C:string;
begin
//  Frm_zhcx.LJFH.Caption:='0';
//  Frm_zhcx.LJFX.Caption:='0';
//  Frm_zhcx.LJSC.Caption:='0';
//  Frm_zhcx.LJFH.Caption:='0';
//  Frm_zhcx.LJKC.Caption:='0';
  s1:='select sum(sl) from chengpin where (name='''+box_mc.Text+''')';
  s11:='select sum(sl) from fahuo where (name='''+box_mc.Text+''')';
  if (BOX_XH.Text<>'') and (BOX_GG.Text<>'') and (BOX_Sheng.Text<>'') and (BOX_SHi.Text<>'') then  //0000    0
    begin
      s2:=' and (xh='''+box_xh.Text+''') and (gg='''+box_gg.Text
          +''') and (sheng='''+box_sheng.Text+''') and (shi='''+box_shi.Text+''')';
    end;

  if (BOX_XH.Text<>'') and  (BOX_GG.Text<>'') and (BOX_Sheng.Text<>'') and (BOX_SHi.Text='') then  //0001    1
    begin
      s2:=' and (xh='''+box_xh.Text+''') and (gg='''+box_gg.Text
          +''') and (sheng='''+box_sheng.Text+''')';
    end;

  if (BOX_XH.Text<>'') and  (BOX_GG.Text<>'') and (BOX_Sheng.Text='') and (BOX_SHi.Text<>'') then   //0010    2
    begin
      s2:=' and (xh='''+box_xh.Text+''') and (gg='''+box_gg.Text
          +''') and (shi='''+box_shi.Text+''')';
    end;

  if (BOX_XH.Text<>'') and  (BOX_GG.Text<>'') and (BOX_Sheng.Text='') and (BOX_SHi.Text='') then     //0011    3
    begin
      s2:=' and (XH='''+box_XH.Text
          +''') and (GG='''+box_GG.Text+''')';
    end;

  if (BOX_XH.Text<>'') and  (BOX_GG.Text='') and (BOX_Sheng.Text<>'') and (BOX_SHi.Text<>'') then    //0100    4
    begin
      s2:=' and (xh='''+box_xh.Text
          +''') and (sheng='''+box_sheng.Text+''') and (shi='''+box_shi.Text+''')';
    end;

  if (BOX_XH.Text<>'') and  (BOX_GG.Text='') and (BOX_Sheng.Text<>'') and (BOX_SHi.Text='') then     //0101   5
    begin
      s2:=' and (xh='''+box_xh.Text
          +''') and (sheng='''+box_sheng.Text+''')';
    end;

  if (BOX_XH.Text<>'') and  (BOX_GG.Text='') and (BOX_Sheng.Text='') and (BOX_SHi.Text<>'') then      //0110   6
    begin
      s2:=' and (xh='''+box_xh.Text+''') and (shi='''+box_shi.Text+''')';
    end;

  if (BOX_XH.Text<>'') and  (BOX_GG.Text='') and (BOX_Sheng.Text='') and (BOX_SHi.Text='') then       //0111  7
    begin
     s2:=' and (xh='''+box_xh.Text+''')';
    end;

  if (BOX_XH.Text='') and  (BOX_GG.Text<>'') and (BOX_Sheng.Text<>'') and (BOX_SHi.Text<>'') then     //1000  8
    begin
     s2:=' and (gg='''+box_gg.Text
          +''') and (sheng='''+box_sheng.Text+''') and (shi='''+box_shi.Text+''')';
    end;

  if (BOX_XH.Text='') and  (BOX_GG.Text<>'') and (BOX_Sheng.Text<>'') and (BOX_SHi.Text='') then      //1001  9
    begin
     s2:=' and (gg='''+box_gg.Text
          +''') and (sheng='''+box_sheng.Text+''')';
    end;

  if (BOX_XH.Text='') and  (BOX_GG.Text<>'') and (BOX_Sheng.Text='') and (BOX_SHi.Text<>'') then      //1010  A
    begin
     s2:=' and (gg='''+box_gg.Text
          +''') and (shi='''+box_shi.Text+''')';
    end;

  if (BOX_XH.Text='') and  (BOX_GG.Text<>'') and (BOX_Sheng.Text='') and (BOX_SHi.Text='') then      //1011   B
    begin
     s2:=' and (gg='''+box_gg.Text
          +''')';
    end;

  if (BOX_XH.Text='') and  (BOX_GG.Text='') and (BOX_Sheng.Text<>'') and (BOX_SHi.Text<>'') then     //1100   C
    begin
     s2:=' and (sheng='''+box_sheng.Text+''') and (shi='''+box_shi.Text+''')';
    end;

  if (BOX_XH.Text='') and  (BOX_GG.Text='') and (BOX_Sheng.Text<>'') and (BOX_SHi.Text='') then      //1101   D
    begin
     s2:=' and (sheng='''+box_sheng.Text+''')';
    end;

  if (BOX_XH.Text='') and  (BOX_GG.Text='') and (BOX_Sheng.Text='') and (BOX_SHi.Text<>'') then      //1110   E
    begin
     s2:=' and (shi='''+box_shi.Text+''')';
    end;

  if (BOX_XH.Text='') and  (BOX_GG.Text='') and (BOX_Sheng.Text='') and (BOX_SHi.Text='') then       //1111   F
    begin
     s2:='';
    end;
  runsql(temp,s1+s2,'open');
  runsql(temp1,s11+s2,'open');

//  if not temp.Fields[0].IsNull then Frm_zhcx.LJSC.Caption:=inttostr(temp.Fields[0].Value);
//  if not temp1.Fields[0].IsNull then Frm_zhcx.LJFH.Caption:=inttostr(temp1.Fields[0].Value);
//  Frm_zhcx.LJKC.Caption:=inttostr(strtoint(Frm_zhcx.LJSC.Caption)-strtoint(Frm_zhcx.LJFH.Caption));
  if not temp.Fields[0].IsNull then A:=inttostr(temp.Fields[0].Value) else A:='0';
  if not temp1.Fields[0].IsNull then B:=inttostr(temp1.Fields[0].Value) else B:='0';
  C:=inttostr(strtoint(A)-strtoint(B));

//  hide;
  messagebox(handle,pchar('查询结果如下:'+#13
                          +'  产品名称:'+box_mc.Text+#13
                          +'  产品型号: '+box_xh.Text+#13
                          +'  产品规格: '+box_gg.Text+#13
                          +'  地点(省): '+box_sheng.Text+#13
                          +'  地点(市): '+box_shi.Text+#13+#13
                          +'  生产数量: '+A+#13
                          +'  发货数量: '+B+#13
                          +'  库存数量: '+C),'提示',64);
  close;
end;

end.