⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 inv150_02.pas.svn-base

📁 这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
💻 SVN-BASE
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
  qryInv110.Open;
  qryInv120.Open;
  qryInv140.Open;
  qryOrd150.Open;
  qryHrm150.Open;

  cbVolUnit.Clear;
  cbWetUnit.Clear;
  cbLongUnit.Clear;
  while not qryInv140.Eof do
  begin
    //0=數量單位，1=重量單位，2=長度單位，3=面積單位，4=容積單位，5=時間單位
    case qryInv140I140_004.AsInteger of
      1:cbWetUnit.Items.Add(qryInv140I140_003.AsString);
      2:cbLongUnit.Items.Add(qryInv140I140_003.AsString);
      4:cbVolUnit.Items.Add(qryInv140I140_003.AsString);
    end;
    qryInv140.Next;
  end;
  cbVolUnit.ItemIndex:=0;
  cbWetUnit.ItemIndex:=0;
  cbLongUnit.ItemIndex:=0;
end;

procedure TInv150_02Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  qryInv100.Close;
  qryInv110.Close;
  qryInv120.Close;
  qryInv140.Close;
  qryOrd150.Close;
  qryHrm150.Close;
end;

procedure TInv150_02Form.DeleteEvent;
begin
  inherited;
  if IsExists('select 1 from INV501 where I501_003='+ADOQuery1I150_001.AsString) then
  begin
    ShowMsg('UMS10000478');  //该记录已被料品库存表所引用，不可删除
    Abort;
  end;
  if IsExists('select 1 from ORD130 where O130_003='+ADOQuery1I150_001.AsString) then
  begin
    ShowMsg('UMS10000479');  //该记录已被销售价格表所引用，不可删除
    Abort;
  end;
  if IsExists('select 1 from PUR120 where P120_002='+ADOQuery1I150_001.AsString) then
  begin
    ShowMsg('UMS10000480');  //该记录已被采购价格表所引用，不可删除
    Abort;
  end;
  if IsExists('select 1 from ORD153 where O153_002='+ADOQuery1I150_001.AsString) then
  begin
    ShowMsg('UMS10000481');  //该记录已被客户资料的产品资料表所引用，不可删除
    Abort;
  end;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('delete from INV151 where I151_001='+ADOQuery1I150_001.AsString);
  SYSDM.qryQuery.ExecSQL;
  DeleteTableRecord(ADOQuery1,'INV150','I150_001='+ADOQuery1I150_001.AsString);
end;

procedure TInv150_02Form.GetDataInfo;
begin
  inherited;
  if ABusy then Exit;
  edtCode.Text:=ADOQuery1.FieldByName('I150_002').AsString;
  edtBarcode.Text:=ADOQuery1.FieldByName('I150_009').AsString;
  cbStatues.ItemIndex:=ADOQuery1.FieldByName('I150_007').AsInteger;
  edtName.Text:=ADOQuery1.FieldByName('I150_003').AsString;
  edtEngName.Text:=ADOQuery1.FieldByName('I150_008').AsString;
  edtSpec.Text:=ADOQuery1.FieldByName('I150_004').AsString;
  qryInv120.Locate('I120_001',ADOQuery1.FieldByName('I150_005').Value,[]);
  cbClass.Text:=ADOQuery1.FieldByName('I120_003').AsString;
  cbType.ItemIndex:=ADOQuery1.FieldByName('I150_006').AsInteger;
  edtMakeID.Text:=ADOQuery1.FieldByName('M150_002').AsString;
  edtMakeName.Text:=ADOQuery1.FieldByName('M150_003').AsString;
  edtInvUnit.Text:=ADOQuery1.FieldByName('I140_002').AsString;
  edtInvUnitName.Text:=ADOQuery1.FieldByName('I140_003').AsString;
  edtPurUnit.Text:=ADOQuery1.FieldByName('P140_002').AsString;
  edtPurUnitName.Text:=ADOQuery1.FieldByName('P140_003').AsString;
  edtOrdUnit.Text:=ADOQuery1.FieldByName('O140_002').AsString;
  edtOrdUnitName.Text:=ADOQuery1.FieldByName('O140_003').AsString;
  edtPurToInv.Text:=ADOQuery1.FieldByName('I150_013').AsString;
  edtOrdToInv.Text:=ADOQuery1.FieldByName('I150_015').AsString;
  edtVolume.Text:=ADOQuery1.FieldByName('I150_016').AsString;
  cbVolUnit.Text:=ADOQuery1.FieldByName('V140_003').AsString;
  edtWeight.Text:=ADOQuery1.FieldByName('I150_018').AsString;
  cbWetUnit.Text:=ADOQuery1.FieldByName('W140_003').AsString;
  cbLongUnit.Text:=ADOQuery1.FieldByName('L140_003').AsString;
  edtLong.Text:=ADOQuery1.FieldByName('I150_021').AsString;
  edtWidth.Text:=ADOQuery1.FieldByName('I150_022').AsString;
  edtHeight.Text:=ADOQuery1.FieldByName('I150_023').AsString;
  edtCreateDate.Text:=ADOQuery1.FieldByName('I150_049').AsString;
  edtCreateBy.Text:=ADOQuery1.FieldByName('I150_050').AsString;
  edtUpdateDate.Text:=ADOQuery1.FieldByName('I150_051').AsString;
  edtUpdateBy.Text:=ADOQuery1.FieldByName('I150_052').AsString;

  edtWhsID.Text:=ADOQuery1.FieldByName('I100_002').AsString;
  edtWhsName.Text:=ADOQuery1.FieldByName('I100_003').AsString;
  edtLocID.Text:=ADOQuery1.FieldByName('I110_003').AsString;
  edtLocName.Text:=ADOQuery1.FieldByName('I110_004').AsString;
  cbABC.ItemIndex:=ADOQuery1.FieldByName('I150_028').AsInteger;
  edtDate.Text:=ADOQuery1.FieldByName('I150_029').AsString;
  edtBuyer.Text:=ADOQuery1.FieldByName('P150_002').AsString;
  edtBuyerName.Text:=ADOQuery1.FieldByName('P150_003').AsString;
  edtPlanner.Text:=ADOQuery1.FieldByName('H150_002').AsString;
  edtPlannerName.Text:=ADOQuery1.FieldByName('H150_003').AsString;
  edtLowInv.Text:=ADOQuery1.FieldByName('I150_032').AsString;
  edtHighInv.Text:=ADOQuery1.FieldByName('I150_033').AsString;
  edtLowPrice.Text:=ADOQuery1.FieldByName('I150_034').AsString;
  edtHighPrice.Text:=ADOQuery1.FieldByName('I150_035').AsString;
  cbIsLot.Checked:=ADOQuery1.FieldByName('I150_026').AsBoolean;
  cbIsSale.Checked:=ADOQuery1.FieldByName('I150_027').AsBoolean;
  edtCount.Text:=ADOQuery1.FieldByName('I150_036').AsString;
  cbTimeUnit.Text:=ADOQuery1.FieldByName('T140_003').AsString;
  edtCountDate.Text:=ADOQuery1.FieldByName('I150_038').AsString;
  edtDays.Text:=ADOQuery1.FieldByName('I150_053').AsString;

  edtVendID1.Text:=ADOQuery1.FieldByName('V150_002').AsString;
  edtVendName1.Text:=ADOQuery1.FieldByName('V150_003').AsString;
  edtVendID2.Text:=ADOQuery1.FieldByName('O150_002').AsString;
  edtVendName2.Text:=ADOQuery1.FieldByName('O150_003').AsString;
  cbPur.ItemIndex:=ADOQuery1.FieldByName('I150_041').AsInteger;
  cbMRP.ItemIndex:=ADOQuery1.FieldByName('I150_042').AsInteger;
  edtLots.Text:=ADOQuery1.FieldByName('I150_043').AsString;
  edtAdd.Text:=ADOQuery1.FieldByName('I150_044').AsString;
  edtCost.Text:=ADOQuery1.FieldByName('I150_045').AsString;
  edtOrderDays.Text:=ADOQuery1.FieldByName('I150_046').AsString;
  edtLead.Text:=ADOQuery1.FieldByName('I150_047').AsString;
  edtAvgLot.Text:=ADOQuery1.FieldByName('I150_048').AsString;
  imgPicture.Picture.Graphic:=nil;
  imgPicture.Repaint;
  ScrollBox4.Enabled:=True;

  cbPurChange(cbPur);
  cbIsSaleClick(cbIsSale);

  ARecNo:=0;
  adsInv151.Close;
  adsInv151.CreateDataSet;
  adsInv151.AfterScroll:=nil;
  qryQuery.Close;
  qryQuery.SQL.Clear;
  qryQuery.SQL.Add('select I151_001,I151_002,I151_004 from INV151 where I151_001='+ADOQuery1.FieldByName('I150_001').AsString+' order by I151_001,I151_002');
  qryQuery.Open;
  while not qryQuery.Eof do
  begin
    adsInv151.Append;
    adsInv151.FieldByName('FItemNo').Value:=qryQuery.FieldByName('I151_001').Value;
    adsInv151.FieldByName('FPictNo').Value:=qryQuery.FieldByName('I151_002').Value;
    adsInv151.FieldByName('FFileName').Value:='';
    adsInv151.FieldByName('FFileExt').Value:=qryQuery.FieldByName('I151_004').Value;
    adsInv151.FieldByName('FType').Value:='';
    adsInv151.Post;
    qryQuery.Next;
  end;
  adsInv151.First;
  adsInv151.AfterScroll:=adsInv151AfterScroll;
  adsInv151AfterScroll(adsInv151);
  if not adsInv151.IsEmpty then ARecNo:=1;
  lblPage.Caption:=IntToStr(ARecNo)+' / '+IntToStr(adsInv151.RecordCount);
end;

procedure TInv150_02Form.InsertEvent;
begin
  inherited;
  edtCode.Text:='';
  edtBarcode.Text:='';
  cbStatues.ItemIndex:=0;
  edtName.Text:='';
  edtEngName.Text:='';
  edtSpec.Text:='';
  cbClass.Text:='';
  cbType.ItemIndex:=0;
  edtMakeID.Text:='';
  edtMakeName.Text:='';
  edtInvUnit.Text:='';
  edtInvUnitName.Text:='';
  edtPurUnit.Text:='';
  edtPurUnitName.Text:='';
  edtOrdUnit.Text:='';
  edtOrdUnitName.Text:='';
  edtPurToInv.Text:='1';
  edtOrdToInv.Text:='1';
  edtVolume.Text:='';
  cbVolUnit.Text:='';
  edtWeight.Text:='';
  cbWetUnit.Text:='';
  cbLongUnit.Text:='';
  edtLong.Text:='';
  edtWidth.Text:='';
  edtHeight.Text:='';

  edtWhsID.Text:='';
  edtWhsName.Text:='';
  edtLocID.Text:='';
  edtLocName.Text:='';
  cbABC.ItemIndex:=0;
  edtDate.Text:='';
  edtBuyer.Text:='';
  edtBuyerName.Text:='';
  edtPlanner.Text:='';
  edtPlannerName.Text:='';
  edtLowInv.Text:='';
  edtHighInv.Text:='';
  edtLowPrice.Text:='';
  edtHighPrice.Text:='';
  cbIsLot.Checked:=False;
  cbIsSale.Checked:=False;
  edtCount.Text:='1';
  cbTimeUnit.ItemIndex:=1;
  edtCountDate.Text:='';
  edtDays.Text:='';

  edtVendID1.Text:='';
  edtVendName1.Text:='';
  edtVendID2.Text:='';
  edtVendName2.Text:='';
  cbPur.ItemIndex:=1;
  cbPurChange(cbPur);
  cbIsSaleClick(cbIsSale);
  cbMRP.ItemIndex:=1;
  edtLots.Text:='';
  edtAdd.Text:='';
  edtCost.Text:='';
  edtLead.Text:='1';
  edtAvgLot.Text:='';
  edtOrderDays.Text:='';
  imgPicture.Update;
end;

procedure TInv150_02Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;

end;

