uqtshd_lr.pas

工廠倉庫管理系統

   begin
   showmessage('没有选择订单,无法继续');
   dbedit3.SetFocus;
   exit;
   end;
if trim(dbedit5.Text)='' then
   begin
   showmessage('没有选择供应商,无法继续');
   dbedit5.SetFocus;
   exit;
   end;
if (trim(dbedit19.Text)<>'') and (dbedit18.text='') then
    begin
        showmessage('该单需要报关,您没有填写报关重量');
        dbedit18.SetFocus;
        exit;
    end;
if adoquery2.State in [dsinsert] then
   begin
   qz:='SHDH'+formatdatetime('yy',now)+
   formatdatetime('mm',now)+formatdatetime('dd',date);
   strsql:='select * from shd_main where shdh like'+''''+qz+'%'+''''+'order by shdh asc';
   adoexect(adoquery3,strsql);
   dbedit1.Text:=creatdh(adoquery3,11,qz);
   end;
adoquery2.Post;
adoquery1.Close;
adoquery1.Open;
isedit:=false;
isactive;
RzBitBtn1.Enabled:=true;
RzBitBtn2.Enabled:=true;
RzBitBtn3.Enabled:=false;
DBEdit2.ReadOnly:=true;
DBEdit3.ReadOnly:=true;
DBEdit5.ReadOnly:=true;
DBEdit6.ReadOnly:=true;
DBEdit7.ReadOnly:=true;
dbmemo1.ReadOnly:=true;
end;

procedure Tfrmqtshd_lr.RzBitBtn8Click(Sender: TObject);
begin
adoquery2.CancelUpdates;
isedit:=false;
isactive;
RzBitBtn1.Enabled:=true;
RzBitBtn2.Enabled:=true;
RzBitBtn3.Enabled:=false;
DBEdit2.ReadOnly:=true;
DBEdit3.ReadOnly:=true;
DBEdit5.ReadOnly:=true;
DBEdit6.ReadOnly:=true;
DBEdit7.ReadOnly:=true;
dbmemo1.ReadOnly:=true;
end;

procedure Tfrmqtshd_lr.TabSheet2Enter(Sender: TObject);
begin
if adoquery1.Recordset.EOF and adoquery1.Recordset.BOF then exit;
edit1.Text:=adoquery1.fieldbyname('实收数量').AsString;
edit3.Text:=adoquery1.fieldbyname('应收数量').AsString;
edit2.Text:=adoquery1.fieldbyname('单价').AsString;
edit1.SetFocus;
end;

procedure Tfrmqtshd_lr.RzBitBtn9Click(Sender: TObject);
begin

strsql:='select * from shd_detail where shdh='+''''+trim(adoquery1.fieldbyname('收货单号').AsString)+''''+
'and wldm='+''''+trim(adoquery1.fieldbyname('物料代码').AsString)+'''';
adoexect(adoquery3,strsql);
adoquery3.Edit;
adoquery3.FieldByName('sssl').Value:=strtofloat(edit1.Text);
adoquery3.FieldByName('yssl').Value:=strtofloat(edit1.Text);
adoquery3.FieldByName('dj').Value:=strtofloat(edit2.Text);
adoquery3.Post;
adoquery1.Close;
adoquery1.Open;
adoquery3.Close;
adoquery4.Close;
RzPageControl1.ActivePageIndex:=0;
end;

procedure Tfrmqtshd_lr.RzBitBtn10Click(Sender: TObject);
begin
RzPageControl1.ActivePageIndex:=0;
end;

procedure Tfrmqtshd_lr.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#46,#8] ) then
    key:=#0;
end;

procedure Tfrmqtshd_lr.RzToolbarButton2Click(Sender: TObject);
begin
if (not(adoquery2.State in [dsinsert])) and (not(adoquery2.State in [dsedit])) then exit;
title:='';
lbname:='';
bgwl:='';
danwei:='';
frmgyslb:=tfrmgyslb.Create(self);
frmgyslb.ShowModal;
dbedit5.Text:=lbname;
dbedit6.Text:=title;
dbedit19.Text:=bgwl;
dbedit21.Text:=danwei;
if bgwl='' then
   begin
        dbedit18.Enabled:=false;
        dbedit20.Enabled:=false;
   end else begin
        dbedit18.Enabled:=true;
        dbedit20.Enabled:=true;
   end;
end;

procedure Tfrmqtshd_lr.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#46,#8] ) then
    key:=#0;
end;

procedure Tfrmqtshd_lr.DBGridEh1DblClick(Sender: TObject);
begin
RzPageControl1.ActivePageIndex:=1;
end;

procedure Tfrmqtshd_lr.RzBitBtn7Click(Sender: TObject);
begin
close;
end;

procedure Tfrmqtshd_lr.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (adoquery2.State in[dsinsert]) or (adoquery2.State in[dsedit]) then
   begin
   if messagebox(handle,'该单尚在编辑状态，是否放弃编辑？','询问',mb_yesno+mb_iconquestion)=idyes then
      begin
      RzBitBtn3Click(self);
      end else begin
      RzBitBtn8Click(self);
      end;
   end;
action:=cafree;
end;

procedure Tfrmqtshd_lr.RzBitBtn4Click(Sender: TObject);
begin
if not qxjc(userid,'shd_del') and (username<>trim(dbedit4.Text)) then exit;
if jcsj then exit;
if messagebox(handle,'是否真的要取消该送货单，并将该单上的所有物料还原？','询问',mb_yesno+mb_iconquestion)=idno then
   begin
        exit;
   end;
try
   begin
   strsql:='exec p_shd_del '+''''+trim(dbedit1.Text)+''''+','+''''+trim(dbedit3.Text)+
          ''''+','+''''+trim(dbedit6.Text)+''''+','+''''+trim(username)+'''';
   adodel(adoquery3,strsql);
   adoquery2.Delete;
   end;
except
   showmessage('删除收货单'+trim(dbedit1.Text)+'出错!');
   exit;
end;
adoquery3.Close;
adoquery1.close;
adoquery1.Open;
end;

procedure Tfrmqtshd_lr.RzBitBtn5Click(Sender: TObject);
begin
frmcx:=tfrmcx.Create(self);
frmcx.adocx:=adoquery2;
frmcx.ShowModal;
adoquery2:=frmcx.adocx;
ADOquery2.Requery();
end;

procedure Tfrmqtshd_lr.N1Click(Sender: TObject);
begin
if not qxjc(userid,'shd_edit') and (username<>trim(dbedit4.Text)) then exit;
strsql:='delete from shd_detail where shdh='+''''+trim(adoquery1.fieldbyname('收货单号').AsString)+
''''+'and wldm='+''''+trim(adoquery1.fieldbyname('物料代码').AsString)+'''';
adodel(adoquery3,strsql);
adoquery3.Close;
adoquery1.Close;
adoquery1.Open;
end;

procedure Tfrmqtshd_lr.N2Click(Sender: TObject);
var
a:string;
begin
if not qxjc(userid,'shd_edit') and (username<>trim(dbedit4.Text)) then exit;
if adoquery2.Recordset.eof and adoquery2.Recordset.BOF then exit;
if (adoquery2.State in[dsedit]) or (adoquery2.State in[dsinsert]) then
    begin
    showmessage('回仓单尚处于编辑状态，保存编辑结果后，才能增加记录!');
    exit;
    end;
wldm:='';
frmwllb.ShowModal;
if wldm='' then exit;
strsql:='select * from shd_detail where shdh='+''''+trim(dbedit1.Text)+''''+
'and wldm='+''''+wldm+'''';
adoexect(adoquery3,strsql);
if adoquery3.Recordset.BOF and adoquery3.Recordset.EOF then
   begin
   adoquery3.Append;
   adoquery3.FieldByName('shdh').AsString:=trim(dbedit1.Text);
   adoquery3.FieldByName('wldm').AsString:=wldm;
   adoquery3.FieldByName('yssl').Value:=0;
   adoquery3.FieldByName('sssl').value:=0;
   adoquery3.FieldByName('dj').value:=dj;
   adoquery3.Post;
   end else begin
   showmessage('物料'+wldm+'已经存在');
   exit;
   end;
adoquery3.Close;
adoquery1.Close;
adoquery1.Open;
adoquery1.First;
RzPageControl1.ActivePageIndex:=1;
end;

procedure Tfrmqtshd_lr.RzBitBtn6Click(Sender: TObject);
begin
if adoquery5.Active then adoquery5.Close;
adoquery5.Parameters.ParamByName('shdh').Value:=trim(dbedit1.Text);
frReport1.DoublePass := True;
frReport1.Clear;
frReport1.LoadFromFile(strpath+'/report/shd.frf');
frVariables['username']:=username;
frreport1.ShowReport;
end;

procedure Tfrmqtshd_lr.RzToolbarButton3Click(Sender: TObject);
begin
if (not(adoquery2.State in [dsinsert])) and (not(adoquery2.State in [dsedit])) then exit;
emplyer:='';
frmemplyer_lb:=tfrmemplyer_lb.create(self);
frmemplyer_lb.showmodal;
dbedit13.Text:=emplyer;
end;

procedure Tfrmqtshd_lr.DBComboBox1Change(Sender: TObject);
begin
if trim(dbcombobox1.Text)='人民币' then
dbedit14.Text:='￥';
if trim(dbcombobox1.Text)='美圆' then
dbedit14.Text:='US$';
if trim(dbcombobox1.Text)='港币' then
dbedit14.Text:='HK$';
end;

procedure Tfrmqtshd_lr.DBGridEh1TitleClick(Column: TColumnEh);
begin
 Compositor(adoquery1,Column);
end;

procedure Tfrmqtshd_lr.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
 if gdselected in state then//如果当前区域是被选区域
    begin
      //设置被选区域颜色
      tDBGridEh(sender).Canvas.Brush.Color:=clinfobk;
      //设置被选区域字体颜色
      tDBGridEh(sender).Canvas.Font.Color:=clfuchsia;
    end
  else //如果是当前区域不是被选择区域
    begin
     //如果是偶数行，则背景颜色为 clskyblue
     if tDBGridEh(sender).DataSource.DataSet.RecNo mod 2 =0 then
        tDBGridEh(sender).Canvas.Brush.Color:=clskyblue
     else
     //如果是奇数行，则背景颜色为 clinactivecaptiontext
        tDBGridEh(sender).Canvas.Brush.Color:=clWhite;
    end;
  //调用默认的绘图函数
  tDBGridEh(sender).DefaultDrawColumnCell(rect,datacol,column,state);

end;

procedure Tfrmqtshd_lr.RzPageControl1Change(Sender: TObject);
begin
if not qxjc(userid,'shd_edit') and (username<>trim(dbedit4.Text)) then 
RzPageControl1.ActivePageIndex:=0;
end;

end.