frmuserinfo.frm

大家看看,次文件非常好,适合大学生做毕业设计

            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         _Version        =   393216
      End
   End
End
Attribute VB_Name = "FrmUserInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub CmdClose_Click()
Unload Me
End Sub

Private Sub CmdFirst_Click()
Dim SexManValue As String

Adodc1.Recordset.MoveFirst
CmdUp.Enabled = False
CmdFirst.Enabled = False
CmdNext.Enabled = True
CmdLast.Enabled = True

TxtShenFen.Text = Adodc1.Recordset!身份 & ""
SexManValue = Adodc1.Recordset!性别 & ""
TxtName.Text = Adodc1.Recordset!姓名 & ""
TxtDanWei.Text = Adodc1.Recordset!单位 & ""
TxtDiZhi.Text = Adodc1.Recordset!地址 & ""
TxtEmail.Text = Adodc1.Recordset!电子邮件 & ""
TxtInfo.Text = Adodc1.Recordset!反馈信息 & ""

If SexManValue = "男" Then
    SexMan.Value = True
Else
    SexFemail.Value = True
End If

End Sub

Private Sub CmdLast_Click()
Dim SexManValue As String

Adodc1.Recordset.MoveLast
CmdNext.Enabled = False
CmdLast.Enabled = False
CmdUp.Enabled = True
CmdFirst.Enabled = True

TxtShenFen.Text = Adodc1.Recordset!身份 & ""
SexManValue = Adodc1.Recordset!性别 & ""
TxtName.Text = Adodc1.Recordset!姓名 & ""
TxtDanWei.Text = Adodc1.Recordset!单位 & ""
TxtDiZhi.Text = Adodc1.Recordset!地址 & ""
TxtEmail.Text = Adodc1.Recordset!电子邮件 & ""
TxtInfo.Text = Adodc1.Recordset!反馈信息 & ""

If SexManValue = "男" Then
    SexMan.Value = True
Else
    SexFemail.Value = True
End If

End Sub

Private Sub CmdNew_Click()
On Error GoTo errEnd

If CmdNew.Caption <> "确定" Then
    TxtName.Locked = False
    TxtDanWei.Locked = False
    TxtDiZhi.Locked = False
    TxtEmail.Locked = False
    TxtInfo.Locked = False
    
    TxtName.Text = ""
    TxtDanWei.Text = ""
    TxtDiZhi.Text = ""
    TxtEmail.Text = ""
    TxtInfo.Text = ""
    TxtShenFen.Text = UserShenFen
    CmdNew.Caption = "确定"
    CmdFirst.Enabled = False
    CmdUp.Enabled = False
    CmdNext.Enabled = False
    CmdLast.Enabled = False
    Exit Sub
End If

If TxtName.Text = "" Then
    MsgBox "请输入你的姓名!", vbOKOnly + vbExclamation, "信息反馈"
    TxtName.SetFocus
    Exit Sub
End If
If TxtDanWei.Text = "" Then
    TxtDanWei.Text = "未知"
End If
If TxtDiZhi.Text = "" Then
    TxtDiZhi.Text = "未知"
End If
If TxtEmail.Text = "" Then
    TxtEmail.Text = "未知"
End If
If TxtInfo.Text = "" Then
    MsgBox "请填写反馈信息!", vbOKOnly + vbExclamation, "信息反馈"
    TxtInfo.SetFocus
    Exit Sub
End If

Adodc1.Recordset.AddNew
Adodc1.Recordset!姓名 = TxtName.Text
Adodc1.Recordset!身份 = UserShenFen
If SexMan.Value Then
    Adodc1.Recordset!性别 = "男"
Else
    Adodc1.Recordset!性别 = "女"
End If
Adodc1.Recordset!单位 = TxtDanWei.Text
Adodc1.Recordset!地址 = TxtDiZhi.Text
Adodc1.Recordset!电子邮件 = TxtEmail.Text
Adodc1.Recordset!反馈信息 = TxtInfo.Text
Adodc1.Recordset!反馈日期 = Now
Adodc1.Recordset.Update

