燕山大学本（专）科生毕业设计论文撰写规范(6)

正文示范 第1章 题目

1.1 系统开发背景

具体内容。 ?? ??

1.2 系统设计目标和意义

附录1：程序源代码

1 登录窗体代码

示例：代码字号可以是小五号

Dim cnt As Integer '记录确定次数 Private Sub Command1_Click() Dim sql As String

Dim kh_login As New ADODB.Recordset

If Trim(Text1.Text) = \ '判断输入的用户名是否为空 MsgBox \没有这个用户\ Text1.SetFocus Else

sql = \系统信息 where user_ID='\ kh_login.Open sql, conn, adOpenKeyset, adLockPessimistic If kh_login.EOF = True Then

MsgBox \没有这个用户\ Text1.SetFocus

Else '检验密码是否正确 If Trim(kh_login.Fields(1)) = Trim(Text2.Text) Then userID = Text1.Text

username = kh_login.Fields(2) kh_login.Close Unload Me frmmain.Show

36

Else

MsgBox \密码不正确\ Text2.SetFocus End If End If

2 主窗体代码

Dim cnt As Integer

37

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库燕山大学本（专）科生毕业设计论文撰写规范(6)在线全文阅读。