ufld_lr.pas

工廠倉庫管理系統

       try
           begin
           strsql:='exec p_fld_lr '+''''+trim(dbedit1.Text)+''''+','+''''+trim(dbedit3.Text)+
           ''''+','+''''+trim(dbcombobox1.text)+''''+
           ','+''''+trim(dbcombobox3.Text)+'''';
           adodel(adoquery3,strsql);
           end;
       except
           begin
           showmessage('发货单生成失败！');
           exit;
           end;
       end;
   end;
}
adoquery3.Close;
adoquery2.Post;
adoquery1.Close;
adoquery1.Open;
lldh:='';
isedit:=false;
isactive;
RzBitBtn1.Enabled:=true;
RzBitBtn2.Enabled:=true;
RzBitBtn3.Enabled:=false;
dbcombobox1.ReadOnly:=true;
DBEdit3.ReadOnly:=true;
DBEdit7.ReadOnly:=true;
dbmemo1.ReadOnly:=true;
end;

procedure Tfrmfld_lr.RzBitBtn8Click(Sender: TObject);
begin
adoquery2.CancelUpdates;
isedit:=false;
isactive;
RzBitBtn1.Enabled:=true;
RzBitBtn2.Enabled:=true;          
RzBitBtn3.Enabled:=false;
dbcombobox1.ReadOnly:=true;
DBEdit7.ReadOnly:=true;
dbmemo1.ReadOnly:=true;
lldh:='';
end;

procedure Tfrmfld_lr.TabSheet2Enter(Sender: TObject);
begin
if adoquery1.Recordset.EOF and adoquery1.Recordset.BOF then exit;
edit1.Text:=adoquery1.fieldbyname('实发数量').AsString;
edit2.Text:=adoquery1.fieldbyname('应发数量').AsString;
sfsl:= adoquery1.fieldbyname('实发数量').Value;
edit1.SetFocus;
end;

procedure Tfrmfld_lr.RzBitBtn9Click(Sender: TObject);
begin
if sfscwb then exit;
if strtofloat(edit1.Text)>adoquery1.FieldByName('应发数量').Value*1.1 then
   begin
   if messagebox(handle,'领料数量超过实际分配数量10%，是否继续发料？','询问',mb_yesno+mb_iconquestion)=idno then
      begin
      edit1.Text:=adoquery1.fieldbyname('应发数量').AsString;
      edit1.SetFocus;
      exit;
      end;
   end;
strsql:='select * from order_wlfp where wldm='+''''+trim(adoquery1.fieldbyname('物料代码').AsString)+''''+
'and gdhm='+''''+trim(dbedit3.Text)+''''+'and ylbm='+''''+trim(dbcombobox1.text)+'''';
adoexect(adoquery3,strsql);
if adoquery3.FieldByName('yfpsl').value-adoquery3.FieldByName('ylsl').value<strtofloat(edit1.Text)-sfsl then
   begin
   messagebox(handle,'分配数量不足！，无法继续发料！','警告',mb_ok+mb_iconwarning);
   adoquery3.Close;
   exit;
   end;
try
   strsql:='select * from fld_detail where fldh='+''''+trim(adoquery1.fieldbyname('发料单号').AsString)+''''+
   'and wldm='+''''+trim(adoquery1.fieldbyname('物料代码').AsString)+'''';
   adoexect(adoquery3,strsql);
   adoquery3.Edit;
   adoquery3.FieldByName('sfsl').Value:=strtofloat(edit1.Text);
   adoquery3.Post;
except
   showmessage('更新数据库失败');
end;
adoquery3.Close;
adoquery1.Close;
adoquery1.Open;
RzPageControl1.ActivePageIndex:=0;
end;

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

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

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

procedure Tfrmfld_lr.DBGridEh1DblClick(Sender: TObject);
begin
if adoquery1.Recordset.EOF and adoquery1.Recordset.BOF then exit;
RzPageControl1.ActivePageIndex:=1;
end;

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

procedure Tfrmfld_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;
frReport1.Free;
action:=cafree;
end;

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

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

procedure Tfrmfld_lr.N1Click(Sender: TObject);
begin
if sfscwb then exit;
if not qxjc(userid,'fld_edit') and (username<>trim(dbedit4.Text)) then exit;
strsql:='delete from fld_detail where fldh='+''''+trim(adoquery1.fieldbyname('发料单号').AsString)+
''''+'and wldm='+''''+trim(adoquery1.fieldbyname('物料代码').AsString)+'''';
adodel(adoquery3,strsql);
adoquery3.Close;
adoquery1.Close;
adoquery1.Open;
end;

