📄 erbc.frm

📁 企业管理系统,用ACESS2000的数据库系统和ADO连接接口
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
    Rst.MoveNext
    If Not Rst.EOF() Then
    
    Text1.Text = Rst.Fields("dm").Value
    Text2.Text = Rst.Fields("xm").Value
    Text3.Text = Rst.Fields("dfkh").Value
    Text4.Text = Rst.Fields("jbgz").Value
    Text5.Text = Rst.Fields("yfgz").Value
    Text6.Text = Rst.Fields("kk").Value
    Text7.Text = Rst.Fields("sfgz").Value
    Text8.Text = Rst.Fields("bz").Value
    Label12.Caption = Rst.AbsolutePosition
    Label10.Caption = Rst.RecordCount
    Else
    Rst.MoveFirst
        Text1.Text = Rst.Fields("dm").Value
    Text2.Text = Rst.Fields("xm").Value
    Text3.Text = Rst.Fields("dfkh").Value
    Text4.Text = Rst.Fields("jbgz").Value
    Text5.Text = Rst.Fields("yfgz").Value
    Text6.Text = Rst.Fields("kk").Value
    Text7.Text = Rst.Fields("sfgz").Value
    Text8.Text = Rst.Fields("bz").Value
    Label12.Caption = Rst.AbsolutePosition
    Label10.Caption = Rst.RecordCount
    End If
    Command1.Enabled = True
    Command3.Enabled = True
    Command4.Enabled = False
    Command8.Enabled = True
    Command9.Enabled = True
    Command6.Enabled = True
    Command7.Enabled = True

End Sub
Private Sub Command3_Click()
Command1.Enabled = False
    Command4.Enabled = True
    Command2.Enabled = False
    Command6.Enabled = False
    Command7.Enabled = False
    Command8.Enabled = False
    Command9.Enabled = False
    Text1.Enabled = True
    Text2.Enabled = True
    Text3.Enabled = True
    Text4.Enabled = True
    Text5.Enabled = True
    
    Text6.Enabled = True
    Text7.Enabled = True
    Text8.Enabled = True
    
If Command3.Caption = "修改" Then
    Text1.Text = Rst.Fields("dm").Value
    Text2.Text = Rst.Fields("xm").Value
    Text3.Text = Rst.Fields("dfkh").Value
    Text4.Text = Rst.Fields("jbgz").Value
    Text5.Text = Rst.Fields("yfgz").Value
    Text6.Text = Rst.Fields("kk").Value
    Text7.Text = Rst.Fields("sfgz").Value
    Text8.Text = Rst.Fields("bz").Value
    
    
        Command3.Caption = "确定"
    Else
        Rst.Fields("dm").Value = Text1.Text
    Rst.Fields("xm").Value = Text2.Text
    Rst.Fields("dfkh").Value = Text3.Text
    Rst.Fields("jbgz").Value = Text4.Text
    Rst.Fields("yfgz").Value = Text5.Text
    Rst.Fields("kk").Value = Text6.Text
    Rst.Fields("sfgz").Value = Text7.Text
    Rst.Fields("bz").Value = Text8.Text
        
        
        Rst.Update
        MsgBox "修改成功！"
        Command3.Caption = "修改"
    
    Command1.Enabled = True
    Command2.Enabled = True
    Command4.Enabled = False
    Command6.Enabled = True
    Command7.Enabled = True
    Command8.Enabled = True
    Command9.Enabled = True
    End If
End Sub

Private Sub Command4_Click()
Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    
    Text6.Enabled = False
    Text7.Enabled = False
    Text8.Enabled = False
    
    
