common.~pas

房屋中介软件

{$A+,B-,C+,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
unit Common;

interface

uses SysUtils,Graphics,Classes,adodb,DateUtils;

function  f_ConnectDataBase:Boolean;
function  f_GetNow():TDateTime;
function  f_SysParmInit:Boolean;

var
  //应用系统
  gs_AppName:string;	//应用程序名称

// 软件目录与数据目录
  gs_WorkPath:string;

 // 登录用户与登录时间
  gs_login_userid:string;
  gs_login_username:string;
  gs_login_userlevel:string;
  gt_login_time:TDateTime;
  gs_login_password:string;

  //
  gs_OrgId:string;
  gs_OrgName:string;


implementation
uses DataBase;


{-------------------------------------------
          连接数据库
-------------------------------------------}
function f_ConnectDataBase:Boolean;
var
  strServerName,strWorkstation :string;
begin
  // 读取数据库连接参数
  with DataModule1.ADOConnection1 do
  begin
    try
      Connected:=False;
      ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;'
                       +'Data Source='+gs_WorkPath + '\' + 'data.mdb'+';'
                       +'Persist Security Info=False';
      Connected:=True;
    except
    end;
  end;

  // 返回连接结果
  Result:=DataModule1.ADOConnection1.Connected;

end;




{-------------------------------------------
            取服务器当前时间
-------------------------------------------}
function f_GetNow():TDateTime;
var
  ADOQ_Temp :TADOQuery;
  strSQL:string;
  CurrDateTime:TDateTime;
begin
  ADOQ_Temp :=TADOQUERY.Create(nil);
  ADOQ_Temp.Connection :=DataModule1.ADOConnection1;

  // 获取字段的最大值
  with ADOQ_Temp do
  begin
    Close;
    SQL.Clear;
    strSQL :='select Now() as CurrDateTime';
    SQL.Add(strSQL);
    open;
    CurrDateTime:=Fields[0].AsDateTime;
  end;

  ADOQ_Temp.Free;
  ADOQ_Temp:=nil;

  // 返回最新值
  Result:=CurrDateTime;

end;

{-------------------------------------------
              系统参数初始化
-------------------------------------------}
function f_SysParmInit:Boolean;
var
  ADOQ_Temp :TADOQuery;
begin
  ADOQ_Temp :=TADOQUERY.Create(nil);
  ADOQ_Temp.Connection :=DataModule1.ADOConnection1;

  //获取本单位信息
  with ADOQ_Temp do
  begin
    CLOSE;
    SQL.Clear;
    SQL.Add('select Top 1 编号,单位名称 from 单位信息表');
    OPEN;
    IF not IsEmpty Then
    begin
      gs_OrgId         := FieldByName('编号').AsString;
      gs_OrgName       := FieldByName('单位名称').AsString;
    end
    Else
    begin
      Result:=False;
      exit;
    end;
  end;

  //
  ADOQ_Temp.Free;
  ADOQ_Temp:=nil;

  //
  Result:=True;

end;

end.