VB仓库管理系统 第3页

 Load Formchaxun

   Formchaxun.Show

End Sub

Private Sub Commandxxsc_Click()

   Load Formshanchu

   Formshanchu.Show

End Sub

Private Sub Commandxxtj_Click()

   Load Formtianjia

   Formtianjia.Show

End Sub

Private Sub Commandxxxg_Click()

   Load Formxiugai

   Formxiugai.Show

End Sub

Private Sub f11_Click(Index As Integer)

    Select Case Index

       Case 0

          Unload Me

          Load mainForm

          mainForm.Show

       Case 2

          Dim i As Byte

          Beep

          i = MsgBox("你确定要退出仓库管理系统吗？", vbYesNo, "退出系统")

          If i = vbYes Then

              End

          End If

    End Select

End Sub

Private Sub s11_Click(Index As Integer)

    Select Case Index

       Case 0

          Load Formchaxun

          Formchaxun.Show

    End Select

End Sub

Private Sub a11_Click(Index As Integer)

    Select Case Index

       Case 0

          Load Formtianjia

          Formtianjia.Show

       Case 2

          Load Formxiugai

          Formxiugai.Show

       Case 3

          Load Formshanchu

          Formshanchu.Show

    End Select

End Sub

Private Sub Timer1_Timer()

   Labelsj.Caption = Now

End Sub

3.6.5 创建窗体菜单

     在窗体设计界面中，右键单击窗体，从右键菜单中选择【menu editor…】命令，选择【menu editor…】命令将会打开【menu editor】对话框，在菜单编辑器中编辑窗体菜单。

各菜单项的单击事件处理函数如下所示：

Private Sub f11_Click(Index As Integer)

    Select Case Index

       Case 0

          Unload Me

          Load mainForm

          mainForm.Show

       Case 2

          Dim i As Byte

          Beep

          i = MsgBox("你确定要退出仓库管理系统吗？", vbYesNo, "退出系统")

          If i = vbYes Then

              End

          End If

    End Select

End Sub

Private Sub s11_Click(Index As Integer)

    Select Case Index

       Case 0

          Load Formchaxun

          Formchaxun.Show

    End Select

End Sub

Private Sub a11_Click(Index As Integer)

    Select Case Index

       Case 0

          Load Formtianjia

          Formtianjia.Show

       Case 2

          Load Formxiugai

          Formxiugai.Show

       Case 3

          Load Formshanchu

          Formshanchu.Show

    End Select

End Sub

菜单编辑如图所示

3.6.6 创建查询信息窗体（formchaxun.frm）

在visual basic中新建一个form，保存为formchaxun.frm。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性，最后的查询信息窗体如图所示。

将窗体及其各控件的属性设置完毕后，根据需要为窗体及控件添加事件处理函数，程序如下：

Dim xinxi As New ADODB.Connection

Dim rstxinxi As New ADODB.Recordset

Private Sub a11_Click(Index As Integer)

    Select Case Index

       Case 0

          Unload Me

          Load Formtianjia

          Formtianjia.Show

       Case 2

          Unload Me

          Load Formxiugai

          Formxiugai.Show

       Case 3

          Unload Me

          Load Formshanchu

          Formshanchu.Show

    End Select

End Sub

Private Sub Command2_Click()

   Option1.Value = False

   Option2.Value = False

   Text1.Text = ""

   Text2.Text = ""

   txtyqbh.Text = ""

   txtflh.Text = ""

   txtyqmc.Text = ""

   txtxh.Text = ""

   txtgg.Text = ""

   txtdj.Text = ""

   txtcj.Text = ""

   txtgzrq.Text = ""

   txtxz.Text = ""

   txtjsr.Text = ""

   txtlyr.Text = ""

   txtrksj.Text = ""

End Sub

Private Sub f11_Click(Index As Integer)

    Select Case Index

       Case 0

          Unload Me

          Load mainForm

          mainForm.Show

       Case 2

         Dim i As Byte

         Beep

         i = MsgBox("你确定要退出仓库管理系统吗？", vbYesNo, "退出系统")

         If i = vbYes Then

         End

         End If

    End Select

End Sub

Private Sub s11_Click(Index As Integer)

    Select Case Index

       Case 0

          Unload Me

          Load Formchaxun

          Formchaxun.Show

    End Select

End Sub

Private Sub Timer1_Timer()

   Labelsj.Caption = Now

End Sub

Private Sub Form_Load()

    Set xinxi = New ADODB.Connection

    xinxi.CursorLocation = adUseClient

    xinxi.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=F:\仓库管理系统\cangkuzl.mdb;Persist Security Info=False"

    Set rstxinxi = New ADODB.Recordset

    Set rstxinxi.ActiveConnection = xinxi

    rstxinxi.Open "select * from yiqixinxi", xinxi, adOpenStatic, adLockOptimistic

End Sub

