sourceph.pas

来自「一个电力部门的催缴费用系统」· PAS 代码 · 共 45 行

unit SourcePH;

interface

const
  Td_Const_AliasName            ='Ecsc_Td';
  Td_Const_DatabaseName         ='Ecsc_DBTd';
  Td_Const_BDEDataBaseName      ='YYGL11';
  Td_Const_ServerName           ='Pdc1';
  Td_Const_UserName             ='YYZDYH';
  Td_Const_PassWord             ='YYZDYH';

  Tx_Const_AliasName            ='Ecsc_Tx';
  Tx_Const_DatabaseName         ='Ecsc_DBTx';
  Tx_Const_BDEDataBaseName      ='YYGL21';
  Tx_Const_ServerName           ='Pdc2';
  Tx_Const_UserName             ='YYZDYH';
  Tx_Const_PassWord             ='YYZDYH';

  Ls_Const_AliasName            ='Ecsc_Ls';
  Ls_Const_DatabaseName         ='Ecsc_DBLs';
  Ls_Const_BDEDataBaseName      ='YYGL31';
  Ls_Const_ServerName           ='Pdc3';
  Ls_Const_UserName             ='YYZDYH';
  Ls_Const_PassWord             ='YYZDYH';

  Dh_Const_AliasName            ='Ecsc_Dh';
  Dh_Const_DatabaseName         ='Ecsc_DBDh';
  Dh_Const_BDEDataBaseName      ='YYGL91';
  Dh_Const_ServerName           ='AsdYYYB';
  Dh_Const_UserName             ='YYZDYH';
  Dh_Const_PassWord             ='YYZDYH';

  Const_Gzbx                    ='60';
  Const_Ykgc                    ='60';
  Const_Yhts                    ='60';
  Const_Khzx                    ='60';

  Const_Ts                      ='1';
  Const_Yk                      ='1';

implementation

end.