frmmanclient.frm

ERP简易物料管理系统,主要是学习用VB编写ERP的例子.

Version 5.00
Begin VB.Form FrmManClient
    Caption = "ERP-客户管理子系统"
    ClientHeight = 9435
    ClientLeft = 60
    ClientTop = 450
    ClientWidth = 15240
    Icon = "FrmManClient.frx":0000
    LinkTopic = "Form1"
    MDIChild = -1 'True
    ScaleHeight = 9435
    ScaleWidth = 15240
    WindowState = 2 'Maximized
    Begin VB.Image Image1
        Height = 300
        Left = 5880
        Picture = "FrmManClient.frx":0CCA
        Top = 4920
        Width = 300
    End
    Begin VB.Label LblCustomerSet
        BackStyle = 0 'Transparent
        Caption = "购货商管理"
        BeginProperty Font
        Name = "宋体"
        Size = 15
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 375
        Left = 6480
        MouseIcon = "FrmManClient.frx":10E6
        MousePointer = 99 'Custom
        TabIndex = 7
        Top = 4920
        Width = 1935
    End
    Begin VB.Label LblBusinessmanSet
        BackStyle = 0 'Transparent
        Caption = "供应商管理"
        BeginProperty Font
        Name = "宋体"
        Size = 15
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 375
        Left = 6480
        MouseIcon = "FrmManClient.frx":13F0
        MousePointer = 99 'Custom
        TabIndex = 6
        Top = 4080
        Width = 1935
    End
    Begin VB.Image Image9
        Height = 300
        Left = 5880
        Picture = "FrmManClient.frx":16FA
        Top = 4080
        Width = 300
    End
    Begin VB.Image Image10
        Height = 300
        Left = 9960
        Picture = "FrmManClient.frx":1B16
        Top = 4920
        Width = 300
    End
    Begin VB.Label lblCustomerQury
        BackStyle = 0 'Transparent
        Caption = "购货商查询"
        BeginProperty Font
        Name = "宋体"
        Size = 15
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 375
        Left = 10680
        MouseIcon = "FrmManClient.frx":1F32
        MousePointer = 99 'Custom
        TabIndex = 5
        Top = 4920
        Width = 2055
    End
    Begin VB.Image Image8
        Height = 300
        Left = 9960
        Picture = "FrmManClient.frx":223C
        Top = 4080
        Width = 300
    End
    Begin VB.Label lblBusinessmanQury
        BackStyle = 0 'Transparent
        Caption = "供应商查询"
        BeginProperty Font
        Name = "宋体"
        Size = 15
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 375
        Left = 10680
        MouseIcon = "FrmManClient.frx":2658
        MousePointer = 99 'Custom
        TabIndex = 4
        Top = 4080
        Width = 1935
    End
    Begin VB.Image Image5
        Height = 300
        Left = 9960
        Picture = "FrmManClient.frx":2962
        Top = 5760
        Width = 300
    End
    Begin VB.Label lblBusinessQury
        BackStyle = 0 'Transparent
        Caption = "商业交往查询"
        BeginProperty Font
        Name = "宋体"
        Size = 15
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 375
        Left = 10680
        MouseIcon = "FrmManClient.frx":2D7E
        MousePointer = 99 'Custom
        TabIndex = 3
        Top = 5760
        Width = 2055
    End
    Begin VB.Label LblExit
        BackStyle = 0 'Transparent
        Caption = "退出子系统"
        BeginProperty Font
        Name = "宋体"
        Size = 15.75
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 375
        Left = 9840
        MouseIcon = "FrmManClient.frx":3088
        MousePointer = 99 'Custom
        TabIndex = 2
        Top = 7320
        Width = 1695
    End
    Begin VB.Shape Shape3
        Height = 615
        Left = 9720
        Shape = 4 'Rounded Rectangle
        Top = 7200
        Width = 1815
    End
    Begin VB.Label lblBusiness
        BackStyle = 0 'Transparent
        Caption = "商业交往管理"
        BeginProperty Font
        Name = "宋体"
        Size = 15
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 375
        Left = 6480
        MouseIcon = "FrmManClient.frx":3392
        MousePointer = 99 'Custom
        TabIndex = 1
        Top = 5760
        Width = 2175
    End
    Begin VB.Label Label1
        BackStyle = 0 'Transparent
        Caption = "客户管理子系统"
        BeginProperty Font
        Name = "华文彩云"
        Size = 36
        Charset = 134
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
        EndProperty
        Height = 735
        Left = 4680
        TabIndex = 0
        Top = 2040
        Width = 5175
    End
    Begin VB.Image Image7
        Height = 300
        Left = 5880
        Picture = "FrmManClient.frx":369C
        Top = 5760
        Width = 300
    End
End
Attribute VB_Name = "FrmManClient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub lblBusiness_Click()
    FrmBusiMan.Show
End Sub

Private Sub lblBusinessmanQury_Click()
    DataReportBusinessman.Show 1
    DataEnvironmentClient.rsCmdBusinessman.Close
End Sub

Private Sub LblBusinessmanSet_Click()
    FrmBusinessman.Show
End Sub

Private Sub lblBusinessQury_Click()
    DataReportBusiness.Show 1
    DataEnvironmentClient.rsCmdBusiness.Close
End Sub

Private Sub lblCustomerQury_Click()
    DataReportCustomer.Show 1
    DataEnvironmentClient.rsCmdCustomer.Close
End Sub

Private Sub LblCustomerSet_Click()
    FrmCustomer.Show
End Sub

Private Sub LblExit_Click()
    Unload Me
    FrmMan.Toolbar1.Enabled = True
    FrmMan.Action.Enabled = True
End Sub