📄 frm_main.frm
字号:
Top = 3600
Width = 1500
End
Begin VB.Label labFile
BackStyle = 0 'Transparent
Height = 375
Index = 3
Left = 720
TabIndex = 4
Top = 3135
Width = 1500
End
Begin VB.Label labFile
BackStyle = 0 'Transparent
Height = 375
Index = 2
Left = 720
TabIndex = 3
Top = 2670
Width = 1500
End
Begin VB.Label labFile
BackStyle = 0 'Transparent
Height = 375
Index = 1
Left = 720
TabIndex = 2
Top = 2205
Width = 1500
End
Begin VB.Label labFile
BackStyle = 0 'Transparent
Height = 375
Index = 0
Left = 720
TabIndex = 1
Top = 1740
Width = 1500
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Height = 1200
Index = 1
Left = 5985
TabIndex = 26
Top = 2865
Visible = 0 'False
Width = 2295
End
Begin VB.Menu file1
Caption = "【进货管理(&C)】"
Begin VB.Menu file_bill
Caption = "进货单"
Shortcut = {F2}
End
Begin VB.Menu file_stockExit
Caption = "进货退货"
Shortcut = ^{F2}
End
Begin VB.Menu ll1
Caption = "-"
End
Begin VB.Menu file_analyse
Caption = "进货分析"
Shortcut = {F9}
End
Begin VB.Menu file_stat
Caption = "进货统计（不含退货）"
End
Begin VB.Menu ll2
Caption = "-"
End
Begin VB.Menu file_CAG
Caption = "往来分析（与供应商对账）"
Shortcut = {F12}
End
End
Begin VB.Menu file2
Caption = "【销售管理(&S)】"
Begin VB.Menu file_sell
Caption = "销售单"
Shortcut = {F3}
End
Begin VB.Menu file_sellStock
Caption = "销售退货"
Shortcut = ^{F3}
End
Begin VB.Menu ll3
Caption = "-"
End
Begin VB.Menu file_sellStat
Caption = "销售统计（不含退货）"
End
Begin VB.Menu file_monthSell
Caption = "月销售状况"
Shortcut = {F8}
End
Begin VB.Menu file_sellTexis
Caption = "商品销售排行"
End
Begin VB.Menu ll4
Caption = "-"
End
Begin VB.Menu file_supply
Caption = "往来分析（与代理商对账）"
End
Begin VB.Menu file_sellCost
Caption = "商品销售成本表"
End
End
Begin VB.Menu file3
Caption = "【库存管理(&B)】"
Begin VB.Menu file_stockStatus
Caption = "库存状况"
Shortcut = {F4}
End
Begin VB.Menu ll5
Caption = "-"
End
Begin VB.Menu file_UL
Caption = "库存商品数量上限报警"
Shortcut = ^U
End
Begin VB.Menu file_FL
Caption = "库存商品数量下限报警"
End
Begin VB.Menu ll6
Caption = "-"
End
Begin VB.Menu file_buySellChange
Caption = "商品进销存变动表"
End
Begin VB.Menu file_stockCheck
Caption = "库存盘点（自动盘盈盘亏）"
End
End
Begin VB.Menu file5
Caption = "【基础数据(&J)】"
Begin VB.Menu Stock
Caption = "库存商品"
End
Begin VB.Menu w1
Caption = "-"
End
Begin VB.Menu Unit
Caption = "往来单位"
End
Begin VB.Menu w2
Caption = "-"
End
Begin VB.Menu Employee
Caption = "内部职员"
End
End
Begin VB.Menu file6
Caption = "【系统维护(&T)】"
Begin VB.Menu file_unit
Caption = "本单位信息"
End
Begin VB.Menu lp1
Caption = "-"
End
Begin VB.Menu file_op
Caption = "操作员设置"
End
Begin VB.Menu file_setSys
Caption = "操作权限设置"
Shortcut = ^Q
End
Begin VB.Menu lp2
Caption = "-"
End
Begin VB.Menu file_BR
Caption = "数据备份和数据库恢复"
Shortcut = ^B
End
Begin VB.Menu file_dataClear
Caption = "数据清理"
End
End
Begin VB.Menu file7
Caption = "【辅助功能(&F)】"
Begin VB.Menu file_interner
Caption = "登录Internet"
Shortcut = ^I
End
Begin VB.Menu l1
Caption = "-"
End
Begin VB.Menu file_word
Caption = "启动Word"
Shortcut = ^W
End
Begin VB.Menu file_Excel
Caption = "启动Excel"
Shortcut = ^E
End
Begin VB.Menu l2
Caption = "-"
End
Begin VB.Menu file_date
Caption = "日历簿"
Shortcut = ^D
End
Begin VB.Menu file_counter
Caption = "计算器"
Shortcut = ^C
End
Begin VB.Menu lq1
Caption = "-"
End
Begin VB.Menu file_CDS
Caption = "记事本"
End
Begin VB.Menu address_list
Caption = "通讯录"
Shortcut = ^T
End
End
Begin VB.Menu file8
Caption = "【系统信息(&S)】"
Begin VB.Menu file_help
Caption = "帮助信息"
Shortcut = {F1}
End
Begin VB.Menu q2
Caption = "-"
End
Begin VB.Menu file_softEdition
Caption = "系统关于"
End
Begin VB.Menu q1
Caption = "-"
End
Begin VB.Menu file_MingRiSoft
Caption = "明日互联网"
End
End
Begin VB.Menu file9
Caption = "【系统退出(&E)】"
Begin VB.Menu file_exit
Caption = "退出系统"
End
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'/////////////////////////////////////
'定义相关变量
Public billSum, UL, date1 As Integer
Public FileRecive As String
Private rs As New ADODB.Recordset
Private str As String
'声明API函数
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
Private Declare Function AnimateWindow Lib "user32" (ByVal hWnd As Long, ByVal mytime As Long, ByVal style As Long) As Boolean
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub address_list_Click()
main_fzgj_addressList.Show '窗体的 Show方法 显示指定的窗体 '使用Show方法 显示指定的窗体
End Sub
Private Sub Employee_Click()
frm_basic_employ.Show '窗体的 Show方法 显示指定的窗体 '使用Show方法 显示指定的窗体
frm_main.Enabled = False
End Sub
Private Sub file_analyse_Click()
frm_stockBillAnalyse.Show '窗体的 Show方法 显示指定的窗体 '使用Show方法 显示指定的窗体
frm_main.Enabled = False
End Sub
Private Sub file_bill_Click()
frm_stockBill.Show '窗体的 Show方法 显示指定的窗体 '使用Show方法 显示指定的窗体
frm_main.Enabled = False
End Sub
Private Sub file_BR_Click()
frm_BackRestore.Show '窗体的 Show方法 显示指定的窗体 '使用Show方法 显示指定的窗体
Me.Enabled = False
End Sub
Private Sub file_buySellChange_Click()
frm_stockChangeTb.Show '窗体的 Show方法 显示指定的窗体 '使用Show方法 显示指定的窗体
frm_main.Enabled = False
End Sub
Private Sub file_CAG_Click()
frm_unitsList.Show '窗体的 Show方法 显示指定的窗体 '使用Show方法 显示指定的窗体
frm_main.Enabled = False
End Sub
Private Sub file_CDS_Click()
main_fzgj_jsb.Show '窗体的 Show方法 显示指定的窗体 '使用Show方法 显示指定的窗体
End Sub
Private Sub file_counter_Click()
Dim ReturnValue, i
ReturnValue = Shell("Calc.EXE", 1) ' 运行计算器。'Shell调用可执行文件
AppActivate ReturnValue ' 激活计算器。
End Sub
Private Sub file_dataClear_Click()
frm_clearDB.Show '窗体的 Show方法 显示指定的窗体 '使用Show方法 显示指定的窗体
frm_main.Enabled = False
End Sub
Private Sub file_date_Click()
frm_DATE.Show '窗体的 Show方法 显示指定的窗体 '使用Show方法 显示指定的窗体
End Sub
Private Sub file_Excel_Click()
'使用API函数调用 Excel
ShellExecute Me.hWnd, "open", "excel.exe", "", 1, 5
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -