systemdm.pas.svn-base

这个是个简单的关于出票申请的处理

unit SystemDM;

interface

uses
  Windows, Forms,SysUtils, Classes, DB, ADODB;

type
  TDMSystem = class(TDataModule)
    ConnMain: TADOConnection;
    Qry_Temp: TADOQuery;
    Qry_Info: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    FConnectFlag: boolean;
    FWorkName: string;
    FWorkPwd: string;
    FWorkAuthStr: string;
    FWorkRole: string;
    FWorkId: string;
    { Private declarations }
  public
    { Public declarations }
    property WorkId :string read FWorkId write FWorkId;               //登录工号
    property WorkPwd :string read FWorkPwd write FWorkPwd;            //登录工号的口令
    property WorkAuthStr :string read FWorkAuthStr write FWorkAuthStr;//登录工号的权限字串
    property WorkRole :string read FWorkRole write FWorkRole;         //登录工号的权限角色
    property WorkName  :string read FWorkName write FWorkName;        //登录工号的名称

    property ConnectFlag: boolean read FConnectFlag; //系统数据模块连接标志
    function SQL_Querys(ADataset: TAdoQuery; Sql_Str: string): boolean;
    function SQL_Exec(ADataset: TAdoQuery; Sql_Str: string; Commit: boolean = true): boolean;
    function GetServerTime: TDateTime;
    function CallLogin:boolean;  //系统登录
  end;

var
  DMSystem: TDMSystem;

implementation
uses
  systemPH, systemLoginFM;
{$R *.dfm}

function TDMSystem.CallLogin: boolean;
begin
  Result:=False;
  try
    Application.CreateForm(Tfrm_Login,frm_Login);
    if Assigned(frm_Login) then
    begin
      frm_Login.ShowModal;
      Result:= frm_Login.BLogin;
    end;
  finally
    frm_Login.Free;
    frm_login:=nil;
  end;
end;

procedure TDMSystem.DataModuleCreate(Sender: TObject);
var
  ConnStr: string;
begin
  try
    ConnStr := 'Provider=SQLOLEDB.1;Password=' + SystemConst_DBLoginPwd +
               ';Persist Security Info=False;User ID=' + SystemConst_DBLoginName +
               ';Initial Catalog=' + SystemConst_DataBaseName + ';Data Source=' + SystemConst_ServerName;
    ConnMain.ConnectionString := ConnStr;
    ConnMain.Connected := true;
    if ConnMain.Connected then FConnectFlag := True;
  except
    FConnectFlag := False;
  end;

  Qry_Temp.Connection := ConnMain;
  Qry_Info.Connection := ConnMain;
end;

function TDMSystem.GetServerTime: TDateTime;
begin
 with TADOQuery.Create(nil)do
 try
   Connection := ConnMain;
   Sql.Text := 'Select GetDate() As ServerTime';
   Open;
    Result := FieldByName('ServerTime').asDateTime;
 finally
  Free;
 end
end;

function TDMSystem.SQL_Exec(ADataset: TAdoQuery; Sql_Str: string;
  Commit: boolean): boolean;
begin
  result := false;
  if Assigned(ADataset) then
  begin
    with ADataset do
    begin
      Close; SQL.Clear; SQL.Add(SQL_Str);
      if Commit then connMain.BeginTrans;
      try
        ExecSQL;
        if Commit then connMain.CommitTrans;
        result := true;
      except
        if Commit then connMain.RollbackTrans;
      end;
    end;
  end;
end;

function TDMSystem.SQL_Querys(ADataset: TAdoQuery;
  Sql_Str: string): boolean;
begin
  result := false;
  if Assigned(ADataset) then
  begin
    with ADataset do
    begin
      Close; SQL.Clear; SQL.Add(SQL_Str);
      try
        //Prepare;
        Open; First;
        if not IsEmpty then
          result := true;
      except
      end;
    end;
  end;
end;

end.