有哪位朋友能给我一个简单数据库程序的程序源代码看看，能实现增删查改就可以，谢谢！

www.dapha.net
www.vbeden.net
www.vbgood.com

应用程序向导里面可以生成adodc,adodb的数据库窗口。

可以访问www.vbgood.com
www.dapha.net
www.21code.com
www.vbeden.com
www.myvc.net
msdn.microsoft.com
http://www.codestudy.net
http://www.vbaccelerator.com/
http://www.mvps.org/vbnet/
http://www.freevbcode.com/
http://www.pscode.com/vb/
http://www.allapi.net
和MSDN得到更多的帮助.............

Private Sub cmdAdd_Click()
On Error Resume Next'****************************************添加按钮事件响应****************************
    cmdSave.Enabled = True                                      '控件控制
    cmdCancel.Enabled = True
    cmdFirst.Enabled = False
    cmdPrev.Enabled = False
    cmdNext.Enabled = False
    cmdLast.Enabled = False
    cmdAdd.Enabled = False
    cmdDelete.Enabled = False
    cboLeixing.Enabled = True
    txtMingxi.Enabled = True
    txtNum.Enabled = True
    txtBeizu.Enabled = True
    txtTotal.Enabled = True

    txtMingxi.Text = "-"                                              '清空文本框
    txtNum.Text = "-"
    txtBeizu.Text = "-"
    'cboLeixing.Text = "翻板费"
    txtTotal.Text = ""

End Sub
Private Sub cmdSave_Click()                                           '保存按钮功能代码
'On Error Resume Next'*******************************************字段为空验证*********************************    If cboLeixing.Text = "" Or txtTotal.Text = "" Then
        MsgBox "开支类型、金额、字段不能为空", vbOKOnly, "警告"
        cmdCancel_Click
        Exit Sub
    End If    Dim response As Integer
    MsgBox "你正在往数据库添加一条记录，该记录将作为你结帐的依据，请再次确认开支金额！", vbOKOnly, "提示"
    response = MsgBox("你开支的金额为：￥" & txtTotal.Text & "元，对吗？？？", vbYesNo, "提示")
    If response = vbNo Then
        MsgBox "你可能输入错误，请再次核对！", vbOKOnly, "警告！！！"
        Exit Sub
    End If

    rsOutput.AddNew
    txtDate.Text = cboYear.Text & cboMonth.Text & cboDay.Text
    rsOutput!日期 = txtDate.Text
    rsOutput!类型 = cboLeixing.Text
    rsOutput!明细 = txtMingxi.Text
    rsOutput!数量 = txtNum.Text
    rsOutput!备注 = txtBeizu.Text
    rsOutput!金额 = txtTotal.Text
    rsOutput.Update

    cmdSave.Enabled = False
    cmdCancel.Enabled = False
    cmdAdd.Enabled = True
    cmdDelete.Enabled = True

    cboLeixing.Enabled = False
    txtMingxi.Enabled = False
    txtNum.Enabled = False
    txtBeizu.Enabled = False
    txtTotal.Enabled = False
    cmdFirst.Enabled = True
    cmdPrev.Enabled = True
    cmdNext.Enabled = True
    cmdLast.Enabled = True
    display2

End SubPrivate Sub cmdCancel_Click()                                      '放弃按钮功能代码
On Error Resume Next'***********************************控件Enable属性控制*******************************
    cboLeixing.Enabled = False
    cmdAdd.Enabled = True
    cmdSave.Enabled = False
    cmdCancel.Enabled = False
    cmdFirst.Enabled = True
    cmdPrev.Enabled = True
    cmdNext.Enabled = True
    cmdLast.Enabled = True
    cmdDelete.Enabled = True
    txtMingxi.Enabled = False
    txtNum.Enabled = False
    txtBeizu.Enabled = False
    txtTotal.Enabled = False
    display1End SubPrivate Sub cmdDelete_Click()                                      '删除按钮功能代码
On Error Resume Next'***************************************删除记录控制**********************************
    Dim response As Integer
    response = MsgBox("你真想删除一条记录吗？？", vbYesNo, "警告")
    If response = vbNo Then Exit Sub
    With rsOutput
        .Delete
        .MovePrevious
        If .EOF Then .MoveLast
        If .BOF Then .MoveFirst
    End With
    display1
    display2
end sub

'查
    Dim strSQL As String
    strSQL = "select * from 厂内销售收入表 where 树种 = " & "'" & cboShuzhong.Text & "' order by 日期"
    Set rscmdOk1 = New ADODB.Recordset
    rscmdOk1.Open strSQL, cnCnn1.cnCnn, adOpenStatic, adLockOptimistic, adCmdText'改On Error Resume Next    If cboAdmin.Text = "" Or txtUserName.Text = "" Or txtPassword.Text = "" Then
        MsgBox "所有字段不能为空！", vbOKOnly, "警告"
        Exit Sub
    End If

    Set rscmdOK2 = New ADODB.Recordset
    rscmdOK2.Open "select 权限,用户,密码 from 用户表 where 用户 = '" & txtUserName.Text & "'", cnn.cnCnn _
            , adOpenStatic, adLockOptimistic, adCmdText
    If rscmdOK2.RecordCount <> 0 Then
        rscmdOK2!权限 = cboAdmin.Text
        rscmdOK2!密码 = txtPassword.Text
        rscmdOK2.Update
        rscmdOK2.Close
        MsgBox "你已经成功修改密码，如果密码丢失，请与系统管理员联系！", vbOKOnly, "提示"
        cmdOK2.Visible = False
        cmdChange.Visible = True
        Exit Sub
    End If

    If rscmdOK2.RecordCount = 0 Then MsgBox "你要修改密码的用户并不存在，请重新核对！", vbOKOnly, "警告"

我个人认为在（VB）的基础上研究别人的源代码就是最好的教材！！！可以学到很多很多！！在这里想结交天下编程爱好者（QQ：40709839）

大家好，本人是一名VB程序员，干了两年VB编程，不能说是高手，但也积累了不少相关编程经验。《医药进销存管理系统》是本人自认为最为代表性的VB管理软件,集医药进销存、人事工资、报表一体化设计，并附有数据开发流程图。
对初学者尽快掌握VB编程也有一定帮助。
收费原因：1、网上的免费源码多如牛毛，但一调试就出现很多bug，不利于初学者。
          2、源码标有详细的注释，代码段结构清晰，这也是本人的编程风格。
          3、你只需改动一小部分，就可以将其上市，为您带来经济效益。
          4、价格低廉。有安装包可以安装一下，试其效果。
◆域名1：http://muguanet.5inet.cn
◆域名2：http://muguanet.126.com
【本人不常来csdn，请到留言板上留言。】详细联系方式请看网站的下载中心。

调试易

有哪位朋友能给我一个简单数据库程序的程序源代码看看，能实现增删查改就可以，谢谢！

解决方案 »