unit1.~pas

电子学生证源码 电子学生证源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Mask, DBCtrlsEh, ComCtrls, Spin;

type
  TForm1 = class(TForm)
    LSchoolName: TLabel;
    LClassName: TLabel;
    LStudentCode: TLabel;
    LName: TLabel;
    LEnrollmentDate: TLabel;
    LIDNo: TLabel;
    LGender: TLabel;
    LBirthday: TLabel;
    LFolk: TLabel;
    LPassword: TLabel;
    EStudent: TGroupBox;
    EBirthday: TDateTimePicker;
    ESchoolName: TEdit;
    EName: TEdit;
    EClassName: TEdit;
    EGender: TComboBox;
    EStudentCode: TEdit;
    EFolk: TComboBox;
    EIDNo: TMaskEdit;
    EPassword: TMaskEdit;
    BRead: TButton;
    BWrite: TButton;
    StatusBar1: TStatusBar;
    EEnrollmentDate: TDateTimePicker;
    procedure BReadClick(Sender: TObject);
    procedure BWriteClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BReadClick(Sender: TObject);
var
  vEStudent: TEStudent;
  vICDev: THandle;
  vBuf: array[0..17] of Byte;
  snr: Cardinal;
  st: Integer;
begin
  ZeroMemory(@vEStudent, SizeOf(vEStudent));
  vEStudent.SchoolName := ESchoolName.Text;
  vEStudent.ClassName := EClassName.Text;
  vEStudent.StudentCode := EStudentCode.Text;
  vEStudent.Name := EName.Text;
  vEStudent.EnrollmentDate := EEnrollmentDate.Date;
  vEStudent.IDNo := EIDNo.Text;
  vEStudent.Gender := EGender.Text;
  vEStudent.Birthday := EBirthday.Date;
  vEStudent.Folk := EFolk.Text;
  vEStudent.Password := EPassword.Text;

  vICDev := rf_init(0,Baud_Rate);
  //showmessage(inttostr(vICDev));
  if vICDev <= 0 then
  begin
    ShowMessage('通讯出错！请检查通讯线是否正确连接？');
    //MessageBox('串口初始化出错！','',MB_OK or MB_ICONWARNING);
    Exit;
  end;
  {st := rf_card(vICDev,0,@snr);
  //showmessage(inttostr(st));
  if st <> 0 then
  begin
    ShowMessage('发卡机上未发现卡片');
    rf_halt(vICDev);
    rf_exit(vICDev);
    Exit;
  end;
  st:=rf_authentication(vICDev,2,0);
  if st <> 0 then
  begin
    showmessage('密码错误');
    rf_halt(vICDev);
    rf_exit(vICDev);
    Exit;
  end;
  st := rf_read(vICDev,2,@vBuf);
  if st <> 0 then
  begin
    showmessage('读卡出错');
    rf_halt(vICDev);
    rf_exit(vICDev);
    Exit;
  end; }

  rf_disp8(vICDev,8,0);
  rf_halt(vICDev);
  rf_exit(vICDev);

end;

procedure TForm1.BWriteClick(Sender: TObject);
var
  vICDev: THandle;
begin
  vICDev := rf_init(0,Baud_Rate);
end;

end.