init.prg

一个用vf6.0编写的学生管理系统。包括 登录 、系统维护、数据处理、 资料查询、报表打印、系统帮助等功能。

close all
set safety off
if !directory(sys(5)+curdir()+"数据\")
  md sys(5)+curdir()+"数据\"
endif
cd sys(5)+curdir()+"数据\"

create database sys(5)+curdir()+"学生管理"

create table 学生档案(学号 c(6) primary key,姓名 c(8),性别 c(10),出生日期 d,民族 c(10),籍贯 c(20),政治面貌 c(4),何时入学 n(4),;
所在院系 c(20),专业、班级 c(20),所在寝室 c(10),寝室电话 c(12),手机 c(11),家庭电话 c(12),家庭地址 c(50),父亲姓名 c(10),父亲工作单位 c(20),父亲职务 c(10),;
父亲政治面貌 c(4),父亲联系电话 c(12),母亲姓名 c(10),母亲工作单位 c(20),母亲职务 c(10),母亲政治面貌 c(4),母亲联系电话 c(12),个人特长 m,参加活动及所获奖项 m,自我介绍 m,照片 g,照片路径 c(254))
index on 何时入学 tag 何时入学 ascending
index on LEFT(专业、班级,4)+学号 tag WIZARD_1 ascending
index on 专业、班级+学号 tag WIZARD_2 ascending

create table 学生成绩表(学号 c(6) primary key,课程 c(20),成绩 n(5,1),补考成绩 n(5,1),foreign key 学号 tag 学号 references 学生档案)

create table 任课教师一览表(姓名 c(8),性别 c(2),出生日期 d,何年参加工作 n(4),职称 c(6),所教课程 c(20))

create table 课程设置(课程名称 c(20),学时 n(3),学分 n(1),备注 c(240))

create table 教室情况列表(教室 c(12),类别 c(20),可容纳人数 n(3),备注 c(240))

create table 课程表(班级 c(20),单双周 c(4),;
课程11 c(20),教师11 c(8),教室11 c(12),课程12 c(20),教师12 c(8),教室12 c(12),课程13 c(20),教师13 c(8),教室13 c(12),课程14 c(20),教师14 c(8),教室14 c(12),课程15 c(20),教师15 c(8),教室15 c(15),;
课程21 c(20),教师21 c(8),教室21 c(22),课程22 c(20),教师22 c(8),教室22 c(22),课程23 c(20),教师23 c(8),教室23 c(22),课程24 c(20),教师24 c(8),教室24 c(22),课程25 c(20),教师25 c(8),教室25 c(25),;
课程31 c(30),教师31 c(8),教室31 c(33),课程32 c(30),教师32 c(8),教室32 c(33),课程33 c(30),教师33 c(8),教室33 c(33),课程34 c(30),教师34 c(8),教室34 c(33),课程35 c(30),教师35 c(8),教室35 c(35),;
课程41 c(40),教师41 c(8),教室41 c(44),课程42 c(40),教师42 c(8),教室42 c(44),课程43 c(40),教师43 c(8),教室43 c(44),课程44 c(40),教师44 c(8),教室44 c(44),课程45 c(40),教师45 c(8),教室45 c(45))

close all

cd ..