u_globalvar.pas

一个简单的学籍管理软件

unit U_GlobalVar; //  全局变量

interface
uses Windows, SysUtils, Classes, Messages, Menus;

type
  GridStyle = record
    GroundColor: integer; //  表格底色
    FontColor: integer; //  表格字体颜色
    LineColor: integer; //  表格线颜色
    LmtColColor: integer; //  固定列颜色
    CurRowHiLight: Boolean; //  当前行高亮显示
    CurRowColor: integer; //  当前行颜色
    CurFntColor: integer; //  当前行字体颜色
    RowAlter: Boolean; //  行颜色交错显示
    AlterColor: integer; //  交错行颜色
    ShowMoneyLine: Boolean; //  显示金额线
    CommLineColor: integer; //  一般分隔线颜色
    DotLineColor: integer; //  小数位分隔线颜色
    KiloLineColor: integer; //  千位分隔线颜色
    LeftLineColor: integer; //  左边线颜色
    VertToBound: Boolean; //  竖线显示到底
    HorzToBound: Boolean; //  横线显示到边
    DblRightLine: Boolean; //  固定列右线显示双线
  end;
  //  日期组合
  TDateRec = record
    pYear:  word;
    pMonth: word;
    pDay:   word;
  end;
  //  打包文件头定义, 共64个字节
  TPackAgeHead = record
    PHeadSize: integer; //  文件头总长度
    PFileCount: integer; //  包含文件总数
    DataOffset: integer; //  打包文件数据偏移量
    Information: array[0..51] of char; //  附加信息
  end;

  //  打包文件控制项定义, 共32个字节
  TFileCtrlItem = record
    PFileName: array[0..55] of char; //  文件名
    PFileSize: Integer; //  文件大小
    PFileOffset: Integer; //  文件数据相对偏移量
  end;

  //  磁盘文件头
  TFloppyFileHead = record
    ID: array[0..3] of char; //  文件标志, 正常为 ZHCS 四个字符
    SerialNo: Double; //  序列号
    FloppyCount: Smallint; //  磁盘总数
    CurFloppyNo: Smallint; //  当前磁盘号
    FileSize: integer; //  文件大小
    Information: array[0..43] of char; //  附加信息
  end;

  //  排序信息纪录定义
  {TOrderInfo = Record
    //ADataSet:       TDataSet;
    APrimaryField:  String;
    APrimaryValue:  String;
    AIndexField:    String;
    AIndexValue:    integer;
    OldIndexValue:  integer;
    OrderType:      integer; //  0 -- 增加 1 -- 修改 2 -- 删除
  end;}
  TStringArray = array of string;
const
  CURSOR_ZOOMOUT = 1;
  CURSOR_ZOOMIN = 2;
  Floppy144Size = 1456000;
  Floppy120Size = 1212000;
var
  //  文件路径，系统路径, 数据路径, 临时路径
  S_ExePath, S_SysPath, S_DataPath, S_TmpPath: string;

  //  数据库名, 服务器名
  S_DBaseName, S_ServerName: string;

  //  学校代码, 学校名称, 负责人
  S_SchoolCode, S_SchoolName, S_SchoolControl: string;

  //  系统是否启用
  B_BeginUse: Boolean;

  //  系统  启用年份、启用学期
  W_StartYear, W_StartTerm: integer;

  //  当前学年、学期
  W_CurYear, W_CurTerm: word;

  //  当前学期号
  S_CurTermCode: string;

  //  系统当前日期
  D_CurDate: TDateTime;

  //  系统登录方式
  SI_LogonStyle: smallint;

  //  操作人员代码，操作人员姓名，密码
  S_UserCode, S_UserName, S_UserPassword: string;

  //  总年级数、各年级班数//、各年级班级号
  SI_GradeCount: smallint;
  SI_Classes: array of smallint;
  //SA_ClassCode: array of TStringArray;

  //  文件类型 1 - DBF 2 - TXT  其他保留
  //  对齐方式 1 - 左对齐 2 - 居中  3 - 右对齐
  SI_FileType, SI_AlignType: smallint;

  //  表格格式
  GridStyles: GridStyle;

  //  各年级当前考试考次
  I_CurExamCode: array[1..6] of integer;
  S_CurExamName: array[1..6] of String;

const
  SysDbase = 'LDSTUSYS';
  DataDBase = 'LDSTUDATA';
  StudentIniFile = 'LDSTUINI.INI';

  GradeNames: array[0..9] of string =
    ('一', '二', '三', '四', '五', '六', '七', '八', '九', '十');
const
  cm_ChangeControl = WM_USER + 200;
var
    //  主菜单
  MainMenu: TMainMenu;

implementation

end.