frmoperman.frm

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

         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSAdodcLib.Adodc Ado_Mem 
      Height          =   375
      Left            =   8520
      Top             =   5400
      Visible         =   0   'False
      Width           =   1935
      _ExtentX        =   3413
      _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         =   "Ado_Mem"
      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 MSAdodcLib.Adodc Ado_Acc 
      Height          =   330
      Left            =   7658
      Top             =   5760
      Visible         =   0   'False
      Width           =   2055
      _ExtentX        =   3625
      _ExtentY        =   582
      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         =   "Ado_Acc"
      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
End
Attribute VB_Name = "FrmOperMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
  '当选中全部时，将下拉列表数据清空，并设置为不可用状态。
  If Check1.Value = 0 Then
    dco_Bank.Enabled = True
    dco_Mem.Enabled = True
    dco_Type.Enabled = True
  Else
    dco_Bank.Text = ""
    dco_Bank.Enabled = False
    dco_Mem.Text = ""
    dco_Mem.Enabled = False
    dco_Type.Text = ""
    dco_Type.Enabled = False
  End If
  '刷新数据
  DataRefresh
End Sub

Private Sub Cmd_Add_Click()
  FrmOperEdit.Modify = False
  FrmOperEdit.OldSum = 0
  FrmOperEdit.txtODate = Date
  FrmOperEdit.txtSum = 0
  FrmOperEdit.txtMonth = 0
  FrmOperEdit.txtInterest = 0
  FrmOperEdit.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
  '查找银行交易表BankOper是否存在此帐户编号，如果存在则不允许删除
  If MyOper.GetInfo(Adodc1.Recordset.Fields(0)) Then
    MsgBox "银行交易中包含此帐户信息，不能删除记录"
    Exit Sub
  End If
  '确认删除
  If MsgBox("是否确定要删除帐户信息？", vbYesNo, "请确认") = vbNo Then
    Exit Sub
  End If
  '删除帐户信息
  MyAcc.Delete (Trim(Adodc1.Recordset.Fields(0)))
  MsgBox "成功删除"
  '刷新数据
  DataRefresh
End Sub

Private Sub Cmd_Modi_Click()
  If Adodc1.Recordset.BOF = True Then
    MsgBox "请选择记录"
    Exit Sub
  End If
  FrmOperEdit.Modify = True
  FrmOperEdit.OriOId = Trim(Adodc1.Recordset.Fields(0))
  FrmOperEdit.dco_Bank.Text = Trim(Adodc1.Recordset.Fields(1))
  FrmOperEdit.dco_Mem.Text = Trim(Adodc1.Recordset.Fields(2))
  FrmOperEdit.dco_Acc.Text = Trim(Adodc1.Recordset.Fields(3))
  FrmOperEdit.txtODate = Trim(Adodc1.Recordset.Fields(4))
  FrmOperEdit.OldSum = Adodc1.Recordset.Fields(5)
  FrmOperEdit.txtSum = Adodc1.Recordset.Fields(5)
  FrmOperEdit.txtMonth = Adodc1.Recordset.Fields(7)
  FrmOperEdit.txtInterest = Adodc1.Recordset.Fields(8)
  FrmOperEdit.cob_Flag.ListIndex = Adodc1.Recordset.Fields(10)
  '存取款类型不能改变
  FrmOperEdit.cob_Flag.Enabled = False
  If IsNull(Trim(Adodc1.Recordset.Fields(9))) Then
    FrmOperEdit.txtMemo = ""
  Else
    FrmOperEdit.txtMemo = Trim(Adodc1.Recordset.Fields(9))
  End If
  FrmOperEdit.Show 1
  '刷新数据
  DataRefresh
End Sub

Private Sub dco_Bank_Click(Area As Integer)
  '刷新记录
  DataRefresh
End Sub

Private Sub dco_Mem_Click(Area As Integer)
  '刷新记录
  DataRefresh
End Sub

Private Sub dco_Type_Click(Area As Integer)
  '刷新记录
  DataRefresh
End Sub

Private Sub Form_Load()
  '载入银行信息
  Ado_Bank.ConnectionString = Conn
  Ado_Bank.RecordSource = "Select * From Banks Order By BankId"
  Ado_Bank.Refresh
  Set dco_Bank.RowSource = Ado_Bank
  dco_Bank.ListField = "BankName"
  dco_Bank.BoundColumn = "BankId"
  '载入家庭成员信息
  Ado_Mem.ConnectionString = Conn
  Ado_Mem.RecordSource = "Select * From Members Order By MemId"
  Ado_Mem.Refresh
  Set dco_Mem.RowSource = Ado_Mem
  dco_Mem.ListField = "MemName"
  dco_Mem.BoundColumn = "MemId"
  '载入帐户信息
  Ado_Acc.ConnectionString = Conn
  Ado_Acc.RecordSource = "Select AccountNo From Account Order By AccountNo"
  Ado_Acc.Refresh
  Set dco_Acc.RowSource = Ado_Acc
  dco_Acc.ListField = "AccountNo"
  dco_Acc.BoundColumn = "AccountNo"
  '刷新记录
  DataRefresh
End Sub
'刷新数据
Private Sub DataRefresh()
  Dim TmpSource As String
  Dim strSch As String
  
  '判断是否选中“全部”，如果没有则提取不同的查询条件
  If Check1.Value = 1 Then
    strSch = ""
  Else
    If Len(Trim(dco_Bank.Text())) > 0 Then
      strSch = " And o.BId=" + dco_Bank.BoundText()
    End If
    If Len(Trim(dco_Mem.Text())) > 0 Then
      strSch = strSch + " And o.MemId=" + dco_Mem.BoundText()
    End If
    If Len(Trim(dco_Acc.Text())) > 0 Then
      strSch = strSch + " And o.ANo='" + dco_Acc.BoundText() + "'"
    End If
  End If
  TmpSource = "Select o.Id, b.BankName AS 银行名称,m.MemName AS 交易人姓名,o.ANo AS 账号," _
     + "o.OperDate AS 交易日期,o.OperSum AS 交易金额," _
     + "IIF(o.Flag=0,'存款',IIF(o.Flag=1,'取款','清户')) AS 交易类型," _
     + "o.Smonth AS 定期月份,o.Interest AS 实际利息,o.Memos AS 说明,o.Flag " _
     + " From BankOper o,Banks b,Members m " _
     + " Where o.BId=b.BankId And o.MemId=m.MemId" + strSch _
     + " Order By o.OperDate Desc"
  Adodc1.ConnectionString = Conn
  Adodc1.RecordSource = TmpSource
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
  DataGrid1.Columns(0).Width = 0  '编号
  DataGrid1.Columns(1).Width = 2100  '银行名称
  DataGrid1.Columns(2).Width = 1000  '交易人
  DataGrid1.Columns(3).Width = 1600  '账号
  DataGrid1.Columns(4).Width = 1000  '交易日期
  DataGrid1.Columns(5).Width = 1200  '交易金额
  DataGrid1.Columns(6).Width = 1000  '交易类型
  DataGrid1.Columns(7).Width = 1200  '定期月份
  DataGrid1.Columns(8).Width = 1000  '实际利息
  DataGrid1.Columns(9).Width = 1200  '说明
  DataGrid1.Columns(10).Width = 0 'Flag
End Sub