unit_global.pas

用于家庭养殖的财务进出

unit unit_global;

interface

uses
  StdCtrls,ComCtrls,Classes, Mask;
  {Windows, Messages, SysUtils, Variants,  Graphics, Controls, Forms,
  Dialogs,   Grids, DBGrids, ImgList, ToolWin, Menus,IniFiles,
  DBCtrls;}

  //TEnumType = (f1fileformulaone,F1FileExcel4,F1FileTabbedText,F1FileExcel5,F1FileFormulaOne3,F1FileTabbedTextValuesOnly);
type
//用户记录
  User_rec=record
  userId     :    string;
  userName   :    string;
  userPwd    :    string;
  //userLevel  :    string;
  user_group: string;//用户组编号
  end;

 //20050402修改，将index（顺序）改为string类型
PMyRec = ^TMyRec;
TMyRec = record
  host:string;
  id:integer;
  index:string;
  //key:string;
  dm:string;
  prescode:string;
  boarder_host:string;
  user_group_id:string;     //20060418  增加单位用户组权限
end;

const
  b01_relate_page=1; //任职信职的录入页
  
var
  BoolLogin         :boolean;//是否登陆成功
  UserVar           :User_rec;
  user_group_level:string;  //用户组权限索引
  Pag:TPageControl;
  TabSheet:array of TTabSheet;
  button:array of tbutton;
  labelcaption:array of array of tlabel;
  editbox:array of array of tedit;
  combobox:array of array of tcombobox;
  //maskedit:array of array of tdatetimepicker;
  maskedit:array of array of tmaskedit;
  checkbox:array of array of tcheckbox;
  updown:array of array of tupdown;
  memo:array of array of tmemo;
  labcount:integer;//作为存入数据库的取数依据
  addstate,upstate:boolean;
  addperscode:string;
  upperscode:string;
  CSperscode:string;
  Is_add,Is_update:boolean;
  is_save:boolean;
  is_csadd:boolean;
  is_csupdate:boolean;
  is_addnew:boolean;   //用于提示基本信息是否保存
  //is_dbclick:boolean;
  is_lock:boolean;
  Gencode:string;  //个人代码
  Systemcode:string;//系统节点代码
  is_mult:boolean;
  comprow,compcol:integer;
  XHpos:integer;
  is_mod:boolean;
  cbmod,ckmod:boolean;
  group_no:integer;
  AppPath:string;
  sheetnum:integer;//作为判断表单所在页数
  is_load:boolean;
    selstr:string;
    fromstr:string;
    whestr:string;
    field:array[1..5] of string;
    value:array[1..5] of string;
    sig:array[1..5] of string;
    pagenum:integer;//确定当前调用得是第几张表单
    Company_name:string;    //选中单位名
    Company_code:string;    //选中单位代码
    Selected_Node:ttreenode; //选中节点
    Selected:boolean;  //是否选中一个节点
    deptstr:string; //单位编号字符串
    is_empty:boolean;//是否要增添从属信息
    comp_company_posi:integer;
    comp_company_posy:integer;
    xh_posi:integer; //序号控件的x值
    xh_posy:integer; //序号控件的y值

    XH_VALUE:integer;   //用于确定多值信息的编号
    company_str:array of string;

    //yz124
    wheresqlstr:string;  //表单打印where语句
  //TEnumType = (f1fileformulaone,F1FileExcel4,F1FileTabbedText,F1FileExcel5,F1FileFormulaOne3,F1FileTabbedTextValuesOnly);

    //arr_company:array of string;
    arr_record_index:array of integer;
    max_page:integer;
    max_arr_count:integer;
    mc_recordcount:integer;
    glb_record_index:integer;
    glb_record_limit:integer;

    prescodelist:tstrings;  //用来存放用户prescode的字符串数组
    noncompany_list:tstrings; //不在职人员的prescode的字符串数组
    QuickSearch_list:tstrings; // 快速搜索prescode的字符串数组

    Tablelist:tstrings;//查询表列表
    SJ_PreFieldName:Tstrings;  //查询界面显示字段中备选字段
    SJ_SelectFieldName:Tstrings; //查询界面显示字段中选中的字段
    //SelectField_Rellist:Tstrings; //显示字段相关所在表名

    //查询条件相关列表
    SearchTablelist:TStrings;   //查询界面查询表表名列表  与cb_table配套
    SearchFieldList:Tstrings;//查询界面查询字段列表  与cb_field配套
    //SearchRelationlist:Tstrings;//查询界面查询关系列表  “是”“不是”“包含”

    //sql语句相关列表
    SqlTablelist:Tstrings;       //"查询表"中选中的表名
    SqlFieldlist:Tstrings;       //
    SqlRelation:Tstrings;
    SqlValue:Tstrings;
    SqlConn:Tstrings;
    Resultlist:Tstrings;  //用来存放每个记录的prescode值

    //查询条件英文列表
    SQL_CondEN:tstrings;   //最后生成查询语句时，通过这个list得到查询条件框中选出的查询条件
implementation

end.