历时两个月的毕业设计终于做完了，现送部分源代码兼散分！（UP没分）

[xks]

历时两个月的毕业设计终于做完了，现送部分源代码兼散分！（UP没分）

总结一些代码，现送给有这方面需要的各位！

写的不好！望指教！


'*********************************************************
'* 名称：类模块DataBaseConnection
'* 功能：连接SQL Server、Access等数据库的模块定义
'*********************************************************

Option Explicit

Public Function MdbConnectString(MdbFile As String, Optional UserName As String, Optional password As String) As String
MdbConnectString = "Provider=MSDASQL.1;Extended Properties=" + """" + "DBQ=" + MdbFile + ";Driver={Microsoft Access Driver (*.mdb)};MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=" + UserName + ";Pwd=" + password + """"
End Function

Public Function XlsConnectString(XlsFile As String) As String
XlsConnectString = "Provider=MSDASQL.1;Extended Properties=" + """" + "DBQ=" + XlsFile + ";Driver={Microsoft Excel Driver (*.xls)};MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3" + """"
End Function

Public Function CsvConnectString() As String
CsvConnectString = "Provider=MSDASQL.1;Extended Properties=" + """" + "Driver={Microsoft Text Driver (*.txt; *.csv)};MaxBufferSize=2048;MaxScanRows=25;PageTimeout=5;SafeTransactions=0;Threads=3;" + """"
End Function

Public Function SqlConnectString(ServerName As String, UserName As String, password As String) As String
SqlConnectString = "Provider=SQLOLEDB.1;User ID=" + UserName + ";Pwd=" + password + ";Data Source=" + ServerName
End Function


模块中定义的连接等公用变量
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cmd As New ADODB.Command


'*********************************************************
'* 名称：连接服务器窗体
'* 功能：连接SQL Server数据库
'* 控件：三个文本框和两个按钮
'*********************************************************
Private Sub Command1_Click()
On Error Resume Next
Dim DBC As New DataBaseConnection
If db.State = 1 Then
db.Close
End If
db.ConnectionString = DBC.SqlConnectString(Text1.Text, Text2.Text, Text3.Text)
rs.CursorType = adOpenDynamic
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
db.CursorLocation = adUseClient
db.Open
Set cmd.ActiveConnection = db
If Err.Number Then
MsgBox Err.Description, 16 + vbOKOnly, Err.Number
Exit Sub
End If
db.DefaultDatabase = "student1"　　’设置要连接数据库名称
If Err.Number Then
MsgBox Err.Description, 16 + vbOKOnly, Err.Number
Exit Sub
End If
d1 = Text1.Text
d2 = Text2.Text
d3 = Text3.Text
Form1.Show
Unload Me
End Sub


'*********************************************************
'* 名称：系统登录窗体
'* 功能：系统登录
'* 控件：两个文本框和两个按钮
'*********************************************************

Private Sub cmdOK_Click()
dim cw as integer
On Error Resume Next
cmd.CommandText = "Select * from user_info where user1 = '" + Text1.Text + "' And password = '" + Text2.Text + "'"
Set rs = cmd.Execute
If Err.Number Then
MsgBox Err.Description, 16 + vbOKOnly, Err.Number
Exit Sub
End If
If rs.RecordCount = 0 Then
cw = cw + 1
If cw >= 3 Then
MsgBox "你可能不是本系统的合法用户！"
End
End If
MsgBox "用户名不正确或密码不对，请重新输入！", 16 + vbOKOnly, "错误"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub
End If
MDIForm1.Show
Unload Me
End Sub


