unitt.pas

小型仓库管理系统

unit UnitT;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons, Grids, jpeg, ExtCtrls, ComCtrls,unitFunc;

type
  TfmT = class(TForm)
    Image1: TImage;
    cmbA: TComboBox;
    edtB: TEdit;
    edtC: TEdit;
    cmbB: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    sgA: TStringGrid;
    sbtn1: TSpeedButton;
    edtD: TEdit;
    btnA: TBitBtn;
    btnB: TBitBtn;
    Label6: TLabel;
    Label7: TLabel;
    Memo1: TMemo;
    mc2: TMonthCalendar;
    mc1: TMonthCalendar;
    gb1: TGroupBox;
    cb1: TCheckBox;
    cb2: TCheckBox;
    Label8: TLabel;
    combC: TComboBox;
    procedure btnAClick(Sender: TObject);
    procedure btnBClick(Sender: TObject);
    procedure sbtn1Click(Sender: TObject);
    procedure mc1Click(Sender: TObject);
    procedure edtBClick(Sender: TObject);
    procedure edtCClick(Sender: TObject);
    procedure mc2Click(Sender: TObject);
    procedure edtAKeyPress(Sender: TObject; var Key: Char);
    procedure cmbASelect(Sender: TObject);
    procedure cb1Click(Sender: TObject);
    procedure cb2Click(Sender: TObject);
    procedure sgASelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmT: TfmT;

implementation

uses UnitMain, UnitDm;

{$R *.dfm}



procedure TfmT.btnAClick(Sender: TObject);
var sum,i,j:word;
  a,s,s1,s2:string;
