软件工程项目化教程 高职软件专业 陈巧莉 课后习题答案 项目4 人事管理系统开发指南 习题解答.docVIP

一、简答题： 1、简要说明“用户登录”模块的实现方法。 答案： （1）用户登录模块的流程图 图1 用户登录模块流程图 （2）实现步骤： a．分析并创建用户登录业务模型（如图1） b．界面设计（如图2） 图2 用户登录界面 c．添加代码（详见教材） ------------------------------------------------------------------------------- frmLogin---登录界面 ------------------------------------------------------------------------------- Dim Alpha As Integer 声明变量 Private Sub cmdDL_Click() If Me.Combo1.Text = Then MsgBox 请选择登陆用户！, 48, 错误提示 Exit Sub End If Call OpenConn SQL = select * from 系统用户表 where Czy= Me.Combo1.Text rs.Open SQL, cn, 1, 1 If zhuan(txtPass.Text) = IIf(Trim(IsNull(rs.Fields(pass))), , Trim(rs.Fields(pass))) Then gCzy = rs.Fields(czy) gCzyqx = rs.Fields(czyqx) Call CloseConn MDIfrm.Show Unload Me Else MsgBox 密码错误！, 48, 错误提示 End If End Sub 2、简述用DataGrid控件添加、修改、删除数据的方法。 答案 首先需要为DataGrid控件绑定数据： a. 为要访问的数据库创建一个 Microsoft 数据链接 (.MDL) 文件。请参阅“创建 Northwind OLE DB 数据链接”主题，以获得一个示例。 . 在窗体上放置一个 ADO Data 控件，并将其 ConnectionString 属性设置为在第 1 步中所创建的OLE DB 数据源。 . 在这个 Ado Data 控件的 RecordSource 属性中输入一条将返回一个记 录集的 SQL 语句。例如，Select * From MyTableName Where CustID = 12 . 在窗体上放置一个 DataGrid 控件，并将其 DataSource 属性设置为这个 ADO Data 控件。 . 右键单击该 DataGrid 控件，然后单击“检索字段”。 . 右键单击该 DataGrid 控件，然后单击“编辑”。 . 重新设置该网格的大小、删除或添加网格的列。 . 右键单击该 DataGrid 控件，然后单击“属性”。 . 使用“属性页”对话框来设置该控件的适当的属性，将该网格配置为所需的外观和行为。　　Private Sub AddColumn() 　　　　　Dim c As Column 　　　　　　Set c = DataGrid1.Columns.Add(DataGrid1.Columns.Count) 　　　　　End Sub　　Private Sub AddColumn(ByVal ColIndex As Integer) 　　　　　Dim c As Column 　　　　　　DataGrid1.Columns.Updata ColIndex 　　　　　End Sub　Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer) 　　　　　　　DataGrid1.Columns.Remove ColIndex 　End Sub