📄 汽车.frm
字号:
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1440
TabIndex = 9
Text = "Text1"
Top = 600
Width = 2535
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "营运年限(年)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 0
TabIndex = 16
Top = 4680
Width = 1455
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "备注"
BeginProperty Font
Name = "楷体_GB2312"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 8
Top = 5760
Width = 975
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "行李负重(kg)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 0
TabIndex = 7
Top = 3960
Width = 1815
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "车辆座位"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 0
TabIndex = 6
Top = 3240
Width = 1575
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "线路编号"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 0
TabIndex = 5
Top = 2640
Width = 1455
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "车辆类别"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 0
TabIndex = 4
Top = 1920
Width = 1455
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "车辆牌照"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
TabIndex = 3
Top = 1320
Width = 1455
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "班次名称"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
TabIndex = 2
Top = 600
Width = 1455
End
End
Begin VB.Line Line2
X1 = 0
X2 = 13320
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line1
X1 = 0
X2 = 8520
Y1 = 0
Y2 = 0
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "汽车信息维护"
BeginProperty Font
Name = "宋体"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 4560
TabIndex = 0
Top = 240
Width = 5175
End
End
Attribute VB_Name = "汽车"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private cnn As ADODB.Connection
Private WithEvents rstPub As ADODB.Recordset
Attribute rstPub.VB_VarHelpID = -1
Private addFlag As Boolean
Private editFlag As Boolean
Private Sub controlLocked()
Dim b As Boolean
b = Not (addFlag Or editFlag)
Text1.Locked = b
Text2.Locked = b
Text3.Locked = b
Text4.Locked = b
Text5.Locked = b
Text6.Locked = b
Text7.Locked = b
Text8.Locked = b
End Sub
Private Sub controlEnabled()
Dim blnflag As Boolean
blnflag = Not (addFlag Or editFlag)
cmdadd.Enabled = blnflag
cmdedit.Enabled = blnflag
cmddelete.Enabled = blnflag
cmdsave.Enabled = Not blnflag
cmdcancel.Enabled = Not blnflag
cmdLocation.Enabled = blnflag
cmdexit.Enabled = blnflag
cmdfirst.Enabled = blnflag
cmdlast.Enabled = blnflag
cmdnext.Enabled = blnflag
cmdprevious.Enabled = blnflag
List1.Enabled = blnflag
End Sub
Private Sub cmdadd_Click()
MsgBox "请在上面输入汽车信息后" + vbCrLf + " 按保存按钮" + vbCrLf + " 或按撤销按钮", 0, Me.Caption
addFlag = True
controlLocked
controlEnabled
rstPub.AddNew
End Sub
Private Sub cmdcancel_Click()
If addFlag = True Or editFlag = True Then
rstPub.CancelUpdate
MsgBox "已撤销新增或修改", 0, Me.Caption
If rstPub.BOF = False And editFlag = True Then
rstPub.MovePrevious
rstPub.MoveNext
End If
Else
MsgBox "未执行新增或修改，无须撤销", 0, Me.Caption
End If
addFlag = False
editFlag = False
controlEnabled
End Sub
Private Sub cmddelete_Click()
Dim n As Integer
n = MsgBox("真的要删除吗？", 4, Me.Caption)
If n = 6 Then
rstPub.Delete
rstPub.MoveFirst
MsgBox "资料已经删除！", 0, Me.Caption
Else
MsgBox "资料未被删除！", 0, Me.Caption
End If
End Sub
Private Sub cmdedit_Click()
editFlag = True
controlLocked
controlEnabled
MsgBox "请在上面修改汽车信息后" + vbCrLf + " 按保存按钮" + vbCrLf + " 或按撤销按钮", 0, Me.Caption
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdfirst_Click()
rstPub.MoveFirst
End Sub
Private Sub cmdlast_Click()
rstPub.MoveLast
End Sub
Private Sub cmdLocation_Click()
Dim s As String
s = InputBox("请输入班次名称", Me.Caption)
rstPub.MoveFirst
rstPub.Find ("班次名称='" & s & "'")
Dim n As Boolean
n = Not rstPub.EOF And Err.Number = 0
If n = False Then
MsgBox "找不到此班次名称", 0, Me.Caption
Exit Sub
End If
End Sub
Private Sub cmdLocation_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdLocation.ToolTipText = "根据班次名快速找到对应的信息"
End Sub
Private Sub cmdnext_Click()
rstPub.MoveNext
If rstPub.EOF = True Then
rstPub.MoveLast
End If
End Sub
Private Sub cmdprevious_Click()
rstPub.MovePrevious
If rstPub.BOF = True Then
rstPub.MoveFirst
End If
End Sub
Private Sub cmdsave_Click()
On Error GoTo ErrMsg
rstPub.Update
If addFlag = True Then
MsgBox "新增汽车信息成功！", 0, Me.Caption
addFlag = False
End If
If editFlag = True Then
MsgBox "修改汽车信息成功！", 0, Me.Caption
editFlag = False
End If
controlEnabled
controlLocked
If Err.Number = 0 Then Exit Sub
ErrMsg:
MsgBox Err.Description, 16, Me.Caption
End Sub
Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rstPub = New ADODB.Recordset
cnn.CursorLocation = adUseClient
cnn.Open myApp.cnnstr
rstPub.Open "select * from 汽车 order by 班次名称", cnn, adOpenStatic, adLockOptimistic
Call bindPub
addFlag = False
editFlag = False
controlLocked
controlEnabled
txtstatus.Locked = True
End Sub
Private Sub bindPub()
Set Text7.DataSource = rstPub
Text7.DataField = "备注"
Set Text1.DataSource = rstPub
Text1.DataField = "班次名称"
Set Text2.DataSource = rstPub
Text2.DataField = "车辆牌照"
Set Text3.DataSource = rstPub
Text3.DataField = "车辆类别"
Set Text4.DataSource = rstPub
Text4.DataField = "线路编号"
Set Text5.DataSource = rstPub
Text5.DataField = "车辆座位"
Set Text6.DataSource = rstPub
Text6.DataField = "行李负重(kg)"
Set Text8.DataSource = rstPub
Text8.DataField = "营运年限(年)"
Set List1.RowSource = rstPub
List1.ListField = "班次名称"
End Sub
Private Sub Form_Unload(Cancel As Integer)
rstPub.Close
cnn.Close
End Sub
Private Sub List1_Click()
rstPub.MoveFirst
rstPub.Find ("班次名称='" & List1.Text & "'")
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub rstPub_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If rstPub.EOF = True And rstPub.BOF = True Then
MsgBox "当前记录集为空，你无法执行此次操作！", vbExclamation, Me.Caption
Exit Sub
End If
If rstPub.EOF = False And rstPub.BOF = False Then
txtstatus.Text = " " & rstPub.AbsolutePosition & " of " & rstPub.RecordCount
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -