(一)建立学员信息表
1、双击打开软件,出现表A、表B、表C
2、单击选择表A,单击选择数据表(功能区),单击重命名,在对话框中“请输入新的表名处”输入“学员信息表”,单击确定
3、选择“学员信息表”,单击“其他”“查看表结构”,双击“第一列”,在更改列对话框中,输入新的列名为“学员编号”,“新的数据类型选择“字符”,字符长度选择“5”,之后依次修改为
列名 |
类型 |
长度 |
|
学员编号 |
字符 |
5 |
|
学员姓名 |
字符 |
5 |
|
学员姓名助记码 |
字符 |
5 |
学员信息表处于选定状态,选择表属性,事件,数据,DataColChanged,右侧图标,打开代码编辑器,复制粘贴以下代码,确定
If e.DataCol.Name = "学员姓名" Then
If e.NewValue = Nothing Then
e.DataRow("学员姓名助记码") = Nothing
Else
e.DataRow("学员姓名助记码") = GetPy(e.NewValue, True)
End If
End If |
性别 |
字符 |
1 |
选择性别列,列属性,字典,标准,数据字典选项卡下,数据列输入1,对应显示值“男”,2对应显示值女,点确定 |
学员联系方式 |
字符 |
11 |
第五列列名输入“学员联系方式_方式1”
第六列列名输入“学员联系方式_方式2” |
(二)创建学员信息窗体
1、单击“增加表”,在打开的增加表窗口中,单击第一列,然后点击删除列,保留第十列,并改名为“学员信息主窗口”,点确定,表名输入“学员信息主窗口”,确定。回到“学员信息主窗口表”,多选2至9行,右键,删除。
2、单击管理项目,窗口管理,增加窗口,“学员信息主窗口”,选择并设计窗口,“属性”,所有者表和窗口标题为“学员信息主窗口”,窗口类型选择“主窗口”,图标选择icon格式图,北京颜色选bisque
3、添加Table(表)控件,属性栏名称输入“学员信息表”,绑定表选择“学员信息”,锚定选择Top,Lelt,停靠选择right
4、添加Button控件,属性,名称和标题为“学员信息”,字体改为“微软雅黑”“加粗”,双击此按钮,进入代码编辑器,Click代码输入区输入Tables("学员信息表").DataTable.Load()
确定,文件,预览
5、添加Button控件,属性,名称和标题为“新增学员”,字体字体改为“微软雅黑”“加粗”,双击此按钮,进入代码编辑器,Click代码输入区输入Tables("学员信息表").AddNew()
6、添加Button控件,属性,名称和标题为“删除学员”,字体字体改为“微软雅黑”“加粗”,双击此按钮,进入代码编辑器,Click代码输入区输入Tables("学员信息表").Current.Delete