'*********************************************************
'* 名称：添加管理员用户：
'* 功能：向数据库表中添加记录用以登录系统
'* 控件：三个文本框和两个按钮
'*********************************************************
Private Sub cmdOK_Click()
Set cmd.ActiveConnection = db
If Trim(user(0).Text) = "" Then
MsgBox "请输入用户名", vbOKOnly + vbExclamation, "警告"
Exit Sub
user(0).SetFocus
Else
cmd.CommandText = "select * from user_info"
Set rs = cmd.Execute
While (rs.EOF = False)
If Trim(rs.Fields(0)) = Trim(user(0)) Then
MsgBox "用户名已经存在，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
user(0).Text = ""
password(1).Text = ""
password(2).Text = ""
user(0).SetFocus
Exit Sub
Else
rs.MoveNext
End If
Wend
End If
If Trim(password(1).Text) <> Trim(password(2).Text) Then
MsgBox "两次输入的密码不一致，请检查确认！", vbOKOnly + vbExclamation, "警告"
password(1).Text = ""
password(2).Text = ""
password(1).SetFocus
Else
If password(1).Text = "" Then
MsgBox "密码不能为空，请重新输入", vbOKOnly + vbExclamation, "警告"
password(1).Text = ""
password(2).Text = ""
password(1).SetFocus
Else
r = CStr(user(0).Text)
t = CStr(password(1).Text)
cmd.CommandText = "insert into user_info( user1,password) values(" & "'" & r & " '" & "," & "'" & t & "'" & ");"
Set rs = cmd.Execute
user(0).Text = ""
password(1).Text = ""
password(2).Text = ""
MsgBox "添加用户成功！", vbOKOnly + vbExclamation, "添加用户"
Me.Hide
End If
End If
End Sub

[vbangle]

别人没说要给大家源码呀，怎么都留邮箱呀？

[xks]

看上面这位兄弟说的！

有东东当然要大家分享了！

[crosslab]

如果愿意，给我一份吧！~~~
谢谢了哦！~~~
[e-mail]

[pcwak]

还是发到信箱吧
[e-mail]

[sinopec_fjnp]

给我份吧，谢谢！
[e-mail]

[cngufc]

给我一份吧，谢谢、
[e-mail]

[liuchxing]

楼主:写得不错,模块分的蛮清楚的,功能也还行,能把源代码发给我吗? 谢谢!!
[e-mail]

[wumingwuming]

超低价出售优秀计算机专业本科毕业论文

您好！
由于本人已顺利本科毕业并参加工作，所以低价出售我的完整优秀本科毕业论文，
毕业评定为96分，计算机专业(数据库系统设计)，《电脑公司经营管理系统》。

全部完整的论文文档3.5万余字并附有《电脑公司经营管理系统》全部完整的源代码(PowerBuilder 8.0 + ASA 7.0后台数据库)和详细开发文档资料，以及论文英文译文1.5万余字。

共300元超低价出售。

————————————————————————————————

包含设计资料、开发文档、全部源代码，保证顺利运行，正常使用
不还价，如有购买意向请回复邮件联系我
[e-mail]
QQ: 150975999
UC: 17553711
晚上在！！！
非诚请勿扰！！！

————————————————————————————————

下面是此套系统的部分功能项，此套系统经测试，已经在多家电脑公司实施，运行相当稳定，
如果需要详细的资料请回复邮件联系我。
————————————————————————————————
功 能 目 录
———————————————
系统登录
———————————————
系统主程序界面
1. 启动界面
———————————————
客户装机报价
1. 装机报价
2. 网上行情
3. 计算器
4. 记事本
5. 发送电子邮件
6. 员工通讯录
7. 职工管理
———————————————
系统信息维护
1. 配件信息修改维护
———————————————
系统数据输出
1. 打印配件报价单
———————————————
员工人事管理系统
1. 员工基本信息输入
2. 维护员工的基本信息
3. 浏览员工的基本信息
4 员工信息条件查询
———————————————
员工考勤管理系统
1. 个人考勤记录修改
2. 缺勤类型设定
3. 员工考勤情况报表
———————————————
系统辅助软件工具
1. 外币兑换计算器
2. 电子时钟
———————————————
系统设置
1. 密码修改
2. 打印设置
———————————————
系统帮助信息
1. 关于软件
2. 退出系统

[zhangxiushu]

xks (☆一般人儿我不告诉他☆) ,你的论文不错，可以发一份给我么？

[e-mail]

[aqfirst7811]

先謝謝！
[e-mail]

[myxiaopeier]

高，实在是高！

[windeflower]

你做的是什么系统啊
我很想看看你的论文
都拿来吧！！！！！！！！！

可以的发到我邮箱[e-mail]
谢谢

[shenxin]

Mask

[forrestsun]

疯了：（

[xfzjh]

我最近也正在写一个和你一样的软件，能发给给我看看吗？
email:[e-mail]

[zergjeff]

thank you!
[e-mail]

[ychxl]

也给我一份吧，谢谢！
[e-mail]

[freetide]

给小弟偶一份吧，学习学习。

[Flyinice]

最毕业设计
能给我一份么?~

[zjpwm]

能不能发给我源程序？
[e-mail]