jihua.dpr

DELPHI 编写个人工作计划事务管理软件

program Jihua;

uses
  Forms,
  Dialogs,
  Controls,
  Windows,
  Mainpas in 'Mainpas.pas' {MainForm},
  Searchpas in 'Searchpas.pas' {SearchForm},
  Newspas in 'Newspas.pas' {NewsForm},
  Share_Date in 'Share_Date.pas',
  Modifypas in 'Modifypas.pas' {ModifyForm},
  Daypas in 'Daypas.pas' {SelDayForm},
  DataLogin in 'DataLogin.pas' {LoginForm},
  Optionpas in 'Optionpas.pas' {OptionForm},
  Createpas in 'Createpas.pas' {CreatForm},
  SetpassPas in 'SetpassPas.pas' {SetPassForm},
  ShowUseOptionPas in 'ShowUseOptionPas.pas' {ShowOptionForm},
  CountSelPas in 'CountSelPas.pas' {CountSelForm},
  AboutPas in 'AboutPas.pas' {AboutBoxForm};

{$R *.res}

var LogForm : TLoginForm;
begin
  Try
    Application.Initialize;
    LogForm := TLoginForm.Create(Application);
    LogForm.ShowModal;
    if Share_LogName = '' then begin
      LogForm.Free;
      Application.MessageBox('用户没有登陆', '信息', MB_OK);
      Exit;
    end;
    LogForm.Free;

    Application.Initialize;
    Application.Title := 'TECH_JIHUA';
    Application.CreateForm(TMainForm, MainForm);
  MainForm.Show;
    if DateIsHave = FALSE then begin
      if Application.MessageBox(PChar('用户' + Share_LogName + '当天没有任务,是否要建立'), '确定', MB_YESNO) = ID_YES then begin
        MainForm.FileNewsClick(Application);
      end;
    end;
    Application.Run;
  Except

  end;
end.