📄 主窗体.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.MDIForm Main
BackColor = &H8000000C&
Caption = " 图 书 管 理 系 统 [ 课 程 设 计 ]"
ClientHeight = 4920
ClientLeft = 165
ClientTop = 450
ClientWidth = 6840
Icon = "主窗体.frx":0000
LinkTopic = "MDIForm1"
Picture = "主窗体.frx":058A
StartUpPosition = 1 '所有者中心
WindowState = 2 'Maximized
Begin MSAdodcLib.Adodc Adodc1
Align = 1 'Align Top
Height = 330
Left = 0
Top = 420
Visible = 0 'False
Width = 6840
_ExtentX = 12065
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Bookdate;Data Source=127.0.0.1"
OLEDBString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Bookdate;Data Source=127.0.0.1"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = "sa"
Password = ""
RecordSource = "Manage_User"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 1
Top = 0
Width = 6840
_ExtentX = 12065
_ExtentY = 741
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 2
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "key1"
Object.ToolTipText = "切换用户"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "key2"
Object.ToolTipText = "修改用户"
ImageIndex = 2
EndProperty
EndProperty
End
Begin VB.Timer Timer1
Interval = 1000
Left = 2880
Top = 3720
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 4545
Width = 6840
_ExtentX = 12065
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 4939
MinWidth = 4939
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 1440
Top = 2160
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":A736
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":C738
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu sysweihu
Caption = "&S.系统维护"
Begin VB.Menu QieHuanYongHu
Caption = "&O.切换用户"
Shortcut = ^O
End
Begin VB.Menu XiuGaiMiMa
Caption = "&M.修改密码"
Shortcut = ^M
End
Begin VB.Menu Insertuser
Caption = "&U.添加用户"
Shortcut = ^U
End
Begin VB.Menu XiuGaiYongHu
Caption = "&D.修改用户"
Shortcut = ^D
End
Begin VB.Menu FenGe1
Caption = "-"
End
Begin VB.Menu Exit
Caption = "&X.退 出"
Shortcut = ^X
End
End
Begin VB.Menu GuanLi
Caption = "&G.管理"
Begin VB.Menu ShiShiTongJi
Caption = "&L.实时统计 "
End
Begin VB.Menu FenGe2
Caption = "-"
End
Begin VB.Menu GongHuoDengJi
Caption = "&Z.进货登记"
End
Begin VB.Menu XiaoShouDengJi
Caption = "&S.销售登记"
End
End
Begin VB.Menu XinXiLuRu
Caption = "&I.信息录入"
Begin VB.Menu KeHuInfo
Caption = "&K.客户信息"
End
Begin VB.Menu GongHuoShangInfo
Caption = "&G.供货商信息"
End
Begin VB.Menu BookInfo
Caption = "&B.图书基本信息"
End
Begin VB.Menu EmpInfo
Caption = "&E.员工基本信息"
End
End
Begin VB.Menu Find
Caption = "&F.查找"
Begin VB.Menu TypeEmployee
Caption = "&E.查看员工信息"
End
Begin VB.Menu TypeBook
Caption = "&B.查看图书信息"
End
Begin VB.Menu TypeJinHuo
Caption = "&J.查看进货信息"
End
Begin VB.Menu TypeXiaoShou
Caption = "&X.查看销售信息"
End
Begin VB.Menu TypeKuCun
Caption = "&K.查看库存信息"
End
Begin VB.Menu TypeKeHu
Caption = "&H.查看客户信息"
End
Begin VB.Menu TypeGongHuoShang
Caption = "&G.查看供货商信息"
End
End
Begin VB.Menu Tool
Caption = "&T.实用工具"
Begin VB.Menu JiSuanQi
Caption = "&J.计算器"
Shortcut = ^J
End
Begin VB.Menu JiShiBen
Caption = "&R.记事本"
Shortcut = ^R
End
End
Begin VB.Menu Help
Caption = "&H.帮助"
Begin VB.Menu SysHelp
Caption = "&H.系统帮助"
End
Begin VB.Menu FenGe3
Caption = "-"
End
Begin VB.Menu GuanYu
Caption = "&A.关于本软件"
End
End
End
Attribute VB_Name = "Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub BookInfo_Click()
frmBookXinXi.Show
End Sub
Private Sub EmpInfo_Click()
frmEmployee.Show
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub GongHuoDengJi_Click()
frmJinHuo.Show
End Sub
Private Sub GongHuoShangInfo_Click()
FrmGongHuoShang.Show
End Sub
Private Sub GuanYu_Click()
frmGuanYu.Show
End Sub
Private Sub Insertuser_Click()
frmlogin.frameDengLu.Visible = False
frmlogin.frameXinJian.Visible = True
frmlogin.CmdExit.Visible = False
frmlogin.CmdOk.Visible = False
frmlogin.Caption = "添加用户"
frmlogin.Show
frmlogin.Height = 2835
End Sub
Private Sub JiShiBen_Click()
Shell "notepad.exe"
End Sub
Private Sub JiSuanQi_Click()
Shell "calc.exe"
End Sub
Private Sub KeHuInfo_Click()
frmKeHu.Show
End Sub
Private Sub MDIForm_Load()
Dim s$
With Adodc1
.CommandType = adCmdText
.RecordSource = "select emp_name from manage_user where username='" + user + "'"
.Refresh
End With
s = Adodc1.Recordset.Fields("emp_name")
StatusBar1.Panels.Item(1).Text = "用户名：" & s
StatusBar1.Panels.Item(2).Text = "版本信息：1.00"
End Sub
Private Sub QieHuanYongHu_Click()
frmlogin.Caption = "切换用户"
frmQieHuan.Show
End Sub
Private Sub ShiShiTongJi_Click()
frmShiShi.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "key1"
QieHuanYongHu_Click
Case "key2"
Insertuser_Click
End Select
End Sub
Private Sub TypeBook_Click()
frmFindBook.Show
End Sub
Private Sub TypeEmployee_Click()
frmFindEmployee.Show
End Sub
Private Sub Timer1_Timer()
StatusBar1.Panels.Item(3).Text = "系统时间：" & Now()
End Sub
Private Sub TypeGongHuoShang_Click()
frmFindGonghuoshang.Show
End Sub
Private Sub TypeJinHuo_Click()
frmFindJinHuo.Show
End Sub
Private Sub TypeKeHu_Click()
frmFindKeHu.Show
End Sub
Private Sub TypeKuCun_Click()
FrmFindKuCun.Show
End Sub
Private Sub TypeXiaoShou_Click()
frmFindXiaoShou.Show
End Sub
Private Sub XiaoShouDengJi_Click()
frmXiaoShou.Show
End Sub
Private Sub XiuGaiMiMa_Click()
frmXiuGaiMiMa.Show
End Sub
Private Sub XiuGaiYongHu_Click()
frmXiuGaiUser.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -