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

📄 data.~pas

📁 仓库管理信息系统
💻 ~PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
    ads_djfkdid5: TStringField;
    ads_djfkdDSDesigner4: TFloatField;
    ads_djfkdField: TStringField;
    ads_djfkdField2: TStringField;
    ads_djfkdField3: TStringField;
    ads_djfkdField4: TStringField;
    ads_djfkdField5: TStringField;
    ads_djskdStringField: TStringField;
    ads_djskdStringField2: TStringField;
    ads_djskdStringField3: TStringField;
    ads_djskdStringField4: TStringField;
    ads_djskdField: TStringField;
    ads_djskdid2: TStringField;
    cshads_khhk: TADODataSet;
    cshds_khhk: TDataSource;
    cshads_khhkDSDesigner: TIntegerField;
    cshads_khhkid: TStringField;
    cshads_khhkDSDesigner2: TFloatField;
    cshads_khhkDSDesigner3: TFloatField;
    cshads_khhkDSDesigner4: TFloatField;
    cshads_khhkDSDesigner5: TFloatField;
    cshads_khhkDSDesigner6: TStringField;
    cshads_khhkField: TStringField;
    cshads_gyshk: TADODataSet;
    cshds_gyshk: TDataSource;
    cshads_gyshkDSDesigner: TIntegerField;
    cshads_gyshkid: TStringField;
    cshads_gyshkDSDesigner2: TFloatField;
    cshads_gyshkDSDesigner3: TFloatField;
    cshads_gyshkDSDesigner4: TFloatField;
    cshads_gyshkDSDesigner5: TFloatField;
    cshads_gyshkDSDesigner6: TStringField;
    cshads_gyshkField: TStringField;
    cshads_gyshkField2: TStringField;
    asp_hkzl: TADOStoredProc;
    asp_hkyjc: TADOStoredProc;
    hkads_khyjc: TADODataSet;
    IntegerField3: TIntegerField;
    StringField35: TStringField;
    StringField36: TStringField;
    StringField37: TStringField;
    hkds_khyjc: TDataSource;
    hkads_gysyjc: TADODataSet;
    IntegerField4: TIntegerField;
    StringField44: TStringField;
    StringField45: TStringField;
    StringField46: TStringField;
    StringField47: TStringField;
    hkds_gysyjc: TDataSource;
    hkads_khyjcDSDesigner: TIntegerField;
    hkads_khyjcDSDesigner2: TFloatField;
    hkads_khyjcDSDesigner3: TFloatField;
    hkads_khyjcDSDesigner4: TFloatField;
    hkads_khyjcDSDesigner5: TFloatField;
    hkads_gysyjcDSDesigner: TIntegerField;
    hkads_gysyjcDSDesigner2: TFloatField;
    hkads_gysyjcDSDesigner3: TFloatField;
    hkads_gysyjcDSDesigner4: TFloatField;
    hkads_gysyjcDSDesigner5: TFloatField;
    cdqxads: TADODataSet;
    cdqxds: TDataSource;
    yhads: TADODataSet;
    yhds: TDataSource;
    cdads: TADODataSet;
    cdds: TDataSource;
    cdflads: TADODataSet;
    cdflds: TDataSource;
    cdadsid: TStringField;
    cdadsDSDesigner: TStringField;
    cdadsid2: TStringField;
    cdadsField: TStringField;
    cdqxadsid: TStringField;
    cdqxadsid2: TStringField;
    cdqxadsDSDesigner: TBooleanField;
    yhadsid: TStringField;
    yhadsDSDesigner: TStringField;
    yhadsDSDesigner2: TStringField;
    cdqxadsField: TStringField;
    cdqxadsid3: TStringField;
    cdqxadsStringField: TStringField;
    yhdlads: TADODataSet;
    StringField50: TStringField;
    StringField51: TStringField;
    StringField52: TStringField;
    yhdlds: TDataSource;
    serversetupado: TADOConnection;
    serverads: TADODataSet;
    serverds: TDataSource;
    serveradsid: TAutoIncField;
    serveradsProvider: TWideStringField;
    serveradsDataSource: TWideStringField;
    serveradsInitialCatalog: TWideStringField;
    serveradsUserID: TWideStringField;
    serveradsPassword: TWideStringField;
    serveradsconnet: TBooleanField;
    whbmdmadsID: TStringField;
    whbmdmadsDSDesigner: TStringField;
    whbmdmadsDSDesigner2: TStringField;
    wlpdads: TADODataSet;
    cshads_khhkDSDesigner7: TStringField;
    hkads_khyjcDSDesigner6: TStringField;
    hkads_gysyjcDSDesigner6: TStringField;
    cshads_gyshkDSDesigner7: TStringField;
    procedure djwhads_cpjcdmxNewRecord(DataSet: TDataSet);
    procedure djwhads_cpjcdBeforePost(DataSet: TDataSet);
    procedure djwhads_cpjcdAfterPost(DataSet: TDataSet);
    procedure djwhads_cpjcdAfterCancel(DataSet: TDataSet);
    procedure djwhads_cpjcdAfterDelete(DataSet: TDataSet);
    procedure djwhads_cpjcdmxPostError(DataSet: TDataSet;
      E: EDatabaseError; var Action: TDataAction);
    procedure djwhads_cpjcdmxAfterPost(DataSet: TDataSet);
    procedure djwhads_cpjcdmxAfterDelete(DataSet: TDataSet);
    procedure djwhads_cpjcdmxBeforeInsert(DataSet: TDataSet);
    procedure djwhads_cpjcdBeforeInsert(DataSet: TDataSet);
    procedure djwhads_cpjcdNewRecord(DataSet: TDataSet);
    procedure djwhads_cpjcdmxBeforeEdit(DataSet: TDataSet);
    procedure djwhads_cpxsdAfterCancel(DataSet: TDataSet);
    procedure djwhads_cpxsdAfterDelete(DataSet: TDataSet);
    procedure djwhads_cpxsdAfterPost(DataSet: TDataSet);
    procedure djwhads_cpxsdBeforeInsert(DataSet: TDataSet);
    procedure djwhads_cpxsdBeforePost(DataSet: TDataSet);
    procedure djwhads_cpxsdNewRecord(DataSet: TDataSet);
    procedure djwhads_cpxsdmxAfterDelete(DataSet: TDataSet);
    procedure djwhads_cpxsdmxAfterPost(DataSet: TDataSet);
    procedure djwhads_cpxsdmxBeforeEdit(DataSet: TDataSet);
    procedure djwhads_cpxsdmxBeforeInsert(DataSet: TDataSet);
    procedure djwhads_cpxsdmxNewRecord(DataSet: TDataSet);
    procedure djwhads_cpxsdmxPostError(DataSet: TDataSet;
      E: EDatabaseError; var Action: TDataAction);
    procedure djwhads_cpjcdmxBeforePost(DataSet: TDataSet);
    procedure djwhads_cpxsdmxBeforePost(DataSet: TDataSet);
    procedure djwhads_cpxsdmxDSDesigner3Change(Sender: TField);
    procedure djwhads_cpjcdBeforeDelete(DataSet: TDataSet);
    procedure djwhads_cpxsdBeforeDelete(DataSet: TDataSet);
    procedure whjcdadsAfterCancel(DataSet: TDataSet);
    procedure whjcdadsAfterDelete(DataSet: TDataSet);
    procedure whjcdadsAfterPost(DataSet: TDataSet);
    procedure whjcdadsBeforeDelete(DataSet: TDataSet);
    procedure whjcdadsBeforeInsert(DataSet: TDataSet);
    procedure whjcdadsBeforePost(DataSet: TDataSet);
    procedure whjcdadsNewRecord(DataSet: TDataSet);
    procedure whjcmxadsAfterDelete(DataSet: TDataSet);
    procedure whjcmxadsAfterPost(DataSet: TDataSet);
    procedure whjcmxadsBeforeEdit(DataSet: TDataSet);
    procedure whjcmxadsBeforeInsert(DataSet: TDataSet);
    procedure whjcmxadsBeforePost(DataSet: TDataSet);
    procedure whjcmxadsNewRecord(DataSet: TDataSet);
    procedure whjcmxadsPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure whccdadsAfterCancel(DataSet: TDataSet);
    procedure whccdadsAfterDelete(DataSet: TDataSet);
    procedure whccdadsAfterPost(DataSet: TDataSet);
    procedure whccdadsBeforeDelete(DataSet: TDataSet);
    procedure whccdadsBeforeInsert(DataSet: TDataSet);
    procedure whccdadsBeforePost(DataSet: TDataSet);
    procedure whccdadsNewRecord(DataSet: TDataSet);
    procedure whccmxadsAfterDelete(DataSet: TDataSet);
    procedure whccmxadsAfterPost(DataSet: TDataSet);
    procedure whccmxadsBeforeEdit(DataSet: TDataSet);
    procedure whccmxadsBeforeInsert(DataSet: TDataSet);
    procedure whccmxadsBeforePost(DataSet: TDataSet);
    procedure whccmxadsNewRecord(DataSet: TDataSet);
    procedure whccmxadsPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure whjcdadsBeforeCancel(DataSet: TDataSet);
    procedure whccdadsBeforeCancel(DataSet: TDataSet);
    procedure whjcmxadsDSDesigner2Change(Sender: TField);
    procedure whccmxadsDSDesigner2Change(Sender: TField);
    procedure whgysdmadsBeforeEdit(DataSet: TDataSet);
    procedure cshads_cpkcBeforePost(DataSet: TDataSet);
    procedure cshads_clkcBeforePost(DataSet: TDataSet);
    procedure cshads_clkcBeforeInsert(DataSet: TDataSet);
    procedure cshads_cpkcBeforeInsert(DataSet: TDataSet);
    procedure djwhads_cpjcdmxDSDesigner3Change(Sender: TField);
    procedure cxads_bmlyhzCalcFields(DataSet: TDataSet);
    procedure cxads_xskhhzCalcFields(DataSet: TDataSet);
    procedure djwhads_cpxsdBeforeEdit(DataSet: TDataSet);
    procedure djwhads_cpjcdBeforeEdit(DataSet: TDataSet);
    procedure whjcdadsBeforeEdit(DataSet: TDataSet);
    procedure whccdadsBeforeEdit(DataSet: TDataSet);
    procedure djwhads_cpjcdAfterScroll(DataSet: TDataSet);
    procedure djwhads_cpxsdAfterScroll(DataSet: TDataSet);
    procedure whjcdadsAfterScroll(DataSet: TDataSet);
    procedure whccdadsAfterScroll(DataSet: TDataSet);
    procedure whccmxadsBeforeDelete(DataSet: TDataSet);
    procedure whjcmxadsBeforeDelete(DataSet: TDataSet);
    procedure djwhads_cpjcdmxBeforeDelete(DataSet: TDataSet);
    procedure djwhads_cpxsdmxBeforeDelete(DataSet: TDataSet);
    procedure ads_djfkdNewRecord(DataSet: TDataSet);
    procedure ads_djskdNewRecord(DataSet: TDataSet);
    procedure cdqxadsBeforeInsert(DataSet: TDataSet);
    procedure yhadsAfterPost(DataSet: TDataSet);
    procedure yhadsPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure yhadsAfterCancel(DataSet: TDataSet);
    procedure cdqxadsBeforePost(DataSet: TDataSet);
    procedure yhadsBeforeDelete(DataSet: TDataSet);
    procedure DataModuleCreate(Sender: TObject);
    procedure serveradsBeforePost(DataSet: TDataSet);
    procedure yhadsBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    lastjznf:integer;
    year,month,day:Word;
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

