unit_datadefs.~pas

来自「ICCard读写程序,用来在windows环境下读写IC卡内数据!」· ~PAS 代码 · 共 32 行

unit Unit_DataDefs;

interface
type
  TCardStatus = ( csNotBeenPersonalized, csPersonalizedNotCompleted,
                  csPersonalizedCompleted, csLockedNotCompleted,
                  csLockedCompleted);
  TReturnCode = record
    SW1: Byte;
    SW2: Byte;
  end;

  TEmployeeInfo = record
    JGM:    array[0..10] of char;
    GYH:    array[0..6]  of char;
    XM:     array[0..10] of char;
    ZJLX:   array[0..1]  of char;
    ZJHM:   array[0..20] of char;
    KZT:    array[0..1]  of char;
    KH:     array[0..14] of char;
    BL:     array[0..17] of char;
  end;

var
  icdev:        LongInt;
  ReturnCode:   TReturnCode;
  EmployeeInfo: TEmployeeInfo;
  CardStatus:   TCardStatus;
implementation

end.