MsgBox "感谢你的意见或建议！", vbOKOnly + vbInformation, "信息反馈"
CmdNew.Caption = "添加"

CmdFirst.Enabled = True
CmdUp.Enabled = True
CmdNext.Enabled = True
CmdLast.Enabled = True

TxtName.Locked = True
TxtDanWei.Locked = True
TxtDiZhi.Locked = True
TxtEmail.Locked = True
TxtInfo.Locked = True

Call CmdLast_Click

Exit Sub

errEnd:
    MsgBox Err.Description, vbOKOnly + vbExclamation, "数据库错误"
End Sub

Private Sub CmdNext_Click()
Dim SexManValue As String

If Adodc1.Recordset.EOF Then Exit Sub

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then
    Call CmdLast_Click
    Exit Sub
End If
CmdUp.Enabled = True
CmdFirst.Enabled = True

TxtShenFen.Text = Adodc1.Recordset!身份 & ""
SexManValue = Adodc1.Recordset!性别 & ""
TxtName.Text = Adodc1.Recordset!姓名 & ""
TxtDanWei.Text = Adodc1.Recordset!单位 & ""
TxtDiZhi.Text = Adodc1.Recordset!地址 & ""
TxtEmail.Text = Adodc1.Recordset!电子邮件 & ""
TxtInfo.Text = Adodc1.Recordset!反馈信息 & ""

If SexManValue = "男" Then
    SexMan.Value = True
Else
    SexFemail.Value = True
End If

End Sub

Private Sub CmdUp_Click()
Dim SexManValue As String

If Adodc1.Recordset.BOF Then Exit Sub

Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF Then
    Call CmdFirst_Click
    Exit Sub
End If
CmdNext.Enabled = True
CmdLast.Enabled = True

TxtShenFen.Text = Adodc1.Recordset!身份 & ""
SexManValue = Adodc1.Recordset!性别 & ""
TxtName.Text = Adodc1.Recordset!姓名 & ""
TxtDanWei.Text = Adodc1.Recordset!单位 & ""
TxtDiZhi.Text = Adodc1.Recordset!地址 & ""
TxtEmail.Text = Adodc1.Recordset!电子邮件 & ""
TxtInfo.Text = Adodc1.Recordset!反馈信息 & ""

If SexManValue = "男" Then
    SexMan.Value = True
Else
    SexFemail.Value = True
End If

End Sub

Private Sub Form_Activate()
If Adodc1.Recordset.RecordCount > 0 Then
    Call CmdFirst_Click
Else
    MsgBox "当前没有客户反馈信息！", vbOKOnly + vbInformation, "客户反馈"
    Call CmdNew_Click
End If
End Sub

Private Sub Form_Load()
Dim dbName As String
Dim connSTR As String

On Error GoTo errEnd

ChDir App.Path
dbName = App.Path
If Right(dbName, 1) <> "\" Then dbName = dbName + "\"
dbName = dbName + "DataBase\WFSSDataBase.mdb"

connSTR = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName & ";Persist Security Info=False"
Adodc1.ConnectionString = connSTR

Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "客户反馈"
Adodc1.Refresh

Exit Sub

errEnd:
    MsgBox "连接数据库失败!", vbOKOnly + vbExclamation, "打开数据库出错"
    End
End Sub



'此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
'╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
'╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
',︶︶︶︶,''︶~~ ,''~︶︶　 ,''
'╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
'╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
'╬　　　　　　　http://www.5ivb.net ╬
'╬　 ╭○╮●　                   　╬
'╬　　/■\/■\　　                  ╬
'╬　　 <|　||　   有希望,就有成功！ ╬
'╬　　　　　　　　　　　　　　　　　╬
'╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
'
'说明：
'专业提供VB、．NET、Delphi、ASP、PB源码下载
'包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档