📄 inv150_02.pas.svn-base
字号:
ADOQuery1.Insert;
ADOQuery1.FieldByName('I150_049').AsString:=edtCreateDate.Text; //建立日期
ADOQuery1.FieldByName('I150_050').AsString:=edtCreateBy.Text; //建立人员
ADOQuery1.FieldByName('I150_051').AsString:=edtUpdateDate.Text; //修改日期
ADOQuery1.FieldByName('I150_052').AsString:=edtUpdateBy.Text; //修改人员
end else
begin
ADate:=GetServerDate;
ADOQuery1.Edit;
ADOQuery1.FieldByName('I150_051').Value:=ADate; //修改日期
ADOQuery1.FieldByName('I150_052').Value:=AUserName; //修改人员
end;
ADOQuery1.FieldByName('I150_002').Value:=edtCode.Text; //料品编号
ADOQuery1.FieldByName('I150_003').Value:=edtName.Text; //料品名称
ADOQuery1.FieldByName('I150_004').AsString:=edtSpec.Text; //规格型号
ADOQuery1.FieldByName('I150_005').Value:=qryInv120.FieldByName('I120_001').Value; //料品分类
ADOQuery1.FieldByName('I150_006').Value:=cbType.ItemIndex; //料品类型
ADOQuery1.FieldByName('I150_007').Value:=cbStatues.ItemIndex; //料品状态
ADOQuery1.FieldByName('I150_008').AsString:=edtEngName.Text; //英文名称
ADOQuery1.FieldByName('I150_009').AsString:=edtBarcode.Text; //条形编码
if AMakeNo<>0 then
ADOQuery1.FieldByName('I150_010').Value:=AMakeNo; //制造商号
ADOQuery1.FieldByName('I150_011').Value:=AInvUnit; //库存单位
ADOQuery1.FieldByName('I150_012').Value:=APurUnit; //采购单位
ADOQuery1.FieldByName('I150_013').AsString:=edtPurToInv.Text; //采购单位转换
ADOQuery1.FieldByName('I150_014').Value:=AOrdUnit; //销售单位
ADOQuery1.FieldByName('I150_015').AsString:=edtOrdToInv.Text; //销售单位转换
ADOQuery1.FieldByName('I150_016').AsString:=edtVolume.Text; //单位体积
if AVolUnit<>0 then
ADOQuery1.FieldByName('I150_017').Value:=AVolUnit; //体积单位
if trim(edtWeight.Text)<>'' then ADOQuery1.FieldByName('I150_018').AsString:=edtWeight.Text; //单位重量
if AWetUnit<>0 then
ADOQuery1.FieldByName('I150_019').Value:=AWetUnit; //重量单位
if ALongUnit<>0 then
ADOQuery1.FieldByName('I150_020').Value:=ALongUnit; //包装单位
ADOQuery1.FieldByName('I150_021').AsString:=edtLong.Text; //包装长度
ADOQuery1.FieldByName('I150_022').AsString:=edtWidth.Text; //包装宽度
ADOQuery1.FieldByName('I150_023').AsString:=edtHeight.Text; //包装高度
if AWhsNo<>0 then
ADOQuery1.FieldByName('I150_024').Value:=AWhsNo; //缺省仓库
if ALocNo<>0 then
ADOQuery1.FieldByName('I150_025').Value:=ALocNo; //缺省库位
ADOQuery1.FieldByName('I150_026').Value:=cbIsLot.Checked; //批号控制
ADOQuery1.FieldByName('I150_027').Value:=cbIsSale.Checked; //是否销售
ADOQuery1.FieldByName('I150_028').Value:=cbABC.ItemIndex; //ABC 编码
ADOQuery1.FieldByName('I150_029').AsString:=edtDate.Text; //进出日期
if ABuyNo<>0 then
ADOQuery1.FieldByName('I150_030').Value:=ABuyNo; //采购人员
if APlanNo<>0 then
ADOQuery1.FieldByName('I150_031').Value:=APlanNo; //计划人员
ADOQuery1.FieldByName('I150_032').AsString:=edtLowInv.Text; //最低库存
ADOQuery1.FieldByName('I150_033').AsString:=edtHighInv.Text; //最高库存
ADOQuery1.FieldByName('I150_034').AsString:=edtLowPrice.Text; //最低售价
ADOQuery1.FieldByName('I150_035').AsString:=edtHighPrice.Text; //最高售价
ADOQuery1.FieldByName('I150_036').AsString:=edtCount.Text; //盘点周期
ADOQuery1.FieldByName('I150_037').Value:=cbTimeUnit.ItemIndex; //周期单位
ADOQuery1.FieldByName('I150_038').AsString:=edtCountDate.Text; //盘点日期
if AFirVend<>0 then
ADOQuery1.FieldByName('I150_039').Value:=AFirVend; //主供应商
if ASecVend<>0 then
ADOQuery1.FieldByName('I150_040').Value:=ASecVend; //次供应商
ADOQuery1.FieldByName('I150_041').Value:=cbPur.ItemIndex; //采购策略
ADOQuery1.FieldByName('I150_042').Value:=cbMRP.ItemIndex; //计划编码
ADOQuery1.FieldByName('I150_043').AsString:=edtLots.Text; //标准批量
ADOQuery1.FieldByName('I150_044').AsString:=edtAdd.Text; //定单增量
ADOQuery1.FieldByName('I150_045').AsString:=edtCost.Text; //购造成本
ADOQuery1.FieldByName('I150_046').AsString:=edtOrderDays.Text; //定单天数
ADOQuery1.FieldByName('I150_047').AsString:=edtLead.Text; //提前期天
ADOQuery1.FieldByName('I150_048').AsString:=edtAvgLot.Text; //日均产量
ADOQuery1.FieldByName('I150_053').AsString:=edtDays.Text; //寿命天数
end;
procedure TInv150_02Form.UpdateEvent;
begin
inherited;
end;
procedure TInv150_02Form.tbFirstClick(Sender: TObject);
begin
inherited;
//最前
if adsInv151.IsEmpty then Exit;
adsInv151.First;
tbFirst.Enabled:=False;
tbPrior.Enabled:=False;
tbNext.Enabled:=True;
tbLast.Enabled:=True;
ARecNo:=1;
lblPage.Caption:=IntToStr(ARecNo)+' / '+IntToStr(adsInv151.RecordCount);
end;
procedure TInv150_02Form.tbPriorClick(Sender: TObject);
begin
inherited;
//上移
if adsInv151.IsEmpty then Exit;
adsInv151.Prior;
tbNext.Enabled:=not adsInv151.Eof;
tbLast.Enabled:=not adsInv151.Eof;
tbFirst.Enabled:=not adsInv151.Bof;
tbPrior.Enabled:=not adsInv151.Bof;
if not adsInv151.Bof then ARecNo:=ARecNo-1;
lblPage.Caption:=IntToStr(ARecNo)+' / '+IntToStr(adsInv151.RecordCount);
end;
procedure TInv150_02Form.tbNextClick(Sender: TObject);
begin
inherited;
//下移
if adsInv151.IsEmpty then Exit;
adsInv151.Next;
tbNext.Enabled:=not adsInv151.Eof;
tbLast.Enabled:=not adsInv151.Eof;
tbFirst.Enabled:=not adsInv151.Bof;
tbPrior.Enabled:=not adsInv151.Bof;
if not adsInv151.Eof then ARecNo:=ARecNo+1;
lblPage.Caption:=IntToStr(ARecNo)+' / '+IntToStr(adsInv151.RecordCount);
end;
procedure TInv150_02Form.tbLastClick(Sender: TObject);
begin
inherited;
//最后
if adsInv151.IsEmpty then Exit;
adsInv151.Last;
tbNext.Enabled:=False;
tbLast.Enabled:=False;
tbFirst.Enabled:=True;
tbPrior.Enabled:=True;
ARecNo:=adsInv151.RecordCount;
lblPage.Caption:=IntToStr(ARecNo)+' / '+IntToStr(adsInv151.RecordCount);
end;
procedure TInv150_02Form.tbInsertClick(Sender: TObject);
var
I:Integer;
begin
inherited;
//新增
if not ActSave.Enabled then
begin
ShowMsg('UMS10000504'); //记录处于浏览状态下，操作无效
Abort;
end;
adsInv151.Last;
I:=adsInv151.FieldByName('FPictNo').AsInteger+1;
if OpenPictureDialog1.Execute then
begin
Screen.Cursor:=crHourGlass;
adsInv151.Append;
adsInv151.FieldByName('FItemNo').Value:=0;
adsInv151.FieldByName('FPictNo').Value:=I;
adsInv151.FieldByName('FFileName').Value:=OpenPictureDialog1.FileName;
adsInv151.FieldByName('FFileExt').Value:=ExtractFileExt(OpenPictureDialog1.FileName);
adsInv151.FieldByName('FType').AsString:='ADD';
adsInv151.Post;
ARecNo:=ARecNo+1;
lblPage.Caption:=IntToStr(ARecNo)+' / '+IntToStr(adsInv151.RecordCount);
imgPicture.Picture.LoadFromFile(OpenPictureDialog1.FileName);
imgPicture.Repaint;
Screen.Cursor:=crDefault;
end;
end;
procedure TInv150_02Form.tbUpdateClick(Sender: TObject);
begin
inherited;
//修改
if not ActSave.Enabled then
begin
ShowMsg('UMS10000504'); //记录处于浏览状态下，操作无效
Abort;
end;
if adsInv151.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
if OpenPictureDialog1.Execute then
begin
Screen.Cursor:=crHourGlass;
adsInv151.Edit;
adsInv151.FieldByName('FFileName').Value:=OpenPictureDialog1.FileName;
qryUpdate.FieldByName('FFileExt').Value:=ExtractFileExt(OpenPictureDialog1.FileName);
adsInv151.FieldByName('FType').AsString:='UPD';
adsInv151.Post;
imgPicture.Picture.LoadFromFile(OpenPictureDialog1.FileName);
imgPicture.Repaint;
Screen.Cursor:=crDefault;
end;
end;
procedure TInv150_02Form.tbDeleteClick(Sender: TObject);
begin
inherited;
//删除
if not ActSave.Enabled then
begin
ShowMsg('UMS10000504'); //记录处于浏览状态下，操作无效
Abort;
end;
if adsInv151.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
if ShowDialog('UMS10000008')=IDNO then Exit; //确定要删除此记录吗?
if adsInv151.FieldByName('FItemNo').AsInteger<>0 then
begin
ADelNo:=ADelNo+','+adsInv151.FieldByName('FPictNo').AsString;
Delete(ADelNo,1,1);
end;
adsInv151.Delete;
ARecNo:=ARecNo-1;
lblPage.Caption:=IntToStr(ARecNo)+' / '+IntToStr(adsInv151.RecordCount);
end;
procedure TInv150_02Form.edtCodeChange(Sender: TObject);
begin
inherited;
edtCode1.Text:=edtCode.Text;
edtCode2.Text:=edtCode.Text;
edtCode3.Text:=edtCode.Text;
end;
procedure TInv150_02Form.sbMakeIDClick(Sender: TObject);
begin
inherited;
//制造厂商查询
if not edtMakeID.Focused then edtMakeID.SetFocus;
HwSelDataForm:=THwSelDataForm.Create(Application);
HwSelDataForm.OpenSelData(qryOrd150,nil);
if HwSelDataForm.ShowModal=1 then
begin
edtMakeID.Text:=qryOrd150.FieldByName('O150_002').AsString;
edtMakeName.Text:=qryOrd150.FieldByName('O150_003').AsString;
end;
end;
procedure TInv150_02Form.sbInvUnitClick(Sender: TObject);
begin
inherited;
//库存单位查询
if not edtInvUnit.Focused then edtInvUnit.SetFocus;
HwSelDataForm:=THwSelDataForm.Create(Application);
HwSelDataForm.OpenSelData(qryInv140,nil);
if HwSelDataForm.ShowModal=1 then
begin
edtInvUnit.Text:=qryInv140.FieldByName('I140_002').AsString;
edtInvUnitName.Text:=qryInv140.FieldByName('I140_003').AsString;
if trim(edtPurUnit.Text)='' then
begin
edtPurUnit.Text:=edtInvUnit.Text;
edtPurUnitName.Text:=edtInvUnitName.Text;
edtPurToInv.Text:='1';
end;
if trim(edtOrdUnit.Text)='' then
begin
edtOrdUnit.Text:=edtInvUnit.Text;
edtOrdUnitName.Text:=edtInvUnitName.Text;
edtOrdToInv.Text:='1';
end;
end;
end;
procedure TInv150_02Form.sbPurUnitClick(Sender: TObject);
begin
inherited;
//采购单位查询
if not edtPurUnit.Focused then edtPurUnit.SetFocus;
HwSelDataForm:=THwSelDataForm.Create(Application);
HwSelDataForm.OpenSelData(qryInv140,nil);
if HwSelDataForm.ShowModal=1 then
begin
edtPurUnit.Text:=qryInv140.FieldByName('I140_002').AsString;
edtPurUnitName.Text:=qryInv140.FieldByName('I140_003').AsString;
end;
end;
procedure TInv150_02Form.sbOrdUnitClick(Sender: TObject);
begin
inherited;
//销售单位查询
if not edtOrdUnit.Focused then edtOrdUnit.SetFocus;
HwSelDataForm:=THwSelDataForm.Create(Application);
HwSelDataForm.OpenSelData(qryInv140,nil);
if HwSelDataForm.ShowModal=1 then
begin
edtOrdUnit.Text:=qryInv140.FieldByName('I140_002').AsString;
edtOrdUnitName.Text:=qryInv140.FieldByName('I140_003').AsString;
end;
end;
procedure TInv150_02Form.sbWhsIDClick(Sender: TObject);
begin
inherited;
//仓库资料查询
if not edtWhsID.Focused then edtWhsID.SetFocus;
HwSelDataForm:=THwSelDataForm.Create(Application);
HwSelDataForm.OpenSelData(qryInv100,nil);
if HwSelDataForm.ShowModal=1 then
begin
edtWhsID.Text:=qryInv100.FieldByName('I100_002').AsString;
edtWhsName.Text:=qryInv100.FieldByName('I100_003').AsString;
qryInv110.Close;
qryInv110.SQL.Clear;
qryInv110.SQL.Add('select I110_001,I110_002,I110_003,I110_004 from INV110 where I110_002='+qryInv100.FieldByName('I100_001').AsString+' order by I110_002,I110_003');
qryInv110.Open;
end;
end;
procedure TInv150_02Form.sbLocIDClick(Sender: TObject);
begin
inherited;
//库位资料查询
if not qryInv100.Locate('I100_002',edtWhsID.Text,[]) then
begin
ShowMsg('UMS10000445'); //必须先输入正确的仓库编号
edtWhsID.SetFocus;
Abort;
end;
qryInv110.Close;
qryInv110.SQL.Clear;
qryInv110.SQL.Add('select I110_001,I110_002,I110_003,I110_004 from INV110 where I110_002='+qryInv100.FieldByName('I100_001').AsString+' order by I110_002,I110_003');
qryInv110.Open;
if not edtLocID.Focused then edtLocID.SetFocus;
HwSelDataForm:=THwSelDataForm.Create(Application);
HwSelDataForm.OpenSelData(qryInv110,nil);
if HwSelDataForm.ShowModal=1 then
begin
edtLocID.Text:=qryInv110.FieldByName('I110_003').AsString;
edtLocName.Text:=qryInv110.FieldByName('I110_004').AsString;
end;
end;
procedure TInv150_02Form.sbBuyerClick(Sender: TObject);
begin
inherited;
//采购人员查询
if not edtBuyer.Focused then edtBuyer.SetFocus;
HwSelDataForm:=THwSelDataForm.Create(Application);
HwSelDataForm.OpenSelData(qryHrm150,nil);
if HwSelDataForm.ShowModal=1 then
begin
edtBuyer.Text:=qryHrm150.FieldByName('H150_002').AsString;
edtBuyerName.Text:=qryHrm150.FieldByName('H150_003').AsString;
end;
end;
procedure TInv150_02Form.sbPlannerClick(Sender: TObject);
begin
inherited;
//计划人员查询
if not edtPlanner.Focused then edtPlanner.SetFocus;
HwSelDataForm:=THwSelDataForm.Create(Application);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -