data.~pas

仓库管理信息系统

implementation
uses main,Dialogs,yhqxwh, clbmwh, Controls;  //Dialogs-messagebox;   Controls-messagedlg
{$R *.dfm}

procedure Tdm.whjcmxadsBeforeInsert(DataSet: TDataSet);
begin
if whjcdads.RecordCount=0 then
  abort;
IF DM.whjcdads.Modified THEN
begin
SHOWMESSAGE('请先保存主记录！');
abort;
end;
end;

procedure Tdm.whjcmxadsNewRecord(DataSet: TDataSet);
begin
if (not whjcdads.FieldByName('进仓ID').IsNull) then
begin
//whjcmxads.FieldByName('金额').Value:= 0;
//whjcmxads.FieldByName('单价').AsFloat:= 0;
//whjcmxads.FieldByName('数量').AsFloat:= 0;
  whjcmxads.FieldByName('进仓ID').Value:=whjcdads.FieldByName('进仓ID').Value;
end;
end;

procedure Tdm.whjcdadsNewRecord(DataSet: TDataSet);
begin
whjcdads.FieldByName('进仓日期').Value:=date();
whjcdads.FieldByName('用户ID').Value:=mainfrm.yhid;
whjcdads.FieldByName('仓库ID').Value:=mainfrm.ckid;
end;

procedure Tdm.whccdadsNewRecord(DataSet: TDataSet);
begin
whccdads.FieldByName('出仓日期').Value:=date();
whccdads.FieldByName('用户ID').Value:=mainfrm.yhid;
whccdads.FieldByName('仓库ID').Value:=mainfrm.ckid;
end;

procedure Tdm.whccmxadsNewRecord(DataSet: TDataSet);
begin
if (not whccdads.FieldByName('出仓ID').IsNull) then
begin
//whccmxads.FieldByName('金额').Value:= 0;
//whccmxads.FieldByName('单价').AsFloat:= 0;
//whccmxads.FieldByName('数量').AsFloat:= 0;
  whccmxads.FieldByName('出仓ID').Value:=whccdads.FieldByName('出仓ID').Value;
end;
end;

procedure Tdm.whccmxadsBeforeInsert(DataSet: TDataSet);
begin
IF DM.whccdads.RecordCount=0 THEN
ABORT;
IF DM.whccdads.Modified THEN
begin
SHOWMESSAGE('请先保存主记录！');
abort;
end;
end;

procedure Tdm.whjcdadsBeforeDelete(DataSet: TDataSet);
begin
adocn.Execute('delete from jcmxb where 进仓ID='+
  whjcdads.fieldbyname('进仓ID').Value);
end;

procedure Tdm.whccdadsBeforeDelete(DataSet: TDataSet);
begin
adocn.Execute('delete from ccmxb where 出仓ID='+
  whccdads.fieldbyname('出仓ID').Value);
end;

procedure Tdm.whcjtzadsNewRecord(DataSet: TDataSet);
begin
whcjtzads.FieldByName('调整日期').Value:=date();
whcjtzads.FieldByName('用户ID').Value:=mainfrm.yhid;
whcjtzads.FieldByName('仓库ID').Value:=mainfrm.ckid;
end;

procedure Tdm.whclbmadsBeforePost(DataSet: TDataSet);
begin
if (whclbmads.FieldByName('材料编码').Value<>'') and
   (not whclbmads.FieldByName('材料编码').IsNull) then
whclbmads.FieldByName('材料编码').Value:=
  uppercase(whclbmads.FieldByName('材料编码').Value);
end;

procedure Tdm.whtzmxadsBeforeInsert(DataSet: TDataSet);
begin
IF DM.whcjtzads.RecordCount=0 THEN
ABORT;
IF DM.whcjtzads.Modified THEN
begin
SHOWMESSAGE('请先保存主记录！');
abort;
end;
end;

procedure Tdm.whtzmxadsNewRecord(DataSet: TDataSet);
begin
if (not whcjtzads.FieldByName('调整ID').IsNull) then
begin
whtzmxads.FieldByName('调整金额').Value:= 0;
whtzmxads.FieldByName('调整单价').Value:= 0;
whtzmxads.FieldByName('调整数量').Value:= 0;
  whtzmxads.FieldByName('调整ID').Value:=whcjtzads.FieldByName('调整ID').Value;
end;
end;

procedure Tdm.whcjtzadsBeforeDelete(DataSet: TDataSet);
begin
adocn.Execute('delete from tzmxb where 调整ID='+
  whccdads.fieldbyname('调整ID').Value);
end;

procedure Tdm.whyhqxadsBeforeEdit(DataSet: TDataSet);
begin
if yhqxwhfrm.DBEdit1.Text='00' then 
  abort;
yhqxwhfrm.pass.Text:=yhqxwhfrm.dbpass.Text;
end;

procedure Tdm.whyhqxadsBeforeInsert(DataSet: TDataSet);
begin
yhqxwhfrm.pass.Text:='';
end;

procedure Tdm.whyhqxadsBeforePost(DataSet: TDataSet);
begin
if yhqxwhfrm.pass.Text<>yhqxwhfrm.dbpass.Text then
begin
  showmessage('对不起！两次输入的密码不一致，请重新输入！');
  yhqxwhfrm.dbpass.SetFocus;
  abort;
end;
end;

procedure Tdm.whjcmxadsDSDesigner3Change(Sender: TField);
begin
if whjcmxads.Modified then
if (not whjcmxads.FieldByName('单价').IsNull) and (not whjcmxads.FieldByName('数量').IsNull) then
whjcmxads.FieldByName('金额').Value:=
  whjcmxads.FieldByName('单价').Value*whjcmxads.FieldByName('数量').Value
end;

procedure Tdm.whjcmxadsDSDesigner2Change(Sender: TField);
begin
if whjcmxads.Modified then
if (not whjcmxads.FieldByName('单价').IsNull) and (not whjcmxads.FieldByName('数量').IsNull) then
whjcmxads.FieldByName('金额').Value:=
  whjcmxads.FieldByName('单价').Value*whjcmxads.FieldByName('数量').Value
end;

procedure Tdm.whccmxadsDSDesigner2Change(Sender: TField);
begin
if whccmxads.Modified then
if (not whccmxads.FieldByName('单价').IsNull) and  (not whccmxads.FieldByName('数量').IsNull) then
  whccmxads.FieldByName('金额').Value:=
    whccmxads.FieldByName('单价').Value*whccmxads.FieldByName('数量').Value
end;

procedure Tdm.whccmxadsDSDesigner3Change(Sender: TField);
begin
if whccmxads.Modified then
if (not whccmxads.FieldByName('单价').IsNull) and  (not whccmxads.FieldByName('数量').IsNull) then
  whccmxads.FieldByName('金额').Value:=
    whccmxads.FieldByName('单价').Value*whjcmxads.FieldByName('数量').Value
end;

procedure Tdm.whtzmxadsDSDesigner2Change(Sender: TField);
begin
if whtzmxads.Modified then 
if (not whtzmxads.FieldByName('调整单价').IsNull) and  (not whtzmxads.FieldByName('调整数量').IsNull) then
whtzmxads.FieldByName('调整金额').Value:=
  whtzmxads.FieldByName('调整单价').Value*whtzmxads.FieldByName('调整数量').Value
end;

procedure Tdm.whtzmxadsDSDesigner3Change(Sender: TField);
begin
if whtzmxads.Modified then 
if (not whtzmxads.FieldByName('调整单价').IsNull) and  (not whtzmxads.FieldByName('调整数量').IsNull) then
whtzmxads.FieldByName('调整金额').Value:=
  whtzmxads.FieldByName('调整单价').Value*whtzmxads.FieldByName('调整数量').Value
end;

procedure Tdm.whjcmxadsBeforePost(DataSet: TDataSet);
begin
dm.whclbmads.Filter:='材料编码='+''''
  +dm.whjcmxads.FieldByName('材料编码').Value+'''';
if dm.whclbmads.RecordCount=0 then 
  if MessageDlg('数据库中找不材料'+
     dm.whjcmxads.FieldByName('材料编码').Value+'你是否要增加 ?', mtConfirmation,
    [mbYes, mbNo], 0) = mrno then
    abort
  else
  begin
    if not Assigned(clbmWHFRM) then
      clbmWHFRM := tclbmWHFRM.Create(Self);
      clbmWHFRM.ShowModal;
  end;
end;

procedure Tdm.whccmxadsBeforePost(DataSet: TDataSet);
begin
dm.whclbmads.Filter:='材料编码='+''''
  +dm.whccmxads.FieldByName('材料编码').Value+'''';
if dm.whclbmads.RecordCount=0 then 
  if MessageDlg('数据库中找不材料'+
     dm.whccmxads.FieldByName('材料编码').Value+'你是否要增加 ?', mtConfirmation,
    [mbYes, mbNo], 0) = mrno then
    abort
  else
  begin
    if not Assigned(clbmWHFRM) then
      clbmWHFRM := tclbmWHFRM.Create(Self);
      clbmWHFRM.ShowModal;
  end;
end;

procedure Tdm.whtzmxadsBeforePost(DataSet: TDataSet);
begin
dm.whclbmads.Filter:='材料编码='+''''
  +dm.whtzmxads.FieldByName('材料编码').Value+'''';
if dm.whclbmads.RecordCount=0 then 
  if MessageDlg('数据库中找不材料'+
     dm.whtzmxads.FieldByName('材料编码').Value+'你是否要增加 ?', mtConfirmation,
    [mbYes, mbNo], 0) = mrno then
    abort
  else
  begin
    if not Assigned(clbmWHFRM) then
      clbmWHFRM := tclbmWHFRM.Create(Self);
      clbmWHFRM.ShowModal;
  end;
end;

procedure Tdm.whclbmadsAfterPost(DataSet: TDataSet);
begin
dm.whclbmads.Refresh;
end;

procedure Tdm.whclbmadsNewRecord(DataSet: TDataSet);
begin
whclbmads.FieldByName('仓库ID').Value:=mainfrm.ckid;
end;

procedure Tdm.whjcmxadsAfterPost(DataSet: TDataSet);
begin
IF WHCLBMADS.RecordCount=1 THEN
BEGIN
WHCLBMADS.Edit;
WHCLBMADS.FieldByName('参考价格').Value :=
  WHJCMXADS.FieldByName('单价').Value ;
WHCLBMADS.Post;
END;
end;

procedure Tdm.whccmxadsAfterPost(DataSet: TDataSet);
begin
IF WHCLBMADS.RecordCount=1 THEN
BEGIN
WHCLBMADS.Edit;
WHCLBMADS.FieldByName('参考价格').Value :=
  WHJCMXADS.FieldByName('单价').Value ;
WHCLBMADS.Post;
END;
end;

procedure Tdm.bmlyhzbadsCalcFields(DataSet: TDataSet);
begin
bmlyhzbads.FieldByName('单价').Value:=
  bmlyhzbads.FieldByName('金额').Value/bmlyhzbads.FieldByName('数量').Value
end;

procedure Tdm.gysghhzadsCalcFields(DataSet: TDataSet);
begin
gysghhzads.FieldByName('单价').Value:=
  gysghhzads.FieldByName('金额').Value/gysghhzads.FieldByName('数量').Value
end;

end.