个人收支管理程序.doc

《个人收支管理程序.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、F1DimnAsInteger,jAsString:PublicmmAsStringPrivateSubcmdOK_Click()SelectCasetxtmima.TextCasemmForm1.Hide:Form2.ShowCaseIs<>mmi=MsgBox("密码错误，重试",16,"错误")n=n+1EndSelectIfn=3ThenUnloadForm1EndIfEndSubPrivateSubcmdNo_Click()EndEndSubPrivateSubForm_Load()IfDir("balance.past")

2、=""ThenExitSubElse:DimbAsLongOpenApp.Path&"balance.pas"ForBinaryAs#1Get#1,1,bClosemm=bEndIfEndSubF2PrivateSubcmdBill_Click()Form2.Hide:Form4.ShowEndSubPrivateSubcmdCount_Click()Form2.Hide:Form5.ShowEndSubPrivateSubcmdSet_Click()Form2.Hide:Form3.ShowEndSubPrivateSubcmdOu

3、t_Click()EndEndSubF3PrivateSubcmdAdd1_Click()DimNamInAsString,nAsInteger:NamIn=txtIn.TextIfNamIn=""ThenExitSubForn=0TolstIn.ListCount-1IfNamIn=lstIn.List(n)ThenExitSubEndIfNextlstIn.AddItemNamInNamIn=""EndSubPrivateSubcmdAdd2_Click()DimNamOutAsString,nAsInteger:NamOut=tx

4、tOut.TextIfNamOut=""ThenExitSubForn=0TolstOut.ListCount-1IfNamOut=lstOut.List(n)ThenExitSubEndIfNextlstOut.AddItemNamOutNamOut=""EndSubPrivateSubcmdChange1_Click()lstIn.List(lstIn.ListIndex)=txtIn.TextlstIn.ListIndex=-1txtIn.Text=""EndSubPrivateSubcmdChange2_Click()lstOu

5、t.List(lstOut.ListIndex)=txtOut.TextlstOut.ListIndex=-1txtOut.Text=""EndSubPrivateSubcmdClear1_Click()IflstIn.ListIndex>-1ThenlstIn.RemoveItemlstIn.ListIndextxtIn.Text=""Else:ExitSubEndIfEndSubPrivateSubcmdClear2_Click()IflstOut.ListIndex>-1ThenlstOut.RemoveItemlstOut.Li

6、stIndextxtOut.Text=""Else:ExitSubEndIfEndSubPrivateSubcmdQuit1_Click()txtIn.Text=""EndSubPrivateSubcmdQuit2_Click()txtOut.Text=""EndSubPrivateSubcmdReturn1_Click()UnloadForm3:Form2.ShowEndSubPrivateSubcmdReturn2_Click()UnloadForm3:Form2.ShowEndSubPrivateSubCommand14_Clic

7、k()txtxinmima1.Text="":txtxinmima2.Text=""EndSubPrivateSubCommand15_Click()Form2.Show:Form3.HideEndSubPrivateSubCommand13_Click()IfIsNumeric(txtxinmima1.Text)=FalseTheni=MsgBox("密码应为数字",16,"注意")ElseIfLen(txtxinmima1.Text)>8Theni=MsgBox("注意密码位数",16,"注意")ElseIfIsNumeric(tx

8、txinmima1.Text)=TrueThenIftxtxinmima2.Text=txtxinmima1.TextThenDimbAsLong:b=txtxinmima1.TextOpenApp.Pat