【正文】 bled = False txt(8).Enabled = False hjje (1).Width = 4000 (1).Text = 當(dāng)前個股市價總計： amp。 hj amp。 元 trzjhjEnd SubPublic Sub js()filename = amp。 \ = filenameSet dbs = OpenDatabase(filename)Set rec = (費率)fl = Val((1)) + Val((2)) UPDATE 個股購買記錄 SET 費用 = 買入價* amp。 fl amp。 , 成本價 = 買入價+費用, 收益 = (當(dāng)前價成本價)*數(shù)量。 _ amp。 Set rec = NothingEnd Sub39。保存Private Sub save() = filenameSet rec = (個股購買記錄) If txt(0).Text = Or txt(1).Text = Or txt(4).Text = amp。 _ Or txt(5).Text = Or txt(6).Text = 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 (當(dāng)前價) = txt(5).Text (數(shù)量) = txt(6).Text (收益) = txt(7).Text (購買時間) = txt(8).Text add hjje (1).Text = 當(dāng)前個股市價總計： amp。 hj amp。 元 Else = PrimaryKey =, (, 0) (代號) = txt(0).Text (名稱) = txt(4).Text (買入價) = txt(1).Text (費用) = txt(2).Text (成本價) = txt(3).Text (當(dāng)前價) = txt(5).Text (數(shù)量) = txt(6).Text (收益) = txt(7).Text (購買時間) = txt(8).Text hjje (1).Text = 當(dāng)前個股市價總計： amp。 hj 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 = (投入資金明細(xì)) Set zj = (資金) If txt(0).Text = Or txt(1).Text = Or txt(4).Text = amp。 _ Or txt(5).Text = Or txt(6).Text = amp。 _ Or txt(8).Text = Then r = MsgBox(請選擇賣出股票，或數(shù)據(jù)不完整！, 0 + 16, 個人股票管理) Exit Sub End If If txt(0).Text = Then Exit Sub = 股票【 amp。 (, 2) 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。 \Set dbs = OpenDatabase(filename)Set reczj = (資金) (股票市值) = hj (購股金額) = gpzj (損益金額) = hj gpzj End Subl 主界面功能的部分代碼如下：Private Declare Function ShellExecute Lib Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPublic t As IntegerPrivate Sub about_Click() End SubPrivate Sub fl_Click() End SubPrivate Sub gp_Click() End SubPrivate Sub ls_Click() End SubPrivate Sub MDIForm_Load() 1, jj, 資金, , jj 2, , , tbrSeparator 3, fl, 費率, , fl 4, , , tbrSeparator 5, gg, 股票, , gg 6, , , tbrSeparator 7, ls, 歷史, , ls 8, , , tbrSeparator 9, yh, 用戶, , yh 10, , , tbrSeparator 11, gy, 關(guān)于, , gy 12, , , tbrSeparator 13, dy, 打印, , dy 14, exit, 退出, , exit = LoadPicture( amp。 \) (1).Picture = LoadPicture( amp。 \) (2).Picture = LoadPicture( amp。 \) (1).Text = 操作員： amp。 Trim(czy) (1).Width = 2000 (2).Width = 2000 (2).Text = End SubPrivate Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then popex End If End SubPrivate Sub MDIForm_Unload(Cancel As Integer) Dim strmsg As String strmsg = 確認(rèn)是否退出？ If MsgBox(strmsg, vbQuestion + vbOKCancel + vbDefaultButton1, 個人股票管理) = vbOK Then Cancel = False End Else Cancel = True End If End SubPrivate Sub sb_Click() vbModalEnd SubPrivate Sub sj_Click() vbModalEnd SubPrivate Sub Timer1_Timer() (3).Text = TimeEnd SubPrivate Sub Tlbar_ButtonClick(ByVal Button As ) Select Case Case fl Case gg Case jj Case gy vbModal Case exit Dim strmsg As String strmsg = 確認(rèn)是否退出？ If MsgBox(strmsg, vbQuestion + vbOKCancel + vbDefaultButton1, 個人股票管理) = vbOK Then Cancel = False End Else Cancel = True End If Case ls Case dy Case yh vbModal End SelectEnd SubPrivate Sub yh_Click() vbModalEnd SubPrivate Sub zj_Click() End Sub47 / 48