unitm.~pas

小型仓库管理系统

             end;
           end
            else showmessage('数据库中已经存在出库单号为'+s+'的记录，请重新输入！');
          end
        else
          showmessage('不存在该编号的成品，请查询后输入!');
     end
  else
  showmessage('出库单编号，材料编号，出库数量，出库时间不能为空！')
end;

procedure TfmM.btn3Click(Sender: TObject);
begin
  edt1.Text:='';
  comb2.Text:='';
  edt3.Text:='';
  edt4.Text:='';
  edt5.Text:='';
  comb1.Text:='';
  edt6.Text:='';
end;

procedure TfmM.btn2Click(Sender: TObject);
var  s,s1,sum:string;
     n:integer;
begin
if messagedlg('确实要删除报废号为：'+trim(edt1.Text)+'的记录吗(Y/N)？',mtConfirmation,[mbYes]+[mbNo],0)=6 then
 begin
  s:=trim(edt1.Text);
  if ( s<>'')  then
       begin
        frDbm.dsetM.Close;
        frDbm.dsetM.CommandText:='select * from t_mout where sno='+s+'';
        frDbm.dsetM.Open;
        if frDbm.dsetM.Fields[0].AsString<>'' then
          begin
            s1:=frDbm.dsetM.Fields[1].AsString;
            n:=frDbm.dsetM.Fields[2].AsInteger;
            frDbm.comM2.commandType:=cmdText;
            frDbm.ComM2.CommandText:='delete from t_mout where sno='+s+'';
            frDbm.ComM2.Execute;

            frDbm.dsetM.Close;
            frDbm.dsetM.CommandText:='select number from t_mstore where msno='+s1+'';
            frDbm.dsetM.Open;
            n:=frDbm.dsetM.Fields[0].AsInteger+n;
               sum:=trim(inttostr(n));
               frDbm.comM2.commandType:=cmdText;
               frDbm.ComM2.CommandText:='update t_mstore set number='+sum+' where msno='+s1+'';
               frDbm.ComM2.Execute;
              showmessage('数据修改成功！');
          end
        else
           showmessage('没有出库单号为'+s+'的记录！');
      end
  else
  showmessage('出库单编号不能为空！');
end;
end;


procedure TfmM.btnBClick(Sender: TObject);
var  s,s1,sum:string;
     n:integer;
begin
if messagedlg('确实要删除报废号为：'+trim(edtA.Text)+'的记录吗(Y/N)？',mtConfirmation,[mbYes]+[mbNo],0)=6 then
 begin
  s:=trim(edtA.Text);
  if s<>''  then
       begin
        frDbm.dsetM.Close;
        frDbm.dsetM.CommandText:='select * from t_mjin where sno='+s+'';
        frDbm.dsetM.Open;
        if frDbm.dsetM.Fields[0].AsString<>'' then
          begin
            n:=frDbm.dsetM.Fields[2].AsInteger;
            s1:=frDbm.dsetM.Fields[1].AsString;
            frDbm.comM1.commandType:=cmdText;
            frDbm.ComM1.CommandText:='delete from t_mjin where sno='+s+'';
            frDbm.ComM1.Execute;

            frDbm.dsetM.Close;
            frDbm.dsetM.CommandText:='select number from t_mstore where msno='+s1+'';
            frDbm.dsetM.Open;
            n:=frDbm.dsetM.Fields[0].AsInteger-n;

            sum:=trim(inttostr(n));
            frDbm.comM1.commandType:=cmdText;
            frDbm.ComM1.CommandText:='update t_mstore set number='+sum+' where msno='+s1+'';
            frDbm.ComM1.Execute;
            showmessage('数据修改成功！');
              end
          else
           showmessage('没有入库单号为'+s+'的记录！');
      end
  else
  showmessage('入库单编号不能为空！');
 end;
end;

procedure TfmM.SpeedButton2Click(Sender: TObject);
begin
  fmM.Close;
  fmMain.show;
end;

procedure TfmM.SpeedButton1Click(Sender: TObject);
begin
  fmM.Close;
  fmMain.show;
end;

procedure TfmM.comb1DropDown(Sender: TObject);
begin
  mc1.visible:=true;
end;

procedure TfmM.combADropDown(Sender: TObject);
begin
  mcA.visible:=true;
end;

procedure TfmM.mcAClick(Sender: TObject);
var a:Tdatetime;
    b:string;
begin
  a:=mcA.Date;
  b:=DateTimetostr(a);
  combA.Text:=b;
  mcA.Visible:=false;
end;

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

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

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

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

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

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

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

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

procedure TfmM.edtEKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  btnA.Click;
end;

procedure TfmM.edtGKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  btnA.Click;
end;

procedure TfmM.edt4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  btn1.Click;
end;

procedure TfmM.edt5KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  btn1.Click;
end;

procedure TfmM.FormActivate(Sender: TObject);
begin
  combB.Items.Clear;
  comb2.Items.Clear;
  combG.Items.Clear;
  
  frDbm.qryM.Close;
  frDbm.qryM.SQL.Clear;
  frDbm.qryM.SQL.Text:='select * from t_mlist ';
  frDbm.qryM.Open;
  while not frDbm.qryM.Eof do
  begin
    combB.Items.Add(frDbm.qryM.Fields[0].asstring);
    comb2.Items.Add(frDbm.qryM.Fields[0].asstring);
    frDbm.qryM.Next;
  end;

  frDbm.qryM.Close;
  frDbm.qryM.SQL.Clear;
  frDbm.qryM.SQL.Text:='select * from t_Suppliers ';
  frDbm.qryM.Open;
  while not frDbm.qryM.Eof do
  begin
    combG.Items.Add(frDbm.qryM.Fields[0].asstring);
    frDbm.qryM.Next;
  end;
end;

procedure TfmM.combBSelect(Sender: TObject);
begin
  combH.Items.Clear;
  frDbm.qryM.Close;
  frDbm.qryM.SQL.Clear;
  frDbm.qryM.SQL.Text:='select cno from t_storelist where sno='''+trim(combB.text)+'''';
  frDbm.qryM.Open;
  while not frDbm.qryM.Eof do
  begin
    edtH.text:=frDbm.qryM.Fields[0].asstring;
    frDbm.qryM.Next;
  end;
end;

procedure TfmM.comb2Select(Sender: TObject);
begin
  comb6.Items.Clear;
  frDbm.qryM.Close;
  frDbm.qryM.SQL.Clear;
  frDbm.qryM.SQL.Text:='select cno from t_storelist where sno='''+trim(comb2.text)+'''';
  frDbm.qryM.Open;
  while not frDbm.qryM.Eof do
  begin
    edt6.text:=frDbm.qryM.Fields[0].asstring;
    frDbm.qryM.Next;
  end;
end;

end.