student.pas

学生信息管理系统是一个集中了学生各种信息的系统

          if RadioButton1.checked=true  then
             EncourageName:=RadioButton1.Caption;
          if RadioButton2.checked=true  then
             EncourageName:=RadioButton2.Caption;
          if RadioButton3.checked=true  then
             EncourageName:=RadioButton3.Caption;
          if RadioButton4.checked=true  then
             EncourageName:=RadioButton4.Caption;
          if RadioButton5.checked=true  then
             EncourageName:=RadioButton5.Caption;
          if RadioButton6.checked=true  then
             EncourageName:=RadioButton6.Caption;
          if RadioButton7.checked=true  then
             EncourageName:=RadioButton7.Caption;
          if RadioButton8.checked=true  then
             EncourageName:=RadioButton8.Caption;
          append;
          SetFields([StuNo,StuName,StuClass,StuDepart,EncourageName,formatdatetime('dddddd',DateTimePicker1.Date)]);
          Post;
       end;
end;

procedure TStuMainFrm.BitBtn5Click(Sender: TObject);
var StuNo,StuName,StuClass,StuDepart,PunishName:string;
begin
    with Table4 do
        begin
          Open;
          StuNo:=Edit10.text;
          StuName:=Edit11.text;
          StuClass:=Edit12.text;
          StuDepart:=Edit13.text;
          if RadioButton9.checked=true  then
             PunishName:=RadioButton9.Caption;
          if RadioButton10.checked=true  then
             PunishName:=RadioButton10.Caption;
          if RadioButton11.checked=true  then
             PunishName:=RadioButton11.Caption;
          if RadioButton13.checked=true  then
             PunishName:=RadioButton13.Caption;
          if RadioButton14.checked=true  then
             PunishName:=RadioButton14.Caption;
          if RadioButton15.checked=true  then
             PunishName:=RadioButton15.Caption;
          append;
          SetFields([StuNo,StuName,StuClass,StuDepart,PunishName,formatdatetime('dddddd',DateTimePicker3.Date)]);
          Post;
       end;
end;

procedure TStuMainFrm.ToolButton2Click(Sender: TObject);
begin
   PageControl1.ActivePage:=Tabsheet1;
end;

procedure TStuMainFrm.ToolButton3Click(Sender: TObject);
begin
   PageControl1.ActivePage:=Tabsheet2;
end;

procedure TStuMainFrm.ToolButton4Click(Sender: TObject);
begin
   PageControl1.ActivePage:=Tabsheet3;
end;

procedure TStuMainFrm.ToolButton5Click(Sender: TObject);
begin
  PageControl1.ActivePage:=Tabsheet4;
end;

procedure TStuMainFrm.ToolButton6Click(Sender: TObject);
begin
  PageControl1.ActivePage:=Tabsheet5;
end;

procedure TStuMainFrm.FormCreate(Sender: TObject);
begin
   PageControl1.ActivePage:=Tabsheet6;
end;

procedure TStuMainFrm.Edit14Change(Sender: TObject);
Var SqlStr:string;
begin
  With Query1 do
     begin
       close;
       Sql.Clear;
       SqlStr:='Select * from StuInfo Where StuNo='+''''+Edit14.Text+'''';
       Sql.Add(SqlStr);
       Open;
       Edit15.Text:=Fieldbyname('name').asstring;
       Edit16.Text:=Fieldbyname('Class').asstring;
       Edit17.Text:=Fieldbyname('DepartMent').asstring;
       Edit19.Text:=Fieldbyname('NativePlace').asstring;
       Edit20.Text:=Fieldbyname('BirthDay').asstring;
       if Fieldbyname('Sex').asstring='男' then
           begin
              RadioButton12.checked:=true;
              RadioButton16.checked:=False;
           end;
       if Fieldbyname('Sex').asstring='女' then
           begin
              RadioButton12.checked:=False;
              RadioButton16.checked:=True;
           end;
     end;
  With Query2 do
    begin
       close;
       Sql.Clear;
       SqlStr:='Select * from Change Where StuNo='+''''+Edit14.Text+'''';
       Sql.Add(SqlStr);
       Open;
    end;
   With Query3 do
    begin
       close;
       Sql.Clear;
       SqlStr:='Select * from Encourage Where StuNo='+''''+Edit14.Text+'''';
       Sql.Add(SqlStr);
       Open;
    end;
  With Query4 do
    begin
       close;
       Sql.Clear;
       SqlStr:='Select * from Punish Where StuNo='+''''+Edit14.Text+'''';
       Sql.Add(SqlStr);
       Open;
    end;
  With Query5 do
    begin
       close;
       Sql.Clear;
       SqlStr:='Select * from Score Where StuNo='+''''+Edit14.Text+'''';
       Sql.Add(SqlStr);
       Open;
    end;
  BitBtn8.Enabled:=True;
  BitBtn7.Enabled:=True;
end;

procedure TStuMainFrm.BitBtn7Click(Sender: TObject);
var StuNo,StuName,StuClass,StuDepart,StuSex,Birthday,NativePlace:string;
begin
    with Table1 do
        begin
          Open;
          StuNo:=Edit14.text;
          StuName:=Edit15.text;
          StuClass:=Edit16.text;
          StuDepart:=Edit17.text;
          NativePlace:=Edit19.text;
          Birthday:=Edit20.text;
          if RadioButton12.checked=true  then
             StuSex:=RadioButton12.Caption;
          if RadioButton16.checked=true  then
             StuSex:=RadioButton16.Caption;
          Edit;
          SetFields([StuNo,StuDepart,StuClass,StuName,StuSex,Birthday,NativePlace]);
          Post;
       end;
end;

procedure TStuMainFrm.ToolButton1Click(Sender: TObject);
begin
  ToolButton2.Enabled:=False;
  ToolButton3.Enabled:=False;
  ToolButton4.Enabled:=False;
  ToolButton5.Enabled:=False;
  ToolButton6.Enabled:=False;
  ToolButton8.Enabled:=False;
  PageControl1.Visible:=False;
  LoginFrm.show;
  StuMainFrm.Enabled:=False; 
end;

procedure TStuMainFrm.ToolButton8Click(Sender: TObject);
var i:integer;
begin
  PageControl1.ActivePage:=Tabsheet7;
  for i:=1 to 12 do
    begin
       Course[i]:='0';
       Score[i]:=0;
    end;
end;

procedure TStuMainFrm.BitBtn9Click(Sender: TObject);
var StuNo,StuName:string;
    i:integer;
