个人收支管理程序.docxVIP

F1 Dim n As Integer, j As String: Public mm As String Private Sub cmdOK_Click() Select Case txtmima.Text Case mm Form1.Hide: Form2.Show Case Is mmi = MsgBox(密码错误，重试, 16, 错误) n = n + 1 End Select If n = 3 Then Unload Form1 End IfEnd SubPrivate Sub cmdNo_Click() End End SubPrivate Sub Form_Load() If Dir(\balance.past) = Then Exit Sub Else: Dim b As Long Open App.Path \balance.pas For Binary As #1 Get #1, 1, b Close mm = b End IfEnd SubF2Private Sub cmdBill_Click()Form2.Hide: Form4.ShowEnd SubPrivate Sub cmdCount_Click()Form2.Hide: Form5.ShowEnd SubPrivate Sub cmdSet_Click()Form2.Hide: Form3.ShowEnd SubPrivate Sub cmdOut_Click()EndEnd SubF3Private Sub cmdAdd1_Click()Dim NamIn As String, n As Integer: NamIn = txtIn.Text If NamIn = Then Exit Sub For n = 0 To lstIn.ListCount - 1 If NamIn = lstIn.List(n) Then Exit Sub End If NextlstIn.AddItemNamInNamIn = End SubPrivate Sub cmdAdd2_Click()Dim NamOut As String, n As Integer: NamOut = txtOut.Text If NamOut = Then Exit Sub For n = 0 To lstOut.ListCount - 1 If NamOut = lstOut.List(n) Then Exit Sub End If NextlstOut.AddItemNamOutNamOut = End SubPrivate Sub cmdChange1_Click()lstIn.List(lstIn.ListIndex) = txtIn.TextlstIn.ListIndex = -1txtIn.Text = End SubPrivate Sub cmdChange2_Click()lstOut.List(lstOut.ListIndex) = txtOut.TextlstOut.ListIndex = -1txtOut.Text = End SubPrivate Sub cmdClear1_Click()If lstIn.ListIndex -1 ThenlstIn.RemoveItemlstIn.ListIndextxtIn.Text = Else: Exit SubEnd IfEnd SubPrivate Sub cmdClear2_Click()If lstOut.ListIndex -1 ThenlstOut.RemoveItemlstOut.ListIndextxtOut.Text = Else: Exit SubEnd IfEnd SubPrivate Sub cmdQuit1_Click()txtIn.Text = End SubPrivate Sub cmdQuit2_Click()txtOut.Text = End SubPrivate Sub cmdReturn1_Click()Unload Form3: Form2.ShowEnd SubPrivate Sub cmdReturn2_Click()Unload Form3: Form2.ShowEnd SubPrivate Sub Command14_Click()txtxinmima1.Text = : txtxinmima2.Text = End SubPrivate Sub Command15_Click()Form2.Show: Form3.HideEnd SubPr