📄 主程序.frm
字号:
Begin VB.Menu E21
Caption = "糖茶饮料部"
End
Begin VB.Menu E22
Caption = "文教用品部"
End
Begin VB.Menu E23
Caption = "家用电器部"
End
Begin VB.Menu E24
Caption = "服装部"
End
Begin VB.Menu E25
Caption = "鞋帽部"
End
Begin VB.Menu E26
Caption = "食品部"
End
End
End
Begin VB.Menu C
Caption = "浏览(&L)"
Begin VB.Menu C1
Caption = "各部浏览"
End
Begin VB.Menu C2
Caption = "分庭浏览"
Begin VB.Menu C21
Caption = "糖茶饮料部"
End
Begin VB.Menu C22
Caption = "文教用品部"
End
Begin VB.Menu C23
Caption = "家用电器部"
End
Begin VB.Menu C24
Caption = "服装部"
End
Begin VB.Menu C25
Caption = "鞋帽部"
End
Begin VB.Menu C26
Caption = "食品部"
End
End
End
Begin VB.Menu S
Caption = "删除(&S)"
Begin VB.Menu S1
Caption = "各部删除"
End
Begin VB.Menu S2
Caption = "分庭删除"
Begin VB.Menu S21
Caption = "糖茶饮料部"
End
Begin VB.Menu S22
Caption = "文教用品部"
End
Begin VB.Menu S23
Caption = "家用电器部"
End
Begin VB.Menu S24
Caption = "服装部"
End
Begin VB.Menu S25
Caption = "鞋帽部"
End
Begin VB.Menu S26
Caption = "食品部"
End
End
End
Begin VB.Menu Tj
Caption = "各部统计(&T)"
End
Begin VB.Menu Total
Caption = "年度合计(&N)"
End
End
Attribute VB_Name = "主程序"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal X As Long, ByVal hWndInsterAfter As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_SHOWWINDOW = &H40
' SetWindowLong 函数声明
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
' GetWindowLong 函数声明
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
' 上两个函数使用到的常量
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Public Ss As Integer, Result As Integer
Dim hWndl As Long
Public FileName As String, LabelName As String
Private Sub MDIForm_Load()
Dim Q As String
Dim W As Long
Q = Me.hwnd
W = 0
Disabled Q, W
hWndl = FindWindow("Shell_traywnd", "")
W = GetWindowLong(Me.hwnd, GWL_STYLE)
W = W And Not (WS_MINIMIZEBOX)
W = W And Not (WS_MAXIMIZEBOX)
W = SetWindowLong(Me.hwnd, GWL_STYLE, W)
Me.Left = 0: Me.Top = 0
Me.Height = 8650: Me.Width = 12100
End Sub
Private Sub A11_Click()
密码修改.Show
End Sub
Private Sub A12_Click()
Call FileSave
End Sub
Private Sub A13_Click()
Call SetWindowPos(hWndl, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
Open App.Path + "\" + "Screen.txt" For Input As #1
Input #1, apiRECT.Right
Close #1
If apiRECT.Right = 1024 Then
SetDisplayMode 1024, 768, 16
End If
If apiRECT.Right = 800 Then
SetDisplayMode 800, 600, 16
End If
If apiRECT.Right = 640 Then
SetDisplayMode 640, 480, 16
End If
Unload Me
End
End Sub
Private Sub In1_Click()
各部录入.Show
End Sub
Private Sub In21_Click()
FileName = "糖茶饮料部": LabelName = "糖 茶 饮 料 部 录 入"
分部录入.Show
End Sub
Private Sub In22_Click()
FileName = "文件用品部": LabelName = "文 教 用 品 部 录 入"
分部录入.Show
End Sub
Private Sub In23_Click()
FileName = "家用电器部": LabelName = "家 用 电 器 部 录 入"
分部录入.Show
End Sub
Private Sub In24_Click()
FileName = "服装部": LabelName = " 服 装 部 录 入"
分部录入.Show
End Sub
Private Sub In25_Click()
FileName = "鞋帽部": LabelName = " 鞋 帽 部 录 入"
分部录入.Show
End Sub
Private Sub In26_Click()
FileName = "食品部": LabelName = " 食 品 部 录 入"
分部录入.Show
End Sub
Private Sub E1_Click()
各部修改.Show
End Sub
Private Sub E21_Click()
FileName = "糖茶饮料部": LabelName = "糖 茶 饮 料 部 修 改"
分部修改.Show
End Sub
Private Sub E22_Click()
FileName = "文件用品部": LabelName = "文 教 用 品 部 修 改"
分部修改.Show
End Sub
Private Sub E23_Click()
FileName = "家用电器部": LabelName = "家 用 电 器 部 修 改"
分部修改.Show
End Sub
Private Sub E24_Click()
FileName = "服装部": LabelName = " 服 装 部 修 改 "
分部修改.Show
End Sub
Private Sub E25_Click()
FileName = "鞋帽部": LabelName = " 鞋 帽 部 修 改 "
分部修改.Show
End Sub
Private Sub E26_Click()
FileName = "食品部": LabelName = " 食 品 部 修 改 "
分部修改.Show
End Sub
Private Sub C1_Click()
各部浏览.Show
End Sub
Private Sub C21_Click()
FileName = "糖茶饮料部": LabelName = "糖 茶 饮 料 部 浏 览"
分部浏览.Show
End Sub
Private Sub C22_Click()
FileName = "文件用品部": LabelName = "文 教 用 品 部 浏 览"
分部浏览.Show
End Sub
Private Sub C23_Click()
FileName = "家用电器部": LabelName = "家 用 电 器 部 浏 览"
分部浏览.Show
End Sub
Private Sub C24_Click()
FileName = "服装部": LabelName = " 服 装 部 浏 览 "
分部浏览.Show
End Sub
Private Sub C25_Click()
FileName = "鞋帽部": LabelName = " 鞋 帽 部 浏 览 "
分部浏览.Show
End Sub
Private Sub C26_Click()
FileName = "食品部": LabelName = " 食 品 部 浏 览 "
分部浏览.Show
End Sub
Private Sub S1_Click()
SaveQuestion
各部删除.Show
End Sub
Private Sub S21_Click()
SaveQuestion
FileName = "糖茶饮料部": LabelName = "糖 茶 饮 料 部 删 除"
分部删除.Show
End Sub
Private Sub S22_Click()
SaveQuestion
FileName = "文件用品部": LabelName = "文 教 用 品 部 删 除"
分部删除.Show
End Sub
Private Sub S23_Click()
SaveQuestion
FileName = "家用电器部": LabelName = "家 用 电 器 部 删 除"
分部删除.Show
End Sub
Private Sub S24_Click()
SaveQuestion
FileName = "服装部": LabelName = " 服 装 部 删 除 "
分部删除.Show
End Sub
Private Sub S25_Click()
SaveQuestion
FileName = "鞋帽部": LabelName = " 鞋 帽 部 删 除 "
分部删除.Show
End Sub
Private Sub S26_Click()
SaveQuestion
FileName = "食品部": LabelName = " 食 品 部 删 除 "
分部删除.Show
End Sub
Private Sub Tj_Click()
年度选择.Show
End Sub
Private Sub Total_Click()
Ss = 1
年度选择.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "A11"
密码修改.Show
Case "A12"
Call FileSave
Case "A13"
Call SetWindowPos(hWndl, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
Unload Me
End
Case "Tj"
年度选择.Show
Case "Total"
Ss = 1
年度选择.Show
End Select
End Sub
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
Case "I1"
各部录入.Show
Case "I21"
FileName = "糖茶饮料部": LabelName = "糖 茶 饮 料 部 录 入"
分部录入.Show
Case "I22"
FileName = "文件用品部": LabelName = "文 教 用 品 部 录 入"
分部录入.Show
Case "I23"
FileName = "家用电器部": LabelName = "家 用 电 器 部 录 入"
分部录入.Show
Case "I24"
FileName = "服装部": LabelName = " 服 装 部 录 入 "
分部录入.Show
Case "I25"
FileName = "鞋帽部": LabelName = " 鞋 帽 部 录 入 "
分部录入.Show
Case "I26"
FileName = "食品部": LabelName = " 食 品 部 录 入 "
分部录入.Show
Case "E1"
各部修改.Show
Case "E21"
FileName = "糖茶饮料部": LabelName = "糖 茶 饮 料 部 修 改"
分部修改.Show
Case "E22"
FileName = "文件用品部": LabelName = "文 教 用 品 部 修 改"
分部修改.Show
Case "E23"
FileName = "家用电器部": LabelName = "家 用 电 器 部 修 改"
分部修改.Show
Case "E24"
FileName = "服装部": LabelName = " 服 装 部 修 改 "
分部修改.Show
Case "E25"
FileName = "鞋帽部": LabelName = " 鞋 帽 部 修 改 "
分部修改.Show
Case "E26"
FileName = "食品部": LabelName = " 食 品 部 修 改 "
分部修改.Show
Case "C1"
各部浏览.Show
Case "C21"
FileName = "糖茶饮料部": LabelName = "糖 茶 饮 料 部 浏 览"
分部浏览.Show
Case "C22"
FileName = "文件用品部": LabelName = "文 教 用 品 部 浏 览"
分部浏览.Show
Case "C23"
FileName = "家用电器部": LabelName = "家 用 电 器 部 浏 览"
分部浏览.Show
Case "C24"
FileName = "服装部": LabelName = " 服 装 部 浏 览 "
分部浏览.Show
Case "C25"
FileName = "鞋帽部": LabelName = " 鞋 帽 部 浏 览 "
分部浏览.Show
Case "C26"
FileName = "食品部": LabelName = " 食 品 部 浏 览 "
分部浏览.Show
Case "S1"
SaveQuestion
各部删除.Show
Case "S21"
SaveQuestion
FileName = "糖茶饮料部": LabelName = "糖 茶 饮 料 部 删 除"
分部删除.Show
Case "S22"
SaveQuestion
FileName = "文件用品部": LabelName = "文 教 用 品 部 删 除"
分部删除.Show
Case "S23"
SaveQuestion
FileName = "家用电器部": LabelName = "家 用 电 器 部 删 除"
分部删除.Show
Case "S24"
SaveQuestion
FileName = "服装部": LabelName = " 服 装 部 删 除 "
分部删除.Show
Case "S25"
SaveQuestion
FileName = "鞋帽部": LabelName = " 鞋 帽 部 删 除 "
分部删除.Show
Case "S26"
SaveQuestion
FileName = "食品部": LabelName = " 食 品 部 删 除 "
分部删除.Show
End Select
End Sub
Private Sub SaveQuestion()
Result = MsgBox(" 是否保存文件 ？ ", vbOKCancel + vbQuestion)
If Result = 1 Then
FileSave
End If
End Sub
Private Sub FileSave()
Dim FileName1 As String, FileName2 As String
On Error GoTo A1
CommonDialog1.Filter = "*.mdb|*.mdb"
FileName1 = App.Path + "\db1.mdb"
CommonDialog1.ShowSave
FileName2 = CommonDialog1.FileName
FileCopy FileName1, FileName2
A1:
Exit Sub
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -