umaterial_info.pas

工廠採購管理系統

      'pym as 拼音码,cgdw as 采购单位,cgbl as 采购比率,yfpkc as 已分配库存,srrq as 日期,'+
      'node as 备注,kuwei as 库位 from wldmk  order by pym asc';
      2,3,4,5,6:
       strsql:='select wldm as 物料代码,bigclass as 大类,smallclass as 小类,'+
      'wlmc as 名称,dw as 单位,wlsh as 色号,wlys as 颜色,sjkc as 实际库存,'+
      'sykc as 剩余库存,dj as 单价,aqkc as 安全库存,ylbm as 部门,djr as 操作,gysdm as 供应商,'+
      'pym as 拼音码,cgdw as 采购单位,cgbl as 采购比率,yfpkc as 已分配库存,srrq as 日期,'+
      'node as 备注,kuwei as 库位 from wldmk where smallclass=' + ''''+  lbmc + '''' +'order by pym asc';
end;
 adoexect(adoquery1,strsql);

end;


procedure Tfrmmaterial_info.RzBitBtn7Click(Sender: TObject);
begin
if (dbedit14.text='') or (dbedit17.text='') or (dbedit4.text='') or (dbedit13.text='') or
(dbedit18.text='') or (RzDBLookupComboBox3.text='') or(dbedit6.Text='') or (dbedit19.Text='') or
(dbedit2.text='') or (dbedit7.Text='') or (dbedit12.text='') or (dbedit9.text='') then
begin
messagebox(handle,'你填写的资料不完整？','警告',mb_ok+mb_iconwarning);
exit;
end;
if dbedit4.text='0'  then
   begin
        showmessage('采购比率不能为0');
        dbedit4.SetFocus;
        exit;
   end;
if adoquery1.State in[dsinsert] then
   begin
   strsql:='select wldm from wldmk order by wldm desc';
   adoexect(adoquery3,strsql);
   if not(adoquery3.Recordset.eof and adoquery3.Recordset.bof) then
      begin
      adoquery3.First;
      dbedit1.Text:=inttostr(strtoint(trim(adoquery3.fieldbyname('wldm').AsString))+1)
      end else begin
      dbedit1.Text:='100000';
      end;
   end;
if savedata(adoquery1,'wldmk',trim(dbedit13.Text),id,'pym') then
begin
adoquery1.Post;
messagebox(handle,'操作成功','警告',mb_ok+mb_iconinformation);
adoquery1.Requery();
if isedit then
   begin
   PageControl1.ActivePageIndex:=0;
   end;
RzBitBtn7.Enabled:=false;
addedit:=false;
cwlmc:=trim(dbedit4.Text);
cgysmc:=trim(dbedit15.Text);
RzBitBtn1.Enabled:=true;
RzBitBtn2.Enabled:=true;
DBNavigator1.Enabled:=true;
treeview1.Enabled:=true;
dbedit2.Enabled:=true;
dbedit6.Enabled:=true;
dbedit7.Enabled:=true;
dbedit12.Enabled:=true;
end;
end;

procedure Tfrmmaterial_info.RzBitBtn6Click(Sender: TObject);
begin
close;
end;

procedure Tfrmmaterial_info.RzBitBtn8Click(Sender: TObject);
begin
RzBitBtn7.Enabled:=false;
addedit:=false;
adoquery1.CancelUpdates;
PageControl1.ActivePageIndex:=0;
RzBitBtn1.Enabled:=true;
RzBitBtn2.Enabled:=true;
DBNavigator1.Enabled:=true;
treeview1.Enabled:=true;
dbedit2.Enabled:=true;
dbedit6.Enabled:=true;
dbedit7.Enabled:=true;
dbedit12.Enabled:=true;
end;

procedure Tfrmmaterial_info.RzBitBtn4Click(Sender: TObject);
begin
form3.frDBDataSet1.dataset:=adoquery1;
form3.frReport1.DoublePass := True;
form3.frReport1.Clear;
form3.frReport1.LoadFromFile(strpath+'/report/wlda.frf');
frVariables['username']:=username;
form3.frReport1.Preview := Form3.frPreview1;
if form3.frReport1.PrepareReport then
  begin
    form3.frReport1.ShowPreparedReport;
  end;
form3.ShowModal;

end;

procedure Tfrmmaterial_info.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if adoquery1.FieldByName('剩余库存').Value < adoquery1.FieldByName('安全库存').Value then begin
dbgrid1.Canvas.Brush.Color:=clYellow;
dbgrid1.DefaultDrawColumnCell(rect,datacol,column,[gdfixed,gdfocused,gdselected]);
end;
end;

procedure Tfrmmaterial_info.RzBitBtn5Click(Sender: TObject);
begin
frmcx:=tfrmcx.Create(self);
frmcx.adocx:=adoquery1;
frmcx.ShowModal;
adoquery1:=frmcx.adocx;
ADOquery1.Requery();
dbgrid1.Refresh;
end;

procedure Tfrmmaterial_info.PageControl1Change(Sender: TObject);
begin
if addedit then
   begin
   PageControl1.ActivePageIndex:=1;
   DBNavigator1.Enabled:=false;
   treeview1.Enabled:=false;
   end else begin
   PageControl1.ActivePageIndex:=0;
   DBNavigator1.Enabled:=true;
   treeview1.Enabled:=true
   end;
end;

