开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
uUser.~pas
资源名称：zkemsdk.zip　[点击查看]
上传用户：lzd18710
上传日期：2009-11-26
资源大小：3595k
文件大小：5k
源码类别：

通讯编程

开发平台：

Visual Basic

uUser.~pas：源码内容
  1. unit uUser;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Grids, ValEdit,zkemkeeper_TLB;
  9. type
  10.   TfrmUser = class(TForm)
  11.     edtPIN: TEdit;
  12.     Label1: TLabel;
  13.     GroupBox1: TGroupBox;
  14.     Label2: TLabel;
  15.     Label3: TLabel;
  16.     edtPwd: TEdit;
  17.     chkEnabled: TCheckBox;
  18.     cboPrivilege: TComboBox;
  19.     Label4: TLabel;
  20.     edtName: TEdit;
  21.     GroupBox2: TGroupBox;
  22.     vleTemps: TValueListEditor;
  23.     Button7: TButton;
  24.     Button8: TButton;
  25.     Label5: TLabel;
  26.     btnLoadDev: TButton;
  27.     btnSaveDev: TButton;
  28.     btnDelDev: TButton;
  29.     btnLoadFile: TButton;
  30.     btnSaveFile: TButton;
  31.     btnDelFile: TButton;
  32.     Button9: TButton;
  33.     Button10: TButton;
  34.     OpenDialog1: TOpenDialog;
  35.     SaveDialog1: TSaveDialog;
  36.     procedure btnLoadDevClick(Sender: TObject);
  37.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  38.     procedure btnSaveDevClick(Sender: TObject);
  39.     procedure btnDelDevClick(Sender: TObject);
  40.     procedure FormCreate(Sender: TObject);
  41.     procedure Button10Click(Sender: TObject);
  42.     procedure Button7Click(Sender: TObject);
  43.     procedure Button9Click(Sender: TObject);
  44.   private
  45.     Users: tstrings;
  46.     function LoadDevUsers(Users: tstrings): integer;
  47.     { Private declarations }
  48.   public
  49.     { Public declarations }
  50.     CZKEM1: TCZKEM;
  51.     DevID: integer;
  52.   end;
  54. function ShowUserForm(CZKEM1: TCZKEM; DevID: integer):TfrmUser;
  56. implementation
  57. uses uselone,comsdktest;
  58. {$R *.dfm}
  60. function ShowUserForm(CZKEM1: TCZKEM; DevID: integer): TfrmUser;
  61. var
  62.   frmUser: TfrmUser;
  63. begin
  64.   frmUser:= TfrmUser.Create(Application);
  65.   result := frmUser;
  66.   frmUser.CZKEM1 := CZKEM1;
  67.   frmUser.DevID := DevId;
  68.   result.ShowModal;
  69. end;
  71. function TfrmUser.LoadDevUsers(Users: tstrings): integer;
  72. var
  73.   dwEnrollNumber, dwMachinePrivilege: integer;
  74.   Enable: WordBool;
  75.   UName, UPwd: widestring;
  76. begin
  77.   Users.clear;
  78.   result:=0;
  79.   if CZKEM1.ReadAllUserID(DevID) then
  80.   begin
  81.     while CZKEM1.GetAllUserInfo(DevID, dwEnrollNumber, UName, UPwd,
  82.       dwMachinePrivilege, Enable) do
  83.     begin
  84.       Users.Add(format('%-5d  %s',[dwEnrollNumber, UName]));
  85.       inc(result);
  86.     end;
  87.   end;
  88. end;
  90. procedure TfrmUser.btnLoadDevClick(Sender: TObject);
  91. var
  92.   uEnabled: WordBool;
  93.   UName, UPwd: widestring;
  94.   uPrivilege, i, len: integer;
  95.   tmp: array[0..2047]of byte;
  96. begin
  97.   if trim(edtPIN.Text)='' then
  98.   begin
  99.     i := LoadDevUsers(Users);
  100.     if i>0 then
  101.     begin
  102.       i := 0;
  103.       edtPIN.Text:=SelectItem(Users, i);
  104.     end;    
  105.   end;
  106.   edtPIN.Text := trim(copy(edtPIN.Text,1,5));
  107.   if edtPIN.Text='' then exit;
  108.   CZKEM1.GetUserInfo(DevID, StrToInt(edtPIN.Text),
  109.     UName, UPwd, uPrivilege, uEnabled);
  110.   edtName.Text := UName;
  111.   edtPwd.Text := UPwd;
  112.   cboPrivilege.ItemIndex := uPrivilege mod cboPrivilege.Items.Count;
  113.   chkEnabled.Checked := uEnabled;
  115.   for i := 0 to 9 do
  116.   begin
  117.     Len:=0;
  118.     zeromemory(@tmp[0],2048);
  119.     len := 2048;
  120.     if CZKEM1.GetUserTmp(DevId, StrToInt(edtPIN.Text), i, Tmp[0], Len) then
  121.     begin
  122.       vleTemps.Values[inttostr(i)]:=EncodeData(Tmp[0], Len);
  123.     end;
  124.   end;
  126. end;
  128. procedure TfrmUser.FormClose(Sender: TObject; var Action: TCloseAction);
  129. begin
  130.   Action := caFree;
  131. end;
  133. procedure TfrmUser.btnSaveDevClick(Sender: TObject);
  134. begin
  135.   CZKEM1.SetUserInfo(DevId, StrToInt(edtPin.Text), edtName.Text,
  136.     edtPwd.Text, cboPrivilege.ItemIndex, chkEnabled.Checked);
  137. end;
  139. procedure TfrmUser.btnDelDevClick(Sender: TObject);
  140. begin
  141.   CZKEM1.DeleteEnrollData(DevId, strToInt(edtPin.Text), DevId, 12);
  142. end;
  144. procedure TfrmUser.FormCreate(Sender: TObject);
  145. begin
  146.   Users := tstringlist.Create;
  147. end;
  149. procedure TfrmUser.Button10Click(Sender: TObject);
  150. var
  151.   tmp: string;
  152.   errno: integer;
  153. begin
  154.   if OpenDialog1.Execute then
  155.   begin
  156.     tmp:=LoadFile(OpenDialog1.Files[0]);
  157.     if (length(tmp)>100) and (length(tmp)<2048) then
  158.     begin
  159.       if not CZKEM1.SetUserTmp(DevID, StrToInt(edtPIN.Text), vleTemps.Row-1, pbyte(@tmp[1])^) then
  160.       begin
  161.         CZKEM1.GetLastError(errno);
  162.         MessageDlg(Format('Error to %s : %d!',['SetUserTmp', ErrNo]), mtError, [mbCancel], 0);
  163.       end;
  164.     end;
  165.   end;
  166. end;
  168. procedure TfrmUser.Button7Click(Sender: TObject);
  169. var
  170.   Data, Data2: string;
  171.   Size: integer;
  172. begin
  173.   if not SaveDialog1.Execute then exit;
  174.   Data := vleTemps.Cells[1,vleTemps.Row];
  175.   if Data='' then exit;
  176.   Data := decodedata(Data);
  177.   SaveFile(SaveDialog1.Files[0], Data);
  178.   data2 := stringofchar(#0, 2048);
  179.   if CZKEM1.FPTempConvert(pbyte(@Data[1])^, Pbyte(@Data2[1])^, Size) then
  180.   begin
  181.     setlength(Data2, Size);
  182.     SaveFile(SaveDialog1.Files[0]+'.old', Data2);
  183.   end;
  184. end;
  186. procedure TfrmUser.Button9Click(Sender: TObject);
  187. begin
  188.   CZKEM1.DelUserTmp(DevId, StrToInt(edtPIN.Text), vleTemps.Row-1)
  189. end;
  191. end.