unit8.pas

一个学生管理系统

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls, RpCon, RpConDS,
  RpConBDE, RpBase, RpSystem, RpDefine, RpRave;

type
  Tfmodify = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    DataSource4: TDataSource;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    Edit1: TEdit;
    Label6: TLabel;
    Edit2: TEdit;
    Label7: TLabel;
    Edit3: TEdit;
    Label8: TLabel;
    Edit4: TEdit;
    Label9: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label10: TLabel;
    Edit5: TEdit;
    Label11: TLabel;
    Edit6: TEdit;
    Button9: TButton;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    DataSource1: TDataSource;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    ADOQuery4: TADOQuery;
    ADOQuery1: TADOQuery;
    DataSource5: TDataSource;
    ADOQuery5: TADOQuery;
    procedure Button8Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);

    
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmodify: Tfmodify;

implementation

uses Unit4, Unit1, Unit3, Unit6, Unit5, Unit7, DMSet;

{$R *.dfm}

procedure Tfmodify.Button8Click(Sender: TObject);
begin
  fmodify.Close
end;

procedure Tfmodify.Button3Click(Sender: TObject);
begin
  score.ShowModal
end;

procedure Tfmodify.Button1Click(Sender: TObject);
begin
  uload.ShowModal
end;

procedure Tfmodify.Button2Click(Sender: TObject);
begin
  stuinfo.ShowModal
end;

procedure Tfmodify.Button4Click(Sender: TObject);
begin
  change.ShowModal
end;

procedure Tfmodify.Button5Click(Sender: TObject);
begin
  encourage.ShowModal
end;

procedure Tfmodify.Button6Click(Sender: TObject);
begin
  punish.ShowModal
end;

procedure Tfmodify.Button9Click(Sender: TObject);
   var StuNo,StuName,StuClass,StuDepart,Sex,Birthday,NativePlace:string;
begin
   with ADOQuery5 do
       begin
       Open;
       StuNo:=Edit1.text;
       StuName:=Edit3.text;
       StuClass:=Edit2.text;
       StuDepart:=Edit4.text;
       Birthday:=Edit6.text;
       NativePlace:=Edit5.text;
       if RadioButton1.Checked=True then
          Sex:=RadioButton1.Caption;
       if RadioButton2.Checked=True then
          Sex:=RadioButton2.Caption;
       Edit;
       SetFields(['',StuNo,StuDepart,StuClass,StuName,Sex,Birthday,NativePlace]);
       application.MessageBox('修改成功，请确认！','',MB_OK);
       Post;
       end;

end;

procedure Tfmodify.Button12Click(Sender: TObject);
begin
  with ADOQuery5 do
       begin
         Edit2.Text:=DataSource5.DataSet.FieldValues['StuClass'];
         Edit4.Text:=DataSource5.DataSet.FieldValues['DepartMent'];
         Edit3.Text:=DataSource5.DataSet.FieldValues['Name'];
         Edit6.Text:=DataSource5.DataSet.FieldValues['BirthDay'];
         Edit5.Text:=DataSource5.DataSet.FieldValues['NativePlace'];

       end;
end;






procedure Tfmodify.Edit1Change(Sender: TObject);
  Var SqlStr:string;
begin
  With ADOQuery5 do
     begin
       close;
       ADOQuery5.Sql.Clear;
       SqlStr:='Select * from 学生信息数据表 Where StuNo='+''''+Edit1.Text+'''';
       ADOQuery5.Sql.Add(SqlStr);
       Open;
       Edit3.Text:=Fieldbyname('Name').asstring;
       Edit2.Text:=Fieldbyname('StuClass').asstring;
       Edit4.Text:=Fieldbyname('DepartMent').asstring;
       Edit5.Text:=Fieldbyname('NativePlace').asstring;
       Edit6.Text:=Fieldbyname('BirthDay').asstring;
       if Fieldbyname('Sex').asstring='男' then
           begin
              RadioButton1.checked:=true;
              RadioButton2.checked:=False;
           end;
       if Fieldbyname('Sex').asstring='女' then
           begin
              RadioButton1.checked:=False;
              RadioButton2.checked:=True;
           end;
     end;
  With ADOQuery1 do
    begin
       close;
       ADOQuery1.Sql.Clear;
       SqlStr:='Select ChangeName as 变更项目,ChangeTime as 变更时间 from 学籍变更数据表 Where StuNo='+''''+Edit1.Text+'''';
       ADOQuery1.Sql.Add(SqlStr);
       Open;
    end;
   With ADOQuery2 do
    begin
       close;
       ADOQuery2.Sql.Clear;
       SqlStr:='Select EncourageName as 奖项,EncourageTime as 奖励时间 from 学生奖励数据表 Where StuNo='+''''+Edit1.Text+'''';
       ADOQuery2.Sql.Add(SqlStr);
       Open;
    end;
  With ADOQuery3 do
    begin
       close;
       ADOQuery3.Sql.Clear;
       SqlStr:='Select PunishName as 处罚名称,PunishTime as 处罚时间 from 学生处罚数据表 Where StuNo='+''''+Edit1.Text+'''';
       ADOQuery3.Sql.Add(SqlStr);
       Open;
    end;
  With ADOQuery4 do
    begin
       close;
       ADOQuery4.Sql.Clear;
       SqlStr:='Select 课程 as 课程名称,成绩 as 成绩 from 学生成绩数据表 Where 学号='+''''+Edit1.Text+'''';
       ADOQuery4.Sql.Add(SqlStr);
       Open;
    end;
  Button9.Enabled:=True;



end;

end.