datamod.pas

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

unit DataMod;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Registry,
   Db, Commfunc,  ADODB;

type
  TDataMD = class(TDataModule)
    ADOConnection: TADOConnection;
    QueryPublic: TADOQuery;
    ADOQueryPub: TADOQuery;
    ADOSPCalcfee: TADOStoredProc;
    ADOSPprintFP: TADOStoredProc;
    ADOSPzuofeiFP: TADOStoredProc;
    ADOSPReprintFP: TADOStoredProc;
    ADOSPpringYuJiao: TADOStoredProc;
    ADOSPzuofeiYuJiao: TADOStoredProc;
  private
  public
    function OpenQuery(Sql:String):TAdoQuery;
    procedure OpenPubQuery(SQLStr:String;ExecMode:Boolean);
  end;

var
  DataMD: TDataMD;

implementation

uses MainForm;

{$R *.DFM}

procedure TDataMd.OpenPubQuery(SQLStr:String;ExecMode:Boolean);
begin
  with QueryPublic do begin
    if Active then
      Close;
    SQL.Clear;
    SQL.Add(SQLStr);
    if Parameters.FindParam('OpName')<>nil then begin
      Parameters.ParamByName('OpName').DataType:=ftString;
      Parameters.ParamByName('OpName').Size:=50;
      Parameters.ParamByName('OpName').Value:=OpName;
    end;
    if Parameters.FindParam('OpID')<>nil then begin
      Parameters.ParamByName('OpID').DataType:=ftInteger;
      Parameters.ParamByName('OpID').Value:=OpID;
    end;
    if Parameters.FindParam('CurDate')<>nil then begin
      Parameters.ParamByName('OpDate').DataType:=ftDateTime;
      Parameters.ParamByName('OpDate').Value:=OpDate;
    end;
    if ExecMode then
      ExecSQL
    else begin
      Open;
    end;
  end;
end;

function TDataMD.OpenQuery(Sql:String): TAdoQuery;
begin
   ADOQueryPub.Active:=False;
   ADOQueryPub.SQL.Clear;
   ADOQueryPub.SQL.Add(Sql);
   ADOQueryPub.Open;
   Result:=ADOQueryPub;
end;

end.