uglobal_var.pas

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

//  **********************************
//  *    Unit name   : uglobal_var   *
//  *    AUTHOR      : Guo xuliang   *
//  *    Date        : 2005/05/12    *
//  *    程序目的    :定义公共变量   *
//  **********************************
unit uglobal_var;

interface
//client 端自動更新參數
type
  g_ftp_struct=record
    openflag:string;
    version:string;
    host:string;
    userid:string;
    password:string;
    port:integer;
    filename:string;
  end;
//系統整體參數
type
  g_para_struct=record
    para01:string;
  end;
//傳遞參數
type
  g_transfer_struct=record
    prog:string;                      //program name
    master:string;                    //master table name
    detail:string;                    //detail table name
    key1:string;                      //key field 1 (only for 單檔)
    key2:string;                      //key field 2 (only for 單檔)
    mpkey:array[1..10] of string;     //master的父字段
    mpvalue:array[1..10] of string;   //master的父親值
    mkey:array[1..10] of string;      //master key
    dkey:array[1..10] of string;      //Detail key
    qtable:string;                    //查詢用的TABLE
    order:string;                     //order fields
  end;
//注意事項 1.mpkey與mpvalue的值需要一一對應.
//2.mkey與dkey也必須一一對應﹐dkey可以大于mkey的個數.
var
  //==========================
  //系統參數變量
  g_ftp:g_ftp_struct;
  g_para:g_para_struct;
  g_transfer:g_transfer_struct;
  //==========================
  g_ver:string;
  g_user:string;     //當前用戶
  g_grup:string;     //當前組
  g_name:string;     //用戶名稱
  g_indate:Tdatetime;//用戶登陸入時間
  g_sqlstr:string;   //程序中的SQL語句
implementation

end.