Delphi代码换成VB代码 急急

type SFPRDA=packed record
　　　　　　czmm:Word;　　　　　　//操作密码。
　　　　　　sqcz:array[1..8] of packed record dm:Byte; mm:Word end;　
　　　　　　　　　　　　　　　　　//8个授权操作员代码和密码。dm代码，mm密码。
　　　　　　sdje:array[0..3] of packed record dz,jz:Word end;
　　　　　　　　　　　　　　　　　//4个时段的默认定值和记帐金额。dz定值，jz记帐。
　　　　　　open_xffs:Byte;　　　 //开机缺省消费方式。0普通，1定值，2记帐。
　　　　　　open_menu:Byte;　　　 //开机缺省键盘方式。0金额，1品种。
　　　　　　open_online:Byte;　　 //开机缺省运行方式。0脱机，1联机。
　　　　　　ena_jz:Byte;　　　　　//1允许记帐，0不允许。
　　　　　　ena_mu:Byte;　　　　　//1允许品种切换，0不允许。
　　　　　　ena_zk:Byte;　　　　　//1允许外部折扣，0不允许。
　　　　　　ena_qk:Byte;　　　　　//1允许取款，0不允许。
　　　　　　ena_glf:Byte;　　　　 //1允许输入管理费，0不允许。
　　　　　　ena_cont:Byte;　　　　//1定值记帐连续刷卡方式，0不连续。
　　　　　　ena_ord:Byte;　　　　 //1扣款消费显示序数，0不显示。
　　　　　　btph,syrq:Word;　　　 //btph补贴批号。syrq同步日期。
　　　　　　xfjb:Byte;　　　　　  //允许消费级别。8位从低到高依此表示是否允许级别0到8的卡消费。
　　　　　　　　　　　　　　　　　　//1允许，0禁止。
　　　　　　max_xf:Word;　　　　　//每次最大消费金额。0不限制。
　　　　　　max_cz:Integer;　　　 //每次最大充值金额。0不限制。 <