Private Sub Command1_Click()

   If Option1.Value = True Then

     Option2.Value = False

     Text1.SetFocus

     Set xinxi = New ADODB.Connection

     xinxi.CursorLocation = adUseClient

     xinxi.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=F:\仓库管理系统\cangkuzl.mdb;Persist Security Info=False"

     Set rstxinxi = New ADODB.Recordset

     Set rstxinxi.ActiveConnection = xinxi

     rstxinxi.Open "select * from yiqixinxi", xinxi, adOpenStatic, adLockOptimistic

       If Text1.Text = "" Then

         MsgBox "请输入仪器编号", vbOKOnly, "警告"

         Text1.SetFocus

       Else

         rstxinxi.Find ("yiqibianhao = '" + Text1.Text + "'")

         If rstxinxi.EOF Then

            MsgBox "此仪器编号不存在，请重新输入！", vbOKOnly, "警告"

            Text1.Text = ""

         Else

            txtyqbh.Text = rstxinxi.Fields("yiqibianhao")

            txtflh.Text = rstxinxi.Fields("fenleihao")

            txtyqmc.Text = rstxinxi.Fields("yiqimingcheng")

            txtxh.Text = rstxinxi.Fields("xinghao")

            txtgg.Text = rstxinxi.Fields("guige")

            txtdj.Text = rstxinxi.Fields("danjia")

            txtcj.Text = rstxinxi.Fields("changjia")

            txtgzrq.Text = rstxinxi.Fields("gouzhiriqi")

            txtxz.Text = rstxinxi.Fields("xianzhuang")

            txtlyr.Text = rstxinxi.Fields("lingyongren")

            txtjsr.Text = rstxinxi.Fields("jingshouren")

            txtrksj.Text = rstxinxi.Fields("rukushijian")

            rstxinxi.Close

            xinxi.Close

            Text1.Text = ""

            Text1.SetFocus

         End If

       End If

   Else

     If Option2.Value = True Then

     Option1.Value = False

     Text2.SetFocus

     Set xinxi = New ADODB.Connection

     xinxi.CursorLocation = adUseClient

     xinxi.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=F:\仓库管理系统\cangkuzl.mdb;Persist Security Info=False"

     Set rstxinxi = New ADODB.Recordset

     Set rstxinxi.ActiveConnection = xinxi

     rstxinxi.Open "select * from yiqixinxi", xinxi, adOpenStatic, adLockOptimistic

       If Text2.Text = "" Then

         MsgBox "请输入仪器名称", vbOKOnly, "警告"

         Text2.SetFocus

       Else

         rstxinxi.Find ("yiqimingcheng = '" + Text2.Text + "'")

         If rstxinxi.EOF Then

            MsgBox "此仪器名称不存在，请重新输入！", vbOKOnly, "警告"

            Text2.Text = " "

         Else

            txtyqbh.Text = rstxinxi.Fields("yiqibianhao")

            txtflh.Text = rstxinxi.Fields("fenleihao")

            txtyqmc.Text = rstxinxi.Fields("yiqimingcheng")

            txtxh.Text = rstxinxi.Fields("xinghao")

            txtgg.Text = rstxinxi.Fields("guige")

            txtdj.Text = rstxinxi.Fields("danjia")

            txtcj.Text = rstxinxi.Fields("changjia")

            txtgzrq.Text = rstxinxi.Fields("gouzhiriqi")

            txtxz.Text = rstxinxi.Fields("xianzhuang")

            txtlyr.Text = rstxinxi.Fields("lingyongren")

            txtjsr.Text = rstxinxi.Fields("jingshouren")

            txtrksj.Text = rstxinxi.Fields("rukushijian")

            rstxinxi.Close

            xinxi.Close

            Text2.Text = " "

            Text2.SetFocus

         End If

       End If

     End If

   End If

End Sub

3.6.7 创建修改信息窗体（formxiugai.frm）

在visual basic中新建一个form，保存为formxiugai.frm。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性，最后的修改信息窗体如图所示。

将窗体及其各控件的属性设置完毕后，根据需要为窗体及控件添加事件处理函数，程序如下：

Dim xinxi As New ADODB.Connection

Dim rstxinxi As New ADODB.Recordset

