frmmain.frm

这个是VB环境开发的,我也是转载的把原来的Access数据库改成了SQl Server数据库.希望大家可以借鉴

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmM 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "操作导航"
   ClientHeight    =   6030
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   10620
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   MousePointer    =   99  'Custom
   ScaleHeight     =   6030
   ScaleWidth      =   10620
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   5775
      Width           =   10620
      _ExtentX        =   18733
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Text            =   "就绪..."
            TextSave        =   "就绪..."
         EndProperty
      EndProperty
   End
   Begin VB.Menu m_set 
      Caption         =   "系统设置(&P)"
      WindowList      =   -1  'True
      Begin VB.Menu m_locksys 
         Caption         =   "锁定系统"
      End
      Begin VB.Menu m_pwd 
         Caption         =   "登陆设置(&A)"
      End
      Begin VB.Menu m_eidtpwd 
         Caption         =   "修改密码"
      End
   End
   Begin VB.Menu m_about 
      Caption         =   "库存(&S)"
      Begin VB.Menu m_cpinfo 
         Caption         =   "元件登记"
      End
      Begin VB.Menu m_hp 
         Caption         =   "产品登记"
      End
      Begin VB.Menu m_kucn 
         Caption         =   "库存查询"
      End
   End
   Begin VB.Menu m_rkinfo 
      Caption         =   "入库信息(&I)"
      Begin VB.Menu m_rkd 
         Caption         =   "入 库 单"
      End
      Begin VB.Menu m_rkfind 
         Caption         =   "入库查询"
      End
      Begin VB.Menu m_rktj 
         Caption         =   "入库统计"
      End
   End
   Begin VB.Menu m_ckinfo 
      Caption         =   "出库信息(&E)"
      Begin VB.Menu m_ckd 
         Caption         =   "出库单"
      End
      Begin VB.Menu m_ckfind 
         Caption         =   "出库查询"
      End
      Begin VB.Menu M_cktj 
         Caption         =   "出库统计"
      End
   End
   Begin VB.Menu m_weihu 
      Caption         =   "信息维护(&W)"
      Begin VB.Menu m_gys 
         Caption         =   "供应商信息"
      End
   End
   Begin VB.Menu m_datewh 
      Caption         =   " 数据维护(&E)"
      Begin VB.Menu m_datezl 
         Caption         =   "数据整理"
      End
      Begin VB.Menu m_backup 
         Caption         =   "数据备份"
      End
   End
   Begin VB.Menu m_mnph 
      Caption         =   "模拟配货(&M)"
      Begin VB.Menu m_cppf 
         Caption         =   "产品材料组成"
      End
      Begin VB.Menu m_fh 
         Caption         =   "产品模拟配套"
      End
   End
   Begin VB.Menu m_tx 
      Caption         =   "退 出(&E)"
   End
End
Attribute VB_Name = "FrmM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False











Private Sub m_backup_Click()
    frmTip.Show 1
End Sub

Private Sub m_ckd_Click()
    FRMIOorder.Caption = "出 库 单"
    FRMIOorder.Label1 = "出 库 单"
    FRMIOorder.lbl1 = "出库单号："
    FRMIOorder.Show 1
End Sub

Private Sub m_ckfind_Click()
    frmIFind.Caption = "出 库 单"
    frmIFind.Show
End Sub

Private Sub M_cktj_Click()
    frmcount.Caption = "出库统计"
    frmcount.Show 1
End Sub

Private Sub m_cpinfo_Click()
    frmelement.InserTtype = ""
    frmelement.Show 1
End Sub

Private Sub m_exit_Click()
    Unload MDIMain

End Sub

Private Sub m_cppf_Click()
    frmPFfinish.Show 1
End Sub

Private Sub m_datezl_Click()
    frmTip1.Show 1
End Sub

Private Sub m_eidtpwd_Click()
    frmChangePassword.Show
End Sub

Private Sub m_fh_Click()
   Formpf.Show
End Sub

Private Sub m_gys_Click()
    frmcompany.Show 1
End Sub

Private Sub m_hp_Click()
    frmPinfo.Show 1
End Sub

Private Sub m_kctj_Click()
frmcount.Show
End Sub

Private Sub m_kucn_Click()
    
    frmph.Show 1
End Sub

Private Sub m_locksys_Click()
frmLogin1.Show 1
End Sub



Private Sub m_pwd_Click()
    UserForm.Show 1
End Sub


Private Sub m_rkd_Click()
FRMIOorder.Show 1
End Sub

Private Sub m_rkfind_Click()
    frmIFind.Label1 = "入库查询"
    frmIFind.Show
End Sub

Private Sub m_rktj_Click()
    frmcount.Caption = "入库统计"
    'frmIFind.Show
    frmcount.Show 1
End Sub

Private Sub m_tx_Click()
 End
End Sub
















Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Trim(Button.Key)
       Case "i"
            FRMIOorder.Show 1
       Case "o"
             m_ckd_Click
       Case "f"
           m_kucn_Click
    End Select
End Sub