教材征订查询条件.frm

学生教材管理系统:对学校书库进销存进行管理的系统

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form 教材征订查询条件 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "查询条件"
   ClientHeight    =   3270
   ClientLeft      =   5295
   ClientTop       =   4275
   ClientWidth     =   5910
   Icon            =   "教材征订查询条件.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3270
   ScaleWidth      =   5910
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Height          =   3135
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   5775
      Begin VB.CommandButton Command2 
         Caption         =   "取消"
         Height          =   450
         Left            =   3960
         TabIndex        =   9
         Top             =   2460
         Width           =   1335
      End
      Begin VB.CommandButton Command1 
         Caption         =   "确定"
         Height          =   450
         Left            =   2520
         TabIndex        =   8
         Top             =   2460
         Width           =   1335
      End
      Begin VB.Frame Frame3 
         Caption         =   "值"
         Height          =   915
         Left            =   120
         TabIndex        =   6
         Top             =   1260
         Width           =   5535
         Begin MSComCtl2.DTPicker DTPicker1 
            Height          =   375
            Left            =   480
            TabIndex        =   10
            Top             =   360
            Width           =   4695
            _ExtentX        =   8281
            _ExtentY        =   661
            _Version        =   393216
            Format          =   55574529
            CurrentDate     =   38528
         End
         Begin VB.TextBox Text1 
            Height          =   375
            Left            =   480
            TabIndex        =   7
            Top             =   360
            Width           =   4695
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "查询条件"
         Height          =   1035
         Left            =   120
         TabIndex        =   1
         Top             =   180
         Width           =   5535
         Begin VB.OptionButton Option4 
            Caption         =   "按征订人"
            Height          =   435
            Left            =   4320
            TabIndex        =   5
            Top             =   300
            Width           =   1095
         End
         Begin VB.OptionButton Option3 
            Caption         =   "按出版日期"
            Height          =   375
            Left            =   2820
            TabIndex        =   4
            Top             =   360
            Width           =   1335
         End
         Begin VB.OptionButton Option2 
            Caption         =   "按作者"
            Height          =   375
            Left            =   1680
            TabIndex        =   3
            Top             =   360
            Width           =   1035
         End
         Begin VB.OptionButton Option1 
            Caption         =   "按出版社"
            Height          =   375
            Left            =   420
            TabIndex        =   2
            Top             =   360
            Width           =   1455
         End
      End
   End
End
Attribute VB_Name = "教材征订查询条件"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim chen As String
Private Sub Command1_Click()

     If Option1.Value = True Then
        教材征订查询.Adodc1.RecordSource = "select * from 教材征订表 where 教材征订表.出版社 like '%" & Text1.Text & "%'"
            教材征订查询.Adodc1.Refresh
        If 教材征订查询.Adodc1.Recordset.EOF = True Then
            MsgBox "没有此出版社！", vbOKOnly + vbInformation, "提示"
        Else
           
            chen = Trim(教材征订查询.Adodc1.Recordset.Fields("出版社"))
            End If
            教材征订查询.Show
         Unload Me
     Else
         If Option2.Value = True Then
             教材征订查询.Adodc1.RecordSource = "select * from 教材征订表 where 作者 like '%" & Text1 & "%'"
             教材征订查询.Adodc1.Refresh
             If 教材征订查询.Adodc1.Recordset.EOF = True Then
                MsgBox "没有此作者！", vbOKOnly + vbInformation, "提示"
             Else
                教材征订查询.DataGrid1.Visible = True
             End If
             教材征订查询.Show
             Unload Me
         Else
            If Option3.Value = True Then
               'On Error Resume Next
                
               教材征订查询.Adodc1.RecordSource = "select * from 教材征订表  where  出版日期 =  #" & DTPicker1.Value & "#"
               教材征订查询.Adodc1.Refresh
               If 教材征订查询.Adodc1.Recordset.EOF = True Then
                     MsgBox "没有此出版日期！", vbOKOnly + vbInformation, "提示"
               Else
                     教材征订查询.DataGrid1.Visible = True
               End If
                教材征订查询.Show
                Unload Me
              
            Else
               If Option4.Value = True Then
                 教材征订查询.Adodc1.RecordSource = "select * from 教材征订表 where 征订人 like '%" & Text1.Text & "%'"
                 教材征订查询.Adodc1.Refresh
                 If 教材征订查询.Adodc1.Recordset.EOF = True Then
                      MsgBox "没有此征订人！", vbOKOnly + vbInformation, "提示"
                 Else
                      教材征订查询.DataGrid1.Visible = True
                 End If
                 教材征订查询.Show
                  Unload Me
               End If
            End If
        End If
    End If
End Sub

Private Sub Command2_Click()
     Unload Me
     教材征订查询.Show
End Sub

Private Sub Option1_Click()
    Text1.SetFocus
    Text1.Text = ""
    DTPicker1.Visible = False
    'Label1.Visible = False
End Sub

Private Sub Option2_Click()
   Text1.SetFocus
   Text1.Text = ""
   DTPicker1.Visible = False
   'Label1.Visible = False
End Sub

Private Sub Option3_Click()
    DTPicker1.Visible = True
    'Text1.SetFocus
    'Text1.Text = ""
    'Label1.Visible = True
End Sub

Private Sub Option4_Click()
   Text1.SetFocus
   Text1.Text = ""
   DTPicker1.Visible = False
   'Label1.Visible = False
End Sub

Private Sub Text1_Click()
   Text1.Text = ""
End Sub