datamodule.pas

销售帐目管理

unit DataModule;

interface

uses
  SysUtils, Classes , DB, DBTables;

type
  TDataModule1 = class(TDataModule)
    ds_Jbhtqkb: TDataSource;
    ds_Fjhtqkb: TDataSource;
    ds_fhqkb: TDataSource;
    ds_kpqkb: TDataSource;
    ds_Skqkb: TDataSource;
    ds_Sjdwb: TDataSource;
    ds_Dwxxb: TDataSource;
    ds_Spxxb: TDataSource;
    ds_Power: TDataSource;
    ds_Fjkpqkb: TDataSource;
    db1: TDatabase;
    qry_jbhtqkb: TQuery;
    tbl_Fjhtqkb: TTable;
    tbl_Fhqkb: TTable;
    tbl_Skqkb: TTable;
    tbl_Kpqkb: TTable;
    tbl_Fjkpqkb: TTable;
    tbl_Sjdwb: TTable;
    tbl_dwxxb: TTable;
    tbl_Spxxb: TTable;
    tbl_power: TTable;
    qry_jbhtqkbBDEDesigner: TStringField;
    qry_jbhtqkbBDEDesigner2: TStringField;
    qry_jbhtqkbBDEDesigner3: TIntegerField;
    qry_jbhtqkbBDEDesigner4: TIntegerField;
    qry_jbhtqkbBDEDesigner5: TStringField;
    qry_jbhtqkbBDEDesigner6: TIntegerField;
    qry_jbhtqkbBDEDesigner7: TStringField;
    qry_jbhtqkbBDEDesigner8: TStringField;
    qry_jbhtqkbBDEDesigner9: TMemoField;
    qry_jbhtqkbField: TStringField;
    qry_jbhtqkbField2: TStringField;
    tbl_FjhtqkbBDEDesigner: TStringField;
    tbl_FjhtqkbBDEDesigner2: TIntegerField;
    tbl_FjhtqkbBDEDesigner3: TIntegerField;
    tbl_FjhtqkbBDEDesigner4: TFloatField;
    tbl_FjhtqkbField: TFloatField;
    tbl_FjhtqkbField2: TStringField;
    tbl_FjhtqkbField3: TStringField;
    tbl_FjhtqkbField4: TStringField;
    tbl_FhqkbBDEDesigner: TStringField;
    tbl_FhqkbBDEDesigner2: TStringField;
    tbl_FhqkbBDEDesigner3: TIntegerField;
    tbl_FhqkbBDEDesigner4: TIntegerField;
    tbl_FhqkbBDEDesigner5: TStringField;
    tbl_FhqkbBDEDesigner6: TStringField;
    tbl_FhqkbStringField: TStringField;
    tbl_FhqkbStringField2: TStringField;
    tbl_FhqkbStringField3: TStringField;
    tbl_SkqkbBDEDesigner: TStringField;
    tbl_SkqkbBDEDesigner2: TStringField;
    tbl_SkqkbBDEDesigner3: TFloatField;
    tbl_SkqkbBDEDesigner4: TStringField;
    tbl_KpqkbBDEDesigner: TStringField;
    tbl_KpqkbBDEDesigner2: TStringField;
    tbl_KpqkbBDEDesigner3: TStringField;
    tbl_KpqkbBDEDesigner4: TStringField;
    tbl_FjkpqkbBDEDesigner: TStringField;
    tbl_FjkpqkbBDEDesigner2: TIntegerField;
    tbl_FjkpqkbBDEDesigner3: TIntegerField;
    tbl_FjkpqkbBDEDesigner4: TFloatField;
    tbl_FjkpqkbField: TFloatField;
    tbl_FjkpqkbStringField: TStringField;
    tbl_FjkpqkbStringField2: TStringField;
    tbl_FjkpqkbStringField3: TStringField;
    tbl_SpxxbBDEDesigner: TIntegerField;
    tbl_SpxxbBDEDesigner2: TStringField;
    tbl_SpxxbBDEDesigner3: TStringField;
    tbl_SpxxbBDEDesigner4: TStringField;
    tbl_SjdwbBDEDesigner: TIntegerField;
    tbl_SjdwbBDEDesigner2: TStringField;
    tbl_dwxxbBDEDesigner: TIntegerField;
    tbl_dwxxbBDEDesigner2: TIntegerField;
    tbl_dwxxbBDEDesigner3: TStringField;
    tbl_dwxxbBDEDesigner4: TStringField;
    procedure MSQuery_Skqkb_DAfterInsert(DataSet: TDataSet);
    procedure qry_jbhtqkbAfterInsert(DataSet: TDataSet);
    procedure tbl_FjhtqkbAfterInsert(DataSet: TDataSet);
    procedure tbl_FjhtqkbCalcFields(DataSet: TDataSet);
    procedure tbl_dwxxbAfterInsert(DataSet: TDataSet);
    procedure tbl_FjkpqkbCalcFields(DataSet: TDataSet);
    procedure tbl_FjkpqkbAfterInsert(DataSet: TDataSet);
    procedure tbl_FhqkbAfterInsert(DataSet: TDataSet);
    procedure tbl_KpqkbAfterInsert(DataSet: TDataSet);
    procedure tbl_SkqkbAfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

