开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
main_find.frm
资源名称：renliziyuan.rar　[点击查看]
上传用户：wd52qq
上传日期：2022-07-24
资源大小：5366k
文件大小：5k
源码类别：

企业管理

开发平台：

Visual Basic

main_find.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form main_find 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "普通查询窗口"
  5.    ClientHeight    =   2025
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   6810
  9.    Icon            =   "main_find.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2025
  14.    ScaleWidth      =   6810
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  '屏幕中心
  17.    Begin VB.Frame Frame1 
  18.       Height          =   1155
  19.       Left            =   75
  20.       TabIndex        =   2
  21.       Top             =   90
  22.       Width           =   6645
  23.       Begin VB.ComboBox cboFields 
  24.          BackColor       =   &H80000018&
  25.          Height          =   300
  26.          Left            =   945
  27.          Style           =   2  'Dropdown List
  28.          TabIndex        =   5
  29.          Top             =   255
  30.          Width           =   2295
  31.       End
  32.       Begin VB.TextBox txtdata 
  33.          BackColor       =   &H80000018&
  34.          Height          =   300
  35.          Left            =   945
  36.          TabIndex        =   4
  37.          Top             =   690
  38.          Width           =   5490
  39.       End
  40.       Begin VB.ComboBox cboOperator 
  41.          BackColor       =   &H80000018&
  42.          Height          =   300
  43.          Left            =   4140
  44.          Style           =   2  'Dropdown List
  45.          TabIndex        =   3
  46.          Top             =   225
  47.          Width           =   2295
  48.       End
  49.       Begin VB.Label Label3 
  50.          Caption         =   "字段名称                             运算符"
  51.          ForeColor       =   &H00FF0000&
  52.          Height          =   285
  53.          Left            =   135
  54.          TabIndex        =   7
  55.          Top             =   315
  56.          Width           =   5280
  57.       End
  58.       Begin VB.Label Label4 
  59.          Caption         =   "关 键 字"
  60.          ForeColor       =   &H00FF0000&
  61.          Height          =   255
  62.          Left            =   135
  63.          TabIndex        =   6
  64.          Top             =   720
  65.          Width           =   1155
  66.       End
  67.    End
  68.    Begin VB.CommandButton cmdFind 
  69.       Caption         =   "查询"
  70.       Height          =   360
  71.       Left            =   1740
  72.       TabIndex        =   1
  73.       Top             =   1410
  74.       Width           =   1635
  75.    End
  76.    Begin VB.CommandButton cmdExit 
  77.       Caption         =   "退出"
  78.       Height          =   360
  79.       Left            =   3450
  80.       TabIndex        =   0
  81.       Top             =   1410
  82.       Width           =   1635
  83.    End
  84. End
  85. Attribute VB_Name = "main_find"
  86. Attribute VB_GlobalNameSpace = False
  87. Attribute VB_Creatable = False
  88. Attribute VB_PredeclaredId = True
  89. Attribute VB_Exposed = False
  90. Dim fld
  91. Dim rs As New ADODB.Recordset
  92. Private Sub Form_Load()
  93.   rs.Open "select * from " & tb, Cnn, adOpenKeyset, adLockOptimistic
  94.   Set fld = rs.Fields
  95.   For Each fld In rs.Fields
  96.       '向combo控件中添加字段
  97.       cboFields.AddItem fld.Name
  98.   Next
  99.   rs.Close
  100.   cboFields.ListIndex = 0
  101.   '向cboOperator中添加查询条件
  102.   cboOperator.AddItem ("like")
  103.   cboOperator.AddItem (">")
  104.   cboOperator.AddItem ("=")
  105.   cboOperator.AddItem (">=")
  106.   cboOperator.AddItem ("<")
  107.   cboOperator.AddItem ("<=")
  108.   cboOperator.AddItem ("<>")
  109.   cboOperator.ListIndex = 0
  110. End Sub
  111. Private Sub cmdFind_Click()        '查询
  112.   rs.Open "select * from " & tb, Cnn, adOpenKeyset, adLockOptimistic
  113.   Select Case rs.Fields(cboFields.ListIndex).Type
  114.     Case 129, 200, 201       '字符型
  115.       If cboOperator.text = "like" Then
  116.          sql = tb & " where " & tb & "." & cboFields & " like+ '%'+'" + txtdata + "'+'%'"
  117.       Else
  118.          sql = tb & " where " & tb & "." & cboFields & cboOperator & "'" + txtdata + "'"
  119.       End If
  120.     Case 135    '日期数据
  121.       If cboOperator.text = "like" Then
  122.          MsgBox "日期型数据不能选用“Like”作为运算符！", , "提示窗口"
  123.          cboOperator.ListIndex = 1
  124.       End If
  125.       If IsDate(txtdata) = False Then
  126.          MsgBox "请输入正确的日期！", , "提示窗口"
  127.          rs.Close
  128.          Exit Sub
  129.       End If
  130.       sql = tb & " where " & tb & "." & cboFields & cboOperator & "'" + txtdata + "'"
  131.     Case 131, 20, 3, 6        '数值型数据
  132.       If IsNumeric(txtdata) = False Then
  133.          MsgBox "请输入正确的数据！", , "提示窗口"
  134.          rs.Close
  135.          Exit Sub
  136.       End If
  137.       If cboOperator.text = "like" Then
  138.          MsgBox "货币数据不能选用“Like”作为运算符！", , "提示窗口"
  139.          cboOperator.ListIndex = 1
  140.       End If
  141.       sql = tb & " where " & tb & "." & cboFields & cboOperator & txtdata
  142.   End Select
  143.   rs.Close
  144.   Unload Me
  145. End Sub
  146. Private Sub cmdExit_Click()
  147.   Unload Me
  148. End Sub