frmbookcancel_choose.frm

图书简明管理系统源代码(VB),可作为软件工程课程设计用,也可以作为学习用。

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmbookcancel_choose 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "图书信息"
   ClientHeight    =   6345
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6390
   Icon            =   "frmbookcancel_choose.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6345
   ScaleMode       =   0  'User
   ScaleWidth      =   6357.397
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox txt图书名称 
      Height          =   390
      Left            =   1440
      TabIndex        =   1
      Top             =   1080
      Width           =   2850
   End
   Begin VB.TextBox txt图书编号 
      Height          =   390
      Left            =   1440
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   480
      Width           =   2850
   End
   Begin VB.PictureBox Picbg1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   1440
      Left            =   6480
      Picture         =   "frmbookcancel_choose.frx":19862
      ScaleHeight     =   1440
      ScaleWidth      =   1440
      TabIndex        =   5
      Top             =   1200
      Width           =   1440
   End
   Begin VB.CommandButton cmdexit 
      Cancel          =   -1  'True
      Caption         =   "返回"
      Height          =   375
      Left            =   4800
      TabIndex        =   4
      Top             =   1080
      Width           =   1221
   End
   Begin VB.CommandButton cmdchoose 
      Caption         =   "选择"
      Default         =   -1  'True
      Height          =   375
      Left            =   4800
      TabIndex        =   3
      Top             =   480
      Width           =   1221
   End
   Begin MSFlexGridLib.MSFlexGrid bookchooseGrid 
      Height          =   4335
      Left            =   240
      TabIndex        =   2
      Top             =   1800
      Width           =   5925
      _ExtentX        =   10451
      _ExtentY        =   7646
      _Version        =   393216
      Rows            =   3
      Cols            =   3
      FixedCols       =   0
      BackColorBkg    =   14737632
      SelectionMode   =   1
      AllowUserResizing=   1
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "图书名称："
      Height          =   180
      Left            =   480
      TabIndex        =   7
      Top             =   1200
      Width           =   900
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "图书编号："
      Height          =   180
      Left            =   480
      TabIndex        =   6
      Top             =   600
      Width           =   900
   End
End
Attribute VB_Name = "frmbookcancel_choose"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'-------------------------------------------------------
'       作者：龙茂春
'       功能：注销图书选择。可按图书编号或图书名称进行模糊选择
'-------------------------------------------------------



Private Sub cmdchoose_Click()
 
 If bookchooseGrid.Rows > 1 Then
 frmbookcancel.txt图书编号.Text = bookchooseGrid.TextMatrix(bookchooseGrid.Row, 0)
 frmbookcancel.txt图书名称.Text = bookchooseGrid.TextMatrix(bookchooseGrid.Row, 1)
 frmbookcancel.txt现存量.Text = bookchooseGrid.TextMatrix(bookchooseGrid.Row, 2)
 Unload Me
 Else
 MsgBox "图书信息表中无记录！"
 End If
End Sub

Private Sub cmdexit_Click()    '清空frmbookcancel.frm中所有的textbox框'
frmbookcancel.txt图书编号.Text = ""
frmbookcancel.txt图书名称.Text = ""
frmbookcancel.txt现存量.Text = ""
frmbookcancel.txt注销数量.Text = ""
Unload Me
End Sub

Private Sub Form_Load()
Call fullpic(Me, Picbg1) '背景图
Me.Left = (frmmain.ScaleWidth - Me.Width) / 2
Me.Top = (frmmain.ScaleHeight - Me.Height) / 2

With bookchooseGrid
         .TextMatrix(0, 0) = "图书编号"
         .TextMatrix(0, 1) = "图书名称"
         .TextMatrix(0, 2) = "现存量"
         .ColWidth(0) = 1800
         .ColWidth(1) = 3000
         .ColWidth(2) = 1000
 End With
 
 Dim rs As New ADODB.Recordset
   Dim sql As String
    sql = "select * from tsxxb where 是否注销='否' and 现存量>0"  'tsxxb图书信息表
   '将图书信息表所有记录显示在frmbookmanage窗体的bookGrid表中
   
   Dim i As Integer
   Set rs = TransactSQL(sql)
      With bookchooseGrid
        .Rows = 1
        While Not rs.EOF
        .Rows = .Rows + 1
        .TextMatrix(.Rows - 1, 0) = rs(0)
        .TextMatrix(.Rows - 1, 1) = rs(1)
        .TextMatrix(.Rows - 1, 2) = rs(12)
         rs.MoveNext
        Wend
      End With
End Sub

Private Sub txt图书编号_Change()
 Dim rs As New ADODB.Recordset
   Dim sql As String
    sql = "select * from tsxxb"  'tsxxb图书信息表
   '将图书信息表所有记录显示在frmbookmanage窗体的bookGrid表中
  
   Dim sql2 As String
   sql2 = "select * from tsxxb where 图书编号 like'" & txt图书编号.Text & "%' and 是否注销='否'  and 现存量>0"
   Dim i As Integer
   Set rs = TransactSQL(sql2)
      With bookchooseGrid
        .Rows = 1
        While Not rs.EOF
        .Rows = .Rows + 1
        .TextMatrix(.Rows - 1, 0) = rs(0)
        .TextMatrix(.Rows - 1, 1) = rs(1)
        .TextMatrix(.Rows - 1, 2) = rs(2)
        rs.MoveNext
        Wend
      End With
End Sub

Private Sub txt图书名称_Change()
Dim rs As New ADODB.Recordset
   Dim sql As String
    sql = "select * from tsxxb"  'tsxxb图书信息表
   '将图书信息表所有记录显示在frmbookmanage窗体的bookGrid表中
  
   Dim sql2 As String
   sql2 = "select * from tsxxb where 图书名称 like'" & txt图书名称.Text & "%' and 是否注销='否'  and 现存量>0"
   Dim i As Integer
   Set rs = TransactSQL(sql2)
      With bookchooseGrid
        .Rows = 1
        While Not rs.EOF
        .Rows = .Rows + 1
        .TextMatrix(.Rows - 1, 0) = rs(0)
        .TextMatrix(.Rows - 1, 1) = rs(1)
        .TextMatrix(.Rows - 1, 2) = rs(2)
        rs.MoveNext
        Wend
      End With
End Sub