跪求数据库原理与应用作业~~

图书管理系统 的 打印提交课程设计报告，包括：（1）需求分析 数据需求、功能需求（2）数据库设计 概念设计：E-R图 逻辑设计：关系模式 物理设计：索引设计（3）程序设计 功能结构 算法描述（伪代码或流程图） 源代码（关键部分增加注释）（4）系统运行效果（截图并加以说明）（5）总结和体会2）以电子（光盘）形式提交如下材料：（1）课程设计报告（与打印版相同）；（2）源程序；（3）编译后的执行程序；（4）数据库设计文件（建库程序SQL语句，建库说明文档，数据文件，或数据库设计工具生成的文件）；（5）一个说明文件（readme.txt），说明安装/运行/配置系统或数据库的注意事项。

2.代码设计

单击账号后的空白处，程序代码如下：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Call Image1_Click

End If

End Sub

Public Sub addtrans(tkFileName As String)

buff = String(255, 0)

backFile = Date + 5

Dim backfila As String

backfila = Date

Dim backfilb As Date

ret = GetPrivateProfileString("OKxj", "yesno", "", buff, 256, "c:\xj.ini")

If ret <> 0 Then

ret1 = GetPrivateProfileString("Bakxj", "qs", "", buff, 256, "c:\xj.ini")

Label13.Caption = buff

If Label13.Caption = "NO" Then

ret1 = GetPrivateProfileString("Bakxj", "yy", "", buff, 256, "c:\xj.ini")

Label13.Caption = buff

MsgBox Label13.Caption

End

ElseIf Label13.Caption <= Date Then

ret1 = GetPrivateProfileString("Bakxj", "yy", "", buff, 256, "c:\xj.ini")

Label13.Caption = buff

MsgBox Label13.Caption

success1 = WritePrivateProfileString("Bakxj", "qs", "NO", "c:\xj.ini")

End

End If

Else

success = WritePrivateProfileString("OKxj", "yesno", "yes", "c:\xj.ini")

success1 = WritePrivateProfileString("Bakxj", "qs", backFile, "c:\xj.ini")

success2 = WritePrivateProfileString("Bakxj", "yy", Label13.Caption, "c:\xj.ini")

End If

End Sub

单击密码后空白处，程序代码如下：

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Call Image1_Click

End If

End Sub

单击“确定”后，程序代码如下：

Private Sub Command1_Click()

Call Image1_Click

End Sub

单击框体，代码如下：

Private Sub Form_Load()

Text1.BackColor = RGB(98, 162, 207)

Text2.BackColor = RGB(98, 162, 207)

addtrans App.Path '连接数据库

End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息