procedure Tfrmmaterial_info.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
      strsql:='select wldm as 物料代码,bigclass as 大类,smallclass as 小类,'+
      'wlmc as 名称,dw as 单位,wlsh as 色号,wlys as 颜色,sjkc as 实际库存,'+
      'sykc as 剩余库存,dj as 单价,aqkc as 安全库存,ylbm as 部门,djr as 操作,gysdm as 供应商,'+
      'pym as 拼音码,cgdw as 采购单位,cgbl as 采购比率,yfpkc as 已分配库存,srrq as 日期,'+
      'node as 备注,kuwei as 库位 from wldmk  where aqkc<sykc order by pym asc'
 else
      strsql:='select wldm as 物料代码,bigclass as 大类,smallclass as 小类,'+
      'wlmc as 名称,dw as 单位,wlsh as 色号,wlys as 颜色,sjkc as 实际库存,'+
      'sykc as 剩余库存,dj as 单价,aqkc as 安全库存,ylbm as 部门,djr as 操作,gysdm as 供应商,'+
      'pym as 拼音码,cgdw as 采购单位,cgbl as 采购比率,yfpkc as 已分配库存,srrq as 日期,'+
      'node as 备注,kuwei as 库位 from wldmk  order by pym asc';
 adoexect(adoquery1,strsql);
 end;

procedure Tfrmmaterial_info.RzMenuToolbarButton1Click(Sender: TObject);
begin
bigclass:='';
smallclass:='';
frmwllbxz:=tfrmwllbxz.create(self);
frmwllbxz.ShowModal;
if bigclass='' then exit;
dbedit17.Text:=bigclass;
if smallclass='' then exit;
dbedit9.Text:=smallclass;
end;

procedure Tfrmmaterial_info.RzMenuToolbarButton2Click(Sender: TObject);
begin
frmgyslb:=tfrmgyslb.Create(self);
frmgyslb.ShowModal;
dbedit15.Text:=title;
end;

procedure Tfrmmaterial_info.DBLookupComboBox1Enter(Sender: TObject);
begin
RzMenuToolbarButton2.Visible:=true;

end;

procedure Tfrmmaterial_info.DBLookupComboBox1Exit(Sender: TObject);
begin
RzMenuToolbarButton2.Visible:=false;
end;

procedure Tfrmmaterial_info.Edit1Change(Sender: TObject);
begin
      strsql:='select wldm as 物料代码,bigclass as 大类,smallclass as 小类,'+
      'wlmc as 名称,dw as 单位,wlsh as 色号,wlys as 颜色,sjkc as 实际库存,'+
      'sykc as 剩余库存,dj as 单价,aqkc as 安全库存,ylbm as 部门,djr as 操作,gysdm as 供应商,'+
      'pym as 拼音码,cgdw as 采购单位,cgbl as 采购比率,yfpkc as 已分配库存,srrq as 日期,'+
      'node as 备注,kuwei as 库位 from wldmk where pym like '+''''+trim(edit1.Text)+'%'+''''+
      ' or wldm like '+''''+trim(edit1.text)+'%'+''''+' order by pym asc';
      adoexect(adoquery1,strsql);
      if adoquery1.Recordset.eof and adoquery1.Recordset.bof then
         begin
               strsql:='select wldm as 物料代码,bigclass as 大类,smallclass as 小类,'+
              'wlmc as 名称,dw as 单位,wlsh as 色号,wlys as 颜色,sjkc as 实际库存,'+
              'sykc as 剩余库存,dj as 单价,aqkc as 安全库存,ylbm as 部门,djr as 操作,gysdm as 供应商,'+
              'pym as 拼音码,cgdw as 采购单位,cgbl as 采购比率,yfpkc as 已分配库存,srrq as 日期,'+
              'node as 备注,kuwei as 库位 from wldmk where wlmc like '+''''+'%'+trim(edit1.Text)+'%'+''''+' order by pym asc';
              adoexect(adoquery1,strsql);
        end;

end;
procedure Tfrmmaterial_info.DBGrid1KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=#27 then
       begin
       GroupBox2.Visible:=false;
       end;
end;

procedure Tfrmmaterial_info.reachClick(Sender: TObject);
begin
       if (adoquery1.State in[dsinsert]) or (adoquery1.State in[dsedit]) then exit;
       GroupBox2.Visible:=true;
       PageControl1.ActivePageIndex:=0;
       edit1.SetFocus;
end;

procedure Tfrmmaterial_info.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then
       begin
       GroupBox2.Visible:=false;
       end;
end;

procedure Tfrmmaterial_info.DBGrid1TitleClick(Column: TColumn);
begin
dgridpx(adoquery1,DBGrid1,Column);
end;

procedure Tfrmmaterial_info.RzToolbarButton2Click(Sender: TObject);
begin
danwei:='';
frmwlsmallclass:=tfrmwlsmallclass.Create(self);
frmwlsmallclass.ShowModal;
if danwei='' then exit;
dbedit19.Text:=danwei;
end;

procedure Tfrmmaterial_info.RzToolbarButton1Click(Sender: TObject);
begin
danwei:='';
frmwlsmallclass:=tfrmwlsmallclass.Create(self);
frmwlsmallclass.ShowModal;
if danwei='' then exit;
dbedit18.Text:=danwei;
end;

procedure Tfrmmaterial_info.DBEdit4DblClick(Sender: TObject);
begin
dbedit4.Text:=cwlmc;
end;

procedure Tfrmmaterial_info.DBEdit15DblClick(Sender: TObject);
begin
dbedit15.text:=cgysmc;
end;

end.