毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

Delphi学生学籍管理系统 第4页

更新时间:2008-7-30:  来源:毕业论文

Delphi学生学籍管理系统 第4页
ClassesU窗体模板单元
uses Graphics;
//学生信息
type
  TStudent=class
    stdNo:string;//学生证号
    stdName:string; //姓名
    picPath:string;//照片路径
    sex:string;//性别
    nation:string;//民族
    birthday:string;
    native:string;//籍贯
    IDCard:string;//身份证号
    homeTel:string;//家庭电话
    address:string;//居住地址
    postalcode:string;//邮政编码
    inDate:string;//入校日期
    ClassName:string;//所在院系
    duty:string;//职务
    remark:string;//备注
end;

//操作员信息
type
  TOperator=class
     id:integer;
     Operid:string;//操作员ID
     OperName:string;//操作员姓名
     pwd:string;//密码
     privilege:string;//权限
     remark:string;//备注
end;
//院系
type
  TClasses=class
    id:integer;
    className:string;//院系名
    fatherID:integer;//上级id
end;
//学籍变动
type
  TStatus=class
    id:integer;
    studentNo:string; //学生编号
    changeType:string;//变动类型
    changeDate:string;//变动日期
    oldClass:string;//原班级
    newSchool:string;//转入学校
    newClass:string;//转入班级
    reason:string;//学籍变动原因
    remark:string;//备注
end;
//奖惩信息
type
  TEvaluation=class
    id:integer;
    stdNo:string;//学号
    Edate:string;//奖惩日期
    Etype:string;//奖惩类型
    remark:string;//奖惩说明
 end;
//教育经历
type
  TExperience=class
    id:integer;
    stdNo:string;//学号
    beginDate:string;//开始日期
    endDate:string;//结束日期
    school:string;//学校名
    duty:string;//职务
 end;
Control_classU院系管理单元代码
//添加
function Addclasses(classes:Tclasses):boolean;
//修改院系
function Editclasses(classes:Tclasses):boolean;
//删除院系
function Delclasses(classesID:integer):boolean;
//得到院系记录
function GetclassesArray:TADOQuery;
//根据院系id查找院系信息
function GetclassesByclassesID(classesID:integer):Tclasses;
//根据院系名查找院系信息
function GetclassesByName(className:string):Tclasses;
//向Combobox中填充数据
procedure FillCombobox(cbx:TCombobox);
implementation
procedure FillCombobox(cbx:TCombobox);
var
  query:TADOQuery;
begin
  query:=TADOQuery.Create(nil);
  query:=GetclassesArray;
  cbx.Items.Clear;
  while not query.Eof do
    begin
      cbx.Items.Add(query.FieldValues['院系名']);
      query.Next;
    end;
  cbx.ItemIndex:=0;
  query:=nil;
end;
function GetclassesByName(className:string):Tclasses;
var
  sql:string;
  classes:Tclasses;
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
  sql:='select id,院系名,上级id from 院系'+
       ' where 院系名='+''''+className+''''+
       ' order by 院系名';
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        classes:=Tclasses.Create;
        classes.id:=ADOQuery.Fields[0].Value;
        classes.className:=ADOQuery.Fields[1].Value;
        classes.fatherID:=ADOQuery.Fields[2].Value;
        result:=classes;
      end;
  ADOQuery:=nil;

end;
function GetclassesByclassesID(classesID:integer):Tclasses;
var
  sql:string;
  classes:Tclasses;
  ADOQuery:TADOQuery;
begin
  ADOQuery:=TADOQuery.Create(nil);
  sql:='select id,院系名,上级id from 院系'+
       ' where id='+inttostr(classesID);
  ADOQuery:=DAHelper.ExeSqlQuery(sql);
  if(ADOQuery.RecordCount<1) then
    begin
      result:=nil;
    end
  else
      begin
        classes:=Tclasses.Create;
        classes.id:=ADOQuery.Fields[0].Value;
        classes.className:=ADOQuery.Fields[1].Value;
        classes.fatherID:=ADOQuery.Fields[2].Value;
        result:=classes;
      end;
  ADOQuery:=nil;
end;
function GetclassesArray:TADOQuery;
var
  sql:string;
begin
  sql:='select a.id,a.院系名,a.上级id,isnull(b.院系名,''本校'')  上级院系名  from 院系 a '+
       ' left outer join 院系 b on a.上级id=b.id';
  result:=DAHelper.ExeSqlQuery(sql);
end;
function Delclasses(classesID:integer):boolean;
var
  sql:string;
begin
  sql:='delete from 院系 where id='+inttostr(classesID);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function Editclasses(classes:Tclasses):boolean;
var
  sql:string;
begin
  sql:='update 院系 set 院系名='+''''+classes.className+''''+
       ',上级id='+inttostr(classes.fatherID)+
       ' where id='+inttostr(classes.id);
  result:=DAHelper.ExeSqlNoQuery(sql);
end;
function Addclasses(classes:Tclasses):boolean;
var
  sql:string;
begin
  sql:='insert into 院系(院系名,上级id)'+
       ' values('+''''+classes.className+''''+
       ','+inttostr(classes.fatherID)+ ')';
  result:=DAHelper.ExeSqlNoQuery(sql);
end;

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页

Delphi学生学籍管理系统 第4页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。