Question

DELPHI赋值问题

我在checkuser窗口数组赋值：qx[1]:=adodataset1.fieldbyname('权限一').asboolean;
qx[2]:=adodataset1.fieldbyname('权限二').asboolean;
在mainform里面要用到qx[1],qxp[2] 这样可以直接引用checkuser里面的吗
如果可以要怎么引用

Answer 1

写一个公用的uFunction.pas类，把常量变量都定义在里面，其他模块引用这个uFunction。

unit uFunction;

interface

uses
Windows, Dialogs, Forms, ComCtrls, SysUtils, DB, ADODB, Classes,
ComObj, FileCtrl, DateUtils, ShellAPI, Variants, IniFiles, ActiveX,
StrUtils, Tlhelp32, Math, Printers, Messages, WinSock,
IdBaseComponent,IdComponent, IdRawBase, IdRawClient,IdIcmpClient;

var
gEntryVO: TEntryVO; //EntryVO
gUerCode: String; //员工编号
gUserName: String; //用户名称
gDeptCode: String; //部门编号
gDeptName: String; //部门名称
gDBFlg: String;

Answer 2

首先将qx[1],qx[2]在checkuser窗口中设为公共变量，然后就可以引用了