unitt.~pas

小型仓库管理系统

             frDbm.qryT.SQL.Text:='select * from t_mout where msno='+s;
             frDbm.qryT.Open;
           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[6,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
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_mjin where msno='+s;
             frDbm.qryT.Open;
           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
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_mfei where msno='+s;
             frDbm.qryT.Open;
           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;
                // sgA.Cells[6,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
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gout where gsno='+s;
             frDbm.qryT.Open;
           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[6,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
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gjin where gsno='+s;
             frDbm.qryT.Open;
           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='2'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
             frDbm.qryT.Close;
             frDbm.qryT.SQL.Clear;
             frDbm.qryT.SQL.Text:='select * from t_gfei where gsno='+s;
             frDbm.qryT.Open;
           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;
    Label8.Caption:='共有：'+inttostr(j-1)+'条记录！';
    edtD.Text:=IntToStr(sum);
   end
  else showmessage('请输入要查询的物品编号！');
 end;



 if (cb1.Checked=false) and (cb2.Checked=false) then
    showmessage('请选择查询方式!');

end;

procedure TfmT.btnBClick(Sender: TObject);
var i,j:word;
begin
 mc1.Visible:=false;
 mc2.Visible:=false;
 memo1.Text:='';
 cmbA.Text:='';
 cmbB.Text:='';
 combC.Text:='';
 edtB.Text:='';
 edtC.Text:='';
 edtD.Text:='';
 frDbm.qryT.close;
 for  j:=0 to 999 do
   begin
    for i:=0 to 8 do
     begin
      sgA.Cells[i,j]:='';
     end;
   end;
end;

procedure TfmT.sbtn1Click(Sender: TObject);
begin
  fmMain.show;
  fmT.close;
end;

procedure TfmT.mc1Click(Sender: TObject);
var a:Tdatetime;
    b:string;
begin
  a:=mc1.Date;
  b:=DateTimetostr(a);
  edtB.Text:=b;
  mc1.Visible:=false;
  mc2.Visible:=false;
end;

procedure TfmT.edtBClick(Sender: TObject);
begin
  mc1.visible:=true;
  mc2.Visible:=false;
end;

procedure TfmT.edtCClick(Sender: TObject);
begin
  mc1.visible:=false;
  mc2.Visible:=true;
end;

procedure TfmT.mc2Click(Sender: TObject);
var a:Tdatetime;
    b:string;
begin
  a:=mc2.Date;
  b:=DateTimetostr(a);
  edtC.Text:=b;
  mc2.Visible:=false;
  mc1.Visible:=false;
end;

procedure TfmT.edtAKeyPress(Sender: TObject; var Key: Char);
begin
  if (key in (['0'..'9'])) or (key=#8) then
     else
     key:=#0;
end;

procedure TfmT.cmbASelect(Sender: TObject);
begin
      if cmbA.Text='材料' then
    begin
      combC.Items.Clear;
      frDbm.qryF.Close;
      frDbm.qryF.SQL.Clear;
      frDbm.qryF.SQL.Text:='select sno from t_mlist ';
      frDbm.qryF.Open;
      while not frDbm.qryF.Eof do
       begin
         combC.Items.Add(frDbm.qryF.Fields[0].asstring);
         frDbm.qryF.Next;
       end;
    end;
  if cmbA.Text='成品' then
    begin
      combC.Items.Clear;
      frDbm.qryF.Close;
      frDbm.qryF.SQL.Clear;
      frDbm.qryF.SQL.Text:='select sno from t_glist ';
      frDbm.qryF.Open;
      while not frDbm.qryF.Eof do
       begin
         combC.Items.Add(frDbm.qryF.Fields[0].asstring);
         frDbm.qryF.Next;
       end;
    end;
end;

procedure TfmT.cb1Click(Sender: TObject);
begin
  if cb1.Checked=true then
     begin
       edtB.Enabled:=true;
       edtC.Enabled:=true;
     end;
  if cb1.Checked=false then
     begin
       edtB.Enabled:=false;
       edtC.Enabled:=false;
     end;
end;

procedure TfmT.cb2Click(Sender: TObject);
begin
  if cb2.Checked=true then
     begin
       combC.Enabled:=true;
     end;
  if cb2.Checked=false then
     begin
       combC.Enabled:=false;
     end;
end;

procedure TfmT.sgASelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if sgA.Cells[0,Arow]<>'' then
    begin
     if (cmbA.Text='材料') and (cmbB.Text='出库')  then
      begin
       memo1.Text:='';
       memo1.Lines.Add('备注：出库单号'+sgA.Cells[0,Arow]+':去往'+sgA.Cells[5,Arow]);
      end;

     if (cmbA.Text='材料') and (cmbB.Text='入库')  then
      begin
       memo1.Text:='';
       memo1.Lines.Add('备注：入库单号'+sgA.Cells[0,Arow]+':'+sgA.Cells[8,Arow]);
      end;

     if (cmbA.Text='材料') and (cmbB.Text='报废')  then
      begin
       memo1.Text:='';
       memo1.Lines.Add('备注：报废单号'+sgA.Cells[0,Arow]+':'+sgA.Cells[5,Arow]);
      end;

     if (cmbA.Text='成品') and (cmbB.Text='入库')  then
      begin
       memo1.Text:='';
       if frDbm.qryT.Fields[5].AsString='1'then
       memo1.Lines.Add('备注：入库单号'+frDbm.qryT.Fields[0].AsString+'：'+'正常入库');
       if frDbm.qryT.Fields[5].AsString='2'then
       memo1.Lines.Add('备注:入库单号'+frDbm.qryT.Fields[0].AsString+'：'+'退货');
      end;

     if (cmbA.Text='成品') and (cmbB.Text='出库')  then
      begin
       memo1.Text:='';
       memo1.Lines.Add('备注：出库单号'+sgA.Cells[0,Arow]+':'+sgA.Cells[5,Arow]);
      end;

      if (cmbA.Text='成品') and (cmbB.Text='报废')  then
        begin
          memo1.Text:='';
          memo1.Lines.Add('备注：报废单号'+sgA.Cells[0,Arow]+':'+sgA.Cells[5,Arow]);
        end;

     if (cmbA.Text='') or (cmbB.Text='')  then
       showmessage('请选择查询类别和查询状态');
     end
     else memo1.Text:='';
 end;

end.