【正文】 240, 1760 2760, 1760 = 2550 該界面是用戶使用該軟件的主要界面，能對資金進行修改，（包括資金追加，贏利和虧損統(tǒng)計），費率修改（包括手續(xù)費和印花稅率），股票（包括股票買入 主要功能是：A：記錄買入股票的代號、購買價、費用、成本價、名稱、當前價、數(shù)量、購買時間、預測收益。）e：保存 主要是為了修改做后盾的 修改完用戶所要修改的股票資料后，用戶需要保存自己所做的決定，就靠它了。H：退出 退出到主界面；股票賣出歷史記錄 這里詳細統(tǒng)計了用戶賣出股票的代號、購買價、費用、成本價、名稱、當前價、數(shù)量、購買時間、賣出時間以及收益）如圖32 圖32Private Sub about_Click()End SubPrivate Sub fl_Click() End Sub Private Sub gp_Click() End Sub Private Sub ls_Click()End SubPrivate Sub Tlbar_ButtonClick(ByVal Button As ) Select Case fl Case gg Case jj Case gy vbModal Case exit Dim strmsg As String strmsg = 確認是否退出？ If MsgBox(strmsg, vbQuestion + vbOKCancel + vbDefaultButton1, 個人股票管理) = vbOK Then Cancel = False End Else Cancel = True End If Case ls Case dy yh vbModal End Select End Sub 包括資金追加，贏利和虧損統(tǒng)計，和查看資金所剩數(shù)額。 countje trzj showzj (1).Text = 當前資金投入總額： amp。 元 = 購買股票總金額： amp。 元 = 帳戶當前損益： amp。 元 If (資金存量) = 0 Then (1).Text = 當前資金余額： amp。 元 End IfEnd Sub 主要是手續(xù)費和印花稅率，能修改和確定取消。 amp。 \ Set dbs = OpenDatabase(filename) Set rec = (費率) = (1) = (2) = False = False = 3500 = 1000End Sub主要功能是：記錄買入股票的代號、購買價、費用、成本價、名稱、當前價、數(shù)量、購買時間、預測收益。 , 成本價 = 買入價+費用, 收益 = (當前價成本價)*數(shù)量。 txt(4).Text amp。 hjje trzjhj add End If Case Exit Unload Me Case mc sale (4).Enabled = False (5).Enabled = False (6).Enabled = False (7).Enabled = FalseCase Edit xg Case zj End Select End SubPublic Sub trzjhj()filename = amp。 Else Val (txt(7).Text) 0 txt(7).ForeColor = amp。 \Set dbs = OpenDatabase(filename)Set rec = (個股購買記錄) hj = 0 gpzj = 0 Do While Not hj = hj + (當前價) * (數(shù)量) gpzj = gpzj + (買入價) * (數(shù)量) LoopEnd Sub A：增加 這里方便了多用戶使用同意軟件的功能。D：撤消 撤消上一次因為疏于考慮而做錯的決定。 amp。如圖38圖38Private Sub CmdOK_Click() Unload Me End Sub為了方便用戶對平時購買和賣出股票的管理，這里的打印為用戶提供了資金、賣出記錄，買入記錄的打印。但我相信在以后的日子里，它會慢慢變的更加全面，更加實用，希望老師能給我指出更多的不足之處，以便于我改進此系統(tǒng)，也能使我的能力得到提高。經(jīng)過這些日子的努力，個人股票管理系統(tǒng)開發(fā)完畢。 但是由于畢業(yè)設(shè)計時間較短，而且我是第一次編寫較大的應用程序，所以該系統(tǒng)還有許多不盡如人意的地方，這些都有待進一步改正。這次畢業(yè)設(shè)計點點滴滴的成功，都離不開指導老師的精心指導。他們在學業(yè)上對我的悉心指導，以及嚴謹細致的科研態(tài)度，更令我受益終身。l 登陸功能的部分代碼如下：Public dbs As DatabasePublic rec As RecordsetPublic czy As StringPublic filename As StringPrivate Sub chkmm_Click() If = 1 Then = 3550 = True = True = True = True 240, 2800 2760, 2800 Else = False = False = False = False 240, 1760 2760, 1760 = 2550End IfEnd SubPrivate Sub cmbname_Change() r = MsgBox(非法用戶,拒絕操作！, 0 + 16, 個人股票管理) EndEnd SubPrivate Sub Cmd_Click() = TrueEnd SubPrivate Sub CmdOK_Click()czy = filename = amp。 amp。 txt(4).Text amp。 set 數(shù)量= 數(shù)量 amp。 (, 0) amp。 (, 0) amp。HFFamp。 \Set dbs = OpenDatabase(filename)Set reczj = (資金) (股票市值) = hj (購股金額) = gpzj (損益金額) = hj gpzj End SubPrivate Sub hjje()filename = amp。 元 trzjhjEnd SubPublic Sub js()filename = amp。 _ amp。 _ Or txt(8).Text = Then r = MsgBox(數(shù)據(jù)不全，保存非法, 0 + 16, 個人股票管理) Exit Sub End If If xg = False Then (代號) = txt(0).Text (名稱) = txt(4).Text (買入價) = txt(1).Text (費用) = txt(2).Text (成本價) = txt(3).Text (當前價) = txt(5).Text (數(shù)量) = txt(6).Text (收益) = txt(7).Text (購買時間) = txt(8).Text add hjje (1).Text = 當前個股市價總計： amp。 元 End IfEnd SubPrivate Sub xg1() xg = True txt(0).Enabled = True txt(1).Enabled = True txt(2).Enabled = True txt(4).Enabled = True txt(3).Enabled = True txt(5).Enabled = True txt(6).Enabled = True txt(7).Enabled = True txt(8).Enabled = TrueEnd SubPrivate Sub sale() Set reczj = (投入資金明細) Set zj = (資金) If txt(0).Text = Or txt(1).Text = Or txt(4).Text = amp。 】資料，請輸入你要賣的數(shù)量？ (0).Text = (, 1) (1).Text = (, 3) (2).Text = (, 4) (3).Text = (, 5) (4).Text = (, 2) (5).Text = (, 6) (8).Text = Date (0).Enabled = False (1).Enabled = False (2).Enabled = False (3).Enabled = False (4).Enabled = False (5).Enabled = False (8).Enabled = False End SubPublic Sub trzjhj()filename = amp。 \) (1).Text = 操作員： amp。 \) (1).Picture = LoadPicture( amp。 _ Or txt(8).Text = Then r = MsgBox(請選擇賣出股票，或數(shù)據(jù)不完整！, 0 + 16, 個人股票管理) Exit Sub End If If txt(0).Text = Then Exit Sub = 股票【 amp。 元 Else = PrimaryKey =, (, 0) (代號) = txt(0).Text (名稱) = txt(4).Te