中控 X638考勤机编程 SetStrCardNumber 用法

         今天被这个函数搞晕了，按以前开发设备的经验，应该是先找到ID项，再为此ID设置CardNumber；但中控这个有点搞笑是先设置，再用SetUserInfo写入的;

         经反复测试，得到的结论是SetStrCardNumber 函数只是起到给用户信息添加了个CardNumber属性并给了值（完全是个人理解）。即使设备上不存在该ID都是可以的。

实际例子如下：

 

procedure TfrmMain.btnRestoreClick(Sender: TObject);
var i,Max,Value:integer;
  tmp: array[0..2047]of byte;
  MS: TmemoryStream;
  CZKEM:TCZKEM;
  Qry:TADOQuery;
  _EmpName,_PassWord,_CardNo:WideString;
  _EmpNo,_EmpRight:integer;
  _Enabled:WordBool;
begin
  if not IsConn then
  begin
    MessageBox(self.Handle,\'出错！数据库没有连接!\',\'提示\',MB_OK or MB_ICONWARNING);
    Exit;
  end;
  if LView1.Items.Count<1 then exit;
  if LView1.Selected=nil then
  begin
    MessageBox(self.Handle,\'请选择一个设备！!\',\'提示\',MB_OK or MB_ICONWARNING);
    Exit;
  end;
  if LView1.Selected.ImageIndex=0 then
  begin
    MessageBox(self.Handle,PChar(\'连接设备 \'+trim(LView1.Selected.Caption)+
    \' 后再重试!\'),\'提示\',MB_OK or MB_ICONWARNING);
    Exit;
  end;
  CZKEM:=GetCZKEM(trim(LView1.Selected.Caption),i);
  if CZKEM=nil then exit;
  MS:=TmemoryStream.Create;
  Qry:=TADOQuery.Create(nil);
  Qry.Connection:=ADOConn;
  try
    Qry.SQL.Add(\'select * from ZK_Userinfo order by fEmpNo\');
    Qry.Active:=True;
    if not Qry.Eof  then
    begin
      ShowWinWait(Self,\'正在上传用户资料，请等待.....\',true);
      Max:=Qry.RecordCount;
      Value:=0;
      WinWaitProgressBar(Max,Value);
      Application.ProcessMessages;
      while not Qry.Eof do
      begin
        Inc(Value);
        WinWaitProgressBar(Max,Value);
        Application.ProcessMessages;
          //设置卡号信息
          if  length(Qry.fieldbyName(\'fCardNo\').AsString)>0 then begin
            _CardNo:=Qry.fieldbyName(\'fCardNo\').AsString;
            if CZKEM.SetStrCardNumber(_CardNo) then begin
               AddLogInfo(\'设置卡号 \'+Qry.FieldbyName(\'fEmpNo\').AsString+\'-\'+_CardNo+\' 成功!\');
            end
            else begin
               AddLogInfo(\'设置卡号 \'+Qry.FieldbyName(\'fEmpNo\').AsString+\' error!\');
            end;
          end;
        //--------先设置用户-------------
        if CZKEM.SetUserInfo(1,Qry.FieldbyName(\'fEmpNo\').AsInteger,
                Qry.FieldbyName(\'fEmpName\').AsString,
                Qry.FieldbyName(\'fPassWord\').AsString,
                Qry.FieldbyName(\'fEmpRight\').AsInteger,
                true) then
        begin
          //设置指纹信息
          if not Qry.FieldByName(\'fTEMPLate\').IsNull then begin
             MS.Clear;//
             TBlobField(Qry.FieldbyName(\'fTEMPLate\')).SaveToStream(MS);
             MS.Position:=0;//
             ZeroMemory(@tmp[0],MS.Size);
             MS.ReadBuffer(tmp[0],MS.Size);
             if CZKEM.SetUserTmpEx(1,Qry.FieldbyName(\'fEmpNo\').AsString
                 ,Qry.FieldbyName(\'fFindID\').AsInteger
                 ,Qry.FieldbyName(\'fFlag\').AsInteger
                 ,pbyte(@tmp[0])^) then begin
               AddLogInfo(\'设置指纹 \'+Qry.FieldbyName(\'fEmpNo\').AsString+\' 成功!\');
             end
             else begin
               AddLogInfo(\'设置指纹 \'+Qry.FieldbyName(\'fEmpNo\').AsString+\' error!\');
             end;
          end;
          AddLogInfo(\'设置人员 \'+Qry.FieldbyName(\'fEmpNo\').AsString+\' 成功!\');
        end
        else begin
           AddLogInfo(\'设置人员 \'+Qry.FieldbyName(\'fEmpNo\').AsString+\' 失败!\');
        end;
        Qry.Next;
      end;
    end;
  finally
    Ms.Free;
    Qry.Free;
    HideWinWait;
  end;
end;