frmmemberman.frm

家庭理财系统,使用VB6.0编写,相当不错,可以用于课程设计

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form FrmMemberMan 
   Caption         =   "家庭成员管理"
   ClientHeight    =   4830
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7575
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   4830
   ScaleWidth      =   7575
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Cmd_Back 
      Caption         =   "返 回"
      Height          =   495
      Left            =   5460
      TabIndex        =   4
      Top             =   4200
      Width           =   1095
   End
   Begin VB.CommandButton Cmd_Del 
      Caption         =   "删 除"
      Height          =   495
      Left            =   3980
      TabIndex        =   3
      Top             =   4200
      Width           =   1095
   End
   Begin VB.CommandButton Cmd_Modi 
      Caption         =   "修 改"
      Height          =   495
      Left            =   2500
      TabIndex        =   2
      Top             =   4200
      Width           =   1095
   End
   Begin VB.CommandButton Cmd_Add 
      Caption         =   "添 加"
      Height          =   495
      Left            =   1020
      TabIndex        =   1
      Top             =   4200
      Width           =   1095
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   375
      Left            =   5760
      Top             =   0
      Visible         =   0   'False
      Width           =   1575
      _ExtentX        =   2778
      _ExtentY        =   661
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSDataGridLib.DataGrid DataGrid1 
      Height          =   3855
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   7335
      _ExtentX        =   12938
      _ExtentY        =   6800
      _Version        =   393216
      AllowUpdate     =   0   'False
      HeadLines       =   1
      RowHeight       =   15
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   2
      BeginProperty Column00 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "FrmMemberMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_Add_Click()
  FrmMemberEdit.Modify = False
  FrmMemberEdit.Show 1
  '刷新数据
  DataRefresh
End Sub

Private Sub Cmd_Back_Click()
  Unload Me
End Sub

Private Sub Cmd_Del_Click()
  If Adodc1.Recordset.BOF = True Then
    MsgBox "请选择记录"
    Exit Sub
  End If
  '查找用户信息表Users是否存在此成员编号，如果存在则不允许删除
  If MyUser.GetInfo(Adodc1.Recordset.Fields(0)) Then
    MsgBox "用户信息中包含此成员信息，不能删除记录"
    Exit Sub
  End If
  '查找日常收支表InOutList是否存在此成员编号，如果存在则不允许删除
  If MyList.GetInfo(Adodc1.Recordset.Fields(0)) Then
    MsgBox "收支信息中包含此成员信息，不能删除记录"
    Exit Sub
  End If
  '确认删除
  If MsgBox("是否确定要删除成员信息？", vbYesNo, "请确认") = vbNo Then
    Exit Sub
  End If
  '删除成员信息
  MyMem.Delete (Adodc1.Recordset.Fields(0))
  MsgBox "成功删除"
  '刷新数据
  DataRefresh
End Sub

Private Sub Cmd_Modi_Click()
  If Adodc1.Recordset.BOF = True Then
    MsgBox "请选择记录"
    Exit Sub
  End If
  FrmMemberEdit.Modify = True
  FrmMemberEdit.OriMId = Adodc1.Recordset.Fields(0)
  If IsNull(Trim(Adodc1.Recordset.Fields(1))) Then
    FrmMemberEdit.txtName = ""
  Else
    FrmMemberEdit.txtName = Trim(Adodc1.Recordset.Fields(1))
  End If
  If Trim(Adodc1.Recordset.Fields(2)) = "男" Then
    FrmMemberEdit.cob_Sex.ListIndex = 0
  Else
    FrmMemberEdit.cob_Sex.ListIndex = 1
  End If
  FrmMemberEdit.txtBirth = Trim(Adodc1.Recordset.Fields(3))
  FrmMemberEdit.txtMobile = Trim(Adodc1.Recordset.Fields(4))
  FrmMemberEdit.txtJob = Trim(Adodc1.Recordset.Fields(5))
  FrmMemberEdit.Show 1
  '刷新数据
  DataRefresh
End Sub

Private Sub Form_Load()
  DataRefresh
End Sub
'刷新数据
Private Sub DataRefresh()
  Dim TmpSource As String
  TmpSource = "Select MemId,MemName AS 姓名,Sex AS 性别,Birth AS 出生日期," _
     + "Mobile AS 手机,Job AS 工作单位 From Members Order By MemId"
  Adodc1.ConnectionString = Conn
  Adodc1.RecordSource = TmpSource
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
  DataGrid1.Columns(0).Width = 0
  DataGrid1.Columns(1).Width = 1000
  DataGrid1.Columns(2).Width = 600
  DataGrid1.Columns(3).Width = 1200
  DataGrid1.Columns(4).Width = 1200
  DataGrid1.Columns(5).Width = 1800
End Sub