card.dpr

本软件是小管家个人帐户管理系统 (ADO+ACCESS)

program card;

uses
  Forms,windows,SysUtils,controls,
  main in 'main.pas' {Form_Main},
  Mydatabase in 'Mydatabase.pas' {DataModule1: TDataModule},
  about in 'about.pas' {Form_About},
  newzh in 'newzh.pas' {Form_NewZH},
  newch in 'newch.pas' {Form_ch},
  newrh in 'newrh.pas' {Form_rh},
  txt in 'txt.pas' {Form_txt},
  password in 'password.pas' {Form_MiMa_GA},
  updatePd in 'updatePd.pas' {Form_update};

{$R *.res}
var
handle_1,handle_2:hwnd;
begin
  //数据库文件检测
  if (not fileexists(ExtractFilePath(ParamStr(0))+'infor.mdb')) and (not fileexists(ExtractFilePath(ParamStr(0))+'ud.mdb')) then begin
     messagebox(0,'系统数据库文件丢失,请重新安装!','提示',0);
     halt;
  end;
  Application.Initialize;
  //获取窗口句柄
  handle_1:=findwindow('TForm_MiMa_GA',nil);
  handle_2:=findwindow('TForm_Main',nil);
  //程序是否已经运行
  if (handle_1=0) and (handle_2=0) then begin
     //启动登录窗口
     form_mima_ga:=Tform_mima_ga.Create(application);
     form_mima_ga.ShowModal ;
     //启动主界面窗口
     if (form_mima_ga.ModalResult =mrok) then begin
        Application.Title := '小管家';
        Application.CreateForm(TForm_Main, Form_Main);
        Application.CreateForm(TDataModule1, DataModule1);
        {Application.CreateForm(TForm_updatePassWord, Form_updatePassWord);
        Application.CreateForm(TForm_txt, Form_txt);
        Application.CreateForm(TForm_About, Form_About);
        Application.CreateForm(TForm_NewZH, Form_NewZH);
        Application.CreateForm(TForm_ch, Form_ch);
        Application.CreateForm(TForm_rh, Form_rh);}
        Application.Run;
     end;
  end
  else
    messagebox(0,'程序已经运行!','提示',0);
end.