uglobal.pas

来自「是一个用delphi设计的考勤系统」· PAS 代码 · 共 27 行

unit UGlobal;

interface
uses SysUtils, messages, MmSystem, inifiles, printers, ExtCtrls, forms, dialogs,
   Controls, stdctrls, jpeg, graphics, UTSysCs, UTUser,UTKqgl;


//树型控件节点值结构指针变量
type
   ptTreeNode = ^TTreeData;
   TTreeData = record
      NodeValue: string;
   end;
const
   sCsPassWord: string = '888888'; //初始化密码
   sCsVersion:string='V1.0';     //版本号
var
   GsTempstr1: string; //临时传递参数1
   GsTempstr2: string; //临时传递参数2
   gtSysCs: TSysCs; //系统参数类
   gtUser: TUser; //系统操作员类
   gtKqgl: TKqgl;//考情管理相关
implementation

end.