udataoa.pas

一个会议签到系统

unit uDataOA;

{******************************************************************************
*                     系统变量 全局变量
*                     数据库存数与取数的基类
******************************************************************************}

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs,Mask,
  Db, DBClient,StdCtrls,ComCtrls, SConnect, MConnect;
   {**********************************************************}

{在表格编辑时每列捆绑的控件。可以为空}
type
    TGridColCon = Record
      conName : TWincontrol;
      bEdit   : Boolean;
    end;
{树指针的结构****配合使用FZID编码规则}
type
    pRFZID = ^RFZBianMa;
    RFZBianMa = Record
      FZID     : String;
      PFZID    : String;
      IXDIndex : Integer;
      iEdit    : Integer;// 0 已经处理 1 ADD 2 Edit
      iRefresh : Integer;// 是否刷新   100 is Refreshed
    end;

{********************用于数据库对应的控件的存数与取数************************}


   {**********************************************************}
const
   sconPriceFmt : String = '####0.00##';        //单价的显示格式
   sconzk= '####0.00';                          //折扣1
   sconzk1= '####0.000';                        //折扣2
   sconTaxFmt   : String = '####0.00##';        //税率的显示格式
   sconMoneyFmt : String = '#,##0.00##';        //金额的显示格式
   sconCountFmt : String = '####0.####';        //数量的显示格式

   sStoreProcForSQLServerBeginTran:String='  Begin Tran ';
   sStoreProcForSQLServerEndTran  : String='    If @@Error <> 0 '
                                          +'   Rollback Tran'
                                          +'   Else'
                                          +'   Commit Tran';



   {******************全局变量**********************}

var
   sSYSServerDateYMD :String;
   sSYSClintDateYMD  :String;
   sSYSUserCode      :String;
   sSYSUserName      :String;
   sSYSUserFZID      :String;
   sSYSTeamFZID      :String;               //工作组FZID
   sSYSUserPassWord  :String;
   bSYSDBORCorSQL    :Boolean;               //True DB is not Orace SQLServer
   bSYSShowProgress  :Boolean;               //是否显示进度
   saSYSStrData      :array [1..20] of  String; //用于业务模块保存变量
   sSYSCloseFrmName  :String;               //退出窗体的信息
   sSYSCloseFrmCaptin:String;               //退出窗体的信息
   saSYSDBQXTxT      :array of String;            //用于权限的传递
   saSYSDBQXCtrlName :array of String;       //
   sAppServerIP      :String;                     //应用服务器的地址

   //系统模块间传递用的变量  //
   sSYSQueryFZID:String;  // 通用查询  FZID
   sSYSQueryFrmFun:String;//查询时候 对应添加的模块 输出函数
   sSYSQueryFrmDLL:String;//查询时候 对应添加的模块 DLLName

   bSYSShowBtnCaption:Boolean;//显示按钮文本

   //系统临时变量
   sSYSTempStr:String;
   
   {**********************************************************}
  

   {**********************************************************}
implementation
  
  {**********************************************************}
  {**********************************************************}
  {**********************************************************}

end.