uses cpjcdwh, khzl, cpccdwh, jcdwh, ccdwh, gyswh, yhqx, serversetup, dlpd;

{$R *.dfm}

procedure Tdm.djwhads_cpjcdmxNewRecord(DataSet: TDataSet);
begin
  dm.djwhads_cpjcdmx.FieldByName('单据号').Value:=
    dm.djwhads_cpjcd.FieldByName('单据号').Value;
  dm.djwhads_cpjcdmx.FieldByName('数量').Value:=1;
  dm.djwhads_cpjcdmx.FieldByName('单价').Value:=0;
end;

procedure Tdm.djwhads_cpjcdBeforePost(DataSet: TDataSet);
begin
if (dm.djwhads_cpjcd.FieldByName('单据号').Value='') or
  (dm.djwhads_cpjcd.FieldByName('单据号').IsNull) or
  (dm.djwhads_cpjcd.FieldByName('进仓类型id').Value='') or
  (dm.djwhads_cpjcd.FieldByName('进仓类型id').IsNull) or
  (dm.djwhads_cpjcd.FieldByName('验收人ID').Value='') or
  (dm.djwhads_cpjcd.FieldByName('验收人ID').IsNull) or
  (dm.djwhads_cpjcd.FieldByName('日期').IsNull) then
  begin
    MessageDlg('单据头的数据不完整，请先录入.', mtError	, [mbOK], 0);
    abort;
  end;
decodedate(dm.djwhads_cpjcd.FieldByName('日期').Value,year,month,day);
if lastjznf<>year then
  begin
    MessageDlg('你所选的日期已结转或者目前还不能处理，请修改日期.', mtError	, [mbOK], 0);
    abort;
  end;
if dm.djwhads_cpjcdmx.Modified then
  dm.djwhads_cpjcdmx.Post;
if dm.djwhads_cpjcdmx.RecordCount =0 then
  begin
    if MessageDlg('单据没有明细项，不能保存，要取消吗？', mterror, [mbok, mbcancel], 0)=mrok then
    begin
      dm.djwhads_cpjcd.cancel;
      abort
    end
    else
      abort;
  end;
end;

procedure Tdm.djwhads_cpjcdAfterPost(DataSet: TDataSet);
begin
dm.adocn.BeginTrans;
dm.djwhads_cpjcdmx.UpdateBatch;
dm.djwhads_cpjcd.UpdateBatch;
dm.adocn.CommitTrans;
dm.djwhads_cpjcd.FieldByName('单据号').ReadOnly:=true;
end;

procedure Tdm.djwhads_cpjcdAfterCancel(DataSet: TDataSet);
begin
dm.djwhads_cpjcdmx.CancelBatch;
dm.djwhads_cpjcd.CancelBatch;
dm.djwhads_cpjcd.FieldByName('单据号').ReadOnly:=true;
end;

procedure Tdm.djwhads_cpjcdAfterDelete(DataSet: TDataSet);
begin
DM.djwhads_cpjcd.UpdateBatch;
dm.adocn.CommitTrans;
end;

procedure Tdm.djwhads_cpjcdmxPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  showmessage('明细数据不完整!');
end;

procedure Tdm.djwhads_cpjcdmxAfterPost(DataSet: TDataSet);
begin
dm.djwhads_cpjcd.Edit;
fRM_CPJCDWH.DBGridEh1.SumList.RecalcAll;
end;

procedure Tdm.djwhads_cpjcdmxAfterDelete(DataSet: TDataSet);
begin
dm.djwhads_cpjcd.Edit;
FRM_CPJCDWH.DBGridEh1.SumList.RecalcAll;
end;

procedure Tdm.djwhads_cpjcdmxBeforeInsert(DataSet: TDataSet);
begin
if (dm.djwhads_cpjcd.FieldByName('单据号').Value='') or
  (dm.djwhads_cpjcd.FieldByName('单据号').IsNull) or
  (dm.djwhads_cpjcd.FieldByName('进仓类型id').Value='') or
  (dm.djwhads_cpjcd.FieldByName('进仓类型id').IsNull) or
  (dm.djwhads_cpjcd.FieldByName('验收人ID').Value='') or
  (dm.djwhads_cpjcd.FieldByName('验收人ID').IsNull) or
  (dm.djwhads_cpjcd.FieldByName('日期').IsNull) then
  begin
    MessageDlg('单据头的数据不完整，请先录入.', mtError	, [mbOK], 0);
    abort;
  end;
DM.djwhads_cpjcd.AfterPost:=NIL;
DM.djwhads_cpjcd.BeforePost:=NIL;
IF DM.djwhads_cpJCd.State IN [DSINSERT] THEN
  DM.djwhads_cpjcd.Post;
DM.djwhads_cpjcd.Edit;
DM.djwhads_cpjcd.AfterPost:=dm.djwhads_cpjcdAfterPost;
DM.djwhads_cpjcd.BeforePost:=DM.djwhads_cpjcdBeforePost;
end;

procedure Tdm.djwhads_cpjcdBeforeInsert(DataSet: TDataSet);
begin
dm.djwhads_cpjcd.FieldByName('单据号').ReadOnly:=false;
end;

procedure Tdm.djwhads_cpjcdNewRecord(DataSet: TDataSet);
begin
dm.djwhads_cpjcd.FieldByName('日期').Value:=date();
end;

procedure Tdm.djwhads_cpjcdmxBeforeEdit(DataSet: TDataSet);
begin
DM.djwhads_cpjcd.Edit;
end;

procedure Tdm.djwhads_cpxsdAfterCancel(DataSet: TDataSet);
begin
dm.djwhads_cpxsdmx.CancelBatch;
dm.djwhads_cpxsd.CancelBatch;
dm.djwhads_cpxsd.FieldByName('单据号').ReadOnly:=true;
end;

procedure Tdm.djwhads_cpxsdAfterDelete(DataSet: TDataSet);
begin
DM.djwhads_cpxsd.UpdateBatch;
dm.adocn.CommitTrans;
end;

procedure Tdm.djwhads_cpxsdAfterPost(DataSet: TDataSet);
begin
dm.adocn.BeginTrans;
dm.djwhads_cpxsd.UpdateBatch;
dm.djwhads_cpxsdmx.UpdateBatch;
dm.adocn.CommitTrans;
dm.djwhads_cpxsd.FieldByName('单据号').ReadOnly:=true;
end;

procedure Tdm.djwhads_cpxsdBeforeInsert(DataSet: TDataSet);
begin
dm.djwhads_cpxsd.FieldByName('单据号').ReadOnly:=false;
end;

procedure Tdm.djwhads_cpxsdBeforePost(DataSet: TDataSet);
begin
if (dm.djwhads_cpxsd.FieldByName('单据号').Value='') or
  (dm.djwhads_cpxsd.FieldByName('单据号').IsNull) or
  (dm.djwhads_cpxsd.FieldByName('客户id').Value='') or
  (dm.djwhads_cpxsd.FieldByName('客户id').IsNull) or
  (dm.djwhads_cpxsd.FieldByName('销售员ID').Value='') or
  (dm.djwhads_cpxsd.FieldByName('销售员ID').IsNull) or
  (dm.djwhads_cpxsd.FieldByName('日期').IsNull) then
  begin
    MessageDlg('单据头的数据不完整，请先录入.', mtError	, [mbOK], 0);
    abort;
  end;
decodedate(dm.djwhads_cpxsd.FieldByName('日期').Value,year,month,day);
if lastjznf<>year then
  begin
    MessageDlg('你所选的日期已结转或者目前还不能处理，请修改日期.', mtError	, [mbOK], 0);
    abort;
  end;
if dm.djwhads_cpxsdmx.Modified then
  dm.djwhads_cpxsdmx.Post;
if dm.djwhads_cpxsdmx.RecordCount =0 then
  begin
    if MessageDlg('单据没有明细项，不能保存，要取消吗？', mterror, [mbok, mbcancel], 0)=mrok then
    begin
      dm.djwhads_cpxsd.Cancel;
      abort
    end
    else
      abort;
  end;
end;

procedure Tdm.djwhads_cpxsdNewRecord(DataSet: TDataSet);
begin
dm.djwhads_cpxsd.FieldByName('现收').Value:=false;
dm.djwhads_cpxsd.FieldByName('日期').Value:=date();
end;

procedure Tdm.djwhads_cpxsdmxAfterDelete(DataSet: TDataSet);
begin
1234

⌨️ 快捷键说明

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