用一个id卡,通过串口第一次刷代表上班,第二次刷代表下班。通过软件记录卡ID号和上班时间、下班时间
解决方案 »
- 下标越界的问题~!好心人帮帮~!
- VB程序在不同的操作系统中的使用可否通过源代码的修改来解决?
- 控件注册问题----急急!!!!!!!!
- 用VB作的时钟,请问这段代码是什么意思?
- 请问在vb中有没有像C一样有Continue退出当次循环的的语句
- 一个字体问题,thanks!!
- form_load的问题?(我在load里加了从文件读信息到窗体的内弄,但不显示,为什么?)
- VB打开EXCEL表后,怎么知道它里面有多少工作薄及工作薄名称呢?急
- 为什么
- 怎么我单步调试时程序运行的内容看不到了
- vb+水晶报表单一表读取没问题,多表显示登录失败.水晶报表里面链接一个表,更新打印正常,在里面加入别的表字段,就会显示登录失败
- 请问MSComm控件,怎样检测仪表脱机?
Option ExplicitPrivate Sub Command1_Click()
Dim number As Integer
Dim outbyte(0) As Byte
number = Val(Text1.Text)
outbyte(0) = CByte(number)
MSComm1.OutBufferCount = 0
MSComm1.Output = outbyteEnd Sub
Private Sub Form_Load()
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"
MSComm1.EOFEnable = True
MSComm1.RThreshold = 1
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.InBufferCount = 0
End SubPrivate Sub MSComm1_OnComm()
Dim indata As Variant
Dim arr(0) As Byte
Select Case MSComm1.CommEvent
Case commEvReceive
indata = MSComm1.Input
arr(0) = AscB(indata)
Text1.Text = arr(0)
MSComm1.InBufferCount = 0
End Select
End Sub
打卡记录直接扔数据库就行了上班打卡下班打卡 你怎么判断迟到或者早退呢? 所以就得有班次表与之对应某天没打卡 是因为休息还是因为旷工呢 ? 所以就得有排班表某人凌晨2点打卡 是算今天的上班呢 还是算 前一天的加班呢? 等等 等等 各种各样的情况想想都头大啊所以楼主你想得太简单了