frmgg.frm
来自「星级酒店客房管理系统一套很不错的系统」· FRM 代码 · 共 1,237 行 · 第 1/3 页
FRM
1,237 行
Left = 2130
Picture = "FrmGG.frx":E291
Style = 1 'Graphical
TabIndex = 41
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 14
Left = 3075
Picture = "FrmGG.frx":F0E3
Style = 1 'Graphical
TabIndex = 40
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 13
Left = 4560
Picture = "FrmGG.frx":FF35
Style = 1 'Graphical
TabIndex = 39
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 12
Left = 5520
Picture = "FrmGG.frx":10D87
Style = 1 'Graphical
TabIndex = 38
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 11
Left = 6480
Picture = "FrmGG.frx":11BD9
Style = 1 'Graphical
TabIndex = 37
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 10
Left = 7440
Picture = "FrmGG.frx":12A2B
Style = 1 'Graphical
TabIndex = 36
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 9
Left = 8400
Picture = "FrmGG.frx":1387D
Style = 1 'Graphical
TabIndex = 35
Top = 890
Width = 940
End
Begin MSComCtl2.DTPicker DTPicker4
DataField = "始发时间"
DataSource = "Adodc1"
Height = 255
Left = 3960
TabIndex = 45
Top = 240
Width = 1095
_ExtentX = 1931
_ExtentY = 450
_Version = 393216
Format = 60751873
CurrentDate = 38691
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "航次 始发站 始发时间 "
Height = 255
Left = 120
TabIndex = 52
Top = 240
Width = 9375
End
Begin VB.Label Label7
Caption = "途经"
Height = 255
Left = 1560
TabIndex = 51
Top = 600
Width = 855
End
Begin VB.Label Label6
Caption = "终点站 到站时间"
Height = 255
Left = 5160
TabIndex = 50
Top = 240
Width = 2775
End
End
Begin VB.Frame Frame9
Caption = "编辑"
Height = 1335
Left = -74880
TabIndex = 60
Top = 5040
Width = 9615
Begin VB.TextBox Text1
DataField = "车次"
DataSource = "Adodc1"
Height = 270
Index = 11
Left = 480
TabIndex = 75
Text = "Text1"
Top = 240
Width = 975
End
Begin VB.TextBox Text1
DataField = "始发站"
Height = 270
Index = 10
Left = 2160
TabIndex = 74
Text = "Text1"
Top = 240
Width = 975
End
Begin VB.TextBox Text1
DataField = "终点站"
DataSource = "Adodc1"
Height = 270
Index = 9
Left = 5760
TabIndex = 73
Text = "Text1"
Top = 240
Width = 975
End
Begin VB.TextBox Text1
DataField = "途经"
DataSource = "Adodc1"
Height = 270
Index = 8
Left = 1920
TabIndex = 72
Text = "Text1"
Top = 600
Width = 6855
End
Begin MSComCtl2.DTPicker DTPicker5
DataField = "到站时间"
DataSource = "Adodc1"
Height = 255
Left = 7800
TabIndex = 70
Top = 240
Width = 975
_ExtentX = 1720
_ExtentY = 450
_Version = 393216
Format = 60751873
CurrentDate = 38691
End
Begin VB.CommandButton Command2
Height = 375
Index = 26
Left = 240
Picture = "FrmGG.frx":146CF
Style = 1 'Graphical
TabIndex = 69
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 25
Left = 1185
Picture = "FrmGG.frx":15521
Style = 1 'Graphical
TabIndex = 68
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 24
Left = 2130
Picture = "FrmGG.frx":16373
Style = 1 'Graphical
TabIndex = 67
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 23
Left = 3075
Picture = "FrmGG.frx":171C5
Style = 1 'Graphical
TabIndex = 66
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 22
Left = 4560
Picture = "FrmGG.frx":18017
Style = 1 'Graphical
TabIndex = 65
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 21
Left = 5520
Picture = "FrmGG.frx":18E69
Style = 1 'Graphical
TabIndex = 64
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 20
Left = 6480
Picture = "FrmGG.frx":19CBB
Style = 1 'Graphical
TabIndex = 63
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 19
Left = 7440
Picture = "FrmGG.frx":1AB0D
Style = 1 'Graphical
TabIndex = 62
Top = 890
Width = 940
End
Begin VB.CommandButton Command2
Height = 375
Index = 18
Left = 8400
Picture = "FrmGG.frx":1B95F
Style = 1 'Graphical
TabIndex = 61
Top = 890
Width = 940
End
Begin MSComCtl2.DTPicker DTPicker6
DataField = "始发时间"
DataSource = "Adodc1"
Height = 255
Left = 3960
TabIndex = 71
Top = 240
Width = 1095
_ExtentX = 1931
_ExtentY = 450
_Version = 393216
Format = 60751873
CurrentDate = 38691
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "车次 始发站 始发时间 "
Height = 255
Left = 240
TabIndex = 78
Top = 240
Width = 9375
End
Begin VB.Label Label11
Caption = "途经"
Height = 255
Left = 1440
TabIndex = 77
Top = 600
Width = 855
End
Begin VB.Label Label10
Caption = "终点站 到站时间"
Height = 255
Left = 5160
TabIndex = 76
Top = 240
Width = 2775
End
End
End
End
Attribute VB_Name = "FrmGG"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 火车时刻表 where " & Combo1.Text & " like %" & Text2.Text & "%"
Adodc1.Refresh
End Sub
Private Sub Command2_Click(Index As Integer)
If Adodc1.Recordset.RecordCount <> 0 Then
Select Case Index
With Adodc1.Recordset
Case 0
.MoveFirst
Case 1
.MovePrevious
If .BOF Then .MoveFirst
Case 2
.MoveNext
If .EOF Then .MoveLast
Case 3
.MoveLast
Case 4
.AddNew
Command2(5).Enabled = True
Command2(6).Enabled = False
Command2(7).Enabled = False
Case 5
.Update
Command2(6).Enabled = True
Command2(7).Enabled = True
Case 6
.Update
Case 7
.Delete
Case 8
.CancelBatch adAffectCurrent
.MoveFirst
End With
End Select
Else
End Sub
End If
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = My_PROVIDER
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 火车时刻表"
Adodc1.Refresh
Frame1.Visible = False
Frame4.Visible = False
Frame3.Visible = False
Frame6.Visible = False
Frame7.Visible = False
Frame9.Visible = False
Select Case GG_settype
Case "火车时刻表设置"
Frame3.Visible = True
Frame6.Visible = True
Frame9.Visible = True
Frame1.Visible = False
SSTab1.Tab = 1
Case "航班时刻表设置"
Frame3.Visible = True
Frame6.Visible = True
Frame9.Visible = True
Frame4.Visible = False
SSTab1.Tab = 0
Case "旅游景点设置"
Frame3.Visible = True
Frame6.Visible = True
Frame9.Visible = True
Frame7.Visible = False
SSTab1.Tab = 2
Case "火车时刻表"
Frame3.Visible = False
Frame1.Visible = True
Frame4.Visible = True
Frame7.Visible = True
SSTab1.Tab = 1
Command2(5).Enabled = False
With Combo1
.AddItem "车次"
.AddItem "途经"
.AddItem "始发时间"
.AddItem "始发站"
.Text = .list(1)
End With
Case "航班时刻表"
Frame6.Visible = False
Frame1.Visible = True
Frame4.Visible = True
Frame7.Visible = True
SSTab1.Tab = 0
Case "旅游景点表"
Frame9.Visible = False
Frame1.Visible = True
Frame4.Visible = True
Frame7.Visible = True
SSTab1.Tab = 2
End Select
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?