frmsysdata.frm

对家庭的开支有一个全面的了解和统计

         Top             =   960
         Width           =   975
      End
      Begin VB.TextBox txt_name 
         DataField       =   "payname_name"
         DataSource      =   "Data1"
         Height          =   375
         Left            =   -74520
         TabIndex        =   4
         Top             =   1680
         Width           =   975
      End
      Begin VB.TextBox txt_order 
         DataField       =   "payname_order"
         DataSource      =   "Data1"
         Height          =   375
         Left            =   -74520
         TabIndex        =   3
         Top             =   960
         Width           =   975
      End
      Begin VB.Label Label7 
         Caption         =   "所属大类别："
         Height          =   255
         Left            =   240
         TabIndex        =   13
         Top             =   1800
         Width           =   1095
      End
      Begin VB.Label Label6 
         Caption         =   "开支小类别名称："
         Height          =   255
         Left            =   240
         TabIndex        =   11
         Top             =   1080
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "开支编号"
         Height          =   255
         Left            =   240
         TabIndex        =   9
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label4 
         Caption         =   "开支类别名称："
         Height          =   255
         Left            =   -74760
         TabIndex        =   6
         Top             =   1440
         Width           =   1335
      End
      Begin VB.Label Label3 
         Caption         =   "开支类别编号："
         Height          =   255
         Left            =   -74760
         TabIndex        =   5
         Top             =   720
         Width           =   1335
      End
      Begin VB.Label Label2 
         Caption         =   "开支人姓名："
         Height          =   255
         Left            =   -74640
         TabIndex        =   2
         Top             =   1440
         Width           =   1095
      End
      Begin VB.Label Label1 
         Caption         =   "开支人编号："
         Height          =   255
         Left            =   -74640
         TabIndex        =   1
         Top             =   720
         Width           =   1095
      End
   End
End
Attribute VB_Name = "frmsysdata"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim namers As Recordset
Dim dkrs As Recordset
Dim xkrs As Recordset
Dim sql As String
Public Sub addpayname()
If txt_name.Text = "" Then
    MsgBox "开支人不能为空！"
    txt_name.SetFocus
    '判断开支编号是否输入数字.
ElseIf IsNumeric(Trim$(txt_name.Text)) Then
   MsgBox "开支人不能是数字!", vbOKOnly + vbExclamation, "警告"
   txt_name.SetFocus
   txt_name.Text = ""
   Exit Sub
End If

With namers
.addnew
!payname_order = Trim$(txt_order.Text)
!payname_name = Trim$(txt_name.Text)
.Update
End With
MsgBox "你已经成功地把一条新记录加到数据库中了。", vbInformation + vbOKOnly, "成功增加新记录"
txt_name.Text = ""
txt_order.Text = namers.RecordCount + 1
End Sub
Public Sub adddkind()
If txtdk_name.Text = "" Then
    MsgBox "开支大类别不能为空！"
    txtdk_name.SetFocus
    '判断开支编号是否输入数字.
ElseIf IsNumeric(Trim$(txtdk_name.Text)) Then
   MsgBox "开支大类别不能是数字!", vbOKOnly + vbExclamation, "警告"
   txtdk_name.SetFocus
   txtdk_name.Text = ""
   Exit Sub
End If

With dkrs
.addnew
!dkind_order = Trim$(txtdk_order.Text)
!dkind_name = Trim$(txtdk_name.Text)
.Update
End With
MsgBox "你已经成功地把一条新记录加到数据库中了。", vbInformation + vbOKOnly, "成功增加新记录"
txtdk_name.Text = ""
txtdk_order.Text = dkrs.RecordCount + 1
End Sub
Public Sub addxkind()

If txtxk_name.Text = "" Then
    MsgBox "开支小类别不能为空！"
    txtxk_name.SetFocus
    '判断开支编号是否输入数字.
ElseIf IsNumeric(Trim$(txtxk_name.Text)) Then
   MsgBox "开支小类别不能是数字!", vbOKOnly + vbExclamation, "警告"
   txtxk_name.SetFocus
   txtxk_name.Text = ""
   Exit Sub
End If

With xkrs
.addnew
!xkind_order = Trim$(txtxk_order.Text)
!xkind_name = Trim$(txtxk_name.Text)
!dkind_name = Trim$(cbodk_name.Text)
.Update
End With
MsgBox "你已经成功地把一条新记录加到数据库中了。", vbInformation + vbOKOnly, "成功增加新记录"
txtxk_name.Text = ""
cbodk_name.Text = ""
txtxk_order.Text = xkrs.RecordCount + 1
End Sub

Private Sub cmdadd_Click(Index As Integer)
Select Case Index
       Case 0
         Call addpayname
       Case 1
         Call adddkind
       Case 2
         Call addxkind
End Select

Set db = OpenDatabase(App.Path & "\payout.mdb")
Set namers = db.OpenRecordset("payname")
Set dkrs = db.OpenRecordset("dkind")
Set xkrs = db.OpenRecordset("xkind")

txt_order.Text = namers.RecordCount + 1
txtdk_order.Text = dkrs.RecordCount + 1
txtxk_order.Text = xkrs.RecordCount + 1
End Sub

Private Sub cmdexit_Click(Index As Integer)
frmmain.Show
Unload Me
End Sub

Private Sub Command1_Click()


End Sub

Private Sub cmdsave_Click(Index As Integer)
Select Case Index
       Case 0
          Data1.UpdateRecord
          Data1.Refresh
       Case 1
          Data2.UpdateRecord
          Data2.Refresh
       Case 2
           Data3.UpdateRecord
           Data3.Refresh
End Select
End Sub

Private Sub Form_Activate()
If Not dkrs.EOF Then
   dkrs.MoveFirst
   Do Until dkrs.EOF
       cbodk_name.AddItem Trim$(dkrs!dkind_name)
       dkrs.MoveNext
    Loop
Else
  MsgBox "数据库中没有大类别数据,请在添加!", vbOKOnly + vbInformation, "设置大开支类别"
End If
End Sub

Private Sub Form_Load()


Set db = OpenDatabase(App.Path & "\payout.mdb")
Set namers = db.OpenRecordset("payname")
Set dkrs = db.OpenRecordset("dkind")
Set xkrs = db.OpenRecordset("xkind")



txt_order.Locked = True
txtdk_order.Locked = True
txtxk_order.Locked = True


If namers.RecordCount = 0 Then
   MsgBox "开支人数据库中没有数据，请添加!", vbOKOnly + vbInformation, "提示"
   Exit Sub
End If


If dkrs.RecordCount = 0 Then
    MsgBox "开支大类别数据库中没有数据，请添加!", vbOKOnly + vbInformation, "提示"
    Exit Sub
End If

If xkrs.RecordCount = 0 Then
    MsgBox "开支小类别数据库中没有数据，请添加!", vbOKOnly + vbInformation, "提示"
    Exit Sub
End If


End Sub

Private Sub STab_GotFocus()
 Select Case TabCaption
        Case "开支人"
              MsgBox "你选择了tab1"
        Case "开支大类别"
              MsgBox "你选择了tab2"
        Case "开支小类别"
              MsgBox "你选择了tab3"
End Select
End Sub