这是本人应用VB在SQLsever2000环境下开发的新生信息管理系统

CREATE PROCEDURE stu_AddBasicStudentInfo
(
   @studentNo char(6),
   @name varchar(20),
   @sex char(2),
   @departName varchar(20),
   @className varchar(50),
   @birthday datetime,
   @native varchar(50),
   @phone varchar(20),
   @address varchar(100),
   @zipCode varchar(8),
   @email varchar(50),
   @memo varchar(1000)
)
  
 AS
Declare @classNo int
Declare @departNo int
--无重复则添加
if not exists(select studentNo from Student where studentNo =@studentNo)
begin 
  -- 找出相应的departNO,classNo
select @departNO =(select code from Code_Depart where Name=@departName)
select @classNO=(select code from Code_Class where className=@className)
--if (@departNO!=NULL AND @classNO!=NULL)
insert into
  Student(StudentNo,name,sex,departNO,classNO,birthday,native,phone,address,zipCode,email,memo)
   VALUES
  (@studentNo,@name,@sex,@departNO,@classNO,@birthday,@native,@phone,@address,@zipCode,@email,@memo)
end

Go
CREATE PROCEDURE stu_AddChangeRecord
(   
     @studentNo char(6),
     @changeDes varchar(50),
     @memo varchar(1000)
    )
AS
Declare @changeCode char(1)
         select @changeCode=code from Code_Change
        where description=@changeDes
Declare @id int
      select @id=max(id) from Change

  insert Change(id,studentNo,changeNo,recordTime,memo)
    values(@id+1,@studentNo,@changeCode,getDate(),@memo)

Go
CREATE PROCEDURE stu_AddPunishRecord
(
@studentNo char(6),
@Des varchar(50),
@memo varchar(1000)
)

AS
DECLARE @Code char(1)
select @Code=code from Code_Punish
where description =@Des
declare @id int
select  @id=max(id) from Punishment
  insert Punishment(id,studentNo,levelNo,recordTime,memo)
values (@id+1,@studentNo,@Code,getDate(),@memo)

Go
CREATE PROCEDURE stu_AddRewardRecord
(
@studentNo char(6),
@rewardDes varchar(50),
@memo varchar(1000)
)
AS
DECLARE @rewardCode char(1)
select @rewardCode=code from Code_Reward
where description=@rewardDes
DECLARE @id int
select @id=max(id) from Reward
insert Reward(id,studentNo,levelNo,recordTime,memo)
values(@id+1,@studentNo,@rewardCode,getDate(),@memo)


Go
CREATE PROCEDURE stu_ChangeTypeAndDes
(
   @id char(1),
  @des varchar(50) output,
  @memo varchar(1000) output
)
AS
select @memo=memo,@des=Code_Change.description
from Change,Code_Change
where code=ChangeNo and id=@id


Go
CREATE PROCEDURE stu_DelStudent
(
    @stuNo char(6)
)

AS
begin
--先删除Change
delete from Change
where studentNo=@stuNo
--删除Reward
delete from Reward
where studentNo=@stuNo

--删除Punish
delete from Punishment
where studentNo=@stuNo
delete from student
where studentNo=@stuNo
end

Go
CREATE PROCEDURE stu_GetAllStudent
 AS
--存在指定的学号
SElECT Student.studentNo AS 学号,
              Student.name as 姓名,
             Student.sex As 性别,
             Code_Depart.Name AS 所属院系,
             Code_Class.className AS 班级,
             Student.birthday AS 出生日期,
             Student.native AS 籍贯,
             Student.phone AS 电话,
             Student.address AS 家庭住址,
             Student.zipCode AS 邮编,
             Student.email AS 电子邮件,
             Student.memo AS 备注
From Code_Depart INNER JOIN Student
ON Code_Depart.code=Student.departNo
INNER JOIN Code_Class
ON Student .classNO=code_class.code

Go
CREATE PROCEDURE stu_GetChange
(
@StuNo char(6)
)

 AS 
  SELECT Change.studentNo 学号,
                 Change.recordTime 记录时间,
                Change.changeNo 记录编号,
                Code_change.description 记录描述
                From Change 
                        INNER JOIN Code_change
                          ON Change.changeNO=code_Change.code
                             where Change.studentNo=@StuNo


Go
CREATE PROCEDURE stu_GetChangeByNO 
(
@studentNo char(6)
)
AS 
--set nocount on
----------------------------------------------------------
SELECT id as 记录编号,recordTime as 记录时间
FROM Change 
 Where StudentNo=@studentNo

Go
CREATE PROCEDURE stu_GetChangeCode
AS
select *from Code_Change

Go
CREATE PROCEDURE stu_GetPunishmentByNO
(
@studentNo char(6)
)
 AS
------set nocount on
SELECT id as 记录编号,recordTime as 记录时间
From Punish
Where studentNo=@studentNo

Go

CREATE PROCEDURE stu_GetPunishCode  
AS
select *from Code_Punish
Go
CREATE PROCEDURE stu_GetRewardByNo
(@studentNo char(6)
)  
AS
---set noncount on
SELECT id as 记录编号,recordTime as 记录时间
FRom  Reward
Where studentNo=@studentNo

Go
CREATE PROCEDURE stu_GetRewardCode
 AS
select *from Code_Reward

Go
CREATE PROCEDURE stu_GetStuSummary
(
  @stuNo char(6),
  @stuName varchar(20) output,
  @departName varchar(50) output,
  @className varchar(50)output
)

 AS
DECLARE @departNo int
DECLARE @classNo char(4)
select @stuName=name,@departNo=departNo,@classNo=classNo
from Student
where StudentNo=@stuNo

select @departName=(select Name from Code_Depart where code=@departNo)
select @className=(select className from Code_Class where code=@classNo)

Go
CREATE PROCEDURE stu_GetStuSummary2
(
@stuNo char(6) ,
@Name varchar( 20) output,
@sex char (2) output,
@birthday datetime output,
@native varchar(50)output,
@departName varchar (50) output,
@className varchar (50) output
)

 AS
DeClare @departNo int
DeClare @classNo char(4)
select @Name=name,@sex=sex,@birthday=birthday,@native=native,@departNo=departNo,@classNo=classNo
from Student 
where studentNo=@stuNo

select @departName=(select Name from Code_Depart where code=@departNo)
select @className=(select className from Code_Class where code=@ClassNo)
Go
CREATE PROCEDURE stu_UpdateAllStudent 
(
 @stuNo char(6),
@name varchar(20),
@sex char(2) ,
@departName varchar(50),
@className varchar(50),
@birthday  datetime,
@native varchar(50),
@phone char(20),
@address varchar(100),
@zipCode char(8),
@email varchar(50),
@memo varchar(1000)
)

  
 AS
DeClare @departNo int
Declare @classNo char(4)

select @departNo=code
from Code_Depart
where Name=@departName
select @classNo=code
from code_class
where className=@className
Update Student set
name=@name,
sex=@sex,
departNo=@departNo,
classNo=@classNo,
birthday=@birthday,
native=@native,
phone=@phone,
address=@address,
zipCode=@zipCode,
email=@email,
memo=@memo
where studentNo=@stuNo
GO