implemntation.~pas

这是一个学藉管理系统

unit implemntation;



interface

uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ImgList, Menus, Buttons, jpeg, XPMenu,DB, ADODB,Mask,  DBActns, ShellAPI, Registry;

//procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);

var
state:string='欢迎使用本系统';  //用来在状态栏标志当前操作状态

Product_Dir:string='';           //程序的当前经绝对路径
all_num:string='';                 //记录总记录数
now_num:string='';                 //记录当前所在记录数
login_user:string='None';  //记录登录用户权限标志
login_user_name:string='None';     //记录登录用户的名称
data_file:string='data.mdb';    //定义数据库和路径及文件名
data_path:string='data.mdb';      //数据库文件名及相对路径
peg_height:integer=600;         //统一标准的窗口大小
peg_width:integer=800;
Bg_Sound:string='BgSound1.WAV';    //关于对话框中的背景音乐
state_bar:bool=false;           //用于定义是否一直显示状态栏
bakup_num:integer=5;            //记录手工备份的个数
start_bakup:bool=true;          //是否每次启动时进行数据库备份标志
start_log:bool=true;            //用来标志启动时是否生成日志文件
Bakup_Dir:string='bak\';         //保留备份文件的目录



const
Product_Name:string='学生信息管理系统';   //记录程序的名称
Product_Version:string='V1.0 测试版';   //程序版本
Product_Writer:string='许 昊';          //程序作者
Home_Url:string='http://xuhaohome.yeah.net';   //主页地址
E_mail:string='[e-mail]';        //邮件地址

implementation








end.