mdimain.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIMain 
   BackColor       =   &H8000000C&
   Caption         =   "库存管理系统"
   ClientHeight    =   5880
   ClientLeft      =   165
   ClientTop       =   1155
   ClientWidth     =   9105
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   2
      Top             =   10335
      Width           =   15240
      _ExtentX        =   26882
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   2
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   1128
            MinWidth        =   1128
            Text            =   "日期:"
            TextSave        =   "日期:"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Object.Width           =   2187
            MinWidth        =   2187
            TextSave        =   "2005-12-17"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   555
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   15240
      _ExtentX        =   26882
      _ExtentY        =   979
      ButtonWidth     =   609
      ButtonHeight    =   926
      Appearance      =   1
      Style           =   1
      _Version        =   393216
   End
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Height          =   0
      Left            =   0
      ScaleHeight     =   0
      ScaleWidth      =   15240
      TabIndex        =   0
      Top             =   555
      Width           =   15240
   End
   Begin VB.Menu m_SET 
      Caption         =   "【系统设置】"
      Begin VB.Menu m_locksys 
         Caption         =   "锁定系统"
      End
      Begin VB.Menu m_pwd 
         Caption         =   "登陆设置"
      End
      Begin VB.Menu m_eidtpwd 
         Caption         =   "修改密码"
         Visible         =   0   'False
      End
      Begin VB.Menu m_gly 
         Caption         =   "操作员入口"
      End
   End
   Begin VB.Menu buyinfo 
      Caption         =   "【采购信息】"
      Begin VB.Menu buyorder 
         Caption         =   "采  购  单"
      End
      Begin VB.Menu buyfind 
         Caption         =   "采 购 查 询"
      End
      Begin VB.Menu buycount 
         Caption         =   "采 购 统 计"
      End
   End
   Begin VB.Menu M_about 
      Caption         =   "【库存】"
      Begin VB.Menu m_cpinfo 
         Caption         =   "元 件 登 记"
      End
      Begin VB.Menu m_dj 
         Caption         =   "产 品 登 记"
      End
      Begin VB.Menu m_kccx 
         Caption         =   "库 存 查 询"
      End
   End
   Begin VB.Menu m_rkxx 
      Caption         =   "【入库信息】"
      Begin VB.Menu m_rkd 
         Caption         =   "入  库  单"
      End
      Begin VB.Menu M_rkcx 
         Caption         =   "入 库 查 询"
      End
      Begin VB.Menu m_rktj 
         Caption         =   "入 库 统 计"
      End
   End
   Begin VB.Menu m_ckinfo 
      Caption         =   "【出库信息】"
      Begin VB.Menu m_ckd 
         Caption         =   "出  库  单"
      End
      Begin VB.Menu m_ckcx 
         Caption         =   "出 库 查 询"
      End
      Begin VB.Menu m_cktj 
         Caption         =   "出 库 统 计"
      End
   End
   Begin VB.Menu m_weihu 
      Caption         =   "【信息维护】(&W)"
      Visible         =   0   'False
   End
   Begin VB.Menu m_datewh 
      Caption         =   "【数据维护】"
      Begin VB.Menu m_gysxx 
         Caption         =   "供应商信息"
      End
      Begin VB.Menu m_datezl 
         Caption         =   "数 据 整 理"
         Visible         =   0   'False
      End
      Begin VB.Menu m_backup 
         Caption         =   "数 据 备 份"
      End
   End
   Begin VB.Menu m_mnph 
      Caption         =   "【模拟配货】"
      Begin VB.Menu m_cpzc 
         Caption         =   "公司产品材料组成"
      End
      Begin VB.Menu m_fh 
         Caption         =   "公司产品模拟配套"
      End
   End
   Begin VB.Menu M_gongj 
      Caption         =   "【工具管理】"
      Begin VB.Menu m_rkdj 
         Caption         =   "入 库 登 记"
      End
      Begin VB.Menu m_ckdj 
         Caption         =   "出 库 登 记"
      End
      Begin VB.Menu M_gjkucun 
         Caption         =   "工 具 库 存"
      End
   End
   Begin VB.Menu m_exit 
      Caption         =   "【退 出】"
   End
End
Attribute VB_Name = "MDIMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub buycount_Click()
FrmbuyCount.Show 1
End Sub

Private Sub BuyFind_Click()
Frm_BuyFind.Show
End Sub

Private Sub buyorder_Click()
Frmbuy.Show 1
End Sub

Private Sub m_backup_Click()
  frmTip.Show 1
End Sub

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

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

Private Sub m_ckdj_Click()
frmtoolio.bar.Panels(1).Text = "工具出库"
frmtoolio.Label3 = "工具出库"
frmtoolio.Label4 = "出库单号:"
frmtoolio.Show
End Sub

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

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

Private Sub m_cpzc_Click()
frmPFfinish.Show
End Sub

Private Sub m_datezl_Click()
   frmTip1.Show 1
End Sub

Private Sub m_dj_Click()
   frmPinfo.Show 1
End Sub

Private Sub m_eidtpwd_Click()
    frmChangePassword.Show
End Sub

Private Sub m_exit_Click()
Unload Me
End Sub

Private Sub m_fh_Click()
  Formpf.Show
End Sub

Private Sub M_gjkucun_Click()
FrmtoolInfo.Show 1
End Sub

Private Sub m_gly_Click()
UserLoginForm.Show 1

End Sub

Private Sub m_gysxx_Click()
   frmcompany.Show 1
End Sub

Private Sub m_kccx_Click()
     frmph.Show
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_rkcx_Click()
    frmIFind.Label1 = "入库查询"
    frmIFind.Show 1
End Sub

Private Sub m_rkd_Click()
    frmioorder.Show
End Sub

Private Sub m_rkdj_Click()
frmtoolio.bar.Panels(1).Text = "工具入库"
frmtoolio.Show
End Sub

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

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Re As String
Re = MsgBox(" 您确定要退出吗？    ", vbQuestion + vbYesNo, ginfo)
If Re = 6 Then
  End
Else
  Cancel = 1
End If
End Sub