procedure TInv150_02Form.SetEmptyInit;
begin
  inherited;
  edtCode.Text:='';
  edtBarcode.Text:='';
  cbStatues.ItemIndex:=-1;
  edtName.Text:='';
  edtEngName.Text:='';
  edtSpec.Text:='';
  cbClass.Text:='';
  cbType.ItemIndex:=-1;
  edtMakeID.Text:='';
  edtMakeName.Text:='';
  edtInvUnit.Text:='';
  edtInvUnitName.Text:='';
  edtPurUnit.Text:='';
  edtPurUnitName.Text:='';
  edtOrdUnit.Text:='';
  edtOrdUnitName.Text:='';
  edtPurToInv.Text:='';
  edtOrdToInv.Text:='';
  edtVolume.Text:='';
  cbVolUnit.Text:='';
  edtWeight.Text:='';
  cbWetUnit.Text:='';
  cbLongUnit.Text:='';
  edtLong.Text:='';
  edtWidth.Text:='';
  edtHeight.Text:='';
  edtCreateDate.Text:='';
  edtCreateBy.Text:='';
  edtUpdateDate.Text:='';
  edtUpdateBy.Text:='';

  edtWhsID.Text:='';
  edtWhsName.Text:='';
  edtLocID.Text:='';
  edtLocName.Text:='';
  cbABC.ItemIndex:=-1;
  edtDate.Text:='';
  edtBuyer.Text:='';
  edtBuyerName.Text:='';
  edtPlanner.Text:='';
  edtPlannerName.Text:='';
  edtLowInv.Text:='';
  edtHighInv.Text:='';
  edtLowPrice.Text:='';
  edtHighPrice.Text:='';
  cbIsLot.Checked:=False;
  cbIsSale.Checked:=False;
  edtCount.Text:='';
  edtCountDate.Text:='';
  edtDays.Text:='';

  edtVendID1.Text:='';
  edtVendName1.Text:='';
  edtVendID2.Text:='';
  edtVendName2.Text:='';
  cbPur.ItemIndex:=-1;
  cbMRP.ItemIndex:=-1;
  edtLots.Text:='';
  edtAdd.Text:='';
  edtCost.Text:='';
  edtLead.Text:='';
  edtAvgLot.Text:='';
  edtOrderDays.Text:='';
  imgPicture.Update;
end;

procedure TInv150_02Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('INV15002001');  //料品资料维护

  gbInfo.Caption:=GetDBString('INV15002002');  //基本信息
  gbUnit.Caption:=GetDBString('INV15002003');  //计量单位
  gbPackage.Caption:=GetDBString('INV15002004');  //重量体积
  gbWhs.Caption:=GetDBString('INV15002005');  //仓库信息
  gbLot.Caption:=GetDBString('INV15002006');  //控制信息
  gbInv.Caption:=GetDBString('INV15002007');  //存货管理
  gbCount.Caption:=GetDBString('INV15002008');  //盘点信息
  gbVend.Caption:=GetDBString('INV15002009');  //供应商信息
  gbPur.Caption:=GetDBString('INV15002010');  //采购信息
  memRemark.Lines.Clear;
  memRemark.Lines.Append(GetDBString('INV15002011'));  //
  memRemark.Lines.Append(GetDBString('INV15002140'));

  lblCode.Caption:=GetDBString('INV15002012');  //料品编号
  lblBarcode.Caption:=GetDBString('INV15002013');  //条形编码
  lblStatues.Caption:=GetDBString('INV15002014');  //料品状态
  lblName.Caption:=GetDBString('INV15002015');  //料品名称
  lblEngName.Caption:=GetDBString('INV15002016');  //英文名称
  lblSpec.Caption:=GetDBString('INV15002017');  //规格型号
  lblClass.Caption:=GetDBString('INV15002018');  //料品分类
  lblType.Caption:=GetDBString('INV15002019');  //料品类型
  lblMaker.Caption:=GetDBString('INV15002020');  //制造商号

  lblInvUnit.Caption:=GetDBString('INV15002021');  //库存单位
  lblPurUnit.Caption:=GetDBString('INV15002022');  //采购单位
  lblPurToInv.Caption:=GetDBString('INV15002023');  //转换系数
  lblOrdUnit.Caption:=GetDBString('INV15002024');  //销售单位
  lblOrdToInv.Caption:=GetDBString('INV15002025');  //转换系数

  lblVolume.Caption:=GetDBString('INV15002026');  //单位体积
  lblWeight.Caption:=GetDBString('INV15002027');  //单位重量
  lblPack.Caption:=GetDBString('INV15002028');  //包装尺寸
  lblLong.Caption:=GetDBString('INV15002029');  //长度
  lblWidth.Caption:=GetDBString('INV15002030');  //宽度
  lblHeight.Caption:=GetDBString('INV15002031');  //高度

  lblWhs.Caption:=GetDBString('INV15002032');  //缺省仓库
  lblLoc.Caption:=GetDBString('INV15002033');  //缺省库位
  cbIsLot.Caption:=GetDBString('INV15002034');  //批号控制
  cbIsSale.Caption:=GetDBString('INV15002035');  //是否销售

  lblABC.Caption:=GetDBString('INV15002036');  //ABC 编码
  lblDate.Caption:=GetDBString('INV15002037');  //进出日期
  lblLowInv.Caption:=GetDBString('INV15002038');  //最低库存
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -