unitdatamd.~pas

电力行业前台收费程序,需要有后台SQL数据库,和电费管理系统配合应用.

unit UnitDataMD;

interface

uses
  SysUtils, Classes, DB, ADODB, ActiveX, Dialogs;

type
  TDataMdDJ = class(TDataModule)
    ADOConnectionDJ: TADOConnection;
    ADOTableDianJia: TADOTable;
    ADOTableFJF: TADOTable;
    ADOQueryPub: TADOQuery;
    procedure ADOConnectionDJBeforeConnect(Sender: TObject);
    procedure ADOConnectionDJAfterConnect(Sender: TObject);
    procedure ADOTableDianJiaBeforeInsert(DataSet: TDataSet);
    procedure ADOTableDianJiaBeforePost(DataSet: TDataSet);
    procedure ADOTableFJFAfterInsert(DataSet: TDataSet);
    procedure ADOTableFJFBeforePost(DataSet: TDataSet);
  private
    function CheckRequirField(DataSet:TDataSet;FieldName:String):Boolean;
  public
    { Public declarations }
  end;

var
  DataMdDJ: TDataMdDJ;

implementation

uses MainOutUnit;

{$R *.dfm}

procedure TDataMdDJ.ADOConnectionDJBeforeConnect(Sender: TObject);
begin
//  coInitialize(nil);
end;

procedure TDataMdDJ.ADOConnectionDJAfterConnect(Sender: TObject);
begin
//  coUninitialize;
end;

procedure TDataMdDJ.ADOTableDianJiaBeforeInsert(DataSet: TDataSet);
begin
  if DataSet.Tag<>1 then
    Abort;
end;

procedure TDataMdDJ.ADOTableDianJiaBeforePost(DataSet: TDataSet);
var
  Passed:Boolean;
begin
  with DataSet do begin
    Passed:=False;
    if CheckRequirField(DataSet,'名称') then
      if CheckRequirField(DataSet,'电压等级') then
        if CheckRequirField(DataSet,'用电性质') then
          if CheckRequirField(DataSet,'平电价') then
            Passed:=True;
    if not Passed then
      Abort;
    end;
end;

function TDataMdDJ.CheckRequirField(DataSet:TDataSet;FieldName:String):Boolean;
begin
  with DataSet do begin
    if FieldByName(FieldName).IsNull then begin
      ShowMessage('字段['+FieldName+']必须填写');
      Result:=False;
    end
    else
      Result:=True;
  end;
end;

procedure TDataMdDJ.ADOTableFJFAfterInsert(DataSet: TDataSet);
begin
  with DataSet do
    if InitMainOutFun then
      FieldByName('ID').AsInteger:=PGetNewRecordID('df_fujiafei');
end;

procedure TDataMdDJ.ADOTableFJFBeforePost(DataSet: TDataSet);
var
  Passed:Boolean;
begin
  with DataSet do begin
    Passed:=False;
    if CheckRequirField(DataSet,'名称') then
      if CheckRequirField(DataSet,'费率') then
        Passed:=True;
    if not Passed then
      Abort;
    end;
end;

end.