frmbookinfo_choose.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmbookinfo_choose 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "图书类别选择"
   ClientHeight    =   4200
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4545
   Icon            =   "frmbookinfo_choose.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4200
   ScaleWidth      =   4545
   StartUpPosition =   2  '屏幕中心
   Begin MSFlexGridLib.MSFlexGrid bookinfoGrid 
      Height          =   4215
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4575
      _ExtentX        =   8070
      _ExtentY        =   7435
      _Version        =   393216
      FixedCols       =   0
      BackColorBkg    =   14737632
      SelectionMode   =   1
   End
End
Attribute VB_Name = "frmbookinfo_choose"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'-------------------------------------------------------
'       作者：龙茂春
'       功能：图书类别选择
'-------------------------------------------------------
 
 
Private Sub bookinfoGrid_Click()
If frmbookmanage.bookflag = True Then '添加窗体
   If frmbookmanage.bookinfo = True Then 'true为图书类别资料
        frmbookaddinfo.txt类别编号.Text = bookinfoGrid.TextMatrix(bookinfoGrid.Row, 0)
        frmbookaddinfo.txt类别名称.Text = bookinfoGrid.TextMatrix(bookinfoGrid.Row, 1)
   Else             'false 为出版社资料
        frmbookaddinfo.txt出版社名.Text = bookinfoGrid.TextMatrix(bookinfoGrid.Row, 0)
        frmbookaddinfo.txt出版地点.Text = bookinfoGrid.TextMatrix(bookinfoGrid.Row, 1)
   End If
Else  '修改窗体
   If frmbookmanage.bookinfo = True Then 'true为图书类别资料
        frmbookmodifyinfo.txt类别编号.Text = bookinfoGrid.TextMatrix(bookinfoGrid.Row, 0)
        frmbookmodifyinfo.txt类别名称.Text = bookinfoGrid.TextMatrix(bookinfoGrid.Row, 1)
   Else
        frmbookmodifyinfo.txt出版社名.Text = bookinfoGrid.TextMatrix(bookinfoGrid.Row, 0)
        frmbookmodifyinfo.txt出版地点.Text = bookinfoGrid.TextMatrix(bookinfoGrid.Row, 1)
   End If
End If
Unload Me
End Sub

Private Sub Form_Load()
'bookinfo  true为图书类别资料,false 为出版社资料
    'Me.Icon = LoadPicture(App.Path & "\varios.ico")
    Dim rs As New ADODB.Recordset
    Dim sql As String
    
    Me.Left = (frmmain.ScaleWidth - Me.Width) / 2
    Me.Top = (frmmain.ScaleHeight - Me.Height) / 2
    
    With bookinfoGrid
           If frmbookmanage.bookinfo = True Then
             .TextMatrix(0, 0) = "类别编号"
             .TextMatrix(0, 1) = "类别名称"
             sql = "select * from tslbb"
             Me.Caption = "图书类别选择"
           Else
             .TextMatrix(0, 0) = "出版社名"
             .TextMatrix(0, 1) = "出版地点"
             sql = "select * from cbslbb"
             Me.Caption = "出版社类别选择"
           End If
             .ColWidth(0) = 1500
             .ColWidth(1) = 3000
   
  
        Set rs = TransactSQL(sql)
        .Rows = 1
        While Not rs.EOF
            .Rows = .Rows + 1
            .TextMatrix(.Rows - 1, 0) = rs(0)
            .TextMatrix(.Rows - 1, 1) = rs(1)
             rs.MoveNext
        Wend
        .AddItem "" & vbTab & ""
        
   End With
End Sub