begin
  with Query1 do
    begin
      close;
      Sql.Clear;
      Sql.Add('Select StuNo from Score Where StuNo='+''''+DbEdit6.Text+'''');
      Open;
      if recordcount=0 then
        begin
          StuNo:=DbEdit6.Text;
          StuName:=DbEdit7.Text;
          for i:=1 to 12 do
            begin
             if Course[i]<>'0' then
                with Table5 do
                  begin
                   Open;
                   Append;
                   SetFields([nil,StuNo,StuName,Course[i],Score[i]]);
                   Post;
                 end;
           end;
        end
      else
         MessageDlg('对不起，该记录已经存在！',mtInformation,[mbOk],0);   
    end;
end;

procedure TStuMainFrm.Edit18Change(Sender: TObject);
begin
    Course[1]:='高等数学';
    Score[1]:=Strtofloat(Edit18.Text);
end;

procedure TStuMainFrm.Edit24Change(Sender: TObject);
begin
    Course[2]:='计算机基础';
    Score[2]:=Strtofloat(Edit24.Text);
end;

procedure TStuMainFrm.Edit28Change(Sender: TObject);
begin
    Course[3]:='树理统计';
    Score[3]:=Strtofloat(Edit28.Text);
end;

procedure TStuMainFrm.Edit21Change(Sender: TObject);
begin
    Course[4]:='大学英语';
    Score[4]:=Strtofloat(Edit21.Text);
end;

procedure TStuMainFrm.Edit25Change(Sender: TObject);
begin
    Course[5]:='邓小平理论';
    Score[5]:=Strtofloat(Edit25.Text);
end;

procedure TStuMainFrm.Edit29Change(Sender: TObject);
begin
    Course[6]:='C程序设计';
    Score[6]:=Strtofloat(Edit29.Text);
end;

procedure TStuMainFrm.Edit22Change(Sender: TObject);
begin
    Course[7]:='线性代数';
    Score[7]:=Strtofloat(Edit22.Text);
end;

procedure TStuMainFrm.Edit26Change(Sender: TObject);
begin
    Course[8]:='马克思主义哲学';
    Score[9]:=Strtofloat(Edit26.Text);
end;

procedure TStuMainFrm.Edit30Change(Sender: TObject);
begin
    Course[9]:='工程制图';
    Score[9]:=Strtofloat(Edit30.Text);
end;

procedure TStuMainFrm.Edit23Change(Sender: TObject);
begin
    Course[12]:='数值分析';
    Score[12]:=Strtofloat(Edit23.Text);
end;

procedure TStuMainFrm.Edit27Change(Sender: TObject);
begin
    Course[11]:='概率论';
    Score[11]:=Strtofloat(Edit27.Text);
end;

procedure TStuMainFrm.Edit31Change(Sender: TObject);
begin
    Course[10]:='音乐欣赏';
    Score[10]:=Strtofloat(Edit31.Text);
end;

procedure TStuMainFrm.BitBtn8Click(Sender: TObject);
Var SqlStr,StuNo,StuName,StuSex,StuClass,NativePlace,StuDepart,Birthday:string;
	  MyPage: TRavePage;
	  MyText: TRaveText;
begin
  With Query1 do
     begin
       close;
       Sql.Clear;
       SqlStr:='Select * from StuInfo Where StuNo='+''''+Edit14.Text+'''';
       Sql.Add(SqlStr);
       Open;
       StuNo:=Fieldbyname('StuNo').asstring;
       StuName:=Fieldbyname('name').asstring;
       StuClass:=Fieldbyname('Class').asstring;
       StuDepart:=Fieldbyname('DepartMent').asstring;
       NativePlace:=Fieldbyname('NativePlace').asstring;
       Birthday:=Fieldbyname('BirthDay').asstring;
       StuSex:=Fieldbyname('Sex').asstring;
     end;
  With Query5 do
    begin
       close;
       Sql.Clear;
       SqlStr:='Select * from Score Where StuNo='+''''+Edit14.Text+'''';
       Sql.Add(SqlStr);
       Open;
       RvProject1.ProjectFile:='.\ReportPages\StuInfo.rav'; 
       RvProject1.Open;
       With RvProject1.ProjMan do
          begin
	          MyPage:=FindRaveComponent('Report1.Page1',nil) as TRavePage; 
            MyText:=FindRaveComponent('Text0',MyPage) as TRaveText;
	          MyText.Text:=StuNo;
            MyText:=FindRaveComponent('Text8',MyPage) as TRaveText;
	          MyText.Text:=StuSex;
            MyText:=FindRaveComponent('Text10',MyPage) as TRaveText;
	          MyText.Text:=Birthday;
            MyText:=FindRaveComponent('Text12',MyPage) as TRaveText;
	          MyText.Text:=StuName;
            MyText:=FindRaveComponent('Text14',MyPage) as TRaveText;
	          MyText.Text:=StuClass;
            MyText:=FindRaveComponent('Text16',MyPage) as TRaveText;
	          MyText.Text:=NativePlace;
            MyText:=FindRaveComponent('Text18',MyPage) as TRaveText;
	          MyText.Text:=StuDepart;
            MyText:=FindRaveComponent('Text20',MyPage) as TRaveText;
	          MyText.Text:=DateToStr(date);
	        end;
       RvProject1.Execute;
       RvProject1.Close;
    end;
end;

end.