📄 frmtable11.frm
字号:
VERSION 5.00
Begin VB.Form frmtable11
BackColor = &H00FFC0C0&
Caption = "管理数据库"
ClientHeight = 8895
ClientLeft = 60
ClientTop = 315
ClientWidth = 11385
KeyPreview = -1 'True
LinkTopic = "Form5"
ScaleHeight = 8895
ScaleWidth = 11385
WindowState = 2 'Maximized
Begin VB.CommandButton Command2
Caption = "删除"
Height = 495
Left = 8160
MaskColor = &H00FFC0C0&
TabIndex = 24
Top = 7080
Width = 1215
End
Begin VB.CommandButton Command1
BackColor = &H00FFC0C0&
Caption = "添加"
Height = 495
Left = 6720
TabIndex = 23
Top = 7080
Width = 1215
End
Begin VB.TextBox Text4
Height = 495
Left = 8160
TabIndex = 20
Top = 6360
Width = 1215
End
Begin VB.TextBox Text3
Height = 495
Left = 8160
TabIndex = 19
Top = 5760
Width = 1215
End
Begin VB.TextBox Text2
BackColor = &H00FFC0C0&
BorderStyle = 0 'None
Height = 495
Left = 6840
TabIndex = 18
Text = "请输入线路"
Top = 5160
Width = 1095
End
Begin VB.PictureBox DataGrid1
BackColor = &H00FFC0C0&
Height = 4695
Left = 6840
ScaleHeight = 4635
ScaleWidth = 3195
TabIndex = 17
Top = 120
Width = 3255
End
Begin VB.CommandButton cmd1
BackColor = &H00C0C0FF&
Caption = "查询"
Height = 495
Left = 9240
TabIndex = 16
Top = 5160
Width = 1215
End
Begin VB.TextBox Text1
Height = 495
Left = 8160
TabIndex = 15
Top = 5160
Width = 975
End
Begin VB.PictureBox picButtons
Align = 2 'Align Bottom
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 0
ScaleHeight = 300
ScaleWidth = 11385
TabIndex = 7
Top = 8295
Width = 11385
Begin VB.CommandButton cmdCancel
Caption = "取消(&C)"
Height = 300
Left = 1213
TabIndex = 14
Top = 0
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton cmdUpdate
Caption = "更新(&U)"
Height = 300
Left = 59
TabIndex = 13
Top = 0
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton cmdClose
Caption = "关闭(&C)"
Height = 300
Left = 4675
TabIndex = 12
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新(&R)"
Height = 300
Left = 3521
TabIndex = 11
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Height = 300
Left = 2367
TabIndex = 10
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdEdit
Caption = "编辑(&E)"
Height = 300
Left = 1213
TabIndex = 9
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 300
Left = 59
TabIndex = 8
Top = 0
Width = 1095
End
End
Begin VB.PictureBox picStatBox
Align = 2 'Align Bottom
Appearance = 0 'Flat
BackColor = &H00C0FFC0&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 0
ScaleHeight = 300
ScaleWidth = 11385
TabIndex = 1
Top = 8595
Width = 11385
Begin VB.CommandButton cmdLast
Height = 300
Left = 4545
Picture = "frmtable11.frx":0000
Style = 1 'Graphical
TabIndex = 5
Top = 0
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdNext
Height = 300
Left = 4200
Picture = "frmtable11.frx":0342
Style = 1 'Graphical
TabIndex = 4
Top = 0
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdPrevious
Height = 300
Left = 345
Picture = "frmtable11.frx":0684
Style = 1 'Graphical
TabIndex = 3
Top = 0
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdFirst
Height = 300
Left = 0
Picture = "frmtable11.frx":09C6
Style = 1 'Graphical
TabIndex = 2
Top = 0
UseMaskColor = -1 'True
Width = 345
End
Begin VB.Label lblStatus
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 285
Left = 690
TabIndex = 6
Top = 0
Width = 3360
End
End
Begin VB.PictureBox grdDataGrid
Align = 1 'Align Top
BackColor = &H00FFC0C0&
Height = 3495
Left = 0
ScaleHeight = 3435
ScaleWidth = 11325
TabIndex = 0
Top = 0
Width = 11385
End
Begin VB.Label Label2
BackColor = &H00FFC0C0&
Caption = "顺序"
Height = 495
Left = 6840
TabIndex = 22
Top = 6360
Width = 1215
End
Begin VB.Label Label1
BackColor = &H00FFC0C0&
Caption = "站点"
Height = 495
Left = 6840
TabIndex = 21
Top = 5760
Width = 1215
End
Begin VB.Menu sysseek
Caption = "查询(&U)"
End
Begin VB.Menu syshelp
Caption = "帮助(&H)"
Begin VB.Menu sysfunc
Caption = "系统功能"
End
Begin VB.Menu sysshow
Caption = "系统说明"
End
Begin VB.Menu call
Caption = "联系我"
End
End
Begin VB.Menu exit
Caption = "退出系统"
End
End
Attribute VB_Name = "frmtable11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim WithEvents adoPrimaryRS As Recordset
Attribute adoPrimaryRS.VB_VarHelpID = -1
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Public Function connectstring() As String
connectstring = "provider=msdasql.1;USER ID=sa;password=;initial catalog=bus;data source=data;"
End Function
Public Function runsql(ByVal sql As String, msgs As String) As ADODB.Recordset
Dim cn As New ADODB.Connection
On Error GoTo run_error
Set cn = New ADODB.Connection
cn.Open connectstring()
cn.Execute sql
msgs = sql & "successful."
Set cn = Nothing
Exit Function
run_error:
msgs = "查询错误：" & Err.Description
End Function
wwwwPrivate Sub call_Click()
call1.Show
End Sub
Private Sub cmd1_Click()
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
If (Text1.Text = "") Then
MsgBox ("请输入要查询的内容!在点击查询按纽。")
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -