frmmain.frm

这是一个用VB编写的用于外贸行业的供应商信息管理系统。

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "Suppliers Information System"
   ClientHeight    =   7125
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   11655
   LinkTopic       =   "Form1"
   ScaleHeight     =   7125
   ScaleWidth      =   11655
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu initial 
      Caption         =   "&Initial"
      Begin VB.Menu tradeAndCategory 
         Caption         =   "TradeAndCategory"
         Begin VB.Menu addTradeAndCategory 
            Caption         =   "&Add"
         End
         Begin VB.Menu changeTradeAndCategory 
            Caption         =   "&Change"
         End
         Begin VB.Menu deleteTradeAndCategory 
            Caption         =   "&Delete"
         End
      End
      Begin VB.Menu iproduct 
         Caption         =   "Product"
         Begin VB.Menu addProduct 
            Caption         =   "&Add"
         End
         Begin VB.Menu changeProduct 
            Caption         =   "&Change"
         End
         Begin VB.Menu deleteProduct 
            Caption         =   "&Delete"
         End
      End
      Begin VB.Menu user 
         Caption         =   "User"
         Begin VB.Menu addUser 
            Caption         =   "&Add"
         End
         Begin VB.Menu changeUser 
            Caption         =   "&Change"
         End
         Begin VB.Menu deleteUser 
            Caption         =   "&Delete"
         End
      End
      Begin VB.Menu s1 
         Caption         =   "-"
      End
      Begin VB.Menu exitit 
         Caption         =   "E&xit"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu information 
      Caption         =   "Infor&mation"
      Begin VB.Menu Supplier 
         Caption         =   "&Supplier"
         Shortcut        =   ^N
      End
      Begin VB.Menu contactperson 
         Caption         =   "&ContactPerson"
      End
      Begin VB.Menu product 
         Caption         =   "&Product"
      End
   End
   Begin VB.Menu searchInformation 
      Caption         =   "&Search"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub look_Click()

End Sub

Private Sub exit_Click()
    
End Sub

Private Sub addProduct_Click()
    frmAddProduct.Show 1
End Sub

Private Sub addTradeAndCategory_Click()
    frmAddTradeCategory.Show 1
End Sub

Private Sub addUser_Click()
    frmAddUser.Show 1
End Sub

Private Sub changeProduct_Click()
    frmChangeProduct.Show 1
End Sub

Private Sub changeTradeAndCategory_Click()
    frmChangeTradeCategory.Show 1
End Sub

Private Sub changeUser_Click()
    frmChangeUser.Show 1
End Sub

Private Sub deleteProduct_Click()
    frmDelProduct.Show 1
End Sub

Private Sub supplier_Click()
    frmSupplier.Show 1
End Sub

Private Sub deleteTradeAndCategory_Click()
    frmDelTradeCategory.Show 1
End Sub

Private Sub deleteUser_Click()
    frmDelUser.Show 1
End Sub

Private Sub exitit_Click()
    Unload Me
End Sub

Private Sub import_Click()
    frmImportDCS.Show
End Sub

Private Sub qedit_Click()
    Unload Me
    frmManager.Show
End Sub

Private Sub test_Click()
    MsgBox "正在制作中..."
    'frmMain.Hide
    'frmTest.Show
End Sub

Private Sub Form_Load()
    If strHereIs = "supplier" Then
        strFrom = "supplier"
    ElseIf strHereIs = "product" Then
        strFrom = "product"
    ElseIf strHereIs = "main" Then
        strFrom = "main"
    ElseIf strHereIs = "contactPerson" Then
        strFrom = "contactPerson"
    End If
    strHereIs = "main"
End Sub

Private Sub contactPerson_Click()
    strFrom = ""
    strHereIs = "main"
    frmContactPerson.Show
End Sub

Private Sub product_Click()
    strFrom = ""
    strHereIs = "main"
    frmProduct.Show
End Sub

Private Sub searchInformation_Click()
    frmSearchSupplier.Show
End Sub