procedure Tfrmfld_lr.N2Click(Sender: TObject);
var
a:string;
begin
if sfscwb then exit;
if not qxjc(userid,'fld_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;
gdhm:=trim(dbedit3.Text);
ylbm:=trim(dbcombobox1.Text);
gcdh:=trim(dbedit5.Text);
chang:=trim(dbcombobox3.Text);
frmgdwl:=tfrmgdwl.Create(self);
frmgdwl.ShowModal;
if wldm='' then exit;
strsql:='select * from fld_detail where fldh='+''''+trim(dbedit1.Text)+''''+
'and wldm='+''''+wldm+'''';
adoexect(adoquery3,strsql);
if not(adoquery3.Recordset.BOF and adoquery3.Recordset.EOF) then
   begin
   showmessage('此物料在该发料单上已经存在');
   exit;
   end;
if chang='力盈' then
    strsql:='insert fld_detail(fldh,wldm,yfsl,sfsl) select '+''''+trim(dbedit1.text)+''''+',wldm,let_wlsl,'+
    'case when let_yfpsl>=let_xql then let_wlsl else let_yfpsl-let_ylsl end from order_wlfp where order_wlfp.wldm='+
    ''''+wldm+''''+' and order_wlfp.gdhm='+''''+trim(dbedit3.text)+''''+' and '+
    'ylbm='+''''+trim(dbcombobox1.text)+''''
    else
    strsql:='insert fld_detail(fldh,wldm,yfsl,sfsl) select '+''''+trim(dbedit1.text)+''''+',wldm,good_wlsl,'+
    'case when good_yfpsl>=good_xql then good_wlsl else good_yfpsl-good_ylsl end from order_wlfp where order_wlfp.wldm='+
    ''''+wldm+''''+' and order_wlfp.gdhm='+''''+trim(dbedit3.text)+''''+' and '+
    'ylbm='+''''+trim(dbcombobox1.text)+'''';

adodel(adoquery3,strsql);
adoquery4.Close;
adoquery3.Close;
adoquery1.Close;
adoquery1.Open;
adoquery1.First;
RzPageControl1.ActivePageIndex:=1;
gdhm:='';
ylbm:='';
strhthm:='';
end;

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

procedure Tfrmfld_lr.DBEdit3Exit(Sender: TObject);
begin
   RzToolbarButton1.Visible:=false;
end;

procedure Tfrmfld_lr.DBEdit3Enter(Sender: TObject);
begin
RzToolbarButton1.Visible:=true;
end;

procedure Tfrmfld_lr.DBEdit5Enter(Sender: TObject);
begin
RzToolbarButton3.Visible:=true;
end;

procedure Tfrmfld_lr.DBEdit5Exit(Sender: TObject);
begin
RzToolbarButton3.Visible:=false;
end;

procedure Tfrmfld_lr.RzToolbarButton3Click(Sender: TObject);
begin
gcdh:='';
strhthm:=trim(dbedit3.Text);
if strhthm='' then exit;
frmhtlb:=tfrmhtlb.Create(self);
frmhtlb.ShowModal;
dbedit5.Text:=gcdh;
end;

procedure Tfrmfld_lr.RzToolbarButton1Click(Sender: TObject);
begin
if (not(adoquery2.State in [dsinsert])) and (not(adoquery2.State in [dsedit])) then exit;
strhthm:='';
frmhthm_lb:=tfrmhthm_lb.Create(self);
frmhthm_lb.ShowModal;
strsql:='select gdhm from ddk where yscwb=1 and gdhm = '+''''+trim(strhthm)+'''';
adoexect(adoquery3,strsql);
if not(adoquery3.Recordset.eof and adoquery3.Recordset.BOF) then
   begin
        messagebox(handle,'该工单已经结算,不能再发料！','信息',mb_ok+mb_iconinformation);
        exit;
   end;
dbedit3.Text:=strhthm;
end;

procedure Tfrmfld_lr.RzToolbarButton2Click(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;
dbedit7.Text:=emplyer;
end;

procedure Tfrmfld_lr.DBEdit7Enter(Sender: TObject);
begin
RzToolbarButton2.Visible:=true;
end;

procedure Tfrmfld_lr.DBEdit7Exit(Sender: TObject);
begin
RzToolbarButton2.Visible:=false;
end;

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

procedure Tfrmfld_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 adoquery1.FieldByName('应发数量').value<>adoquery1.FieldByName('实发数量').value  then
        tDBGridEh(sender).Canvas.Brush.Color:=clyellow
     else
     //如果是奇数行，则背景颜色为 clinactivecaptiontext
        tDBGridEh(sender).Canvas.Brush.Color:=clWhite;
    end;
  //调用默认的绘图函数
  tDBGridEh(sender).DefaultDrawColumnCell(rect,datacol,column,state);

end;

end.