📄 mdiform1.frm
字号:
End
Begin VB.Menu 品质信息
Caption = "品质信息"
Begin VB.Menu 内部品质
Caption = "内部品质"
End
Begin VB.Menu 外部品质
Caption = "外部品质"
End
End
End
Begin VB.Menu 业务销售
Caption = "业务销售(&Y)"
Begin VB.Menu 周计划
Caption = "周计划"
End
Begin VB.Menu 月计划
Caption = "月计划"
End
Begin VB.Menu 客户资料
Caption = "客户资料"
End
Begin VB.Menu 市场开发
Caption = "市场开发"
End
Begin VB.Menu 出货计划
Caption = "出货计划"
End
Begin VB.Menu 开票计划
Caption = "开票计划"
End
Begin VB.Menu 回款状况
Caption = "回款状况"
End
End
Begin VB.Menu 技术开发
Caption = "技术开发(&J)"
Begin VB.Menu 文件管理
Caption = "文件管理"
Begin VB.Menu 文件更改记录
Caption = "文件更改记录"
End
Begin VB.Menu 内部规格书
Caption = "内部规格书"
End
Begin VB.Menu 外部规格书
Caption = "外部规格书"
End
Begin VB.Menu 作业指导书
Caption = "作业指导书"
End
End
Begin VB.Menu 客户技术文件
Caption = "客户技术文件"
End
Begin VB.Menu 试验报告
Caption = "试验报告"
End
Begin VB.Menu nol13
Caption = "-"
End
Begin VB.Menu 样品管理
Caption = "样品管理"
Begin VB.Menu 样品台账
Caption = "样品台账"
End
Begin VB.Menu 样品生产进度
Caption = "样品生产进度"
End
Begin VB.Menu 样品生产小组
Caption = "样品生产小组"
Begin VB.Menu 样品生产工时
Caption = "样品生产工时"
End
End
End
Begin VB.Menu nol15
Caption = "-"
End
Begin VB.Menu 新品开发
Caption = "新品开发"
Begin VB.Menu 材料开发
Caption = "材料开发"
Begin VB.Menu 新材料开发
Caption = "新材料开发"
End
Begin VB.Menu 材料试样
Caption = "材料试样"
End
End
End
Begin VB.Menu 材料消耗
Caption = "材料消耗"
End
End
Begin VB.Menu 关于
Caption = "关于(&D)"
Begin VB.Menu 作者
Caption = "作者"
End
End
End
Attribute VB_Name = "主窗体"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/05/02
'描 述：小型企业进销存源代码
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Public Sub UnloadAllForms() '关闭所有窗体
Dim oFrm As Form
For Each oFrm In Forms
Unload oFrm
Next
End Sub
Public Sub ErrorIP_click()
Frm_服务器设置.Label4.Visible = True
Frm_服务器设置.Label1.Visible = False
Frm_服务器设置.Show
End Sub
Private Sub Command1_Click()
材料消耗_Click
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Command5_Click()
员工档案_Click
End Sub
Private Sub MDIForm_Load()
Picture1.AutoSize = False
Picture1.Align = vbAlignLeft
Picture1.Width = Me.Width / 5
Picture2.AutoSize = False
Picture2.Align = vbAlignLeft
Picture2.Width = Me.Width * 6 / 4
n = GetPrivateStringValue("判断是否第一次用", "b" & _
1, App.Path + "\data\ADR.ini")
If n = 0 Then
Frm_服务器设置.Show
End If
n = WritePrivateProfileString("判断是否第一次用", "b" & 1, _
n + 1, App.Path + "\data\ADR.ini")
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
'On Error GoTo Cancel
' Do
' Unload 主窗体.ActiveForm
' Loop
'Cancel:
Call UnloadAllForms
End Sub
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
Case "纸牌"
On Error GoTo Clew1
Dim pid1 As Long
pid1 = Shell("sol.exe", vbNormalFocus)
If pid1 = 0 Then
MsgBox "纸牌打开失败!"
Exit Sub
End If
Card_Hwnd& = InstanceToWnd(pid1)
Card_OldParent& = SetParent(Card_Hwnd&, Me.hWnd)
Case "扫雷"
On Error GoTo Clew1
Dim pid As Long
pid = Shell("winmine.exe", vbNormalFocus)
If pid = 0 Then
MsgBox "扫雷打开失败!"
Exit Sub
End If
Card_Hwnd& = InstanceToWnd(pid)
Card_OldParent& = SetParent(Card_Hwnd&, Me.hWnd)
Case "空当接龙"
On Error GoTo Clew1
Dim pid2 As Long
pid2 = Shell("freecell.exe", vbNormalFocus)
If pid2 = 0 Then
MsgBox "空当接龙打开失败!"
Exit Sub
End If
Card_Hwnd& = InstanceToWnd(pid2)
Card_OldParent& = SetParent(Card_Hwnd&, Me.hWnd)
End Select
Exit Sub
Clew1:
End Sub
Private Sub 部品编号_Click()
FrmSet.Show
End Sub
Private Sub 材料出库_Click()
frmCK.Show
End Sub
Private Sub 材料进库_Click()
frmRK.Show
End Sub
Private Sub 服务器设置_Click()
当前位置.Panels(2).Text = "系统维护－服务器设置"
Frm_服务器设置.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "通讯录"
Frm_通讯录.Show
Case "退出系统"
Unload 主窗体
Case "定时关机"
HXFYN = MsgBox("您要进行定时关机吗?", 36, "信息提示")
If HXFYN = vbYes Then
Frm_定时关机.Show
Frm_定时关机.Text2.SetFocus
End If
Case "取消定时"
If a1 = True Then
HXFYN = MsgBox("您要取消定时关机吗?", 36, "信息提示")
If HXFYN = vbYes Then
'Frm_定时关机.Timer1.Enabled = False
Unload Frm_定时关机
主窗体.Text1.Visible = False
主窗体.Text2.Visible = False
End If
a1 = False
End If
Case "计算器"
On Error GoTo Clew
Dim pid As Long
' Dim buf As String
' Dim buf_len As Long
' Dim styles As Long
pid = Shell("calc.exe", vbNormalFocus)
If pid = 0 Then
MsgBox "计算器打开失败!"
Exit Sub
End If
Calc_Hwnd& = InstanceToWnd(pid)
Calc_OldParent& = SetParent(Calc_Hwnd&, Me.hWnd)
Case "办公娱乐"
Case "轻松音乐"
On Error GoTo Clew
Dim pid2 As Long
pid2 = Shell("C:\Program Files\Winamp\winamp.exe", vbNormalFocus)
If pid2 = 0 Then
MsgBox "WINAMP打开失败，请确认您的WINAMP安装在C:\Program Files目录中!"
Exit Sub
End If
Card_Hwnd& = InstanceToWnd(pid2)
Card_OldParent& = SetParent(Card_Hwnd&, Me.hWnd)
End Select
Exit Sub
Clew:
MsgBox "程序打开失败，请确认您已安装！"
Exit Sub
End Sub
Private Sub 部门_Click()
Form7.Show
End Sub
Private Sub 材料清单_Click()
当前位置.Panels(2).Text = "技术开发－材料情况－材料清单"
End Sub
Private Sub 材料消耗_Click()
On Error GoTo Err1
当前位置.Panels(2).Text = "技术开发－材料情况－材料消耗"
Picture2.Visible = False
Frm_消耗.Show
Exit Sub
Err1:
ErrorIP_click
End Sub
Private Sub 二级部门_Click()
Form8.Show
End Sub
Private Sub 工资类型_Click()
Form6.Show
End Sub
Private Sub 计算公式_Click()
工资公式.Show
End Sub
Private Sub 民族_Click()
Form2.Show
End Sub
Private Sub 退出_Click()
Unload 主窗体
End Sub
Private Sub 文化程度_Click()
Form3.Show
End Sub
Private Sub 物品进出_Click()
frmPrint.Show
End Sub
Private Sub 用户密码_Click()
当前位置.Panels(2).Text = "系统维护－用户密码"
End Sub
Private Sub 用户权限_Click()
当前位置.Panels(2).Text = "系统维护－用户权限"
End Sub
Private Sub 员工档案_Click()
On Error GoTo Err3
当前位置.Panels(2).Text = "人事管理－员工档案"
Picture2.Visible = False
Form1.Show
Exit Sub
Err3:
ErrorIP_click
End Sub
Private Sub 员工考勤_Click()
End Sub
Private Sub 职称_Click()
Form9.Show
End Sub
Private Sub 职工类型_Click()
Form5.Show
End Sub
Private Sub 职务_Click()
当前位置.Panels(2).Text = "数据初始化－职务"
Form10.Show
End Sub
Private Sub 作者_Click()
Dim i As String
i = Space(2) & "兆基企业管理1.0版" & vbCrLf & Space(3) & "作者：窦晓平" & " 南京兆基电器有限公司"
MsgBox i, vbOKOnly + vbInformation, "兆基企业管理"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -