datamoduleunit.pas

教学信息管理系统是校园信息管理系统的一个有机组成部分。经过详细的需求分析

unit datamoduleUnit;

interface

uses
  SysUtils, Classes, DB, ADODB,graphics;

type
  TDataModule1 = class(TDataModule)
    ADOConnection1: TADOConnection;
    tablestudent: TADOTable;
    tableteacher: TADOTable;
    tablecourse: TADOTable;
    tablegrade: TADOTable;
    tabletemp: TADOTable;
    queryall: TADOQuery;
    DSall: TDataSource;
    tablestudentsno: TWideStringField;
    tablestudentsname: TWideStringField;
    tablestudentssex: TWideStringField;
    tablestudentjiguan: TWideStringField;
    tablestudentbirthday: TDateTimeField;
    tablestudenttel: TWideStringField;
    tablestudentemail: TWideStringField;
    tablestudentphoto: TBlobField;
    tableteachertname: TWideStringField;
    tableteachertsex: TWideStringField;
    tableteachertel: TWideStringField;
    tableteacheremail: TWideStringField;
    tableteacherage: TSmallintField;
    tableteacherjiaoyanshi: TWideStringField;
    tableteacherzhicheng: TWideStringField;
    tableteacherphoto: TBlobField;
    tablegradesno: TWideStringField;
    tablegradecname: TWideStringField;
    tablegradetname: TWideStringField;
    tablegradegrade: TWideStringField;
    tablegradeyear: TIntegerField;
    tablegradeterm: TWideStringField;
    tablegradetype: TWideStringField;
    DSteacher: TDataSource;
    DSstudent: TDataSource;
    tablecoursecname: TWideStringField;
    tablecoursestudytime: TSmallintField;
    tablecoursecredit: TFloatField;
    tablecoursetypeNO: TSmallintField;
    Tablesys: TADOTable;
    Querystudent: TADOQuery;
    Querycredit: TADOQuery;
    Querycreditsno: TWideStringField;
    Querycredittypename: TWideStringField;
    QuerycreditExpr1002: TFloatField;
    DScourse: TDataSource;
    Tabletype: TADOTable;
    TabletypeTypeNO: TIntegerField;
    TabletypeTypeName: TWideStringField;
    tabletemparea: TWideStringField;
    tabletempcount: TSmallintField;
    Querygrade3: TADOQuery;
    querygrade4: TADOQuery;
    Querygrade5: TADOQuery;
    ADOCommandall: TADOCommand;
    procedure RvProjectallCreate(Sender: TObject);
    procedure DSstudentDataChange(Sender: TObject; Field: TField);
    procedure DSteacherDataChange(Sender: TObject; Field: TField);
   
  private
    { Private declarations }
  public
    function passed(value:string):boolean;
    function mystrtofloat(str:string):real;
 
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

uses mainformunit,addstudentunit, deletestudentUnit, deleteteacherUnit;

{$R *.dfm}



{ TDataModule1 }



function TDataModule1.mystrtofloat(str: string): real;
begin
if str='优'then result:=90.0
else if str='良'then result:=80.0
     else if str='中'then result:=70.0
          else if str='及格'then result:=60.0
              else if str='通过'then result:=60.0
                   else if str='不通过'then result:=50.0
                        else if str='不及格'then result:=50.0
                              else try
                                    result:=strtofloat(str);
                                    except
                                     result:=-1
                                    end;
 if (result<0)or(result>100)then  result:=-1;

end;

function TDataModule1.passed(value: string): boolean;
begin
if (value='不及格')or (value='不通过') then
  result:=false
  else if (value='优')or(value='良') or (value='中')
          or(value='及格') or (value='通过') then
          result:=true
        else if(strtofloat(value)<60) then
               result:=false
             else
               result:=true;  


 end;

procedure TDataModule1.RvProjectallCreate(Sender: TObject);
var s:string;
begin
getdir(0,s);
//rvprojectall.ProjectFile:=s+'\rav\rvProjectall.rav';
end;








procedure TDataModule1.DSstudentDataChange(Sender: TObject; Field: TField);
begin
if deletestudentform<>nil then
   deletestudentform.maskedit1.text:='';
end;

procedure TDataModule1.DSteacherDataChange(Sender: TObject; Field: TField);
begin
if deleteteacherform<>nil then
   deleteteacherform.Edit1.Text:='';
end;

end.