mdistart.frm

一套VB完整的灯具销售管理系统设计

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm MDIStart 
   BackColor       =   &H00404080&
   ClientHeight    =   3480
   ClientLeft      =   165
   ClientTop       =   720
   ClientWidth     =   6450
   Icon            =   "MDIStart.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin ComctlLib.StatusBar StatusBar 
      Align           =   2  'Align Bottom
      Height          =   330
      Left            =   0
      TabIndex        =   0
      Top             =   3150
      Width           =   6450
      _ExtentX        =   11377
      _ExtentY        =   582
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   4
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            Object.Width           =   4480
            MinWidth        =   4480
            Picture         =   "MDIStart.frx":0442
            Text            =   "作者：〖VB中国 俞思龙〗"
            TextSave        =   "作者：〖VB中国 俞思龙〗"
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "作者声明"
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            Object.Width           =   6422
            MinWidth        =   6422
            Picture         =   "MDIStart.frx":075C
            Text            =   "温州东化计算机科技有限公司"
            TextSave        =   "温州东化计算机科技有限公司"
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "研制公司"
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            Object.Width           =   3245
            MinWidth        =   3245
            TextSave        =   ""
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "系统操作员"
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "当前日期"
         EndProperty
      EndProperty
      MousePointer    =   99
      MouseIcon       =   "MDIStart.frx":0A76
   End
   Begin VB.Menu aa 
      Caption         =   "销售处(&K)"
      Begin VB.Menu menuxiaoshou 
         Caption         =   "开发票"
      End
      Begin VB.Menu fgs 
         Caption         =   "-"
      End
      Begin VB.Menu MenuClearFP 
         Caption         =   "毁发票"
      End
   End
   Begin VB.Menu fg 
      Caption         =   "物资处(&W)"
      Begin VB.Menu MenuJH 
         Caption         =   "进货管理"
      End
      Begin VB.Menu MenuKC 
         Caption         =   "库存管理"
      End
      Begin VB.Menu sd 
         Caption         =   "-"
      End
      Begin VB.Menu MenuBrowser 
         Caption         =   "进货浏览"
      End
   End
   Begin VB.Menu bb 
      Caption         =   "统计处(&T)"
      Begin VB.Menu menuTjzijin 
         Caption         =   "统计资金"
      End
      Begin VB.Menu ggg 
         Caption         =   "-"
      End
      Begin VB.Menu MenuTjxiaoshou 
         Caption         =   "统计销售"
      End
   End
   Begin VB.Menu cc 
      Caption         =   "查询处(&V)"
      Begin VB.Menu menuFPsys 
         Caption         =   "所有发票查询"
      End
      Begin VB.Menu fff 
         Caption         =   "-"
      End
      Begin VB.Menu menuGuestsys 
         Caption         =   "客户发票查询"
      End
   End
   Begin VB.Menu dd 
      Caption         =   "配置处(&P)"
      Begin VB.Menu menucp 
         Caption         =   "产品管理"
      End
      Begin VB.Menu eee 
         Caption         =   "-"
      End
      Begin VB.Menu menuguest 
         Caption         =   "客户管理"
      End
      Begin VB.Menu ccc 
         Caption         =   "-"
      End
      Begin VB.Menu menujsr 
         Caption         =   "经手人管理"
      End
   End
   Begin VB.Menu ee 
      Caption         =   "系统处(&S)"
      Begin VB.Menu menuhelp 
         Caption         =   "帮助"
      End
      Begin VB.Menu menuabout 
         Caption         =   "关于"
      End
      Begin VB.Menu bbb 
         Caption         =   "-"
      End
      Begin VB.Menu menuexit 
         Caption         =   "退出(&X)"
      End
      Begin VB.Menu aaa 
         Caption         =   "-"
      End
      Begin VB.Menu menutools 
         Caption         =   "工具栏"
      End
   End
End
Attribute VB_Name = "MDIStart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub MdiForm_Load()
'标题加版本说明
MDIStart.Caption = "****公司销售系统（V" & App.Major & "." & App.Minor & "）"
    '安装工具栏
    MDIStart.MousePointer = 11
    Load tools
    MDIStart.MousePointer = 0
    '显示工具栏，使工具菜单为选择
    menutools.Checked = True
    tools.Show
