unit5.pas

一个学生管理系统

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, DB, ADODB;

type
  Tencourage = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    RadioGroup2: TRadioGroup;
    Button9: TButton;
    Button10: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    DateTimePicker2: TDateTimePicker;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DataSource2: TDataSource;
    procedure Button8Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  encourage: Tencourage;

implementation

uses Unit4, Unit1, Unit3, Unit6, Unit7, Unit8;

{$R *.dfm}

procedure Tencourage.Button8Click(Sender: TObject);
begin
  encourage.Close
end;

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

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

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

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

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

procedure Tencourage.Button7Click(Sender: TObject);
begin
  fmodify.ShowModal
end;

procedure Tencourage.Button10Click(Sender: TObject);
begin
   //Edit1.SelectAll;
   Edit2.SelectAll;
   Edit3.SelectAll;
   Edit4.SelectAll;
   Edit5.SelectAll;
   //Edit1.ClearSelection;
   Edit2.ClearSelection;
   Edit3.ClearSelection;
   Edit4.ClearSelection;
   Edit5.ClearSelection;
end;

procedure Tencourage.Button9Click(Sender: TObject);
  var StuNo,StuName,StuClass,StuDepart,EncourageName:string;
begin
   with ADOTable1 do
       begin
       Open;
       StuNo:=Edit2.text;
       StuName:=Edit4.text;
       StuClass:=Edit3.text;
       StuDepart:=Edit5.text;
       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',DatetimePicker2.Date)]);
       application.MessageBox('添加成功，请确认；若要添加下一项内容，请按“清空”按钮继续！','',MB_OK);
       Post;
       end;
end;

procedure Tencourage.Edit2Change(Sender: TObject);
  var SqlStr:string;
begin
  With ADOQuery1 do
     begin
       close;
       Sql.Clear;
       SqlStr:='Select * from 学生信息数据表 Where StuNo='+''''+Edit2.Text+'''';
       Sql.Add(SqlStr);
       Open;
       Edit4.Text:=Fieldbyname('name').asstring;
       Edit3.Text:=Fieldbyname('StuClass').asstring;
       Edit5.Text:=Fieldbyname('DepartMent').asstring;
     end;
  Button9.Enabled:=True;
end;

end.