text4 text5顯示的是連接的access對應時間
text6 text7顯示的是上述兩時間換算成秒
第一次點擊時顯示的是當前時間換算成秒
代碼如下
Dim flag As Integer
Dim kouling As String
Dim xingming As String
Dim zhanghao As String
Dim banji As String
Dim h As Integer
Dim m As Integer
Dim s As Integer
Dim nh As Long
Dim nm As Long
Dim ns As Long
Dim nyear As Integer
Dim nmonth As Integer
Dim nday As Integer
Dim xingqi As String
Dim m1, m2, m3 As Integer
Dim finalt As Long
Dim presentt As Long
Dim t As Long
Dim t1, t2 As String
Dim tnow, t1n, t2n As Long
Dim jishu As Integer '用t1 t2表示對應星期班級的初末上機時間
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim leiji1, leiji2 As Long
Dim wu, qi As Integer
Private Sub Command1_Click()
m1 = 0
m2 = 0
m3 = 0
'Dim m4 As Integer
'm4 = 0
flag = 1
'---------------------------------------------------------------------------------------有無此學號口令
zhanghao = Text1.Text
Data1.RecordSource = "select * from 學生資訊 where 學號 ='" & zhanghao & "'"
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "無此學號！", , "提示"
Data1.RecordSource = "學生資訊"
Data1.Refresh
flag = 1
End If
kouling = Text2.Text
'查找對應學號的口令
On Error Resume Next
Data1.Recordset.MoveFirst
Dim i As Integer
Dim que As String
For i = 1 To Data1.Recordset.RecordCount
If zhanghao = Data1.Recordset.Fields("學號") Then
que = Data1.Recordset.Fields("口令")
xingming = Data1.Recordset.Fields("姓名")
banji = Data1.Recordset.Fields("班級")
End If
If que = kouling Then '輸入口令與資料庫中口令對應
flag = 1
'form2.Show
Else
MsgBox "口令錯誤"
End If
Data1.Recordset.MoveNext
Next i
'-------------------------------------------------------------------------------------判斷是否上機時間
strNow1 = Format(Now, "hh:mm:ss")
nh = Val(Left(strNow1, 2))
ns = Val(Right(strNow1, 2))
nm = Val(Mid(strNow1, 4, 2))
tnow = (ns + nm * 60 + nh * 3600)
Text3.Text = tnow
On Error Resume Next
Data2.Recordset.MoveFirst
'---------------------------------------------------------------------------------------
Dim i2 As Integer
For i2 = 1 To Data2.Recordset.RecordCount
'Dim xingqi2 As String
If xingqi = Data2.Recordset.Fields("星期") Then
Dim xingqisan As String
'xingqisan = Data2.Recordset.Fields("星期")
'Text3.Text = xingqisan
t1 = Data2.Recordset.Fields("上機時間初")
Text4.Text = t1
t2 = Data2.Recordset.Fields("上機時間末")
Text5.Text = t2
nh = Val(Left(t1, 2))
ns = Val(Right(t1, 2))
nm = Val(Mid(t1, 4, 2))
t1n = ms + 60 * nm + 3600 * nh
Text6.Text = t1n
'form2.Label9 = t1n
nh = Val(Left(t2, 2))
ns = Val(Right(t2, 2))
nm = Val(Mid(t2, 4, 2))
t2n = ms + 60 * nm + 3600 * nh
Text7.Text = t2n
' form2.Label10 = t2n
' Text4.Text = t1n
' Text5.Text = t2n
'finalt = t2n
'--------------------------
If (tnow >= t1n) & (tnow <= t2n) Then '此時間有班級上課
jishu = jishu + 1
'Text7.Text = jishu
Dim banji2 As String
banji2 = Data2.Recordset.Fields("班級")
Label3.Caption = banji
Label4.Caption = banji2
Select Case banji2
Case banji = banji2
m1 = 1 '該班級中有此學生 不付費上機
End Select
End If
End If
'--------------------------
Data2.Recordset.MoveNext
Next i2
' If jishu = 0 Then m3 = 1 '付費上機
'End If
Select Case jishu
Case 0
m3 = 1
End Select
' If (jishu > 0 And m1 = 0) Then m2 = 1 '不得上機
' MsgBox "此時間有其他班級上機"
' End If
If m1 = 0 And m3 = 0 Then
m2 = 1
End If
If m2 = 1 Then
MsgBox "此時間有其他班級上機"
End If
If m1 = 1 & flag = 1 Then
'------------------------------不付費成功登陸后的操作
form2.Label1.Caption = xingming
form2.Label2.Caption = zhanghao
form2.Label3.Caption = banji
'學生已上機時間的顯示
from2.Timer1.Enabled = True
Data3.Recordset.MoveFirst
leiji1 = Data3.Recordset.Fields("累計使用時間")
On Error Resume Next
Data3.Recordset.MoveFirst
For i = 1 To Data3.Recordset.RecordCount
qi = Data3.Recordset.Fields("使用")
wu = wu + qi
leiji2 = Data3.Recordset.Fields("累計使用時間")
If qi = 1 & leiji2 < leiji1 Then
leiji1 = leiji2
jisuanjibianhao = Data3.Recordset.Fields("計算機編號")
End If
form2.Label4.Caption = jisuanjibianhao
Data2.Recordset.MoveNext
Next i
If wu = Data3.Recordset.RecordCount Then
MsgBox "無空閑計算機"
Else
'Form1.Hide
'form2.Show
End If
End If
'------------------------------付費成功登陸后的操作
If m2 = 1 & flag = 1 Then
form2.Label1.Caption = xingming
form2.Label2.Caption = zhanghao
form2.Label3.Caption = banji
'學生已上機時間的顯示
from2.Timer1.Enabled = True
End If
If m3 = 1 Then
'Form1.Hide
'form2.Show
form2.Label1.Caption = xingming
form2.Label2.Caption = zhanghao
form2.Label3.Caption = banji
'學生已上機時間的顯示
from2.Timer1.Enabled = True
End If
Data3.Recordset.MoveFirst
leiji1 = Data3.Recordset.Fields("累計使用時間")
On Error Resume Next
Data3.Recordset.MoveFirst
For i = 1 To Data3.Recordset.RecordCount
qi = Data3.Recordset.Fields("使用")
wu = wu + qi
leiji2 = Data3.Recordset.Fields("累計使用時間")
If qi = 1 & leiji2 < leiji1 Then
leiji1 = leiji2
jisuanjibianhao = Data3.Recordset.Fields("計算機編號")
End If
form2.Label4.Caption = jisuanjibianhao
Data2.Recordset.MoveNext
Next i
If wu = Data3.Recordset.RecordCount Then
MsgBox "無空閑計算機"
Else
'Form1.Hide
'form2.Show
End If
'----------------------------------------------------
'---------------------------------------------------------------------------------------此處為止
form2.Label8.Caption = m2
End Sub
Private Sub Command2_Click()
t = 0
Form1.Hide
Form5.Show
End Sub
Private Sub Form_Load()
wu = 0
'------------------------------------計算今日星期
Dim i As Integer, j As Integer, k As Integer, y As Integer
Dim nyear As Integer, nmonth As Integer, nday As Integer
Dim temp1 As String
Timer2.Interval = 100
Timer2.Enabled = True
temp1 = Format(Now, "yyyy-mm-dd")
nyear = Val(Left(temp1, 4))
nmonth = Val(Mid(temp1, 6, 2))
nday = Val(Right(temp1, 2))
i = nyear \ 100
j = nyear Mod 100
If nmonth <= 2 Then
k = nmonth + 12
j = j - 1
Else
k = nmonth
End If
y = j + j \ 4 + i \ 4 - 2 * i + (26 * k + 26) \ 10 + nday - 1
y = y Mod 7
Select Case y
Case 0
xingqi = "星期日"
Case 1
xingqi = "星期一"
Case 2
xingqi = "星期二"
Case 3
xingqi = "星期三"
Case 4
xingqi = "星期四"
Case 5
xingqi = "星期五"
Case 6
xingqi = "星期六"
End Select
Text3.Text = xingqi
Data1.DatabaseName = App.Path + "\db1.mdb"
Data1.RecordSource = "學生資訊"
Data1.Refresh
Data2.DatabaseName = App.Path + "\db1.mdb"
Data2.RecordSource = "上機時間安排"
Data2.Refresh
Data3.DatabaseName = App.Path + "\db1.mdb"
Data3.RecordSource = "計算機情況"
Data3.Refresh
Data4.DatabaseName = App.Path + "\db1.mdb"
Data4.RecordSource = "系統管理員資訊"
Data4.Refresh
End Sub
Private Sub Timer1_Timer()
s = s + 1
If s = 60 Then
s = 0
m = m + 1
End If
If m = 60 Then
m = 0
h = h + 1
End If
form2.Label6.Caption = CStr(h) + "時" + CStr(m) + "分" + CStr(s) + "秒"
End Sub
'------------------------------------------------------滑鼠移至整屏左上角10*10內顯示管理員登陸界面
Private Sub Timer2_Timer()
Dim POINTAPI As POINTAPI
a = GetCursorPos(POINTAPI)
If POINTAPI.x < 10 & POINTAPI.y < 10 Then
Command2.Visible = True
'If KeyAscii = 13 Then Command2_Click
End If
If POINTAPI.x > 10 Or POINTAPI.y > 10 Then
Command2.Visible = False
End If
End Sub
uj5u.com熱心網友回復：
zhanghao = Text1.TextData1.RecordSource = "select * from 學生資訊 where 學號 ='" & zhanghao & "'"
注入漏洞？
Dim a As Date
Dim a As Date
a = Now
Debug.Print Format(a, "dddd")
Debug.Print Weekday(a)
顯示星期的代碼，如此簡單。
單步除錯吧，代碼真多
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/131242.html
標籤：VB基礎類
上一篇：呼叫表單顯示為空