'工具栏显示内容
StatusBar.Panels.Item(3) = "操作员：" & Manager
StatusBar.Panels.Item(4) = Date
'临时图片文件路径
'deskpicture = Browser & "bmp\desktop.jpg"
'deskpicture = "e:\yusilong\dj\bmp\desk.jpg"
MDIStart.Picture = LoadPicture(deskpicture)
'设定查找客户发票为 False
 FindGuest = False
 JhJsr = False
End Sub



Private Sub mdiForm_Unload(Cancel As Integer)
Dim Tc As Integer
  Tc = MsgBox("真的退出系统吗（Y/N）？", 4 + 32, "退出系统")
  If Tc = 6 Then
   '如果工具栏在的话，退出工具栏，再关闭!
     If menutools.Checked = True Then Unload tools
   '如果帮助在的话，一同退出!
     Unload help
   '退出语句
     Cancel = 0
     Else
  '返回语句
     Cancel = -1
     If menutools.Checked = True Then tools.Show
     Exit Sub
     End If
End Sub

Private Sub menuabout_Click()
MDIStart.MousePointer = 11
Load authwore
MDIStart.MousePointer = 0
authwore.Show 1
End Sub

Private Sub MenuBrowser_Click()
MDIStart.MousePointer = 11
Load FindJH
MDIStart.MousePointer = 0
FindJH.Show 1
End Sub

Private Sub MenuClearFP_Click()
MDIStart.MousePointer = 11
Load ClearForm
MDIStart.MousePointer = 0
ClearForm.Show 1
End Sub

Private Sub menucp_Click()
MDIStart.MousePointer = 11
Load cpform
MDIStart.MousePointer = 0
cpform.Show 1
End Sub

Private Sub menuexit_Click()
Unload Me
End Sub

Private Sub menuFPsys_Click()
MDIStart.MousePointer = 11
Load FpFind
MDIStart.MousePointer = 0
FpFind.Show 1
End Sub

Private Sub menuguest_Click()
FindGuest = False
MDIStart.MousePointer = 11
Load guest
MDIStart.MousePointer = 0
guest.Show 1
End Sub

Private Sub menuGuestsys_Click()
FindGuest = True
MDIStart.MousePointer = 11
Load GuestGHuo
MDIStart.MousePointer = 0
GuestGHuo.Show 1
End Sub

Private Sub menuhelp_Click()
Target = Browser & "help\srrq.htm"
'临时帮助文件路径
'Target = "c:\dj\help\srrq.htm"
MDIStart.MousePointer = 11
Load help
MDIStart.MousePointer = 0
help.Show

End Sub

Private Sub MenuJH_Click()
MDIStart.MousePointer = 11
Load JHForm
MDIStart.MousePointer = 0
JHForm.Show 1
End Sub

Private Sub menujsr_Click()
MDIStart.MousePointer = 11
Load Jsrform1
MDIStart.MousePointer = 0
Jsrform1.Show 1
End Sub

Private Sub MenuKC_Click()
MDIStart.MousePointer = 11
Load KCForm
MDIStart.MousePointer = 0
KCForm.Show 1

End Sub

Private Sub MenuTjxiaoshou_Click()
MDIStart.MousePointer = 11
Load TjXiaoshou
MDIStart.MousePointer = 0
TjXiaoshou.Show 1
End Sub

Private Sub menuTjzijin_Click()
MDIStart.MousePointer = 11
Load TjZijin
MDIStart.MousePointer = 0
TjZijin.Show 1
End Sub

Private Sub menutools_Click()
'如果显示为真的时候，单击后为假
If menutools.Checked = False Then
   menutools.Checked = True
   MDIStart.MousePointer = 11
   Load tools
   MDIStart.MousePointer = 0
   tools.Show
   Else
   menutools.Checked = False
   Unload tools
   End If
   End Sub

Private Sub menuXiaoshou_Click()
MDIStart.MousePointer = 11
Load main
MDIStart.MousePointer = 0
main.Show 1
End Sub

Private Sub StatusBar_PanelDblClick(ByVal Panel As ComctlLib.Panel)
If Panel.Text = "作者：俞思龙  林秀丽" Then
  MDIStart.MousePointer = 11
  Load authwore
  MDIStart.MousePointer = 0
  authwore.Show 1
End If
End Sub