uses PubUnit;

{$R *.dfm}

procedure TDataModule1.MSQuery_Skqkb_DAfterInsert(DataSet: TDataSet);
begin
end;

//=========基本合同情况表插入数据
procedure TDataModule1.qry_jbhtqkbAfterInsert(DataSet: TDataSet);
var tmpStr : string ;
    i : Integer ;
begin
  tmpStr := ''; for i := 1 to P_BmDigXlh do tmpStr := tmpStr + '0';//序列号格式
  Inc(P_Xlh);//序列号递增
  DataSet.FieldByName('合同编号').AsString := P_BmPrefix +
                                              Copy(P_SelectSfMc,1,P_BmDigSf) +
                                              P_BmSpace + P_BmYear + P_BmMonth +
                                              FormatFloat(tmpStr,P_Xlh);
  DataSet.FieldByName('签订日期').AsString := FormatDateTime('YYYY-MM-DD',Date);
  if P_SelectSfNo > 0 then
     DataSet.FieldByName('省级编号').AsInteger := P_SelectSfNo ;
  if P_SelectDwNo > 0 then
     DataSet.FieldByName('单位编号').AsInteger := P_SelectDwNo ;
  DataSet.FieldByName('责任人').AsString := '';
  DataSet.FieldByName('省级编号').AsInteger := 0;
  DataSet.FieldByName('单位编号').AsInteger := 0;
  DataSet.FieldByName('合同有效期').AsInteger := 0 ;
  DataSet.FieldByName('有效期时间单位').AsString := '';
  DataSet.FieldByName('合同收款时间').AsString := '';
  DataSet.FieldByName('合同备注').AsString := '';
end;

//=========计算附加合同情况表金额
procedure TDataModule1.tbl_FjhtqkbAfterInsert(DataSet: TDataSet);
begin
  DataSet.FieldByName('合同编号').AsString := qry_jbhtqkb.FieldByName('合同编号').AsString ;
end;

//=========附加合同情况表插入数据
procedure TDataModule1.tbl_FjhtqkbCalcFields(DataSet: TDataSet);
begin
  with DataSet do
    FieldByName('金额').AsFloat := FieldByName('数量').AsInteger * FieldByName('单价').AsFloat ;
end;

//=========单位信息表在插入后
procedure TDataModule1.tbl_dwxxbAfterInsert(DataSet: TDataSet);
begin
  DataSet.FieldByName('省级编号').AsInteger := tbl_Sjdwb.FieldByName('省级编号').AsInteger ;
end;

//=========开票金额计算字段
procedure TDataModule1.tbl_FjkpqkbCalcFields(DataSet: TDataSet);
begin
  with DataSet do
    FieldByName('开票金额').AsFloat := FieldByName('开票数量').AsInteger *
                                       FieldByName('开票单价').AsFloat ;
end;

//=========附加开票金额插入数据
procedure TDataModule1.tbl_FjkpqkbAfterInsert(DataSet: TDataSet);
begin
  DataSet.FieldByName('发票编号').AsString := tbl_Kpqkb.FieldByName('发票编号').AsString ;
end;

//=========发货情况表插入数据
procedure TDataModule1.tbl_FhqkbAfterInsert(DataSet: TDataSet);
begin
  DataSet.FieldByName('合同编号').AsString := qry_jbhtqkb.FieldByName('合同编号').AsString ;
  DataSet.FieldByName('发货日期').AsString := FormatDateTime('YYYY-MM-DD',Date);
end;

//=========开票情况表插入数据
procedure TDataModule1.tbl_KpqkbAfterInsert(DataSet: TDataSet);
begin
  DataSet.FieldByName('合同编号').AsString := qry_jbhtqkb.FieldByName('合同编号').AsString ;
  DataSet.FieldByName('开票日期').AsString := FormatDateTime('YYYY-MM-DD',Date);
end;

//=========收款情况表插入数据
procedure TDataModule1.tbl_SkqkbAfterInsert(DataSet: TDataSet);
begin
  DataSet.FieldByName('合同编号').AsString := qry_jbhtqkb.FieldByName('合同编号').AsString ;
  DataSet.FieldByName('收款日期').AsString := FormatDateTime('YYYY-MM-DD',Date);
end;

end.