ldstudent.dpr

一个简单的学籍管理软件

program LdStudent;

uses
  Forms,
  Sysutils,
  IniFiles,
  Graphics,
  Windows,
  Messages,
  U_Main in 'U_Main.pas' {Fm_Main},
  U_Dm in 'U_Dm.pas' {Fm_DM: TDataModule},
  U_GlobalProc in 'U_GlobalProc.pas',
  U_About in 'U_About.pas' {Fm_About},
  U_GlobalVar in 'U_GlobalVar.pas',
  U_Flash in 'U_Flash.pas' {Fm_Flash},
  U_SetInitParam in 'U_SetInitParam.pas' {Fm_SetInitParam},
  U_SetTuition in 'U_SetTuition.pas' {Fm_SetTuition},
  U_UserPower in 'U_UserPower.pas' {Fm_UserPower},
  U_GetSubject in 'U_GetSubject.pas' {Fm_GetSubject},
  U_Logon in 'U_Logon.pas' {Fm_Logon},
  U_SubjectCondition in 'U_SubjectCondition.pas' {Fm_SubjectCondition},
  U_Backup in 'U_Backup.pas' {Fm_Backup},
  U_Restore in 'U_Restore.pas' {Fm_Restore},
  U_SelectDir in 'U_SelectDir.pas' {Fm_SelectDir},
  U_ExamMakeResult in 'U_ExamMakeResult.pas' {Fm_ExamMakeResult},
  U_OutputParam in 'U_OutputParam.pas' {Fm_OutPutParam},
  U_SetOptions in 'U_SetOptions.pas' {Fm_SetOptions},
  U_NewTerm in 'U_NewTerm.pas' {Fm_NewTerm},
  U_CopyFloppy in 'U_CopyFloppy.pas' {Fm_CopyFloppy},
  U_PersonalItem in 'U_PersonalItem.pas' {Fm_PersonalItem},
  U_ExamManage in 'U_ExamManage.pas' {Fm_ExamManage},
  U_ObserveItem in 'U_ObserveItem.pas' {Fm_ObserveItem},
  U_UserManage in 'U_UserManage.pas' {Fm_UserManage},
  U_UserMangeAction in 'U_UserMangeAction.pas' {Fm_UserMangeAction},
  U_Capture in 'U_Capture.pas' {Fm_Capture},
  U_AviCapture in 'U_AviCapture.pas',
  U_AviCap in 'U_AviCap.pas',
  U_MatricSubject in 'U_MatricSubject.pas' {Fm_MatricSubject},
  U_ExamResultInput in 'U_ExamResultInput.pas' {Fm_ExamResultInput},
  U_ExamMidAction in 'U_ExamMidAction.pas' {Fm_ExamMidAction},
  U_GradeSubjectAction in 'U_GradeSubjectAction.pas' {Fm_GradeSubjectAction},
  U_SubjectManage in 'U_SubjectManage.pas' {Fm_SubjectManage},
  U_MatricSubjectAction in 'U_MatricSubjectAction.pas' {Fm_MatricSubjectAction},
  U_SubjectCollect in 'U_SubjectCollect.pas' {Fm_SubjectCollect},
  U_ExamSelect in 'U_ExamSelect.pas' {Fm_ExamSelect},
  U_SetNewClasses in 'U_SetNewClasses.pas' {Fm_SetNewClasses},
  U_AllSubjectTable in 'U_AllSubjectTable.pas' {Fm_AllSubjectTable},
  U_ExamManageAction in 'U_ExamManageAction.pas' {Fm_ExamManageAction},
  U_GradeSubject in 'U_GradeSubject.pas' {Fm_GradeSubject},
  U_StudentSearch in 'U_StudentSearch.pas' {Fm_StudentSearch},
  U_CommentRegister in 'U_CommentRegister.pas' {Fm_CommentRegister},
  U_ChangePswd in 'U_ChangePswd.pas' {Fm_ChangePswd},
  U_SetCurExam in 'U_SetCurExam.pas' {Fm_SetCurExam},
  U_ConductItem in 'U_ConductItem.pas' {Fm_ConductItem},
  U_SelectCollect in 'U_SelectCollect.pas' {Fm_SelectCollect},
  U_SingleSearch in 'U_SingleSearch.pas' {Fm_SingleSearch},
  U_StudentManage in 'U_StudentManage.pas' {Fm_StudentManage},
  U_OutlayRegister in 'U_OutlayRegister.pas' {Fm_OutlayRegister},
  U_CommonRegister in 'U_CommonRegister.pas' {Fm_CommonRegister},
  U_ActionRegister in 'U_ActionRegister.pas' {Fm_ActionRegister},
  U_PersonalRegister in 'U_PersonalRegister.pas' {Fm_PersonalRegister},
  U_PXingRegister in 'U_PXingRegister.pas' {Fm_PXingRegister},
  U_StudentMangeAction in 'U_StudentMangeAction.pas' {Fm_StudentMangeAction},
  U_ChangeRegister in 'U_ChangeRegister.pas' {Fm_ChangeRegister},
  U_BodyRegister in 'U_BodyRegister.pas' {Fm_BodyRegister},
  U_RewardsRegister in 'U_RewardsRegister.pas' {Fm_RewardsRegister},
  U_TimeRegister in 'U_TimeRegister.pas' {Fm_TimeRegister},
  U_TimeCollect in 'U_TimeCollect.pas' {Fm_TimeCollect},
  U_Print in 'U_Print.pas' {Fm_Print};