begin
    s:=trim(combC.Text);
    s1:=trim(edtB.Text);
    s1:=sss(s1);
    s2:=trim(edtC.Text);
    s2:=sss(s2);
    if (cb1.Checked=true) and (cb2.Checked=true) then
    begin
   if s<>''THEN
   begin
     if (cmbA.Text='材料') and (cmbB.Text='出库')  then
      begin
       memo1.Text:='';
       frDbm.dsetT.Close;
       frDbm.dsetT.CommandText:='select * from t_mlist where sno='+s;
       frDbm.dsetT.Open;
        if frDbm.dsetT.Fields[0].AsString<>'' THEN
          begin
           if (s1<>'')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_mout where msno='''
             +s+''''+'and shijian>='
             +s1+'and shijian<='+s2;
             frDbm.qryT.Open;
           end;
           if (s1<>'')and (s2='') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_mout where msno='''
             +s+''''+'and shijian>='+s1;
             frDbm.qryT.Open;
           end;
           if (s1='')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_mout where msno='''
             +s+''''+'and shijian<='+s2;
             frDbm.qryT.Open;
           end;
           if (s1='')and (s2='') then
             begin
              showmessage('请选择查询日期！');
              exit;
             end;
           if frDbm.qryT.Fields[0].AsString<>'' THEN
             begin
               memo1.Lines.Add('备注信息:');
               sgA.Cells[0,0]:='出库单号';
               sgA.Cells[1,0]:='材料编号';
               sgA.Cells[2,0]:='出库数量';
               sgA.Cells[3,0]:='经办人';
               sgA.Cells[4,0]:='出库时间';
               sgA.Cells[5,0]:='备注';
               sgA.Cells[6,0]:='仓库编号';
               j:=1;
               sum:=0;
               while not frDbm.qryT.Eof do
               begin
               for i:=0 to 6 do
                begin
                  a:=frDbm.qryT.Fields[i].AsString;
                   sgA.Cells[i,j]:=a;
                end;
                // sgA.Cells[5,j]:=frDbm.qryT.Fields[6].AsString;
                 sum:=sum+strToInt(sgA.Cells[2,j]);
                 j:=j+1;
              //   memo1.Lines.Add('报废单号'+frDbm.qryT.Fields[0].AsString+':'+frDbm.qryT.Fields[5].AsString);
                 frDbm.qryT.Next;
               end;
             end
           else  showmessage('您查找的内容不存在！');
          end
        else showmessage('不存在编号为'+s+'的材料！');
      end;

   if (cmbA.Text='材料') and (cmbB.Text='入库')  then
      begin
       memo1.Text:='';
       frDbm.dsetT.Close;
       frDbm.dsetT.CommandText:='select * from t_mlist where sno='+s;
       frDbm.dsetT.Open;
        if frDbm.dsetT.Fields[0].AsString<>'' THEN
          begin
            if (s2<>'') and (s1<>'') then
              begin
                frDbm.qryT.Close;
                frDbm.qryT.SQL.Clear;
                frDbm.qryT.SQL.Text:='select * from t_mjin where msno='''
                +s+''''+'and shijian>='
                +s1+'and shijian<='+s2;
                frDbm.qryT.Open;
              end;
           if (s1<>'')and (s2='') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_mjin where msno='''
             +s+''''+'and shijian>='+s1;
             frDbm.qryT.Open;
           end;
           if (s1='')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_mjin where msno='''
             +s+''''+'and shijian<='+s2;
             frDbm.qryT.Open;
           end;
           if (s1='')and (s2='') then
             begin
              showmessage('请选择查询日期！');
              exit;
             end;
           if frDbm.qryT.Fields[0].AsString<>'' THEN
             begin
               memo1.Lines.Add('备注信息:');
               sgA.Cells[0,0]:='入库单号';
               sgA.Cells[1,0]:='材料编号';
               sgA.Cells[2,0]:='入库数量';
               sgA.Cells[3,0]:='入库价格';
               sgA.Cells[4,0]:='经办人';
               sgA.Cells[5,0]:='入库时间';
               sgA.Cells[6,0]:='供应商编号';
               sgA.Cells[7,0]:='仓库编号';
               sgA.Cells[8,0]:='备注';
               j:=1;
               sum:=0;
               while not frDbm.qryT.Eof do
               begin
               for i:=0 to 8 do
                begin
                  a:=frDbm.qryT.Fields[i].AsString;
                   sgA.Cells[i,j]:=a;
                end;
                 sum:=sum+strToInt(sgA.Cells[2,j]);
                 j:=j+1;
             //    memo1.Lines.Add('入库单号'+frDbm.qryT.Fields[0].AsString+':'+frDbm.qryT.Fields[8].AsString);
                 frDbm.qryT.Next;
               end;
             end
           else  showmessage('您查找的内容不存在！');
          end
        else showmessage('不存在编号为'+s+'的材料！');
      end;

  if (cmbA.Text='材料') and (cmbB.Text='报废')  then
      begin
       memo1.Text:='';
       frDbm.dsetT.Close;
       frDbm.dsetT.CommandText:='select * from t_mlist where sno='+s;
       frDbm.dsetT.Open;
        if frDbm.dsetT.Fields[0].AsString<>'' THEN
          begin
           if (s1<>'')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_mfei where msno='''
             +s+''''+'and shijian>='
             +s1+'and shijian<='+s2;
             frDbm.qryT.Open;
           end;
           if (s1<>'')and (s2='') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_mfei where msno='''
             +s+''''+'and shijian>='+s1;
             frDbm.qryT.Open;
           end;
           if (s1='')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_mfei where msno='''
             +s+''''+'and shijian<='+s2;
             frDbm.qryT.Open;
           end;
           if (s1='')and (s2='') then
             begin
              showmessage('请选择查询日期！');
              exit;
             end;
           if frDbm.qryT.Fields[0].AsString<>'' THEN
             begin
               memo1.Lines.Add('备注信息:');
               sgA.Cells[0,0]:='报废单号';
               sgA.Cells[1,0]:='材料编号';
               sgA.Cells[2,0]:='报废数量';
               sgA.Cells[3,0]:='经办人';
               sgA.Cells[4,0]:='报废时间';
               sgA.Cells[5,0]:='备注';
               j:=1;
               sum:=0;
               while not frDbm.qryT.Eof do
               begin
               for i:=0 to 5 do
                begin
                  a:=frDbm.qryT.Fields[i].AsString;
                   sgA.Cells[i,j]:=a;
                end;
                 sum:=sum+strToInt(sgA.Cells[2,j]);
                 j:=j+1;
              //   memo1.Lines.Add('报废单号'+frDbm.qryT.Fields[0].AsString+':'+frDbm.qryT.Fields[5].AsString);
                 frDbm.qryT.Next;
               end;
             end
           else  showmessage('您查找的内容不存在！');
          end
        else showmessage('不存在编号为'+s+'的材料！');
      end;

  if (cmbA.Text='成品') and (cmbB.Text='出库')  then
      begin
       memo1.Text:='';
       frDbm.dsetT.Close;
       frDbm.dsetT.CommandText:='select * from t_glist where sno='+s;
       frDbm.dsetT.Open;
        if frDbm.dsetT.Fields[0].AsString<>'' THEN
          begin
            if (s1<>'')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gout where gsno='''
             +s+''''+'and shijian>='
             +s1+'and shijian<='+s2;
             frDbm.qryT.Open;
           end;
           if (s1<>'')and (s2='') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gout where gsno='''
             +s+''''+'and shijian>='+s1;
             frDbm.qryT.Open;
           end;
           if (s1='')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gout where gsno='''
             +s+''''+'and shijian<='+s2;
             frDbm.qryT.Open;
           end;
           if (s1='')and (s2='') then
             begin
              showmessage('请选择查询日期！');
              exit;
             end;
           if frDbm.qryT.Fields[0].AsString<>'' THEN
             begin
               memo1.Lines.Add('备注信息:');
               sgA.Cells[0,0]:='出库单号';
               sgA.Cells[1,0]:='成品编号';
               sgA.Cells[2,0]:='出库数量';
               sgA.Cells[3,0]:='经办人';
               sgA.Cells[4,0]:='出库时间';
               sgA.Cells[5,0]:='备注';
               sgA.Cells[6,0]:='仓库号';
               j:=1;
               sum:=0;
               while not frDbm.qryT.Eof do
               begin
               for i:=0 to 6 do
                begin
                  a:=frDbm.qryT.Fields[i].AsString;
                   sgA.Cells[i,j]:=a;
                end;
               //  sgA.Cells[5,j]:=frDbm.qryT.Fields[6].AsString;
                 sum:=sum+strToInt(sgA.Cells[2,j]);
                 j:=j+1;
               //  memo1.Lines.Add('报废单号'+frDbm.qryT.Fields[0].AsString+':'+frDbm.qryT.Fields[5].AsString);
                 frDbm.qryT.Next;
               end;
             end
           else  showmessage('您查找的内容不存在！');
          end
        else showmessage('不存在编号为'+s+'的成品！');
      end;

  if (cmbA.Text='成品') and (cmbB.Text='入库')  then
      begin
       memo1.Text:='';
       frDbm.dsetT.Close;
       frDbm.dsetT.CommandText:='select * from t_glist where sno='+s;
       frDbm.dsetT.Open;
        if frDbm.dsetT.Fields[0].AsString<>'' THEN
          begin
            if (s1<>'')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gjin where gsno='''
             +s+''''+'and shijian>='
             +s1+'and shijian<='+s2;
             frDbm.qryT.Open;
           end;
           if (s1<>'')and (s2='') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gjin where gsno='''
             +s+''''+'and shijian>='+s1;
             frDbm.qryT.Open;
           end;
           if (s1='')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gjin where gsno='''
             +s+''''+'and shijian<='+s2;
             frDbm.qryT.Open;
           end;
          if (s1='')and (s2='') then
             begin
              showmessage('请选择查询日期！');
              exit;
             end;
           if frDbm.qryT.Fields[0].AsString<>'' THEN
             begin
               memo1.Lines.Add('备注信息:');
               sgA.Cells[0,0]:='入库单号';
               sgA.Cells[1,0]:='成品编号';
               sgA.Cells[2,0]:='入库数量';
               sgA.Cells[3,0]:='经办人';
               sgA.Cells[4,0]:='入库时间';
               sgA.Cells[5,0]:='备注';
               sgA.Cells[6,0]:='仓库号';
               j:=1;
               sum:=0;
               while not frDbm.qryT.Eof do
               begin
               for i:=0 to 6 do
                begin
                  a:=frDbm.qryT.Fields[i].AsString;
                  sgA.Cells[i,j]:=a;
                end;
                // sgA.Cells[5,j]:=frDbm.qryT.Fields[6].AsString;
                 sum:=sum+strToInt(sgA.Cells[2,j]);
                 j:=j+1;
                // if frDbm.qryT.Fields[5].AsString='1'then
               //   memo1.Lines.Add('入库单号'+frDbm.qryT.Fields[0].AsString+'：'+'正常入库');
                // if frDbm.qryT.Fields[5].AsString='0'then
                // memo1.Lines.Add('入库单号'+frDbm.qryT.Fields[0].AsString+'：'+'退货');
               //  frDbm.qryT.Next;
               end;
             end
           else  showmessage('您查找的内容不存在！');
          end
        else showmessage('不存在编号为'+s+'的成品！');
      end;

   if (cmbA.Text='成品') and (cmbB.Text='报废')  then
      begin
       memo1.Text:='';
       frDbm.dsetT.Close;
       frDbm.dsetT.CommandText:='select * from t_glist where sno='+s;
       frDbm.dsetT.Open;
        if frDbm.dsetT.Fields[0].AsString<>'' THEN
          begin
           if (s1<>'')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gfei where gsno='''
             +s+''''+'and shijian>='
             +s1+'and shijian<='+s2;
             frDbm.qryT.Open;
           end;
           if (s1<>'')and (s2='') then
           begin