unitt.~pas

小型仓库管理系统

             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gfei 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_gfei 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]:='备注';
               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='') or (cmbB.Text='')  then
    begin
      sum:=0;
      showmessage('请选择查询类别和查询状态');
    end;
    edtD.Text:=IntToStr(sum);
    Label8.Caption:='共有：'+inttostr(j-1)+'条记录！';
    end
  else showmessage('请输入要查询的物品编号！');
 end;



 if (cb1.Checked=true) and (cb2.Checked=false) then
    begin
     if (cmbA.Text='材料') and (cmbB.Text='出库')  then
      begin
       memo1.Text:='';
           if (s1<>'')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_mout where  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 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 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;

   if (cmbA.Text='材料') and (cmbB.Text='入库')  then
      begin
       memo1.Text:='';
           if (s2<>'') and (s1<>'') then
              begin
                frDbm.qryT.Close;
                frDbm.qryT.SQL.Clear;
                frDbm.qryT.SQL.Text:='select * from t_mjin where 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  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 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;

  if (cmbA.Text='材料') and (cmbB.Text='报废')  then
      begin
       memo1.Text:='';
           if (s1<>'')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_mfei where  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 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  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;

  if (cmbA.Text='成品') and (cmbB.Text='出库')  then
      begin
       memo1.Text:='';
            if (s1<>'')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gout where 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 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 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[6,0]:='仓库号';
               sgA.Cells[5,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;

  if (cmbA.Text='成品') and (cmbB.Text='入库')  then
      begin
       memo1.Text:='';
            if (s1<>'')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gjin where 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 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  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[6,0]:='仓库号';
               sgA.Cells[5,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;

   if (cmbA.Text='成品') and (cmbB.Text='报废')  then
      begin
       memo1.Text:='';
           if (s1<>'')and (s2<>'') then
           begin
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gfei where 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_gfei where  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_gfei where  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;

 if (cmbA.Text='') or (cmbB.Text='')  then
      begin
       sum:=0;
       showmessage('请选择查询类别和查询状态');
       end;
     edtD.Text:=IntToStr(sum);
     Label8.Caption:='共有：'+inttostr(j-1)+'条记录！';
 end;




 if (cb1.Checked=false) 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
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;