正文示范 第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