📄 lxjlfrm.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form lxjl1frm
Caption = "一号反应釜连续记录"
ClientHeight = 5130
ClientLeft = 45
ClientTop = 270
ClientWidth = 7440
ClipControls = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 5130
ScaleWidth = 7440
Begin VB.TextBox txtTime
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 324
Left = 5520
TabIndex = 3
Top = 72
Width = 732
End
Begin VB.TextBox txtDay
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 324
Left = 4560
TabIndex = 2
Top = 72
Width = 732
End
Begin VB.TextBox txtMonth
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 324
Left = 3600
TabIndex = 1
Top = 72
Width = 732
End
Begin VB.TextBox txtYear
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 324
Left = 2640
TabIndex = 0
Top = 72
Width = 732
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "D:\ylg2\lsdata\lsjl.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 324
Left = 360
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 4560
Visible = 0 'False
Width = 1032
End
Begin VB.CommandButton Command5
Cancel = -1 'True
Caption = "退出&B"
BeginProperty Font
Name = "隶书"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 5676
MouseIcon = "lxjlfrm.frx":0000
MousePointer = 99 'Custom
Picture = "lxjlfrm.frx":0152
Style = 1 'Graphical
TabIndex = 4
ToolTipText = "退出本窗口"
Top = 4452
Width = 612
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "lxjlfrm.frx":0314
Height = 3708
Left = 120
OleObjectBlob = "lxjlfrm.frx":0328
TabIndex = 5
ToolTipText = "显示查询日或查询日某时以后当日的连续数据"
Top = 624
Width = 7092
End
Begin VB.Image Image2
BorderStyle = 1 'Fixed Single
Height = 4570
Left = 0
Top = 480
Width = 7320
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "时(0～23)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Left = 6240
TabIndex = 10
Top = 120
Width = 972
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "年"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Left = 3372
TabIndex = 9
Top = 120
Width = 240
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "月"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Left = 4308
TabIndex = 8
Top = 120
Width = 240
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "日"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 216
Left = 5316
TabIndex = 7
Top = 120
Width = 240
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 450
Left = 0
Top = 0
Width = 7320
End
Begin VB.Label Label1
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "请输入查询日期时间："
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 168
TabIndex = 6
Top = 96
Width = 2400
End
End
Attribute VB_Name = "lxjl1frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mfDate, mfdate1, mfTime As Date
Private Const mstrSql = "select * from [continous1] where riqi = "
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Data1_Reposition()
With Data1
.Caption = (.Recordset.AbsolutePosition + 1) & "/" & .Recordset.RecordCount
End With
End Sub
Private Sub Form_Load()
Width = Screen.Width - dataviewfrm.Width - dataviewfrm.Left
Left = dataviewfrm.Width + dataviewfrm.Left
Top = baojingfrm.Top + baojingfrm.Height
Height = Screen.Height - baojingfrm.Top - baojingfrm.Height
End Sub
Private Sub Txtday_GotFocus()
Call GotFocusAgain(txtDay)
End Sub
Private Sub Txtmonth_GotFocus()
Call GotFocusAgain(txtMonth)
End Sub
Private Sub txtTime_GotFocus()
Call GotFocusAgain(txtTime)
End Sub
Private Sub txtTime_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo s:
If KeyCode = vbKeyReturn Then
If CInt(txtTime.Text) > 23 Or CInt(txtTime.Text) < 0 Then
Call Inform(132)
Exit Sub
End If
Dim msg As Variant
msg = CInt(txtYear.Text) & "-" & CInt(txtMonth.Text) & "-" & CInt(txtDay.Text)
mfdate1 = CDate(msg)
mfTime = CDate(CInt(txtTime.Text) & ":00")
DoEvents
With Data1
.RecordSource = mstrSql & "#" & 20 & mfdate1 & "#" & "and currenttime >=" _
& "#" & mfTime & "#"
.Refresh
End With
End If
Exit Sub
s: Call Inform(131)
End Sub
Private Sub txtDay_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo s:
If KeyCode = vbKeyReturn Then
Dim msg As Variant
msg = CInt(txtYear.Text) & "-" & CInt(txtMonth.Text) & "-" & CInt(txtDay.Text)
mfDate = CDate(msg)
With Data1
.RecordSource = mstrSql & "#" & 20 & mfDate & "#"
.Refresh
End With
End If
Exit Sub
s: Call Inform(131)
End Sub
Private Sub Txtyear_GotFocus()
Call GotFocusAgain(txtYear)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -