form3.frm

此系统是仓库管理系统

VERSION 5.00
Begin VB.Form Form3 
   Caption         =   "主界面"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   810
   ClientWidth     =   4680
   LinkTopic       =   "Form3"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu sel 
      Caption         =   "查询(&B)"
      Begin VB.Menu sel1 
         Caption         =   "物资表"
      End
      Begin VB.Menu sel_2 
         Caption         =   "进仓表"
      End
      Begin VB.Menu sel_3 
         Caption         =   "出仓表"
      End
      Begin VB.Menu sel_4 
         Caption         =   "管理员"
      End
   End
   Begin VB.Menu ins 
      Caption         =   "添加(&I)"
      Begin VB.Menu ins_1 
         Caption         =   "物资"
      End
      Begin VB.Menu ins_2 
         Caption         =   "进仓表"
      End
      Begin VB.Menu ins_3 
         Caption         =   "出仓表"
      End
      Begin VB.Menu ins_4 
         Caption         =   "管理员"
      End
   End
   Begin VB.Menu upd 
      Caption         =   "修改(&U)"
      Begin VB.Menu upd_1 
         Caption         =   "物资"
      End
      Begin VB.Menu upd_2 
         Caption         =   "进仓表"
      End
      Begin VB.Menu upd_3 
         Caption         =   "出仓表"
      End
      Begin VB.Menu upd_4 
         Caption         =   "管理员"
      End
   End
   Begin VB.Menu del 
      Caption         =   "删除(&D)"
      Begin VB.Menu del_1 
         Caption         =   "物资"
      End
      Begin VB.Menu del_2 
         Caption         =   "进仓表"
      End
      Begin VB.Menu del_3 
         Caption         =   "出仓表"
      End
      Begin VB.Menu del_4 
         Caption         =   "管理员"
      End
   End
   Begin VB.Menu exit 
      Caption         =   "退出 "
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub exit_Click()
  If myrs.State = adStateOpen Then
    myrs.Close
  End If
  If myrs1.State = adStateOpen Then
    myrs1.Close
  End If
  If myrs2.State = adStateOpen Then
    myrs2.Close
  End If
  Set myrs = Nothing
  Set myrs1 = Nothing
  Set myrs2 = Nothing
  Set mycon = Nothing
  Unload Me
End Sub

Private Sub ins_1_Click()
  Form8.Show
End Sub

Private Sub ins_2_Click()
Form9.Show
End Sub

Private Sub ins_3_Click()
Form10.Show
End Sub

Private Sub ins_4_Click()
Form11.Show
End Sub

Private Sub sel_2_Click()
  If myrs.State = adStateOpen Then
   myrs.Close
   End If
   myrs.Open "进仓表", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
   Form5.Caption = "查询进仓表"
   Form5.Show
End Sub

Private Sub sel_3_Click()
If myrs.State = adStateOpen Then
   myrs.Close
   End If
   myrs.Open "出仓表", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
   Form5.Caption = "查询出仓表"
   Form5.Show
End Sub

Private Sub sel_4_Click()
If myrs.State = adStateOpen Then
   myrs.Close
   End If
   myrs.Open "管理员表", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
   Form7.Caption = "查询管理员表"
   Form7.Show
End Sub

Private Sub sel1_Click()
  If myrs.State = adStateOpen Then
   myrs.Close
   End If
   myrs.Open "物资表", mycon, adOpenStatic, adLockOptimistic, adCmdTableDirect
   Form4.Caption = "查询物资表"
   Form4.Show
End Sub

Private Sub upd_1_Click()
  If myrs.State = adStateOpen Then
    myrs.Close
  End If
  myrs.Open "物资表", mycon, adOpenKeyset, adLockBatchOptimistic, adCmdTable
Form12.Show
End Sub

Private Sub upd_2_Click()
  If myrs.State = adStateOpen Then
    myrs.Close
  End If
  myrs.Open "进仓表", mycon, adOpenKeyset, adLockBatchOptimistic, adCmdTable
  Form13.Show
End Sub

Private Sub upd_3_Click()
  If myrs.State = adStateOpen Then
    myrs.Close
  End If
  myrs.Open "出仓表", mycon, adOpenKeyset, adLockBatchOptimistic, adCmdTable
  Form14.Show
End Sub
Private Sub Command1_Click()
  myrs.UpdateBatch
  MsgBox "修改成功", vbInformation, "友情提醒"
End Sub


Private Sub Command2_Click()
 Unload Me
End Sub

Private Sub Form_Activate()
  Set DataGrid1.DataSource = myrs
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

End Sub

Private Sub upd_4_Click()
  If myrs.State = adStateOpen Then
    myrs.Close
  End If
  myrs.Open "管理员表", mycon, adOpenKeyset, adLockBatchOptimistic, adCmdTable
Form15.Show
End Sub