一、 一、命令方式:启动Visual Foxpro系统后,在命令窗口中输入 o1 J& h- O/ z8 v+ [
CREATE PROJECT 学生管理 && 保留字可以取前四个字母
4 a& W( H7 P$ @( {; l7 Y1 c 二、可以使用菜单方式进行建立
8 U3 d) v) `% d! E/ w* h% R. ~ 1. 单击“文件\新建”命令项,弹出“新建”对话框。- M: `) s; n9 e6 `) c; {
2. 在“新建”对话框中,选择“项目”单选钮,再按“新建文件”按钮,弹出“创建”对话框。3 D: h% E! |/ b3 ^1 m& s7 M- C
3. 在“创建”对话框中输入项目文件名“学生管理”,再按回车键或按“保存”按钮,这样就可以建立项目文件了,并出现“项目管理器”对话框。8 ~8 }' J( ^) J. d
1. 打开项目“学生管理”,在项目管理器中的“数据”选项卡中,选择“数据库”,单击“添加”按钮。
5 {+ n* s" ~+ D# y 2. 在“打开”对话框中,选择“学生.DBC”数据库文件,单击“确定”按钮即可。! W S8 C( E4 F/ W
1. 打开数据库
( ^; t1 c. B1 _' [ OPEN DATABASE 学生6 z4 d$ s5 F- s) ~5 K6 \4 V
2. 从数据库移出教师表
3 h( o, |) s3 n" K5 g' P% c& ^7 ^ REMOVE TABLE 教师
% U7 j, ]( N! o" G 1. 在“数据库设计器-学生”中,选择表“学生”并单击鼠标右键,选择“修改”命令,在屏幕上显示“表设计器-学生.dbf”窗口,单击“索引”选项卡,然后输入索引名“学号”,选择类型为“主索引”,表达式为“学号”,最后单击“确定”按钮。/ H8 M& U& k3 ]- M2 U% o! c
2. 在“数据库设计器-学生”中,选择表“选课”并单击鼠标右键,选择“修改”命令,在屏幕上显示“表设计器-选课.dbf”窗口,单击“索引”选项卡,然后输入索引名“学号”,选择类型为“普通索引”,表达式为“学号”,最后单击“确定”按钮。
7 q4 F0 G4 B5 d 3. 在“数据库设计器-学生”中,然后选择“学生”表中主索引键“学号”并按住不放,然后移动鼠标拖到“选课”表中的索引键为“学号”处,松开鼠标即可。
0 c6 m2 J3 V4 R9 a 二、" w! V; j E/ Z. g
在teacher.txt文件存放如下内容:
8 l. h" a. e* S' W a8 r$ S update 教师 set 新工资=原工资*1.20 where 职称="教授" N- L Y# ]6 K! ]
update 教师 set 新工资=原工资 where 职称!="教授"
* h9 j y, \0 C. j% K6 u% o2 [ insert into 教师 values("林红","讲师",10000,10200)% I e& ~: s6 _! ]% u. G6 d( P' l
在teacher.txt文件存放如下内容: r) m! G2 s% r
update 教师 set 新工资=原工资*1.20 where 职称="教授"* P+ S& O V7 M0 n# e o
update 教师 set 新工资=原工资 where 职称!="教授"
1 y) p+ o+ c+ U5 H1 D" N insert into 教师 values("林红","讲师",10000,10200)
) n. E+ M; y: G2 `$ z2 F x7 E 三、, I5 a, e' \2 I8 y
1. 在命令窗口中输入建立表单命令
' d: m3 l8 w! T: L c! R" W2 M! g* \ CREATE FORM mystu7 ^! t2 J' R( u6 Z4 e
2. 在“表单设计器”中,在“属性”的Caption处输入“计算机系学生选课情况”。
7 \: Z( S) Z( a 3. 在“表单设计器”中,添加一个表格控件,在“属性”的RecordSourceType处选择“4 - SQL 说明”。- {) a+ ~3 L+ ]
4. 在“表单设计器”中添加两个命令按钮,在第1个命令按钮“属性”窗口的Caption处输入“查询”,在第2个命令按钮“属性”窗口的Caption处输入“退出”。
! s0 K8 k, e4 O/ T; f* Z0 i; z+ v# p 5. 双击“查询”按钮,在“Command1.Click”编辑窗口中编写相应的程序0 R, X, O8 t, x( Q: Z
thisform.grid1.recordSource="SELECT DISTINCT 学生.姓名, 课程.课程名称, 选课.成绩;6 M7 [5 {/ M. m( [# o+ g
FROM 学生!课程 INNER JOIN 学生!选课;+ R& O$ L" Z8 N% c, p( l/ c7 r2 O
INNER JOIN 学生!学生 ;, l- y' c* w; O0 `2 g
ON 学生.学号 = 选课.学号 ;
7 M& x1 _5 \2 l0 C! y6 o4 X ON 课程.课程号 = 选课.课程号;
+ S c8 g) Z" H! G4 d, ?: |: l! _ WHERE 学生.系 = '6';
( i, C! `% B3 k into cursor lsb"& q" P" k |+ [ V2 u0 z2 j8 Q
6. 双击“退出”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”,并关闭编辑窗口。 |