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 + "'")

      If (vbYes = MsgBox("您确定要删除该纪录吗？,这可能回导致数据的丢失", vbYesNo + vbQuestion, "信息提示")) Then

            rstxinxi.Delete

            Call Command3_Click

            MsgBox "删除信息成功！", vbOKOnly + vbExclamation, "信息提示"

            rstxinxi.Close

            xinxi.Close

      End If

   End If

End Sub

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 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

3.6.9 创建添加信息窗体（formtianjia.frm）

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

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

Dim xinxi As New ADODB.Connection

Dim rstxinxi As New ADODB.Recordset

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 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 Command1_Click()

   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 Command2_Click()

       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(txtyqmc.Text) = "" Then

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

       txtyqmc.SetFocus

       Exit Sub

    End If

    If Trim(txtxh.Text) = "" Then

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

       txtxh.SetFocus

       Exit Sub

    End If

       If Trim(txtdj.Text) = "" Then

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

       txtdj.SetFocus

       Exit Sub

    End If

    If Trim(txtgzrq.Text) = "" Then

       MsgBox "请输入购置日期！", vbOKOnly + vbExclamation, "信息提示"

       txtgzrq.SetFocus

       Exit Sub

    End If

    If Trim(txtdj.Text) = "" Then

       MsgBox "请输入领用单位号！", vbOKOnly + vbExclamation, "信息提示"

       txtdj.SetFocus

       Exit Sub

    End If

    If Trim(txtlyr.Text) = "" Then

       MsgBox "请输入领用人！", vbOKOnly + vbExclamation, "信息提示"

       txtlyr.SetFocus

       Exit Sub

    End If

    If Trim(txtjsr.Text) = "" Then

       MsgBox "请输入经手人！", vbOKOnly + vbExclamation, "信息提示"

       txtjsr.SetFocus

       Exit Sub

    End If

    rstxinxi.MoveFirst

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

         If rstxinxi.Fields("yiqibianhao") = Trim(txtyqbh.Text) Then

            MsgBox "此仪器编号已经存在！", vbOKOnly + vbExclamation, "警告"

            txtyqbh.Text = ""

            txtyqbh.SetFocus

         Else

           rstxinxi.MoveLast

           rstxinxi.AddNew

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

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

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

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

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

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

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

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

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

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

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

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

           rstxinxi.Update

           MsgBox "添加信息成功", vbOKOnly + vbExclamation, "信息提示"

           Call Command1_Click

           rstxinxi.Close

           xinxi.Close

         End If

End Sub

Private Sub Command3_Click()

   Call Command1_Click

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

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