unit1.pas

用microsoft vb6.0写的上班考勤系统！

          memo4.Lines.Add('采集记录完成！');
          exit;
     end
     else begin
          memo4.Lines.Add('采集记录失败！'+inttostr(st) );
          exit;
     end;

     st:=0;
     while(st=0) do begin
         st :=get_mj_next_record(icdev,node_addr,pchar(adata));
         if (st=0) then begin
            i:=i+1;
            memo4.Lines.Add(inttostr(i)+'笔记录:'+adata);
         end
         else if (st=-9) then begin
            memo4.Lines.Add('采集记录完成！');
            st :=1;
         end
         else begin
            st :=get_mj_curr_record(icdev,node_addr,pchar(adata));
            if (st=0) then begin
                 i:=i+1;
                 memo4.Lines.Add(inttostr(i)+'笔记录:'+adata);
            end
            else if (st=-9) then begin
                 memo4.Lines.Add('采集记录完成！');
            end
            else begin
                 memo4.Lines.Add('采集记录失败！'+inttostr(st));
                 exit;
            end;
         end;
     end;
end;







procedure TForm1.Button18Click(Sender: TObject);
var
   st,i:integer;
   timeauthor:word;
begin
     timeauthor :=0;
     for i:=0 to 7 do begin
         if (clb_timeseg1.checked[i]) then
            timeauthor := timeauthor + (1 shl i);
     end;
     for i:=0 to 7 do begin
         if (clb_timeseg2.checked[i]) then
            timeauthor := timeauthor + (1 shl (i+8));
     end;

     for i:=se_snr_s1.Value to se_snr_e1.Value do begin
         st := setusertimeauthor(se_node_addr4.Value,i,timeauthor);
         if (st<>0) then begin
            memo6.Lines.Add('设置时限数据错! '+inttostr(st));
         end;
     end;
     memo6.Lines.Add('设置时限数据成功!');
end;


procedure TForm1.Button19Click(Sender: TObject);
var
   st,i:integer;
   adata:string;
   adata1:array[0..500] of char;
begin
     if length(ed_password.text)<8 then begin
        application.MessageBox('密码长度不足！','警告',mb_ok);
        exit;
     end ;

     st:=hand_shake(icdev,se_node_addr4.Value,ed_password.text);
     if (st=0) then begin

        memo6.Lines.add('与'+inttostr(se_node_addr4.Value)+'号机握手成功！');
     end
     else begin
        memo6.Lines.add('与'+inttostr(se_node_addr4.Value)+'号机握手失败！'+inttostr(st));
        exit;
     end;

     st := downloadtimeauthor(icdev,se_node_addr4.value,se_timeauthor_num.value);
     if st=0 then begin
        memo6.Lines.Add('下载时限成功！');
        st := get_time_author(icdev,se_timeauthor_num.value*200,200,adata1);
        if (st=0) then begin
            setstring(adata,adata1,400);
            memo6.Lines.Add('上载时限成功!');
            memo6.Lines.Add(adata);
        end
        else begin
            memo6.Lines.Add('上载时限失败! '+inttostr(st));
        end;
     end
     else begin
        memo6.Lines.Add('下载时限失败！'+inttostr(st));
     end;

end;



procedure TForm1.Button20Click(Sender: TObject);
var
   st,i:integer;
   adata:string;
   adata1:array[0..500] of char;
begin
     if length(ed_password.text)<8 then begin
        application.MessageBox('密码长度不足！','警告',mb_ok);
        exit;
     end ;

     st:=hand_shake(icdev,se_node_addr4.Value,ed_password.text);
     if (st=0) then begin

        memo6.Lines.add('与'+inttostr(se_node_addr4.Value)+'号机握手成功！');
     end
     else begin
        memo6.Lines.add('与'+inttostr(se_node_addr4.Value)+'号机握手失败！'+inttostr(st));
        exit;
     end;

     st := get_time_author(icdev,se_timeauthor_num.value*200,200,adata1);
     if (st=0) then begin
        setstring(adata,adata1,400);
        memo6.Lines.Add('上载权限成功!');
        memo6.Lines.Add(adata);
     end
     else begin
        memo6.Lines.Add('上载权限失败! '+inttostr(st));

     end;

end;

procedure TForm1.Button21Click(Sender: TObject);
var
   atime:array[1..32] of string;
   atime1:String;
   st,i:integer;
begin

     datetimetostring(atime[1],'hhmm',dtp_1s.Time);
     datetimetostring(atime[2],'hhmm',dtp_1e.Time);
     datetimetostring(atime[3],'hhmm',dtp_2s.Time);
     datetimetostring(atime[4],'hhmm',dtp_2e.Time);
     datetimetostring(atime[5],'hhmm',dtp_3s.Time);
     datetimetostring(atime[6],'hhmm',dtp_3e.Time);
     datetimetostring(atime[7],'hhmm',dtp_4s.Time);
     datetimetostring(atime[8],'hhmm',dtp_4e.Time);
     datetimetostring(atime[9],'hhmm',dtp_5s.Time);
     datetimetostring(atime[10],'hhmm',dtp_5e.Time);
     datetimetostring(atime[11],'hhmm',dtp_6s.Time);
     datetimetostring(atime[12],'hhmm',dtp_6e.Time);
     datetimetostring(atime[13],'hhmm',dtp_7s.Time);
     datetimetostring(atime[14],'hhmm',dtp_7e.Time);
     datetimetostring(atime[15],'hhmm',dtp_8s.Time);
     datetimetostring(atime[16],'hhmm',dtp_8e.Time);
     datetimetostring(atime[17],'hhmm',dtp_9s.Time);
     datetimetostring(atime[18],'hhmm',dtp_9e.Time);
     datetimetostring(atime[19],'hhmm',dtp_10s.Time);
     datetimetostring(atime[20],'hhmm',dtp_10e.Time);
     datetimetostring(atime[21],'hhmm',dtp_11s.Time);
     datetimetostring(atime[22],'hhmm',dtp_11e.Time);
     datetimetostring(atime[23],'hhmm',dtp_12s.Time);
     datetimetostring(atime[24],'hhmm',dtp_12e.Time);
     datetimetostring(atime[25],'hhmm',dtp_13s.Time);
     datetimetostring(atime[26],'hhmm',dtp_13e.Time);
     datetimetostring(atime[27],'hhmm',dtp_14s.Time);
     datetimetostring(atime[28],'hhmm',dtp_14e.Time);
     datetimetostring(atime[29],'hhmm',dtp_15s.Time);
     datetimetostring(atime[30],'hhmm',dtp_15e.Time);
     datetimetostring(atime[31],'hhmm',dtp_16s.Time);
     datetimetostring(atime[32],'hhmm',dtp_16e.Time);

     atime1:='';
     for i:=1 to 32 do
         atime1:=atime1 +atime[i];

     if length(ed_password.text)<8 then begin
        application.MessageBox('密码长度不足！','警告',mb_ok);
        exit;
     end ;

     st:=hand_shake(icdev,se_node_addr5.Value,ed_password.text);
     if (st=0) then begin

        memo7.Lines.add('与'+inttostr(se_node_addr5.Value)+'号机握手成功！');
     end
     else begin
        memo7.Lines.add('与'+inttostr(se_node_addr5.Value)+'号机握手失败！'+inttostr(st));
        exit;
     end;

     st := set_timetable(icdev,atime1);

     if st=0 then begin
        memo7.Lines.Add('下载时段表成功！');
        st := get_timetable(icdev,pchar(atime1));
        if st =0 then begin
           memo7.Lines.Add('上载时段表成功！'+atime1);
        end
        else begin
           memo7.Lines.Add('上载时段表失败！'+inttostr(st));
        end;
     end
     else begin
           memo7.Lines.Add('下载时段表失败！'+inttostr(st));
     end;
end;

procedure TForm1.Button22Click(Sender: TObject);
var
   st:integer;
   atime1:String;
begin
     if length(ed_password.text)<8 then begin
        application.MessageBox('密码长度不足！','警告',mb_ok);
        exit;
     end ;

     st:=hand_shake(icdev,se_node_addr5.Value,ed_password.text);
     if (st=0) then begin

        memo7.Lines.add('与'+inttostr(se_node_addr5.Value)+'号机握手成功！');
     end
     else begin
        memo7.Lines.add('与'+inttostr(se_node_addr5.Value)+'号机握手失败！'+inttostr(st));
        exit;
     end;


     st := get_timetable(icdev,pchar(atime1));
     if st =0 then begin
        memo7.Lines.Add('上载时段表成功！'+atime1);
     end
     else begin
        memo7.Lines.Add('上载时段表失败！'+inttostr(st));
     end;
end;

procedure TForm1.Button23Click(Sender: TObject);
var
   st:integer;
begin
    st :=Dialup(icdev,edit1.text,30);
    if (st=$30) then begin
       memo8.Lines.Add('已连接成功！');
    end
    else
       memo8.Lines.Add('连接失败！'+chr(st));
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
     handup(icdev);
