gzglcommon.pas

工资管理系统的代码实例

unit GZGLCommon;

interface

uses
  Windows, SysUtils, Registry, DB, DBGrids, ADODB;

resourcestring
  conDataFile = 'Data\GZGL.MDB';

const
  CNT_ConnectString =
    'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source= %s;' +
    'Mode=Share Deny None;Extended Properties="";' +
    'Persist Security Info=False;Jet OLEDB:System database="";' +
    'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";' +
    'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;' +
    'Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;' +
    'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;' +
    'Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;' +
    'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False';

type
  TGZRec = record
    Zybh: string;
    Jbgz, Zwgz, Bt, Kq, Sj: Double;
  end;

var
  EXEPath: string;  //主程序路径
  AdoGzgl: TAdoConnection;

function GetExePath: string;
procedure InitDBGrid(AFields: TDataSet; ADBGrid: TDBGrid);
function IsNumeric(const s: string): Boolean;

implementation

function  GetExePath: string;
begin
  Result := ExtractFilePath(ParamStr(0));
end;

procedure InitDBGrid(AFields: TDataSet; ADBGrid: TDBGrid);
var
  l_Col:TColumn;
begin
  ADBGrid.Columns.Clear;
  AFields.First;
  while not AFields.Eof do
  begin
    l_COL := ADBGrid.Columns.Add;
    with l_COL, AFields do
    begin
      FieldName := FieldByName('FieldName').AsString;
      Title.Caption := FieldByName('TitleName').AsString;
      Width := FieldByname('Width').AsInteger;
    end;
    AFields.Next;
  end;
end;

function IsNumeric(const s: string): Boolean;
var
  l_Code: Integer;
  l_Str: string;
  F: Double;
begin
  Result := True;
  l_Str := Trim(s);
  try
    Val(l_Str, F, l_Code);
  except
    Result := False;
  end;
  Result := Result and (l_Code = 0);
  if Length(l_Str) >= 1 then
      Result := Result and (not (l_Str[1] in ['e', 'E']));
end;

end.