{$R *.RES}
var
  XhWnd: HWnd;
begin
  Xhwnd := FindWindow('TApplication', '力得中小学学籍管理系统');
  if XHwnd <> 0 then
  begin
    BringWindowToTop(XHwnd);
    PostMessage(XHwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0);
    PostMessage(XHwnd, WM_SYSCOMMAND, SC_RESTORE, 0);
    Exit;
  end;
  Application.Initialize;
  Application.Title := '力得中小学学籍管理系统';
  Fm_Flash := TFm_Flash.Create(Application);

  Fm_Flash.Show;
  Fm_Flash.Repaint;
  Application.CreateForm(TFm_Main, Fm_Main);
  MainMenu := Fm_Main.MMenu;
  S_ExePath := GetCurrentDir;
  //  系统路径
  S_DataPath := S_ExePath + '\DATA';
  //  系统路径
  S_SysPath := S_ExePath + '\SYS';
  //  临时路径
  S_TmpPath := S_ExePath + '\TEMP';

  //Application.ProcessMessages;
  Application.CreateForm(TFm_DM, Fm_DM);
  Fm_Flash.Repaint;
  Fm_Flash.Free;

  // 是否启用
  with TIniFile.Create(S_SysPath + '\' + StudentIniFile) do
  try
    SI_LogonStyle := ReadInteger('系统参数', '登录方式', 0);
    if not U_Logon.Show_Logon then
    begin
      Application.Terminate;
      Exit;
    end;
  finally
    Free;
  end;
  if S_UserName = '' then
    Exit;

  with Fm_Main.MainStateBar do
  begin
    Panels[0].Text := '使用单位：' + S_SchoolName;
    Panels[1].Text := '操作员：' + S_UserName;
    if not B_BeginUse then
      Panels[2].Text := '当前学期：未启用'
    else
      Panels[2].Text := '当前学期：' +
        IntToStr(W_CurYear) + '-' + IntToStr(W_CurYear + 1) + '学年 ' +
        '  第' + IntToStr(W_CurTerm) + '学期';
  end;
  //  表格格式参数
  with TIniFile.Create(S_SysPath + '\' + StudentIniFile), GridStyles do
  try
    GroundColor := ReadInteger('表格格式', '表格底色', clWhite);
    FontColor := ReadInteger('表格格式', '表格字体颜色', clBlack);
    LineColor := ReadInteger('表格格式', '表格线颜色', clBlack);
    LmtColColor := ReadInteger('表格格式', '固定列颜色', clInfoBk);
    CurRowHiLight := ReadBool('表格格式', '当前行高亮显示', True);
    CurRowColor := ReadInteger('表格格式', '当前行颜色', $FAFAE0);
    CurFntColor := ReadInteger('表格格式', '当前行字体颜色', clBlack);
    RowAlter := ReadBool('表格格式', '行颜色交错显示', False);
    AlterColor := ReadInteger('表格格式', '交错行颜色', clInfoBk);
    ShowMoneyLine := ReadBool('表格格式', '显示金额线', False);
    CommLineColor := ReadInteger('表格格式', '一般分隔线颜色', clGreen);
    DotLineColor := ReadInteger('表格格式', '小数位分隔线颜色', clRed);
    KiloLineColor := ReadInteger('表格格式', '千位分隔线颜色', clNavy);
    LeftLineColor := ReadInteger('表格格式', '左边线颜色', clMaroon);
    VertToBound := ReadBool('表格格式', '竖线显示到底', False);
    HorzToBound := ReadBool('表格格式', '横线显示到边', False);
    DblRightLine := ReadBool('表格格式', '固定列右线显示双线', True);
  finally
    Free;
  end;

  Application.Run;
end.