mdiform1.frm

南海舰队进销存管理系统 vb

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H80000001&
   Caption         =   "南海舰队进销存管理系统"
   ClientHeight    =   8310
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   11880
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   741
      ButtonWidth     =   609
      ButtonHeight    =   582
      Appearance      =   1
      ImageList       =   "ImageList1"
      HotImageList    =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   13
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "开票"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "领货"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "采购"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "基本库条件查询"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "基本库关键字查询"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "库存量查询"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "按日期结算"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "粮油指标设置"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "修改密码"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "系统信息"
            ImageIndex      =   11
         EndProperty
      EndProperty
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   4920
         Top             =   0
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   16
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   11
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":0CCA
               Key             =   ""
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":0FE6
               Key             =   ""
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":18C2
               Key             =   ""
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":219E
               Key             =   ""
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":4952
               Key             =   ""
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":562E
               Key             =   ""
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":6482
               Key             =   ""
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":715E
               Key             =   ""
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":7E3A
               Key             =   ""
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":828E
               Key             =   ""
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":8F6A
               Key             =   ""
            EndProperty
         EndProperty
      End
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   8055
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   450
      Style           =   1
      SimpleText      =   "南海舰队进销存管理系统... ..."
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin VB.Menu file0 
      Caption         =   "购销"
      Begin VB.Menu file1 
         Caption         =   "开票"
      End
      Begin VB.Menu file2 
         Caption         =   "领货"
      End
      Begin VB.Menu file3 
         Caption         =   "采购"
      End
      Begin VB.Menu line1 
         Caption         =   "-"
      End
      Begin VB.Menu exit1 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu cha0 
      Caption         =   "查询"
      Begin VB.Menu cha1 
         Caption         =   "条件查询"
      End
      Begin VB.Menu line2 
         Caption         =   "-"
      End
      Begin VB.Menu cha2 
         Caption         =   "关键字查询"
      End
      Begin VB.Menu line6 
         Caption         =   "-"
      End
      Begin VB.Menu cha3 
         Caption         =   "库存量查询"
      End
      Begin VB.Menu line7 
         Caption         =   "-"
      End
      Begin VB.Menu cha4 
         Caption         =   "按日期结算"
      End
   End
   Begin VB.Menu manager1 
      Caption         =   "管理"
      Begin VB.Menu base1 
         Caption         =   "基本库管理"
      End
      Begin VB.Menu line4 
         Caption         =   "-"
      End
      Begin VB.Menu manager3 
         Caption         =   "粮油指标设置"
      End
      Begin VB.Menu line5 
         Caption         =   "-"
      End
      Begin VB.Menu psd1 
         Caption         =   "修改密码"
      End
      Begin VB.Menu line3 
         Caption         =   "-"
      End
      Begin VB.Menu pasword1 
         Caption         =   "用户管理"
      End
   End
   Begin VB.Menu aboat0 
      Caption         =   "辅助"
      Begin VB.Menu help1 
         Caption         =   "帮助"
      End
      Begin VB.Menu ling5 
         Caption         =   "-"
      End
      Begin VB.Menu aboat1 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function OSHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Private Declare Function WinHelp Lib "user32" Alias "WinHelpA" (ByVal hwnd As Long, ByVal lpHelpFile As String, ByVal wCommand As Long, ByVal dwData As Long) As Long

Private Sub aboat1_Click()
xulangform1.Show
End Sub

Private Sub base1_Click()
If kai1 = 1 Then
kaiform1.WindowState = 1
End If
If lin1 = 1 Then
linform1.WindowState = 1
End If
If guo1 = 1 Then
guoform1.WindowState = 1
End If
baseform1.Show
End Sub

Private Sub cha1_Click()
On Error Resume Next
If kai1 = 1 Then
kaiform1.WindowState = 1
End If
If lin1 = 1 Then
linform1.WindowState = 1
End If
If guo1 = 1 Then
guoform1.WindowState = 1
End If
chaform1.SSTab1.Tab = 0
End Sub

