module1.bas

来自「用microsoft vb6.0写的上班考勤系统！」· BAS 代码 · 共 105 行

Attribute VB_Name = "Module1"

Declare Function OpenComm Lib "farecomm" (ByVal com As Long) As Long  '打开串口
Declare Function CloseComm Lib "farecomm" (ByVal icdev&) As Long '关闭串口
Declare Function TestComm Lib "farecomm" (ByVal icdev&, ByVal node_addr%) As Long '联机测试
Declare Function Hand_Shake Lib "farecomm" (ByVal icdev&, ByVal node_addr%, ByVal password As String) As Long
'握手
'Declare Function Getpassword Lib "farecomm" (ByVal icdev&, ByVal node_addr%, ByVal password As String) As Long
Declare Function Set_NodeTime Lib "farecomm" Alias "Set_Time" (ByVal icdev&, ByVal DateTime As String) As Long
'设置时间
Declare Function Get_NodeTime Lib "farecomm" Alias "Get_Time" (ByVal icdev&, ByVal DateTime As String) As Long
'取时间
Declare Function Clear_All_Data Lib "farecomm" (ByVal icdec&) As Long
'清除节点内部所有的数据
Declare Function Reset_Node Lib "farecomm" Alias "Reset" (ByVal icdev&) As Long
'
Declare Function Node_Auto_Check Lib "farecomm" Alias "Auto_Check" (ByVal icdev&, ByVal sys_status As String) As Long

Declare Function Get_Curr_Record Lib "farecomm" Alias "Get_MJ_Curr_Record" (ByVal icdev&, ByRef node_addr&, ByVal record_data_Curr As String) As Long
'读取节点当前记录，节点记录指针不变
Declare Function Get_Next_Record Lib "farecomm" Alias "Get_MJ_Next_Record" (ByVal icdev&, ByRef node_addr&, ByVal record_data_Next As String) As Long
'读取节点记录，节点记录指针减一
'Declare Function Get_MJ_Curr_Record Lib "FareComm" Alias "Get_MJ_Curr_Record_N" (ByVal icdev&, ByRef node_addr&, ByRef record_data As MJRec) As Long
'Declare Function Get_MJ_Next_Record Lib "FareComm" Alias "Get_MJ_Next_Record_N" (ByVal icdev&, ByRef node_addr&, ByRef record_data As MJRec) As Long
Declare Function Test_Comm Lib "farecomm" (ByVal icdev&, ByVal node_addr&) As Long

Declare Function Real_Query Lib "farecomm" (ByVal icdev&, ByVal node_addr&, ByVal query_data As String) As Long
'实时查询下位节点的打卡情况
Declare Function get_timetable Lib "farecomm" ()
Dim record_data As String
Public User As String
Private RstUser As ADODB.Recordset
Private CnnUser As ADODB.Connection
Public status, CheckName
Public CheReadCardNO As Boolean

Private Cnnmain As ADODB.Connection
Private Rstmain As ADODB.Recordset
   
Private Rstfaka As ADODB.Recordset
Private Cnnfaka As ADODB.Connection

Private Cnnkaoqin As ADODB.Connection
Private Rstkaoqin As ADODB.Recordset


Public RstShuju As ADODB.Recordset
Public Cnnshuju As ADODB.Connection
Public RstAdd As ADODB.Recordset
Public ReadCardNO As Boolean
Public jiwei, MingZi

Private Declare Function GetVolumeInformation Lib _
"kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long

Sub Main()

Dim fLogin As New frmLogin
'frmSplash.Show
'frmSplash.Refresh


    'Unload frmSplash
    
    fLogin.Show vbModal
    Set fMainForm = New MainForm
    Load fMainForm
    fMainForm.Show
    
If Not fLogin.LoginSucceeded Then
  End
End If

Unload fLogin

End Sub
Function GetSerialNumber(Strdrive As String) As Long

Dim SerialNum As Long

Dim Res As Long

Dim Temp1 As String

Dim Temp2 As String

Temp1 = String$(255, Chr$(0))

Temp2 = String$(255, Chr$(0))

Res = GetVolumeInformation(Strdrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))

GetSerialNumber = SerialNum

End Function