Rst.MoveFirst
            Text1.Text = Rst.Fields("dm").Value
    Text2.Text = Rst.Fields("xm").Value
    Text3.Text = Rst.Fields("dfkh").Value
    Text4.Text = Rst.Fields("jbgz").Value
    Text5.Text = Rst.Fields("yfgz").Value
    Text6.Text = Rst.Fields("kk").Value
    Text7.Text = Rst.Fields("sfgz").Value
    Text8.Text = Rst.Fields("bz").Value
    
    
    Label12.Caption = Rst.AbsolutePosition
    
    Label10.Caption = Rst.RecordCount
    Command1.Visible = True
    Command1.Enabled = True
    Command2.Enabled = True
    Command3.Enabled = True
    Command3.Caption = "修改"
    Command1.Caption = "添加"
    Command6.Enabled = True
    Command7.Enabled = True
    Command8.Enabled = True
    Command9.Enabled = True
Command4.Enabled = False
Command5.Visible = False
End Sub

Private Sub Command6_Click()
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    
    Text6.Enabled = False
    Text7.Enabled = False
    
    
    
    Rst.MoveFirst
    Text1.Text = Rst.Fields("dm").Value
    Text2.Text = Rst.Fields("xm").Value
    Text3.Text = Rst.Fields("dfkh").Value
    Text4.Text = Rst.Fields("jbgz").Value
    Text5.Text = Rst.Fields("yfgz").Value
    Text6.Text = Rst.Fields("kk").Value
    Text7.Text = Rst.Fields("sfgz").Value
    Text8.Text = Rst.Fields("bz").Value
    
    
    Label12.Caption = Rst.AbsolutePosition
    
End Sub

Private Sub Command7_Click()
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    
    Text6.Enabled = False
    Text7.Enabled = False
    Text8.Enabled = False
    
    
    
    Rst.MoveLast
    Text1.Text = Rst.Fields("dm").Value
    Text2.Text = Rst.Fields("xm").Value
    Text3.Text = Rst.Fields("dfkh").Value
    Text4.Text = Rst.Fields("jbgz").Value
    Text5.Text = Rst.Fields("yfgz").Value
    Text6.Text = Rst.Fields("kk").Value
    Text7.Text = Rst.Fields("sfgz").Value
    Text8.Text = Rst.Fields("bz").Value
    
    
    Label12.Caption = Rst.AbsolutePosition
    
End Sub

Private Sub Command9_Click()
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    
    Text6.Enabled = False
    Text7.Enabled = False
    Text8.Enabled = False
    
    
    
    If (Not Rst.EOF) Then
        Rst.MoveNext
        If (Not Rst.EOF) Then
            Text1.Text = Rst.Fields("dm").Value
    Text2.Text = Rst.Fields("xm").Value
    Text3.Text = Rst.Fields("dfkh").Value
    Text4.Text = Rst.Fields("jbgz").Value
    Text5.Text = Rst.Fields("yfgz").Value
    Text6.Text = Rst.Fields("kk").Value
    Text7.Text = Rst.Fields("sfgz").Value
    Text8.Text = Rst.Fields("bz").Value
    
    
    Label12.Caption = Rst.AbsolutePosition
    
        Else
            Rst.MoveLast
            Text1.Text = Rst.Fields("dm").Value
    Text2.Text = Rst.Fields("xm").Value
    Text3.Text = Rst.Fields("dfkh").Value
    Text4.Text = Rst.Fields("jbgz").Value
    Text5.Text = Rst.Fields("yfgz").Value
    Text6.Text = Rst.Fields("kk").Value
    Text7.Text = Rst.Fields("sfgz").Value
    Text8.Text = Rst.Fields("bz").Value
    
    
    Label12.Caption = Rst.AbsolutePosition
    
          MsgBox "这是最后一条记录！"
        End If
    End If
End Sub

