frmreaderoption.frm

这是图书馆管理系统

VERSION 5.00
Begin VB.Form FrmReaderOption 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "读者信息查询"
   ClientHeight    =   2370
   ClientLeft      =   4230
   ClientTop       =   4110
   ClientWidth     =   7065
   Icon            =   "FrmReaderOption.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2370
   ScaleWidth      =   7065
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox Txtreaderindex 
      Height          =   315
      Left            =   1200
      TabIndex        =   10
      Top             =   360
      Width           =   1815
   End
   Begin VB.TextBox Txtreadername 
      Height          =   315
      Left            =   1200
      TabIndex        =   9
      Top             =   960
      Width           =   1815
   End
   Begin VB.TextBox Txtage 
      Height          =   315
      Left            =   1200
      TabIndex        =   8
      Top             =   1560
      Width           =   1095
   End
   Begin VB.Frame Frame1 
      Height          =   615
      Left            =   4560
      TabIndex        =   5
      Top             =   240
      Width           =   2055
      Begin VB.OptionButton Optsex 
         Caption         =   "男"
         Height          =   180
         Index           =   0
         Left            =   240
         TabIndex        =   7
         Top             =   240
         Value           =   -1  'True
         Width           =   615
      End
      Begin VB.OptionButton Optsex 
         Caption         =   "女"
         Height          =   180
         Index           =   1
         Left            =   1080
         TabIndex        =   6
         Top             =   240
         Width           =   735
      End
   End
   Begin VB.Frame Frame2 
      Height          =   615
      Left            =   4560
      TabIndex        =   2
      Top             =   960
      Width           =   2055
      Begin VB.OptionButton Optduty 
         Caption         =   "经理"
         Height          =   300
         Index           =   0
         Left            =   240
         TabIndex        =   4
         Top             =   240
         Value           =   -1  'True
         Width           =   735
      End
      Begin VB.OptionButton Optduty 
         Caption         =   "职员"
         Height          =   255
         Index           =   1
         Left            =   1080
         TabIndex        =   3
         Top             =   240
         Width           =   735
      End
   End
   Begin VB.CommandButton CmdSelect 
      Caption         =   "查询"
      Height          =   375
      Left            =   3960
      TabIndex        =   1
      Top             =   1920
      Width           =   1095
   End
   Begin VB.CommandButton Cmdclose 
      Caption         =   "关闭"
      Height          =   375
      Left            =   5640
      TabIndex        =   0
      Top             =   1920
      Width           =   1095
   End
   Begin VB.Label Lblreaderindex 
      AutoSize        =   -1  'True
      Caption         =   "读者编号"
      Height          =   210
      Left            =   360
      TabIndex        =   15
      Top             =   480
      Width           =   840
   End
   Begin VB.Label Lblreadername 
      AutoSize        =   -1  'True
      Caption         =   "读者姓名"
      Height          =   210
      Left            =   360
      TabIndex        =   14
      Top             =   1080
      Width           =   840
   End
   Begin VB.Label Lblsex 
      AutoSize        =   -1  'True
      Caption         =   "性    别"
      Height          =   210
      Left            =   3600
      TabIndex        =   13
      Top             =   480
      Width           =   840
   End
   Begin VB.Label Lblduty 
      AutoSize        =   -1  'True
      Caption         =   "职    务"
      Height          =   210
      Left            =   3600
      TabIndex        =   12
      Top             =   1080
      Width           =   840
   End
   Begin VB.Label Lblage 
      AutoSize        =   -1  'True
      Caption         =   "年龄"
      Height          =   210
      Left            =   360
      TabIndex        =   11
      Top             =   1680
      Width           =   420
   End
End
Attribute VB_Name = "FrmReaderOption"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Cmdclose_Click()
    Unload Me
End Sub

Private Sub CmdSelect_Click()
    Dim strSelectSQL As String
    strSelectSQL = "select * from ReaderMessage where Sex="
    If Optsex(0).Value = True Then
        strSelectSQL = strSelectSQL & "1"
    Else
        strSelectSQL = strSelectSQL & "0"
    End If
    If Optduty(0).Value = True Then
        strSelectSQL = strSelectSQL & " and Duty=1"
    Else
        strSelectSQL = strSelectSQL & " and Duty=0"
    End If
    If Txtreaderindex.Text <> "" Then
        strSelectSQL = strSelectSQL & " and ReaderIndex=" & Trim(Txtreaderindex.Text)
    End If
    If Txtreadername.Text <> "" Then
        strSelectSQL = strSelectSQL & " and ReaderName='" & Trim(Txtreadername.Text) & "'"
    End If
    If Txtage.Text <> "" Then
        strSelectSQL = strSelectSQL & " and Age=" & Trim(Txtage.Text)
    End If
    '判断查询读者条件
    If QueryEmpInfo(strSelectSQL) = True And g_DBRct.BOF = False And g_DBRct.EOF = False Then
        FrmReaderSelect.Show
        Unload Me
    Else
        MsgBox "无法找到符合条件的读者记录，请重新查询", vbOKOnly, "读者不存在"
    End If
End Sub

Private Sub Form_Load()

End Sub