我有一些问题问问大家 在登陆窗口Public中设置个全局变量,其他窗口中Uses登陆窗口就可以了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 : genphone_ru(票票) 全局变量在登陆窗口关闭后其它窗体还能用吗?? 最好把一些系统常量、系统变量统一声明在一个单元中如:unit Client_System; interfaceuses Windows, Messages, SysUtils, ExtCtrls, StdCtrls, Controls, Classes, Forms, Graphics, ShellAPI, IniFiles, Grids, DBGrids, DB, DBClient, CorbaCon, CorbaObj;//==============================================================================//BDE异常错误代码***************************************************************//==============================================================================const eKeyViol = 9729; eRequiredFieldMissing = 9732; eForeignKey = 9733; eDetailsExist = 9734;//==============================================================================//‘CM_’代表全局消息常量(Const Message)**************************************//==============================================================================const CM_RESTORE = WM_USER + $1000; //自定义消息:恢复显示窗口 CM_INITOVER = WM_USER + $2000; //自定义消息:初始化完毕//==============================================================================//‘CG_’代表全局常量(Const Global)*******************************************//==============================================================================const CG_Supervisor: string = 'supervisor'; CG_Link: string = '~'; CG_True: string = '√'; CG_False: string = '×';//==============================================================================//‘VG_’代表全局变量(Variable Global)****************************************//==============================================================================var VG_DateTime: TDateTime; //服务器系统时钟 VG_Annual: word; //当前年度 VG_Year: word; //年 VG_Month: word; //月 VG_Day: word; //日 VG_Hour: word; //时 VG_Minute: word; //分 VG_Second: word; //秒 VG_MSEL: word; //毫秒 //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ VG_WinVersion: string; //当前操作系统 VG_WinPath: string; //操作系统路径 //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ VG_AppPath: string; //程序当前运行路径 VG_AppName: string; //程序名称 VG_AppHelp: string; //程序帮助名称 VG_AppInfo: string; //程序日志文件名 //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ VG_NetCardID: string; //网络适配器物理地址(全球唯一) VG_Computer: string; //客户端计算机名称 VG_ClientIP: string; //客户端IP地址 //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ VG_Group: string; //操作员所属部门 VG_User: string; //用户名称 VG_Name: string; //真实姓名 VG_Purview: string; //用户权限 //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ : genphone_ru(票票) 全局变量在登陆窗口关闭后其它窗体还能用吗??只要你不释放他还可以用不过还是放到一个公用单元中,如quark(quark) ( ) 所说 quark(quark) 我对这方面不是太懂,是不是说我只要在一个公用单元中申明VG_NAME:STRING;VG_PURVIEW:STRING;VG_USER:STRING;就行了吗?? 1.在主窗口中定义公用变量,在登录成功后将用户名赋给这个公用变量2.在其他窗口中直接使用组窗口中的这个公用变量,先use 主窗口单元.主窗口在程序运行过程中要一直存在 设计用户类 Tuser=class public userName:string; passWord:string; end;在登陆窗口创建是create一个TUSER对象,给它的属性赋值,以后再用这个对象 用Delphi写OCX控件,如何自定义事件? 各位大哥帮忙,给点意见,我该选用什么数据库呢? 如何阻止用户在pagecontrol里从一个页面转移到别的页面 [急急急!!!]关于对表中字段名有选择的DBGrid中显示的问题??? 刚刚下载了一个控件不好用 请教两个数据库常识问题. 如何存取附件? 如何用一个buttonclick事件对3个table进行添加数据操作 如果不绑定到Dbgrid,大家都是怎样取得ADOdataset里返回的记录的值的? 一个极度弱智的数据库问题给10分 急急急急急急急急。。。。。超级用户登录,还原/备份数据库 各位大哥看看小妹的贴子好吗?
unit Client_System;
interfaceuses
Windows, Messages, SysUtils, ExtCtrls, StdCtrls, Controls, Classes, Forms,
Graphics, ShellAPI, IniFiles, Grids, DBGrids, DB, DBClient, CorbaCon, CorbaObj;//==============================================================================
//BDE异常错误代码***************************************************************
//==============================================================================
const
eKeyViol = 9729;
eRequiredFieldMissing = 9732;
eForeignKey = 9733;
eDetailsExist = 9734;//==============================================================================
//‘CM_’代表全局消息常量(Const Message)**************************************
//==============================================================================
const
CM_RESTORE = WM_USER + $1000; //自定义消息:恢复显示窗口
CM_INITOVER = WM_USER + $2000; //自定义消息:初始化完毕//==============================================================================
//‘CG_’代表全局常量(Const Global)*******************************************
//==============================================================================
const
CG_Supervisor: string = 'supervisor';
CG_Link: string = '~';
CG_True: string = '√';
CG_False: string = '×';
//==============================================================================
//‘VG_’代表全局变量(Variable Global)****************************************
//==============================================================================
var
VG_DateTime: TDateTime; //服务器系统时钟
VG_Annual: word; //当前年度
VG_Year: word; //年
VG_Month: word; //月
VG_Day: word; //日
VG_Hour: word; //时
VG_Minute: word; //分
VG_Second: word; //秒
VG_MSEL: word; //毫秒
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ VG_WinVersion: string; //当前操作系统
VG_WinPath: string; //操作系统路径
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
VG_AppPath: string; //程序当前运行路径
VG_AppName: string; //程序名称
VG_AppHelp: string; //程序帮助名称
VG_AppInfo: string; //程序日志文件名
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
VG_NetCardID: string; //网络适配器物理地址(全球唯一)
VG_Computer: string; //客户端计算机名称
VG_ClientIP: string; //客户端IP地址
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
VG_Group: string; //操作员所属部门
VG_User: string; //用户名称
VG_Name: string; //真实姓名
VG_Purview: string; //用户权限
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
不过还是放到一个公用单元中,如quark(quark) ( ) 所说
2.在其他窗口中直接使用组窗口中的这个公用变量,先use 主窗口单元.
主窗口在程序运行过程中要一直存在
Tuser=class
public
userName:string;
passWord:string;
end;
在登陆窗口创建是create一个TUSER对象,给它的属性赋值,以后再用这个对象