module1.bas

这是我给公司编写的自己使用的一个考勤系统

Attribute VB_Name = "Module1"
Option Explicit

Public g_ws As Workspace
Public g_db As Database
Public g_rs As Recordset
Public g_strsql As String
Public youka As Boolean
Public kahao As String
Public fasong As Boolean
Public jieshou As Boolean
Public yici As Boolean
Public shuchuwanbi As Boolean
Public shuchuwanbi1 As Boolean
Public chuanopen As Boolean
Public buyaole As Boolean
Public buyaole1 As Boolean
Public zaoshu As Integer
Public xiashu As Integer
Public ka As String
Public riqi As String
Public nian As String
Public yue As String
Public ri As String
Public readerid As String
Public readeridR As String
Public kahaochuan(12001) As String
Public kahaoshu As Integer
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
Public conn As New ADODB.Connection
Public Function initchkRead(txkj As MSComm, i As Byte) As Boolean
 On Error GoTo err1
txkj.CommPort = i '串口号，
txkj.Settings = "9600,N,8,1" '串口的属性
txkj.InputLen = 1 '接收缓冲区的大小
txkj.InputMode = comInputModeBinary '二进制接受方式
txkj.InBufferSize = 1024 '设置MSComm1接收缓冲区
txkj.OutBufferSize = 512 '设置MSComm
txkj.InputMode = comInputModeBinary '设置接收数据模式为二进制形式
'If i <> 7 Or i <> 1 Then
'   txkj.RThreshold = 8 '设置接收19个字节产生OnComm事件
'Else
txkj.RThreshold = 0 '设置接收19个字节产生OnComm事件

txkj.InBufferCount = 0 '清除接收缓冲区
txkj.OutBufferCount = 0 '
txkj.PortOpen = True '打开通信串口
'initchk = True
Exit Function
err1:
  'initchk = False
  
  MsgBox "初始串口" + CStr(i) + "出错！", vbInformation, ""
  
End Function

Public Sub dbl()
Set g_ws = DBEngine.Workspaces(0)
Set g_db = g_ws.OpenDatabase(App.Path + "\db2.mdb", False, False, "")
End Sub


Public Sub main()

frmSplash.Show



End Sub