2阶段二：登录界面的设计与实现2

,*,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,单击此处编辑母版标题样式,阶段二：登录界面的设计与实现,3,、数据的输入和输出,（,1,）输入对话框,InputBox,函数,InputBox,函数的作用：打开一个对话框，等待用户输入内容，当用户单击“确定”按钮或按回车键后，函数返回输入的值，其值的类型为字符串。,InputBox,(,提示,，标题,，缺省,，,x,坐标位置,，,y,坐标位置,),其中：提示：提示信息；标题：对话框标题；缺省：输入区缺省值,例要在屏幕上显示图示的对话框：,相应的语句如下：,Dim,strName,As String * 40,strName,=,InputBox,(“,请输入你的姓名,”,+,vbCrLf,+ “,然后单击确定,”, “,输入框,”,),（ 其中,vbCrLf,为显示多行）,也可以使用如下语句：,Dim,strName,As String * 40,，,strS1 As String * 40,strS1 = “,请输入你的姓名,”,+ Chr(13) + Chr(10) + “,然后单击确定,”,（其中,Chr(13),为（回车） ，,Chr(10),为换行）,strName,= InputBox(strS1,，,输入框,， ，,100,，,100),当键盘输入“王晓明”后，变量,strName,获得键盘输入的值。,（,2,）消息对话框,MsgBox,函数和,MsgBox,过程,MsgBox,的作用是打开一个消息框，等待用户选择一个按钮。,函数形式：变量,% =,MsgBox,(,提示,按钮,，标题,),过程形式：,MsgBox,提示,按钮,标题,按钮：整型表达式，决定消息框按钮的数目、含义及出现在消息框上的图标类型。,例：,i =,MsgBox,(,密码错误, 5 +,vbExclamation, ,警告,),按钮值如下,函数返回所选按钮整数值：,三、基本控件和窗体,1,、控件常用属性,（,1,）,Name,名称属性,创建的对象名称，有默认的名。在程序中，控件名是作为对象的标识而引用，不会显示在窗体上。,（,2,）,Caption,标题属性,该属性决定了控件上显示的内容。,（,3,）,Height,、,width,、,top,和,left,属性,（,4,）,Enabled,属性,控件是否可操作。当设置为,false,时，呈暗淡色，禁止用户进行操作。,（,5,）,Visible,属性,控件是否可见。当设置为,false,时，用户看不到，但控件本身存在。,（,6,）,Font,属性,Fontname,：字体；,Fontsize,：字体大小；,Fontbold,：是否是粗体；,Fontitalic,：是否斜体；,Fontstrikethru,：是否加一删除线。,Fontunderline,：是否带下划线。,（,7,）,Forecolor,前景颜色属性,设置控件的前景颜色（即正文颜色,),。其值是一个十六进制常数，用户可以在调色板中直接选择所需颜色。,（,8,）,Backcolor,背景颜色属性（以标签为例）,（,9,）,Backstyle,背景风格属性,0-transparent,：透明显示，即控件背景颜色显示不出来。,（,10,）,BorderStyle,边框风格属性,0-None,：控件周围没有边框。,1-Fixed Single,：控件带有单边框。,（,11,）,Alignment,属性,控件上正文水平对齐方式,0,：正文左对齐,；,1,：右对齐；,2,：居中。,（,12,）,AutoSize,属性,控件是否根据正文自动调整大小，,False,（,13,）,WordWarp,属性,AutoSize,True,时，,WordWarp,才有效。,按正文字体大小在垂直方向上改变显示区域的大小。,（,14,）,TabIndex,属性,决定了按,Tab,键时，焦点在各个控件移动的顺序。各个控件默认,TabIndex,值就是以控件建立时 的顺序，第一个为,0,。,（,15,）控件默认属性,反映该控件最重要的属性，使用时可省略属性名。,注意：,Command,的默认属性为,Default,当该属性为,True,，当按,Enter,键，该控件起作用。当,Command,的,Cancel,属性为,True,，当按,Esc,键，该控件起作用。,2,、窗体,（,1,）属性,Caption,标题,MaxButton,、,MinButton,Icon,、,ControlBox,Picture,、,AutoRedraw,BorderStyle,（,0 1,2,3 4 5,）,WindowsState,（,0,-,正常、,1-,最小化、,2-,最大化）,（,2,）事件,Click,：单击鼠标时激发。,DblClick,：双击鼠标时激发。,Load,：当装入窗体时激发，通常用于对属性和变量初始化。,UnLoad,：当销毁窗体时激发。,（,3,）方法,Print,、,Cls,和,Move,等,3,、标签（,Label,）,用于显示文本,(,输出,),信息，不能作为输入信息的界面。,4,、文本框（,TextBox,）,是一个文本编辑区域，可在该区域输入，编辑和显示正文内容。,（,1,）其他属性,Text,：正文内容；,Maxlength,：设置正文的最多字符个数，,0,任意长度值；,MultiLine,：是否为多行，默认为一行，,False,；,ScrollBars,：,MultiLine,为,True,时，该属性才有效，表示滚动条的形式,None,、,1-Horizontal,、,2-Vertical,、,3-Both,；,Locked,：是否可被编辑属性，,False,，表示为可编辑；,PassWord,：口令字符；,Text,属性返回输入的数据，屏幕显示该字符；,SelStart,、,SelLength,、,SelText,：选中文本的起始、长度、内容。,（,2,）常用事件,Change,：当改变文本框的,Text,属性时会引发该事件。,KeyPress(KeyAscii,As Integer),：同上，并可返回一个,KeyAscii,参数。,KeyAscii,为,13,，按回车键,;,为,0,，去除刚输入的字符。,LostFocus,：当控件失去焦点时发生。,GotFocus,：当控件获得焦点时发生。,（,3,）常用方法,对象,.,SetFocus,：是把光标移到指定的文本框对象中。,5,、命令按钮（,CommandButton,）,接受用户输入的命令。输入命令可以有三种方式：,鼠标单击、,Tab,键焦点到该按钮、快捷键。,（,1,）其他属性,Caption,：命令按钮显示的内容，可设置快捷键。,Value,：检查该按钮是否按下。该属性在设计时无效。,Picture,：按钮可显示图片文件,(.bmp,和,.,Ico,),，当,Style,为,1,时有效。,Style,：确定显示的形式，,0,只能显示文字，,1,文字、图形均可。,ToolTipText,：设置工具提示，和,Picture,结合使用。,（,2,）事件,Click,登陆界面设计与实现：,数据库准考证号和身份证号,2,、数据库准考证号和身份证号,功能描述：输入正确的准考证号和身份证号（来自数据库）进入主界面，否则提示,请确认准考证号或身份证号是否正确！,。,界面设计：界面由两个标签控件、两个文本框控件、两个命令按钮控件和一个,ADO,控件组成，界面如下所示：,属性设计：,控件类型,控件名称,控件属性,Form,frmLogin,Caption=”,用户登录,”,Label,lblStudentCode,Caption=”,准考证号：,”,Label,lblIDCard,Caption=”,身份证号：,”,TextBox,txtStudentCode,Text=”,TextBox,txtIDCard,Text=”,CommandButton,CmdOk,Caption=”,登录,”,CommandButton,CmdExit,Caption=”,退出,”,Cancel=True,Adodc,Adodc1,ConnectionString,=” Provider=SQLOLEDB.1;Integrated Security=,SSPI;Persist,Security Info=,False;Initial,Catalog=,exam;Data,Source=IBMR60EWXG”,CommandType,=”1-adCmdText”,RecordSource,=” select * from student”,运行情况：输入准考证号为“,370501010001”,身份证号为“,1”,运行界面如下所示：,代码如下：,Private Sub,cmdExit_Click,(),End,End Sub,Private Sub,cmdOK_Click,(),Adodc1.RecordSource = select * from student where,studentcode,= +,txtStudentCode.Text,+ and,idcard,= +,txtIDCard.Text,+ ,Adodc1.Refresh,If Adodc1.Recordset.RecordCount 0 Then,Me.Hide,frmMain.Show,Else,MsgBox,请确认准考证号或身份证号是否正确！,vbInformation, ,系统提示,End If,End Sub,