untdm.pas

简要说明:对医院幼儿心理情况做的一个调查,统计系统.

unit untDM;

interface

uses
  SysUtils, Classes, DB, ADODB, IniFiles, Forms, Graphics, ImgList,
  Controls;

type
  TDM = class(TDataModule)
    cnn: TADOConnection;
    ilBox: TImageList;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure LoadData;
  end;

var
  DM: TDM;

implementation

uses untGlobalFun, untGlobalVar;

{$R *.dfm}

{ TDM }

procedure TDM.LoadData;
begin

end;

procedure TDM.DataModuleCreate(Sender: TObject);
var
  iniFile: TIniFile;
  ServerName: string;
  i: Integer;
begin
  iniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Ini\PI.ini');
  ServerName := iniFile.ReadString('Main','ServerName','(local)');
  SystemName := iniFile.ReadString('Main','SystemName','PI');

  XLGood := iniFile.ReadString('ReportText', 'XLGood', '该儿童无任何心理卫生问题.');
  XLPre  := iniFile.ReadString('ReportText', 'XLPre',  '该儿童存在:');
  XLLast := iniFile.ReadString('ReportText', 'XLLast', '等心理卫生问题.');
  QZType := iniFile.ReadString('ReportText', 'QZType', '该儿童的气质属于:');
 


  QZ1 := iniFile.ReadString('GridColor', 'QZ1', '#FFFFFF');
  QZ2 := iniFile.ReadString('GridColor', 'QZ2', '#FFFFFF');
  QZ3 := iniFile.ReadString('GridColor', 'QZ3', '#FFFFFF');
  QZ4 := iniFile.ReadString('GridColor', 'QZ4', '#FFFFFF');
  QZ5 := iniFile.ReadString('GridColor', 'QZ5', '#FFFFFF');
  XW  := iniFile.ReadString('GridColor', 'XW',  '#FFFFFF');

  iniFile.Free;

  StartColor := $0098eba0;
  EndColor := $00f3fcf1;
  CaptionColor := clGreen;
  ActiveColor := $00002400;

  for i := 0 to ComponentCount - 1 do begin
    if not (Components[i] is TADOConnection) then Continue;
    if TADOConnection(Components[i]).Connected then
      TADOConnection(Components[i]).Connected := False;
    TADOConnection(Self.Components[I]).ConnectionString := ReplaceADOConnection(
        TADOConnection(Self.Components[I]).ConnectionString, 'Data Source', ServerName);
  end;
end;


end.