📄 执行sql查询.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Begin VB.Form Form12
Caption = "网址管理中心"
ClientHeight = 8700
ClientLeft = 555
ClientTop = 990
ClientWidth = 11895
LinkTopic = "Form12"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 8700
ScaleWidth = 11895
Begin CSCommand.Command Command5
Height = 345
Left = 1440
TabIndex = 15
Top = 8295
Width = 1275
_ExtentX = 2249
_ExtentY = 609
IconAlign = 0
Icon = "执行sql查询.frx":0000
Caption = "导出至 &Excel"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.ComboBox Combo2
Height = 300
ItemData = "执行sql查询.frx":001C
Left = 6165
List = "执行sql查询.frx":002F
Style = 2 'Dropdown List
TabIndex = 14
Top = 105
Width = 1380
End
Begin VB.CheckBox Check1
Caption = "降序"
Height = 240
Left = 7575
TabIndex = 10
Top = 165
Value = 1 'Checked
Width = 765
End
Begin VB.TextBox Text2
Height = 270
Left = 8145
TabIndex = 9
Text = "Text2"
Top = 8325
Width = 1365
End
Begin CSCommand.Command Command4
Height = 405
Left = 150
TabIndex = 8
Top = 60
Width = 1035
_ExtentX = 1826
_ExtentY = 714
IconAlign = 0
Icon = "执行sql查询.frx":0061
Caption = "刷新 &R"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin CSCommand.Command Command3
Height = 360
Left = 9630
TabIndex = 6
Top = 8265
Width = 1905
_ExtentX = 3360
_ExtentY = 635
IconAlign = 0
Icon = "执行sql查询.frx":007D
Caption = "传送网址到浏览器 &Q"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Frame Frame1
Height = 450
Left = 2760
TabIndex = 5
Top = 8205
Width = 5250
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
ForeColor = &H00C00000&
Height = 180
Left = 105
TabIndex = 7
Top = 180
Width = 90
End
End
Begin CSCommand.Command Command2
Height = 345
Left = 9360
TabIndex = 4
Top = 75
Width = 915
_ExtentX = 1614
_ExtentY = 609
IconAlign = 0
Icon = "执行sql查询.frx":0099
Caption = "添加 &A"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin CSCommand.Command Command1
Height = 345
Left = 8400
TabIndex = 3
Top = 75
Width = 915
_ExtentX = 1614
_ExtentY = 609
IconAlign = 0
Icon = "执行sql查询.frx":00B5
Caption = "查找 &S"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 4800
Left = 105
TabIndex = 2
Top = 525
Width = 8880
_ExtentX = 15663
_ExtentY = 8467
_Version = 393216
RowHeightMin = 300
ScrollTrack = -1 'True
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
End
Begin VB.TextBox Text1
Height = 300
Left = 4095
TabIndex = 1
Text = "Text1"
Top = 105
Width = 1470
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "执行sql查询.frx":00D1
Left = 1800
List = "执行sql查询.frx":00ED
Style = 2 'Dropdown List
TabIndex = 0
Top = 105
Width = 1485
End
Begin CSCommand.Command Command6
Height = 345
Left = 105
TabIndex = 16
ToolTipText = "隐藏不需要导出的行信息，这个操作不会更改数据库，仅仅在本列表中删除该行信息。"
Top = 8295
Width = 1290
_ExtentX = 2275
_ExtentY = 609
IconAlign = 0
Icon = "执行sql查询.frx":0141
Caption = "隐藏该行 &H"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "排序："
Height = 180
Left = 5640
TabIndex = 13
Top = 180
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "关键字："
Height = 180
Left = 3360
TabIndex = 12
Top = 180
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "条件："
Height = 180
Left = 1260
TabIndex = 11
Top = 180
Width = 540
End
End
Attribute VB_Name = "Form12"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/24
'描 述：商务名片及客户资料管理系统 Ver 1.73
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Dim sqlstr As String
If Combo1.Text = "助记码" Or Combo1.Text = "网址名称" Or Combo1.Text = "网络地址" Or Combo1.Text = "登录用户名" Or Combo1.Text = "等录密码" Or Combo1.Text = "网站摘要" Or Combo1.Text = "所属类别" Or Combo1.Text = "网站性质" Then
sqlstr = "Select * From URLS "
If Trim(Text1.Text) = "" Then
sqlstr = sqlstr
Else
sqlstr = sqlstr & " Where " & Combo1.Text & " Like '*" & Trim(Text1.Text) & "*' "
End If
If Check1.Value = 1 Then
sqlstr = sqlstr & "Order By " & Combo2.Text & " Desc"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -