frmfygsbm.frm

VB数据库设计的代码。需要根据自己的数据库再作调整

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmfygsbm 
   BackColor       =   &H00FF8080&
   Caption         =   "费用归属部门管理"
   ClientHeight    =   5670
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6825
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5670
   ScaleWidth      =   6825
   StartUpPosition =   1  '所有者中心
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   3735
      Left            =   480
      TabIndex        =   12
      Top             =   1800
      Width           =   5775
      _ExtentX        =   10186
      _ExtentY        =   6588
      _Version        =   393216
      ForeColorSel    =   16711680
      Enabled         =   -1  'True
      Appearance      =   0
   End
   Begin VB.ComboBox Combogsbmmc 
      Enabled         =   0   'False
      Height          =   300
      Left            =   4680
      TabIndex        =   11
      Top             =   240
      Width           =   1575
   End
   Begin VB.ComboBox Combodm 
      Enabled         =   0   'False
      Height          =   300
      Left            =   1440
      TabIndex        =   10
      Top             =   240
      Width           =   1575
   End
   Begin VB.CommandButton cmdkmlb 
      Caption         =   "添加部门"
      Height          =   375
      Index           =   0
      Left            =   480
      TabIndex        =   7
      Top             =   840
      Width           =   1100
   End
   Begin VB.CommandButton cmdkmlb 
      Caption         =   "修改部门"
      Height          =   375
      Index           =   1
      Left            =   1920
      TabIndex        =   6
      Top             =   840
      Width           =   1100
   End
   Begin VB.CommandButton cmdkmlb 
      Caption         =   "查询部门"
      Height          =   375
      Index           =   2
      Left            =   3360
      TabIndex        =   5
      Top             =   840
      Width           =   1100
   End
   Begin VB.CommandButton cmdkmlb 
      Caption         =   "删除部门"
      Height          =   375
      Index           =   3
      Left            =   5040
      TabIndex        =   4
      Top             =   840
      Width           =   1100
   End
   Begin VB.CommandButton cmdkmlb 
      Caption         =   "下一个"
      Height          =   375
      Index           =   4
      Left            =   480
      TabIndex        =   3
      Top             =   1320
      Width           =   1100
   End
   Begin VB.CommandButton cmdkmlb 
      Caption         =   "上一个"
      Height          =   375
      Index           =   5
      Left            =   1920
      TabIndex        =   2
      Top             =   1320
      Width           =   1100
   End
   Begin VB.CommandButton cmdkmlb 
      Caption         =   "保存"
      Enabled         =   0   'False
      Height          =   375
      Index           =   6
      Left            =   3360
      TabIndex        =   1
      Top             =   1320
      Width           =   1100
   End
   Begin VB.CommandButton cmdkmlb 
      Caption         =   "退出"
      Height          =   375
      Index           =   7
      Left            =   5040
      TabIndex        =   0
      Top             =   1320
      Width           =   1100
   End
   Begin VB.Label Labkhmc 
      BackStyle       =   0  'Transparent
      Caption         =   "部门代码"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   360
      TabIndex        =   9
      Top             =   240
      Width           =   1095
   End
   Begin VB.Label Lablxr 
      BackStyle       =   0  'Transparent
      Caption         =   "部门名称"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3480
      TabIndex        =   8
      Top             =   240
      Width           =   1095
   End
End
Attribute VB_Name = "frmfygsbm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'记录当前的操作时"增加"还是"修改"
Dim addrecord As Variant
'定义数据库连接对象
Dim conn As Connection
'定义费用归属部门类对象objfygsbm
Dim objfygsbm As New fygsbm
'定义费用归属部门集合类对象objfygsbms
Dim objfygsbms As New fygsbms
'定义记录当前记录位置的变量recordlocation
Dim recordlocation As Integer
Dim str As String
'设置费用归属部门管理中按钮的状态
Private Sub setbuttonskh(bval As Boolean)
    For i = 0 To 5
       cmdkmlb(i).Enabled = bval
    Next i
    cmdkmlb(6).Enabled = Not bval
    Combodm.Enabled = Not bval
    Combogsbmmc.Enabled = Not bval
    MSFlexGrid1.Enabled = bval
    If bval Then
       cmdkmlb(7).Caption = "退出"
    Else
       cmdkmlb(7).Caption = "取消"
    End If
    Exit Sub
End Sub

'刷新用于显示费用归属部门信息的MSFlexGrid1表格和与部门代码
'及名称对应的ComBox控件中的显示内容
Private Sub FGridrefresh()
   '定义用于存储DataGrid控件列标题的临时变量
   Dim fieldname(3) As Variant
   '定义用于存储DataGrid控件列宽度的临时变量
   Dim wide(3) As Variant
   Dim strsql As String
   '给用于存储DataGrid控件列标题的临时变量赋值
   fieldname(0) = "序号"
   fieldname(1) = "费用归属部门代码"
   fieldname(2) = "费用归属部门名称"
   '给用于存储DataGrid控件列宽度的临时变量赋值
   wide(0) = 500
   wide(1) = 2000
   wide(2) = 2000
   '调用对应于费用归属部门集合类对象的全局变量objfygsbms
   '的Find方法获得fygsbm表中的所有费用归属部门信息
   Call objfygsbms.Find
   '设置MSFlexGrid1表格中可以显示的行数
   MSFlexGrid1.Rows = objfygsbms.Count + 1
   '设置MSFlexGrid1表格中可以显示的列数
   MSFlexGrid1.Cols = 4
   Dim i As Integer
   Dim j As Integer
   MSFlexGrid1.Row = 0
   '设置MSFlexGrid1表格的各列标题和宽度
   For i = 1 To 3
     MSFlexGrid1.Col = i
     MSFlexGrid1.Text = fieldname(i - 1)
     MSFlexGrid1.ColWidth(i) = wide(i - 1)
   Next i
   '在MSFlexGrid1表格中显示所有费用归属部门信息
   For i = 1 To objfygsbms.Count
     '设置MSFlexGrid1表格的当前行
     MSFlexGrid1.Row = i
     '设置MSFlexGrid1表格的当前列
     MSFlexGrid1.Col = 0
     '设置MSFlexGrid1表格的当前cell单元中显示的值，表示当前记录的顺序序号
     MSFlexGrid1.Text = i
     For j = 1 To 3
        '设置MSFlexGrid1表格的当前列
        MSFlexGrid1.Col = j
        Select Case j
           Case 1
             '设置MSFlexGrid1表格的当前cell单元中显示的值，表示fygsbm表中当前记录的序号
             MSFlexGrid1.Text = objfygsbms.Item(i).xuhao
           Case 2
            '设置MSFlexGrid1表格的当前cell单元中显示的值，表示fygsbm表中当前记录的部门代码
             MSFlexGrid1.Text = objfygsbms.Item(i).dm
           Case 3
           '设置MSFlexGrid1表格的当前cell单元中显示的值，表示fygsbm表中当前记录的部门名称
             MSFlexGrid1.Text = objfygsbms.Item(i).gsbmmc
        End Select
     Next j