Private Sub Command8_Click()
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    
    Text6.Enabled = False
    Text7.Enabled = False
    Text8.Enabled = False
    
    Label12.Caption = Rst.AbsolutePosition
    
    If (Not Rst.BOF) Then
        Rst.MovePrevious
        If (Not Rst.BOF) Then
            
            Text1.Text = Rst.Fields("dm").Value
    Text2.Text = Rst.Fields("xm").Value
    Text3.Text = Rst.Fields("dfkh").Value
    Text4.Text = Rst.Fields("jbgz").Value
    Text5.Text = Rst.Fields("yfgz").Value
    Text6.Text = Rst.Fields("kk").Value
    Text7.Text = Rst.Fields("sfgz").Value
    Text8.Text = Rst.Fields("bz").Value
    
    
    Label12.Caption = Rst.AbsolutePosition
    
        Else
            Rst.MoveFirst
            Text1.Text = Rst.Fields("dm").Value
    Text2.Text = Rst.Fields("xm").Value
    Text3.Text = Rst.Fields("dfkh").Value
    Text4.Text = Rst.Fields("jbgz").Value
    Text5.Text = Rst.Fields("yfgz").Value
    Text6.Text = Rst.Fields("kk").Value
    Text7.Text = Rst.Fields("sfgz").Value
    Text8.Text = Rst.Fields("bz").Value
    
    
    Label12.Caption = Rst.AbsolutePosition
    
      MsgBox "这是第一条记录！"
        End If
    End If
End Sub
Private Sub Command5_Click()
 'Set Rst = CreateObject("ADODB.Recordset")
    If (Rst.State = adStateOpen) Then
        Rst.Close
    End If
    Rst.CursorLocation = adUseClient
    Rst.Open "Select * From gzb2", Conn, adOpenKeyset, adLockPessimistic
    Rst.AddNew
    Rst.Fields("dm").Value = Text1.Text
    Rst.Fields("xm").Value = Text2.Text
    Rst.Fields("dfkh").Value = Text3.Text
    Rst.Fields("jbgz").Value = Text4.Text
    Rst.Fields("yfgz").Value = Text5.Text
    Rst.Fields("kk").Value = Text6.Text
    Rst.Fields("sfgz").Value = Text7.Text
    Rst.Fields("bz").Value = Text8.Text
    
    
    Label12.Caption = Rst.AbsolutePosition
    Label10.Caption = Rst.RecordCount
    Rst.Update
    MsgBox "添加成功！"
    
    Command1.Visible = True
    Command5.Visible = False
    Command3.Enabled = True
    Command4.Enabled = False
    Command2.Enabled = True
    Command8.Enabled = True
    Command9.Enabled = True
    Command6.Enabled = True
    Command7.Enabled = True
End Sub


Private Sub Command10_Click()
Rst.Close
Unload Me
Form1.Show
End Sub

Private Sub Form_Load()
    Command5.Visible = False
    Command4.Enabled = False
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    
    Text6.Enabled = False
    Text7.Enabled = False
    Text8.Enabled = False
   
    
    
    Dim ConString As String
    ConString = "Provider=Microsoft.Jet.OleDb.4.0;Persist Security Info = False;" _
               & "Data Source =" & App.Path & "\db1.mdb;Jet OleDb:DataBase Password=123456"

    
    Set Conn = CreateObject("ADODB.Connection")
    With Conn
        .ConnectionString = ConString
        .Open
    End With
    
    Rst.CursorLocation = adUseClient
    Rst.Open "Select * From gzb2", Conn, adOpenKeyset, adLockPessimistic, adCmdText
    If Rst.RecordCount > 0 Then
    Text1.Text = Rst.Fields("dm").Value
    Text2.Text = Rst.Fields("xm").Value
    Text3.Text = Rst.Fields("dfkh").Value
    Text4.Text = Rst.Fields("jbgz").Value
    Text5.Text = Rst.Fields("yfgz").Value
    Text6.Text = Rst.Fields("kk").Value
    Text7.Text = Rst.Fields("sfgz").Value
    Text8.Text = Rst.Fields("bz").Value
    
    
    Label12.Caption = Rst.AbsolutePosition
    Label10.Caption = Rst.RecordCount
Else
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Text7.Text = ""
    Text8.Text = ""
    
    
End If
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -