📄 frmserach.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form frmserach
BorderStyle = 0 'None
ClientHeight = 6465
ClientLeft = 0
ClientTop = -105
ClientWidth = 10950
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
Picture = "frmserach.frx":0000
ScaleHeight = 6465
ScaleWidth = 10950
ShowInTaskbar = 0 'False
Begin VB.OptionButton Option0
BackColor = &H00F9F9F9&
Height = 375
Left = 720
TabIndex = 12
Top = 1560
Width = 255
End
Begin VB.Timer mousemovetimer
Enabled = 0 'False
Interval = 10
Left = 120
Top = 5880
End
Begin VB.CommandButton format
Caption = "格式化表格"
Height = 375
Left = 840
TabIndex = 11
Top = 8280
Width = 1455
End
Begin VB.OptionButton Option4
BackColor = &H00F9F9F9&
Height = 375
Left = 720
TabIndex = 10
Top = 3480
Width = 255
End
Begin VB.OptionButton Option3
BackColor = &H00F9F9F9&
Height = 375
Left = 720
TabIndex = 9
Top = 3000
Width = 255
End
Begin VB.OptionButton Option2
BackColor = &H00F9F9F9&
Height = 375
Left = 720
TabIndex = 8
Top = 2520
Width = 255
End
Begin VB.OptionButton Option1
BackColor = &H00F9F9F9&
Height = 375
Left = 720
TabIndex = 7
Top = 2040
Width = 255
End
Begin VB.CommandButton sent
Caption = "sent"
Height = 375
Left = 840
TabIndex = 6
Top = 7800
Width = 1455
End
Begin VB.TextBox stuage2
Height = 270
Left = 1700
TabIndex = 5
Text = "59"
Top = 3480
Width = 320
End
Begin VB.TextBox stuage1
Height = 270
Left = 1080
TabIndex = 4
Text = "18"
Top = 3480
Width = 320
End
Begin VB.ComboBox stusex
Height = 300
ItemData = "frmserach.frx":107B04
Left = 1080
List = "frmserach.frx":107B0E
Style = 2 'Dropdown List
TabIndex = 3
Top = 3000
Width = 1215
End
Begin VB.ComboBox stuterm
Height = 300
ItemData = "frmserach.frx":107B1A
Left = 1080
List = "frmserach.frx":107B27
Style = 2 'Dropdown List
TabIndex = 2
Top = 2040
Width = 1215
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Bindings = "frmserach.frx":107B49
Height = 3975
Left = 2880
TabIndex = 0
Top = 1440
Width = 7230
_ExtentX = 12753
_ExtentY = 7011
_Version = 393216
BackColor = 15460845
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 2640
Top = 7800
Visible = 0 'False
Width = 6495
_ExtentX = 11456
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 2
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "FILE NAME=C:\Program Files\accp\accp.dsn"
OLEDBString = ""
OLEDBFile = "C:\Program Files\accp\accp.dsn"
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from stuinfo"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataListLib.DataCombo stuname
Bindings = "frmserach.frx":107B5E
DataField = "Stu_Name"
DataSource = "Adodctemp"
Height = 330
Left = 1080
TabIndex = 1
Top = 2520
Width = 1215
_ExtentX = 2143
_ExtentY = 582
_Version = 393216
Style = 2
ListField = "Stu_Name"
BoundColumn = ""
Text = "所有姓名"
End
Begin MSAdodcLib.Adodc Adodctemp
Height = 375
Left = 2640
Top = 8280
Visible = 0 'False
Width = 6495
_ExtentX = 11456
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 2
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "FILE NAME=C:\Program Files\accp\accp.dsn"
OLEDBString = ""
OLEDBFile = "C:\Program Files\accp\accp.dsn"
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from stuinfo"
Caption = "Adodctemp"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Image serachage
Height = 320
Left = 2040
Picture = "frmserach.frx":107B76
Stretch = -1 'True
Top = 3450
Visible = 0 'False
Width = 320
End
Begin VB.Image toserach2
Height = 210
Left = 1440
Picture = "frmserach.frx":108326
Top = 720
Width = 960
End
Begin VB.Image pic_exit
Height = 285
Left = 9360
Picture = "frmserach.frx":10837D
Top = 6000
Width = 915
End
Begin VB.Image pic_close
Height = 180
Left = 10680
Picture = "frmserach.frx":109169
Top = 120
Width = 180
End
Begin VB.Image mousermovepic
Height = 345
Left = 0
Picture = "frmserach.frx":1091BB
Top = 0
Width = 10500
End
Begin VB.Image pic_print
Height = 285
Left = 1080
Picture = "frmserach.frx":114EAB
Top = 4560
Width = 915
End
Begin VB.Image pic_save
Height = 285
Left = 1080
Picture = "frmserach.frx":115C97
Top = 5040
Width = 915
End
End
Attribute VB_Name = "frmserach"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public tsql1 As String
Public tsql2 As String
Public tsql3 As String
Public tsql4 As String
Dim oldx As Integer '为解决全图形窗口没有标题栏而无法拖动的问题而定义的鼠标新旧两个XY变量
Dim oldy As Integer
Dim newx As Integer
Dim newy As Integer
Private Sub Image1_Click()
End Sub
'>>>>>>>>>>>>>>>>>>>>>>>>以下程序段解决全图形窗口的移动问题<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'移植须知：将该功能移植到一个全图片窗口以解决不能移动的问题时，需注意：1 赋值计时器和伪装标题栏到新的全图片窗体中；2 赋值定义的新旧XY值（4个）和本程序段到新的全图片窗体中；3 修改计时器的过程“mousemovetimer_Timer”中的四个窗体名字。4 修改伪装标题栏的图片
'当指定图片（伪装标题栏）被鼠标点击时启动计时器，并记录下当时的初始鼠标坐标
Private Sub mousermovepic_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
mousemovetimer.Enabled = True
oldx = X
oldy = Y
End Sub
'当指定图片（伪装标题栏）上鼠标移动时，赋给新的鼠标XY值，注意系统每隔很短的时间会赋值一次。
Private Sub mousermovepic_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
newx = X
newy = Y
End Sub
'当指定图片（伪装标题栏）被鼠标释放时关闭计时器。
Private Sub mousermovepic_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
mousemovetimer.Enabled = False
End Sub
'计时器将定时得到四个值，分别是固定的初始XY值，和不断变化的新的XY值。利用新旧XY的差，可以以此来移动窗体。适当调小计时器间隔时间将有助于移动窗体的流畅性。
Private Sub mousemovetimer_Timer()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -