frmmain.frm

企业资产管理信息系统

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "资产管理系统"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuGL 
      Caption         =   "资产管理(&C)"
      Begin VB.Menu mnuGLNew 
         Caption         =   "注册新资产(&N)"
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuGLDel 
         Caption         =   "注销旧资产(&D)"
         Shortcut        =   ^D
      End
      Begin VB.Menu mnuGLEdit 
         Caption         =   "编辑现有资产(&E)"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu mnuSearch 
      Caption         =   "资产查找(&S)"
      Begin VB.Menu mnuSearchByID 
         Caption         =   "按资产编号查找(&I)"
         Shortcut        =   ^I
      End
      Begin VB.Menu mnuSearchMany 
         Caption         =   "条件查找(&T)"
         Shortcut        =   ^S
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub MDIForm_Load()

End Sub

Private Sub mnuGLDel_Click()
frmDel.Show '调用注销窗体
End Sub

Private Sub mnuGLDept_Click()
frmdep.Show '调用部门窗体
End Sub

Private Sub mnuGLEdit_Click()
frmEdit.Show '调用编辑窗体
End Sub

Private Sub mnuGLNew_Click()
frmNew.Show '调用注册窗体
End Sub

Private Sub mnuSearchByID_Click() '简单查找
Dim str As String
str = InputBox("请输入资产编号:", "查找") '输入对话框
If str = "" Then
Exit Sub
End If

Load frmEdit '载入编辑窗体
frmEdit.datPrimaryRS.ConnectionString = constr
frmEdit.datPrimaryRS.RecordSource = "select 资产编号,资产分类,资产名称,资产型号,生产单位,购买日期,购买价格,使用部门,负责人,使用状况,使用年限,注销日期,备注,注销 from 资产信息表 where 资产编号 like " & str '将数据源设为查找结果,实现查找目的
frmEdit.datPrimaryRS.Refresh
If frmEdit.datPrimaryRS.Recordset.RecordCount = 0 Then '没有相应记录
MsgBox "没有相应的记录!"
Unload frmEdit
Exit Sub
Exit Sub
End If
frmEdit.Show

End Sub

Private Sub mnuSearchMany_Click()
frmSearch.Show '显示条件查询窗体
End Sub