unit1.pas

我为某旅游局开发 的评委评估系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, ComCtrls, MPlayer, ColorGrd,registry,inifiles,
  DB, ADODB;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    Label3: TLabel;
    ProgressBar1: TProgressBar;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses
  Unit2,unit3,Unit4,Unit5,unit6,Unit7,Unit8,unit9,Unit10,Unit11,Unit12,Unit13,
  Unit14,Unit15,unit16,unit17,unit18,unit19,unit20,unit21,unit22,unit23,
  unit24,unit25,unitTimeToClose1,unitAutoRun, UnitTimeToClose2;
{$R *.dfm}
//时间到关闭窗口1，打开窗口2。


procedure TForm1.Timer1Timer(Sender: TObject);
var reg:tregistry;
    SQLName:string;
    myini:tinifile;
    filename:string;
    DatabaseExist:boolean;
    DoneAdo: bool;
    strSQL: string;
begin

 TIMER1.Enabled :=FALSE;
 DatabaseExist:=False;

//-----先检查配置文件，更改数据库缺省实例名,粘贴数据库------//

  Filename:=ExtractFilePath(Paramstr(0))+'info.ini';
  myini:=Tinifile.create(filename);
  DoneAdo:=myini.Readbool('adoconnect','Done',True);

  if not DoneAdo then  //如果还没有初始配置过，做如下的配置
  begin
  reg:=tregistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  try
  if reg.OpenKey('\SOFTWARE\Microsoft\MSSQLServer\MSSQLServer',false) then
   begin
     if reg.ValueExists('DefaultDomain') then
        SQLName:=reg.ReadString('DefaultDomain'); //获得SQL实例名
   end;
  finally
  reg.Free;
  close;
  end;

  try
  ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source='+SQLName;
  strSQL := 'select name from sysdatabases';//检查数据库Analysis是否存在
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.add(strSQL);
  ADOQuery1.Open;
  while not adoquery1.Eof do
    begin
      if ADOQuery1.FieldByName('name').AsString='analysis' then
      DatabaseExist:=true;
      ADOQuery1.Next;
    end;
  if not DatabaseExist then
    begin
          strSQL := 'sp_attach_db @dbname ='+Quotedstr('analysis')+', @filename1 = '+quotedstr('c:\Program Files\Microsoft SQL Server\MSSQL\Data\analysis_data.mdf')+',@filename2 = '+Quotedstr('c:\Program Files\Microsoft SQL Server\MSSQL\Data\analysis_log.ldf');
          ADOQuery1.Close;
          ADOQuery1.SQL.Clear;
          ADOQuery1.SQL.add(strSQL);
          ADOQuery1.ExecSQL;
    end;      
  ADOQuery1.Destroy;
  ADOConnection1.Destroy;

  finally
  myini.WriteString('adoconnect','String','Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=analysis;Data Source='+SQLName);
  myini.WriteBool('adoconnect','Done',True);
  end;
  end;
  myini.Free;



  //标准为110
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TForm2, Form2);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TForm3, Form3);
  progressbar1.Position:=progressbar1.Position+11;
  Application.CreateForm(TForm4, Form4);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReport5, QuickReport5);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReport6, QuickReport6);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReport7, QuickReport7);
  progressbar1.Position:=progressbar1.Position+3;
  Application.CreateForm(TQuickReport8, QuickReport8);
  progressbar1.Position:=progressbar1.Position+3;
  Application.CreateForm(TQuickReport9, QuickReport9);
  progressbar1.Position:=progressbar1.Position+3;
  Application.CreateForm(TQuickReport10, QuickReport10);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReport11, QuickReport11);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReport12, QuickReport12);
  progressbar1.Position:=progressbar1.Position+4;
  application.CreateForm(TQuickReportBZ,QuickReportBZ);
  Application.CreateForm(TForm14, Form14);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReportPWPF, QuickReportPWPF);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReportXSDF, QuickReportXSDF);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReportPWSPTJ, QuickReportPWSPTJ);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReportPWSPTJ2, QuickReportPWSPTJ2);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReportPWZTJ, QuickReportPWZTJ);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReportPWPFChart, QuickReportPWPFChart);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReportPWSPPie, QuickReportPWSPPie);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReportPWSPBar, QuickReportPWSPBar);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TQuickReportPWZTJChart, QuickReportPWZTJChart);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TFormSystemInformation, FormSystemInformation);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TFormCPUInformation, FormCPUInformation);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TFormTimeToClose, FormTimeToClose);
  progressbar1.Position:=progressbar1.Position+4;
  Application.CreateForm(TFormTimeToCloseWarm, FormTimeToCloseWarm);
  progressbar1.Position:=progressbar1.Position+3;
  Application.CreateForm(TFormAutoRun, FormAutoRun);
  progressbar1.Position:=progressbar1.Position+3;


  Form1.Visible := false;
  Close;
  end;

end.