Private Sub cha2_Click()
On Error Resume Next
If kai1 = 1 Then
kaiform1.WindowState = 1
End If
If lin1 = 1 Then
linform1.WindowState = 1
End If
If guo1 = 1 Then
guoform1.WindowState = 1
End If
chaform1.SSTab1.Tab = 1
End Sub

Private Sub cha3_Click()
On Error Resume Next
If kai1 = 1 Then
kaiform1.WindowState = 1
End If
If lin1 = 1 Then
linform1.WindowState = 1
End If
If guo1 = 1 Then
guoform1.WindowState = 1
End If
chaform1.SSTab1.Tab = 2
End Sub

Private Sub cha4_Click()
On Error Resume Next
If kai1 = 1 Then
kaiform1.WindowState = 1
End If
If lin1 = 1 Then
linform1.WindowState = 1
End If
If guo1 = 1 Then
guoform1.WindowState = 1
End If
chaform1.SSTab1.Tab = 3
End Sub

Private Sub exit1_Click()
End
End Sub

Private Sub file1_Click()
On Error Resume Next
If lin1 = 1 Then
linform1.WindowState = 1
End If
If guo1 = 1 Then
guoform1.WindowState = 1
End If
Unload chaform1
If bas1 = 1 Then
baseform1.WindowState = 1
End If
kaiform1.Show
kaiform1.WindowState = 2
End Sub

Private Sub file2_Click()
On Error Resume Next
If kai1 = 1 Then
kaiform1.WindowState = 1
End If
If guo1 = 1 Then
guoform1.WindowState = 1
End If
Unload chaform1
If bas1 = 1 Then
baseform1.WindowState = 1
End If
linform1.Show
linform1.WindowState = 2
End Sub

Private Sub file3_Click()
On Error Resume Next
If kai1 = 1 Then
kaiform1.WindowState = 1
End If
If lin1 = 1 Then
linform1.WindowState = 1
End If
Unload chaform1
If bas1 = 1 Then
baseform1.WindowState = 1
End If
guoform1.Show
guoform1.WindowState = 2
End Sub

Private Sub help1_Click()
Dim nRet As Integer
If Len(App.Path & "\xulang.hlp") = 0 Then
    MsgBox "无法显示帮助目录，该工程没有相关联的帮助。", vbInformation, Me.Caption
Else
    On Error Resume Next
    nRet = WinHelp(Me.hwnd, App.Path & "\xulang.hlp", 261, 0)
    If Err Then
       MsgBox Err.Description
    End If
End If
End Sub

Private Sub manager3_Click()
lianform1.Show
End Sub

Private Sub MDIForm_Activate()
Unload passwordform1
Unload xulangform1
Unload lianform1
End Sub

Private Sub MDIForm_Load()
'On Error Resume Next
If xulang4 = 1 Then
   pasword1.Enabled = True
   pasword1.Visible = True
   base1.Visible = True
   base1.Enabled = True
   line3.Visible = True
   line4.Visible = True
Else
   pasword1.Enabled = False
   pasword1.Visible = False
   base1.Visible = False
   base1.Enabled = False
   line3.Visible = False
   line4.Visible = False
End If
MDIForm1.Width = 12000
MDIForm1.Height = 9000
'kaiform1.Show
End Sub

Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.SimpleText = "准备就绪... ..."
End Sub

Private Sub MDIForm_Resize()
If MDIForm1.WindowState = 0 Then
MDIForm1.WindowState = 2
End If
End Sub

Private Sub pasword1_Click()
userform1.Show
End Sub

Private Sub psd1_Click()
passwordform1.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
    file1_Click
  End If
  If Button.Index = 2 Then
    file2_Click
  End If
  If Button.Index = 3 Then
    file3_Click
  End If
  If Button.Index = 5 Then
    cha1_Click
  End If
  If Button.Index = 6 Then
    cha2_Click
  End If
  If Button.Index = 7 Then
     cha3_Click
  End If
  If Button.Index = 8 Then
    cha4_Click
  End If
    If Button.Index = 10 Then
    manager3_Click
  End If
  If Button.Index = 11 Then
     psd1_Click
  End If
  If Button.Index = 13 Then
    aboat1_Click
  End If
End Sub