Private Sub Command1_Click()

   If Option1.Value = True Then

     Option2.Value = False

     Text1.SetFocus

     Set xinxi = New ADODB.Connection

     xinxi.CursorLocation = adUseClient

     xinxi.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=F:\仓库管理系统\cangkuzl.mdb;Persist Security Info=False"

     Set rstxinxi = New ADODB.Recordset

     Set rstxinxi.ActiveConnection = xinxi

     rstxinxi.Open "select * from yiqixinxi", xinxi, adOpenStatic, adLockOptimistic

       If Text1.Text = "" Then

         MsgBox "请输入仪器编号", vbOKOnly, "警告"

         Text1.SetFocus

       Else

         rstxinxi.Find ("yiqibianhao = '" + Text1.Text + "'")

         If rstxinxi.EOF Then

            MsgBox "此仪器编号不存在，请重新输入！", vbOKOnly, "警告"

            Text1.Text = ""

         Else

            txtyqbh.Text = rstxinxi.Fields("yiqibianhao")

            txtflh.Text = rstxinxi.Fields("fenleihao")

            txtyqmc.Text = rstxinxi.Fields("yiqimingcheng")

            txtxh.Text = rstxinxi.Fields("xinghao")

            txtgg.Text = rstxinxi.Fields("guige")

            txtdj.Text = rstxinxi.Fields("danjia")

            txtcj.Text = rstxinxi.Fields("changjia")

            txtgzrq.Text = rstxinxi.Fields("gouzhiriqi")

            txtxz.Text = rstxinxi.Fields("xianzhuang")

            txtlyr.Text = rstxinxi.Fields("lingyongren")

            txtjsr.Text = rstxinxi.Fields("jingshouren")

            txtrksj.Text = rstxinxi.Fields("rukushijian")

            rstxinxi.Close

            xinxi.Close

            Text1.Text = ""

            Text1.SetFocus

         End If

       End If

   Else

     If Option2.Value = True Then

     Option1.Value = False

     Text2.SetFocus

     Set xinxi = New ADODB.Connection

     xinxi.CursorLocation = adUseClient

     xinxi.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=F:\仓库管理系统\cangkuzl.mdb;Persist Security Info=False"

     Set rstxinxi = New ADODB.Recordset

     Set rstxinxi.ActiveConnection = xinxi

     rstxinxi.Open "select * from yiqixinxi", xinxi, adOpenStatic, adLockOptimistic

       If Text2.Text = "" Then

         MsgBox "请输入仪器名称", vbOKOnly, "警告"

         Text2.SetFocus

       Else

         rstxinxi.Find ("yiqimingcheng = '" + Text2.Text + "'")

         If rstxinxi.EOF Then

            MsgBox "此仪器名称不存在，请重新输入！", vbOKOnly, "警告"

            Text2.Text = " "

         Else

            txtyqbh.Text = rstxinxi.Fields("yiqibianhao")

            txtflh.Text = rstxinxi.Fields("fenleihao")

            txtyqmc.Text = rstxinxi.Fields("yiqimingcheng")

            txtxh.Text = rstxinxi.Fields("xinghao")

            txtgg.Text = rstxinxi.Fields("guige")

            txtdj.Text = rstxinxi.Fields("danjia")

            txtcj.Text = rstxinxi.Fields("changjia")

            txtgzrq.Text = rstxinxi.Fields("gouzhiriqi")

            txtxz.Text = rstxinxi.Fields("xianzhuang")

            txtlyr.Text = rstxinxi.Fields("lingyongren")

            txtjsr.Text = rstxinxi.Fields("jingshouren")

            txtrksj.Text = rstxinxi.Fields("rukushijian")

            rstxinxi.Close

            xinxi.Close

            Text2.Text = " "

            Text2.SetFocus

         End If

       End If

     End If

   End If

End Sub

Private Sub Command2_Click()

    If txtyqbh.Text = "" Then

       MsgBox "请选择一条记录！", vbOKOnly + vbExclamation, "信息提示"

    Else

       Set xinxi = New ADODB.Connection

       xinxi.CursorLocation = adUseClient

       xinxi.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=F:\仓库管理系统\cangkuzl.mdb;Persist Security Info=False"

       Set rstxinxi = New ADODB.Recordset

       Set rstxinxi.ActiveConnection = xinxi

       rstxinxi.Open "select * from yiqixinxi", xinxi, adOpenStatic, adLockOptimistic

       rstxinxi.Find ("yiqibianhao = '" + txtyqbh.Text + "'")

       rstxinxi.Delete

       rstxinxi.Close

       xinxi.Close

       Set xinxi = New ADODB.Connection

       xinxi.CursorLocation = adUseClient

       xinxi.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=F:\仓库管理系统\cangkuzl.mdb;Persist Security Info=False"

       Set rstxinxi = New ADODB.Recordset

       Set rstxinxi.ActiveConnection = xinxi

       rstxinxi.Open "select * from yiqixinxi", xinxi, adOpenStatic, adLockOptimistic

       If Trim(txtyqbh.Text) = "" Then

         MsgBox "请输入仪器编号！", vbOKOnly + vbExclamation, "信息提示"

         txtyqbh.SetFocus

         Exit Sub

       End If

       If Trim(txtflh.Text) = "" Then

         MsgBox "请输入分类号！", vbOKOnly + vbExclamation, "信息提示"

         txtflh.SetFocus

         Exit Sub

       End If

       If Trim(txtyqmc.Text) = "" Then

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页