end;

procedure TForm1.se_node_addrChange(Sender: TObject);
begin
     se_node_addr1.Value :=se_node_addr.Value;
     se_node_addr2.Value :=se_node_addr.Value;
     se_node_addr3.Value :=se_node_addr.Value;
     se_node_addr4.Value :=se_node_addr.Value;
     se_node_addr5.Value :=se_node_addr.Value;
end;

procedure TForm1.se_node_addr1Change(Sender: TObject);
begin
     se_node_addr.Value :=se_node_addr1.Value;
     se_node_addr2.Value :=se_node_addr1.Value;
     se_node_addr3.Value :=se_node_addr1.Value;
     se_node_addr4.Value :=se_node_addr1.Value;
     se_node_addr5.Value :=se_node_addr1.Value;

end;

procedure TForm1.se_node_addr2Change(Sender: TObject);
begin
     se_node_addr1.Value :=se_node_addr2.Value;
     se_node_addr.Value :=se_node_addr2.Value;
     se_node_addr3.Value :=se_node_addr2.Value;
     se_node_addr4.Value :=se_node_addr2.Value;
     se_node_addr5.Value :=se_node_addr2.Value;
end;

procedure TForm1.se_node_addr3Change(Sender: TObject);
begin
     se_node_addr1.Value :=se_node_addr3.Value;
     se_node_addr2.Value :=se_node_addr3.Value;
     se_node_addr.Value :=se_node_addr3.Value;
     se_node_addr4.Value :=se_node_addr3.Value;
     se_node_addr5.Value :=se_node_addr3.Value;
end;

procedure TForm1.se_node_addr4Change(Sender: TObject);
begin
     se_node_addr1.Value :=se_node_addr4.Value;
     se_node_addr2.Value :=se_node_addr4.Value;
     se_node_addr3.Value :=se_node_addr4.Value;
     se_node_addr.Value :=se_node_addr4.Value;
     se_node_addr5.Value :=se_node_addr4.Value;
end;

procedure TForm1.se_node_addr5Change(Sender: TObject);
begin
     se_node_addr1.Value :=se_node_addr5.Value;
     se_node_addr2.Value :=se_node_addr5.Value;
     se_node_addr3.Value :=se_node_addr5.Value;
     se_node_addr4.Value :=se_node_addr5.Value;
     se_node_addr.Value :=se_node_addr5.Value;
end;



procedure TForm1.MemoMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     __memo := tmemo(sender);
end;

procedure TForm1.Button26Click(Sender: TObject);
var
    i:integer;
begin
    i:=AddCard_D(icdev,rxseUser.AsInteger ,rxseGroup.AsInteger,rxseUserNum.asinteger);
    if i=0 then
        memo9.Lines.Add('增加卡片 '+ inttostr(rxseUser.AsInteger)+' 成功!')
    else
        memo9.Lines.Add('增加卡片 '+ inttostr(rxseUser.AsInteger)+' 失败! ' + inttostr(i));
end;

procedure TForm1.Button27Click(Sender: TObject);
var
    i:integer;
begin
    i :=DeleteCard(icdev,rxseUser.AsInteger);
    if i=0 then
        memo9.Lines.Add('删除卡片 '+ inttostr(rxseUser.AsInteger)+' 成功!')
    else
        memo9.Lines.Add('删除卡片 '+ inttostr(rxseUser.AsInteger)+' 失败! ' + inttostr(i));
end;

procedure TForm1.Button28Click(Sender: TObject);
var
    i:integer;
begin
    i := ClearAllUser(icdev);
    if i = 0 then
        memo9.Lines.Add('删除所有卡片成功!')
    else
        memo9.Lines.Add('删除所有卡片失败! '+ inttostr(i));
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
    pagecontrol1.ActivePage := ts_idcard;
end;

procedure TForm1.cbHexClick(Sender: TObject);
begin
    if cbhex.Checked then begin
        rxseUser.ValueType := vtHex;
        rxseUserNum.ValueType := vtHex;
    end
    else begin
        rxseUser.ValueType := vtInteger;
        rxseUserNum.ValueType := vtInteger;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
  aControl:TControl;
begin
  for i:=0 to pagecontrol1.ControlCount - 1 do begin
    aControl := pagecontrol1.Controls[i];
    (aControl as TTabSheet).tabvisible := false;
  end;
  pagecontrol1.ActivePage := ts_common;
end;

end.