📄 uglobal.pas
字号:
unit uGlobal;
interface
uses
Variants,
SysUtils;
Const
_letter:Array[1..20] of string=('A','B','C','D','E','F','G','H','I','J','K',
'L','M','N','O','P','Q','R','S','T');
Var
var_Form_JN:Array[0..20] of string; ////存储档案数据/////
isAdd:integer; /////在档案中用来判断是增加,还是修改:1-->代表增加.2-->代表修改
var_Form_CHK:Array[0..20] of string; ////用来存储帐本档案数据////////
var_Form_CHKID:string;
isCHKAdd:integer;/////用来判断帐本是增加、还是修改:1-->代表增加.2-->代表修改
StrSql_CHK:string;////存储查询时的查询语句/////////////////\
IF_CHK:Array[0..7] of integer;/////查询标志///////////////////////////////////
Exit_Flag:integer;
iDBFlag:string;
LoginInfo:Array[1..10] of string;///记录登陆信息//////////
_WhichStore:string;/////存储酒库名称////////
//////////////
_CheckDeptInfo:Array[1..20] of string;
implementation
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -