📄 jm.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm jm
Appearance = 0 'Flat
AutoShowChildren= 0 'False
BackColor = &H8000000C&
Caption = "个人股票管理系统"
ClientHeight = 5970
ClientLeft = 2745
ClientTop = 1410
ClientWidth = 10065
Icon = "jm.frx":0000
NegotiateToolbars= 0 'False
ScrollBars = 0 'False
WindowState = 2 'Maximized
Begin VB.Timer Timer1
Interval = 1000
Left = 3000
Top = 2040
End
Begin ComctlLib.StatusBar sbrDB
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 0
Top = 5475
Width = 10065
_ExtentX = 17754
_ExtentY = 873
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 1
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
TextSave = ""
Key = ""
Object.Tag = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImList
Left = 1920
Top = 840
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 22
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":0442
Key = "cx"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":0986
Key = "yh"
Object.Tag = "yh"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":0CA2
Key = "ls"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":10F6
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":1412
Key = "fl"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":1866
Key = "gg"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":1CBA
Key = "jj"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":1FD6
Key = "sr"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":20EA
Key = "Del"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":21FE
Key = "sr1"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":2312
Key = "Save"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":2426
Key = "exit"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":253A
Key = "yf"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":298E
Key = "dy"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":2DE2
Key = "xs"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":3236
Key = "xb"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":368A
Key = "hlp"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":3ADE
Key = "gy"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":3F32
Key = ""
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":4386
Key = "js"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":47DA
Key = "ys"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "jm.frx":4B2E
Key = "Delline"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Tlbar
Align = 1 'Align Top
Height = 525
Left = 0
TabIndex = 1
Top = 0
Width = 10065
_ExtentX = 17754
_ExtentY = 926
ButtonWidth = 609
ButtonHeight = 926
AllowCustomize = 0 'False
Wrappable = 0 'False
Style = 1
ImageList = "ImList"
_Version = 393216
End
Begin VB.Menu popex
Caption = "pop1"
Visible = 0 'False
Begin VB.Menu fl
Caption = "费率"
End
Begin VB.Menu k
Caption = "-"
End
Begin VB.Menu zj
Caption = "资金"
End
Begin VB.Menu g
Caption = "-"
End
Begin VB.Menu gp
Caption = "股票管理"
End
Begin VB.Menu i
Caption = "-"
End
Begin VB.Menu ls
Caption = "历史"
End
Begin VB.Menu fg
Caption = "-"
End
Begin VB.Menu yh
Caption = "用户"
End
End
End
Attribute VB_Name = "jm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
'Download by http://www.codefans.net
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" 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 Long
Public t As Integer
Private Sub about_Click()
frmAbout.Show
End Sub
Private Sub fl_Click()
frmfl.Show
End Sub
Private Sub gp_Click()
frmgu.Show
End Sub
Private Sub ls_Click()
frmls.Show
End Sub
Private Sub MDIForm_Load()
sbrDB.Panels.add
sbrDB.Panels.add
Tlbar.Buttons.add 1, "jj", "资金", , "jj"
Tlbar.Buttons.add 2, , , tbrSeparator
Tlbar.Buttons.add 3, "fl", "费率", , "fl"
Tlbar.Buttons.add 4, , , tbrSeparator
Tlbar.Buttons.add 5, "gg", "股票", , "gg"
Tlbar.Buttons.add 6, , , tbrSeparator
Tlbar.Buttons.add 7, "ls", "历史", , "ls"
Tlbar.Buttons.add 8, , , tbrSeparator
Tlbar.Buttons.add 9, "yh", "用户", , "yh"
Tlbar.Buttons.add 10, , , tbrSeparator
Tlbar.Buttons.add 11, "gy", "关于", , "gy"
Tlbar.Buttons.add 12, , , tbrSeparator
Tlbar.Buttons.add 13, "exit", "关闭", , "exit"
jm.Picture = LoadPicture(App.Path & "\gp1.jpg")
sbrDB.Panels(1).Picture = LoadPicture(App.Path & "\Emply.ico")
sbrDB.Panels(2).Picture = LoadPicture(App.Path & "\Clock01.ico")
sbrDB.Panels(1).Text = "操作员：" & Trim(czy)
sbrDB.Panels(1).Width = 2000
sbrDB.Panels(2).Width = 2000
sbrDB.Panels(2).Text = zcform.sj.Text
End Sub
Private Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = vbRightButton Then
jm.PopupMenu popex
End If
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
Dim strmsg As String
strmsg = "确认是否退出？"
If MsgBox(strmsg, vbQuestion + vbOKCancel + vbDefaultButton1, "个人股票管理") = vbOK Then
Cancel = False
End
Else
Cancel = True
End If
End Sub
Private Sub sb_Click()
email.Show vbModal
End Sub
Private Sub sj_Click()
frmsj.Show vbModal
End Sub
Private Sub Timer1_Timer()
sbrDB.Panels(3).Text = Time
End Sub
Private Sub Tlbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "fl"
frmfl.Show
Case "gg"
frmgu.Show
Case "jj"
frmzj.Show
Case "gy"
frmAbout.Show 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"
frmls.Show
Case "yh"
user.Show vbModal
End Select
End Sub
Private Sub yh_Click()
user.Show vbModal
End Sub
Private Sub zj_Click()
frmzj.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -