📄 frmline_demand.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmLine_Demand
Caption = "线路查询"
ClientHeight = 8340
ClientLeft = 60
ClientTop = 345
ClientWidth = 11115
LinkTopic = "FrmMain"
ScaleHeight = 8340
ScaleWidth = 11115
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "取消"
Height = 495
Left = 6360
TabIndex = 4
Top = 1200
Width = 1215
End
Begin VB.CommandButton Demand_Command
Caption = "查询"
Height = 495
Left = 3840
TabIndex = 2
Top = 1200
Width = 1215
End
Begin VB.TextBox TextName
Height = 375
Left = 5400
TabIndex = 1
Top = 480
Width = 2535
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 5655
Left = 1080
TabIndex = 3
Top = 2280
Width = 9135
_ExtentX = 16113
_ExtentY = 9975
_Version = 393216
Rows = 8
Cols = 41
End
Begin VB.Label Label1
Caption = "请输入要查询的线路名:"
Height = 195
Left = 3360
TabIndex = 0
Top = 600
Width = 1935
End
End
Attribute VB_Name = "frmLine_Demand"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub ShowData(strQuery As String)
Dim rs As New ADODB.Recordset
Set rs = getRS(strQuery, "shujuku")
If rs.EOF = False Then
With Me.MSFlexGrid1
.Rows = 1
While Not rs.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = rs(0)
.TextMatrix(.Rows - 1, 1) = rs(1)
.TextMatrix(.Rows - 1, 2) = rs(2)
.TextMatrix(.Rows - 1, 3) = rs(3)
.TextMatrix(.Rows - 1, 4) = rs(4)
.TextMatrix(.Rows - 1, 5) = rs(5)
.TextMatrix(.Rows - 1, 6) = rs(6)
.TextMatrix(.Rows - 1, 7) = rs(7)
.TextMatrix(.Rows - 1, 8) = rs(8)
.TextMatrix(.Rows - 1, 9) = rs(9)
.TextMatrix(.Rows - 1, 10) = rs(10)
.TextMatrix(.Rows - 1, 11) = rs(11)
.TextMatrix(.Rows - 1, 12) = rs(12)
.TextMatrix(.Rows - 1, 13) = rs(13)
.TextMatrix(.Rows - 1, 14) = rs(14)
.TextMatrix(.Rows - 1, 15) = rs(15)
.TextMatrix(.Rows - 1, 16) = rs(16)
.TextMatrix(.Rows - 1, 17) = rs(17)
.TextMatrix(.Rows - 1, 18) = rs(18)
.TextMatrix(.Rows - 1, 19) = rs(19)
.TextMatrix(.Rows - 1, 20) = rs(20)
.TextMatrix(.Rows - 1, 21) = rs(21)
.TextMatrix(.Rows - 1, 22) = rs(22)
.TextMatrix(.Rows - 1, 23) = rs(23)
.TextMatrix(.Rows - 1, 24) = rs(24)
.TextMatrix(.Rows - 1, 25) = rs(25)
.TextMatrix(.Rows - 1, 26) = rs(26)
.TextMatrix(.Rows - 1, 27) = rs(27)
.TextMatrix(.Rows - 1, 28) = rs(28)
.TextMatrix(.Rows - 1, 29) = rs(29)
.TextMatrix(.Rows - 1, 30) = rs(30)
.TextMatrix(.Rows - 1, 31) = rs(31)
.TextMatrix(.Rows - 1, 32) = rs(32)
.TextMatrix(.Rows - 1, 33) = rs(33)
.TextMatrix(.Rows - 1, 34) = rs(34)
.TextMatrix(.Rows - 1, 35) = rs(35)
.TextMatrix(.Rows - 1, 36) = rs(36)
.TextMatrix(.Rows - 1, 37) = rs(37)
.TextMatrix(.Rows - 1, 38) = rs(38)
.TextMatrix(.Rows - 1, 39) = rs(39)
rs.MoveNext
Wend
End With
rs.Close
End If
End Sub
Public Sub showTopic()
Dim i As Integer
With Me.MSFlexGrid1 '设置表头
.TextMatrix(0, 0) = "线路编号"
.TextMatrix(0, 1) = "线路名称"
.TextMatrix(0, 2) = "站点1"
.TextMatrix(0, 3) = "站点2"
.TextMatrix(0, 4) = "站点3"
.TextMatrix(0, 5) = "站点4"
.TextMatrix(0, 6) = "站点5"
.TextMatrix(0, 7) = "站点6"
.TextMatrix(0, 8) = "站点7"
.TextMatrix(0, 9) = "站点8"
.TextMatrix(0, 10) = "站点9"
.TextMatrix(0, 11) = "站点10"
.TextMatrix(0, 12) = "站点11"
.TextMatrix(0, 13) = "站点12"
.TextMatrix(0, 14) = "站点13"
.TextMatrix(0, 15) = "站点14"
.TextMatrix(0, 16) = "站点15"
.TextMatrix(0, 17) = "站点16"
.TextMatrix(0, 18) = "站点17"
.TextMatrix(0, 19) = "站点18"
.TextMatrix(0, 20) = "站点19"
.TextMatrix(0, 21) = "站点20"
.TextMatrix(0, 22) = "站点21"
.TextMatrix(0, 23) = "站点22"
.TextMatrix(0, 24) = "站点23"
.TextMatrix(0, 25) = "站点24"
.TextMatrix(0, 26) = "站点25"
.TextMatrix(0, 27) = "站点26"
.TextMatrix(0, 28) = "站点27"
.TextMatrix(0, 29) = "站点28"
.TextMatrix(0, 30) = "站点29"
.TextMatrix(0, 31) = "站点30"
.TextMatrix(0, 32) = "站点31"
.TextMatrix(0, 33) = "站点32"
.TextMatrix(0, 34) = "站点33"
.TextMatrix(0, 35) = "站点34"
.TextMatrix(0, 36) = "站点35"
.TextMatrix(0, 37) = "站点36"
.TextMatrix(0, 38) = "站点37"
.TextMatrix(0, 39) = "站点38"
For i = 0 To 39 '设置所有表格对齐方式
.ColAlignment(i) = 4
Next i
For i = 0 To 39
.ColWidth(i) = 3000
Next i
For i = 0 To 39 '设置每列宽度
.ColWidth(i) = 3000
Next i
For i = 0 To 39
.ColWidth(i) = 3000
Next i
End With
End Sub
Private Sub Command1_Click()
Unload Me
Exit Sub
End Sub
Private Sub Demand_Command_Click()
Dim sql As String
sql = " & TextName.Text & "
sql = "select * from LineInfo where LineName like '" & "%" & TextName.Text & "%'"
Call showTopic
Call ShowData(sql)
frmLine_Demand.Show
frmLine_Demand.ZOrder 0
End Sub
Private Sub Form_Load()
Dim sql As String
If ichangeFlag = 2 Then
sql = "select * from LineInfo order by [NO]"
Call showTopic
Call ShowData(sql)
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -