frmmain.frm

企业客户管理信息系统 企业管理信息系统的对象是企业、企业化管理的事业单位。 客户管理系统为企事业单位提供保存信息、修改信息、信息咨询等服务。 传统的纸介材料的数据信息管理已经不适合当代企业公司的发

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain 
   BackColor       =   &H00808000&
   Caption         =   "贸易公司管理信息系统"
   ClientHeight    =   5295
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7335
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   270
      Left            =   0
      TabIndex        =   0
      Top             =   5025
      Width           =   7335
      _ExtentX        =   12938
      _ExtentY        =   476
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   7303
            Text            =   "本程序由王亮（空空）制作"
            TextSave        =   "本程序由王亮（空空）制作"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "2005-6-22"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "1:07"
         EndProperty
      EndProperty
   End
   Begin VB.Menu menuSystem 
      Caption         =   "系统"
      Begin VB.Menu menuModifypwd 
         Caption         =   "修改密码"
      End
      Begin VB.Menu menuAdduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu menuExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu menuCustom 
      Caption         =   "客户信息管理"
      Begin VB.Menu menuAddprovider 
         Caption         =   "添加供应商信息"
      End
      Begin VB.Menu menuModifyprovider 
         Caption         =   "修改供应商信息"
      End
      Begin VB.Menu menuDeleteprovider 
         Caption         =   "删除供应商信息"
      End
      Begin VB.Menu menuInquireprovider 
         Caption         =   "查询供应商信息"
      End
   End
   Begin VB.Menu menukk 
      Caption         =   "企业信息管理"
      Begin VB.Menu meunkk1 
         Caption         =   "添加供应商信息"
      End
      Begin VB.Menu meunkk2 
         Caption         =   "修改供应商信息"
      End
      Begin VB.Menu meunkk3 
         Caption         =   "删除供应商信息"
      End
      Begin VB.Menu meunkk4 
         Caption         =   "查询供应商信息"
      End
   End
   Begin VB.Menu menuHelp 
      Caption         =   "帮助"
      Begin VB.Menu menuAbout 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub MDIForm_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    
End Sub





Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
End Sub

Private Sub menuAbout_Click()
about.Show
End Sub


Private Sub menuAddprovider_Click()
    gintPmode = 1
    frmProvider1.Show
    frmProvider1.ZOrder 0
End Sub



Private Sub menuAdduser_Click()
adduser.Show
End Sub




Private Sub menuDeleteprovider_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    
    If flagPedit Then
        If frmProvider.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmProvider.msgList.Row
                txtSQL = "delete from suppliers where SupplierID ='" & Trim(frmProvider.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                Unload frmProvider
                frmProvider.txtSQL = "select * from suppliers"
                frmProvider.Show
            End If
        End If
    End If
End Sub





Private Sub menuExit_Click()
End
End Sub

Private Sub menuInquireprovider_Click()
    frmProvider2.Show
End Sub






Private Sub menuModifyprovider_Click()
    Dim intCount As Integer
    If flagPedit Then
        If frmProvider.msgList.Rows > 1 Then
            gintPmode = 2
            intCount = frmProvider.msgList.Row
            frmProvider1.txtSQL = "select * from suppliers where SupplierID ='" & Trim(frmProvider.msgList.TextMatrix(intCount, 1)) & "'"
            frmProvider1.Show
        Else
            Call menuAddprovider_Click
        End If
    Else
        frmProvider.txtSQL = "select * from suppliers"
        frmProvider.Show
    End If
End Sub

Private Sub menuModifypwd_Click()
update.Show
End Sub


Private Sub meunkk1_Click()
 gintPmode = 1
    frmkk1.Show
    frmkk1.ZOrder 0
End Sub

Private Sub meunkk2_Click()
 Dim intCount As Integer
    If flagPedit Then
        If frmkk.msgList.Rows > 1 Then
            gintPmode = 2
            intCount = frmkk.msgList.Row
            frmkk1.txtSQL = "select * from kk where SupplierID ='" & Trim(frmkk.msgList.TextMatrix(intCount, 1)) & "'"
            frmkk1.Show
        Else
            MsgBox "请先加入一条信息“"
        End If
    Else
        frmkk.txtSQL = "select * from kk"
        frmkk.Show
    End If
End Sub

Private Sub meunkk3_Click()
 Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    
    If flagPedit Then
        If frmkk.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmkk.msgList.Row
                txtSQL = "delete from kk where SupplierID ='" & Trim(frmkk.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                Unload frmkk
                frmkk.txtSQL = "select * from kk"
                frmkk.Show
            End If
        End If
    End If
End Sub

Private Sub meunkk4_Click()
frmkk2.Show
End Sub