u_public_define.~pas

这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版

unit U_Public_Define;

interface
  //用户卡操作函数
function swr_4442(icdev: longint;offset:smallint;length:smallint;data1:pchar):smallint;stdcall;
far;external 'MWIC_32.dll'name 'swr_4442';
function srd_4442(icdev: longint;offset:smallint;length:smallint; data1:pchar):smallint;stdcall;
far;external 'MWIC_32.dll'name 'srd_4442';
function prd_4442(icdev: longint;length:smallint;data1:pchar):smallint;stdcall;
far;external 'MWIC_32.dll'name 'prd_4442';
function pwr_4442(icdev: longint;offset:smallint;length:smallint;data1:pchar):smallint;stdcall;
far;external 'MWIC_32.dll'name 'pwr_4442';
function chk_4442(icdev: longint):smallint;stdcall;
far;external 'MWIC_32.dll'name 'chk_4442';

function csc_4442(icdev: longint;length:smallint;password:pchar):smallint;stdcall;
far;external 'MWIC_32.dll'name 'csc_4442';
function wsc_4442(icdev: longint;length:smallint; password:pchar):smallint;stdcall;
far;external 'MWIC_32.dll'name 'wsc_4442';
function rsc_4442(icdev: longint;length:smallint; password:pchar):smallint;stdcall;
far;external 'MWIC_32.dll'name 'rsc_4442';
function rsct_4442(icdev: longint;counter:pchar):smallint;stdcall;
far;external 'MWIC_32.dll'name 'rsct_4442';

//用户设备函数
  function swr_eeprom(icdev: longint;offset:smallint;length:smallint; data1:pchar):smallint;stdcall;
  far;external 'MWIC_32.dll'name 'swr_eeprom';
  function srd_eeprom(icdev: longint;offset:smallint;length:smallint;data2:pchar):smallint;stdcall;
  far;external 'MWIC_32.dll'name 'srd_eeprom';
  
  function ic_init(port: smallint;baud:longint): longint; stdcall;
  far;external 'MWIC_32.DLL' name 'ic_init';
  function auto_init(port: smallint;baud:longint): longint; stdcall;
  far;external 'MWIC_32.DLL' name 'auto_init';
  function ic_exit(icdev: longint):smallint;stdcall;
  far;external 'MWIC_32.dll' name 'ic_exit';
  function get_status(icdev: longint;status:pchar):smallint;stdcall;
  far;external 'MWIC_32.dll' name 'get_status';
  function cmp_dvsc(icdev:longint;length:smallint;password:pchar):smallint;stdcall;
  far;external 'MWIC_32.dll' name 'cmp_dvsc';
  function setsc_md(icdev: longint;mode:smallint):smallint;stdcall;
  far;external 'MWIC_32.dll'name 'setsc_md';
  function srd_dvsc(icdev: longint;length:smallint;password:pchar):smallint;stdcall;
  far;external 'MWIC_32.dll'name 'srd_dvsc'
  function swr_dvsc(icdev: longint;length:smallint;password:pchar):smallint;stdcall;
  far;external 'MWIC_32.dll'name 'swr_dvsc';
  function turn_off(icdev: longint):smallint;stdcall;
  far;external 'MWIC_32.dll'name 'turn_off';
  function turn_on(icdev: longint):smallint;stdcall;
  far;external 'MWIC_32.dll'name 'turn_on';
  function auto_pull(icdev: longint):smallint;stdcall;
  far;external 'MWIC_32.dll'name 'auto_pull';
  function srd_ver(icdev: longint;length:smallint;ver:pchar):smallint;stdcall;
  far;external 'MWIC_32.dll'name 'srd_ver';
  function dv_beep(icdev: longint;time:smallint):smallint;stdcall;
  far;external 'MWIC_32.dll'name 'dv_beep';
  function asc_hex(asc:pchar;hex:pchar;len:smallint):smallint;stdcall;
  far;external 'MWIC_32.dll'name 'asc_hex';
  function hex_asc(hex:pchar;asc:pchar;len:smallint):smallint;stdcall;
  far;external 'MWIC_32.dll'name 'hex_asc';
  function ic_encrypt(key:pchar;source:pchar;len:smallint;dest:pchar):smallint;
  stdcall;far;external 'MWIC_32.dll'name 'ic_encrypt';
  function ic_decrypt(key:pchar;dest:pchar;len:smallint;source:pchar):smallint;
  stdcall;far;external 'MWIC_32.dll'name 'ic_decrypt';
 Type
    Configrue_File=record

       System_Name:String[50];// '系统名称
       Company_Name:String[56];// '使用单位
       Server_Name:String[28];// '服务器名称
       System_Num:String[30];// '系统账号
       System_Password:String[21];// '系统密码
       DataBase_Name:String[16]; //'数据库名
       Message_Num:String[12]; //'管理账号
       Message_Password:String[20]; //'管理密码
    End;
  var
  G_icdev:longint; //
  G_St:integer; //返回值
  G_Str_Kh:string;

  g_str_Kzt:string;
 G_Bh:String;
 G_xfsj:String;
 G_xfrq:String ;
 G_xm:String;
 G_kh:String;
 G_bmmc:String ;
 G_xfjh:String;
 G_xfje:String;
 G_xfhye:String;
 G_xflx:String;
  G_Str_JBxx:string;//基本信息表ID名称
  G_Str_selectKh:string;//选择的编号
  G_str_SelectBh:string;
  G_Str_Name:string;//管理人员名称
  G_Bool_DLok:Boolean;//登录成功
  //高级下的定义数据
    G_Gj_Ckh:integer;//串口号
    G_Gj_Ckys:integer;//串口延时
    G_Gj_Zdjh:integer;//最大延时
    G_Gj_KxzhYj:real; //开新账户押金
    G_Gj_HkGdFy:Real;  //换卡固定费用
    G_Gj_RxfLjXe:real;//日消费累计限额
    G_Gj_RxfljXc:real; //日消费累计限次
    G_GJ_BoolBf:boolean;  //退出系统时备份
    G_Gj_BoolJhkz:boolean; //进行机号控制
    G_Gj_BoolXe:boolean;  //进行限额控制
    G_Gj_BoolXc:boolean; //进行限次控制

   g_SYs_data:Configrue_File ;
implementation

end.