student.~pas

来自「学生信息管理系统是一个集中了学生各种信息的系统」· ~PAS 代码 · 共 694 行 · 第 1/2 页

unit Student;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, DB, DBTables, Grids, DBGrids,
  ExtCtrls, DBCtrls, StdCtrls, Mask, Buttons, RpCon, RpConDS, RpConBDE,
  RpBase, RpSystem, RpDefine, RpRave,RVClass, RVProj, RVCsStd;

type
  TStuMainFrm = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ImageList1: TImageList;
    ToolButton7: TToolButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    Database1: TDatabase;
    DBNavigator1: TDBNavigator;
    Table1: TTable;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ComboBox1: TComboBox;
    Label7: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label8: TLabel;
    DateTimePicker2: TDateTimePicker;
    Table2: TTable;
    Edit5: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    DBEdit2: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label14: TLabel;
    DBComboBox2: TDBComboBox;
    DBEdit5: TDBEdit;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Label21: TLabel;
    DateTimePicker1: TDateTimePicker;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    GroupBox3: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    GroupBox4: TGroupBox;
    Label19: TLabel;
    Label20: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    GroupBox5: TGroupBox;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    RadioButton15: TRadioButton;
    Label24: TLabel;
    DateTimePicker3: TDateTimePicker;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Table3: TTable;
    Table4: TTable;
    Panel1: TPanel;
    TabSheet6: TTabSheet;
    Panel2: TPanel;
    GroupBox6: TGroupBox;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Label29: TLabel;
    Edit19: TEdit;
    Label30: TLabel;
    Edit20: TEdit;
    Label31: TLabel;
    RadioButton12: TRadioButton;
    RadioButton16: TRadioButton;
    BitBtn7: TBitBtn;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    DataSource2: TDataSource;
    Query2: TQuery;
    Query3: TQuery;
    Query4: TQuery;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    BitBtn8: TBitBtn;
    ToolButton8: TToolButton;
    TabSheet7: TTabSheet;
    Table5: TTable;
    GroupBox7: TGroupBox;
    Label36: TLabel;
    Label37: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Edit18: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    Edit30: TEdit;
    Edit31: TEdit;
    DBNavigator2: TDBNavigator;
    Label38: TLabel;
    DBEdit6: TDBEdit;
    Label35: TLabel;
    DBEdit7: TDBEdit;
    BitBtn9: TBitBtn;
    GroupBox8: TGroupBox;
    DataSource5: TDataSource;
    DBGrid5: TDBGrid;
    DBNavigator3: TDBNavigator;
    Label49: TLabel;
    DBGrid6: TDBGrid;
    Query5: TQuery;
    DataSource6: TDataSource;
    RvProject1: TRvProject;
    RvSystem1: TRvSystem;
    RvQueryConnection1: TRvQueryConnection;
    procedure ToolButton7Click(Sender: TObject); 
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Edit10Change(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit14Change(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure Edit18Change(Sender: TObject);
    procedure Edit24Change(Sender: TObject);
    procedure Edit28Change(Sender: TObject);
    procedure Edit21Change(Sender: TObject);
    procedure Edit25Change(Sender: TObject);
    procedure Edit29Change(Sender: TObject);
    procedure Edit22Change(Sender: TObject);
    procedure Edit26Change(Sender: TObject);
    procedure Edit30Change(Sender: TObject);
    procedure Edit23Change(Sender: TObject);
    procedure Edit27Change(Sender: TObject);
    procedure Edit31Change(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  StuMainFrm: TStuMainFrm;
  Course:array[1..50]of string;
  Score:array[1..50]of real;
implementation

uses Login;

{$R *.dfm}

procedure TStuMainFrm.ToolButton7Click(Sender: TObject);
begin
  close;
end;

procedure TStuMainFrm.Edit1Change(Sender: TObject);
Var SqlStr:string;
begin
  With Query1 do
     begin
       close;
       Sql.Clear;
       SqlStr:='Select * from StuInfo Where StuNo='+''''+Edit1.Text+'''';
       Sql.Add(SqlStr);
       Open;
       Edit2.Text:=Fieldbyname('name').asstring;
       Edit3.Text:=Fieldbyname('Class').asstring;
       Edit4.Text:=Fieldbyname('DepartMent').asstring;
     end;
  BitBtn1.Enabled:=True;
end;

procedure TStuMainFrm.BitBtn2Click(Sender: TObject);
begin
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Edit5.Text:='';
  ComboBox1.Text:='';
end;

procedure TStuMainFrm.BitBtn1Click(Sender: TObject);
var StuNo,StuName,StuClass,StuDepart,ChangeName,ChangeRemark:string;
begin
    with Table2 do
        begin
          Open;
          StuNo:=Edit1.text;
          StuName:=Edit2.text;
          StuClass:=Edit3.text;
          StuDepart:=Edit4.text;
          ChangeName:=ComboBox1.Text;
          ChangeRemark:=Edit5.text;
          append;
          SetFields([StuNo,StuName,StuClass,StuDepart,ChangeName,ChangeRemark,formatdatetime('dddddd',DateTimePicker2.Date)]);
          Post;
       end;
end;
   
procedure TStuMainFrm.Edit6Change(Sender: TObject);
Var SqlStr:string;
begin
  With Query1 do
     begin
       close;
       Sql.Clear;
       SqlStr:='Select * from StuInfo Where StuNo='+''''+Edit6.Text+'''';
       Sql.Add(SqlStr);
       Open;
       Edit7.Text:=Fieldbyname('name').asstring;
       Edit8.Text:=Fieldbyname('Class').asstring;
       Edit9.Text:=Fieldbyname('DepartMent').asstring;
     end;
  BitBtn3.Enabled:=True;
end;

procedure TStuMainFrm.BitBtn4Click(Sender: TObject);
begin
  Edit6.Text:='';
  Edit7.Text:='';
  Edit8.Text:='';
  Edit9.Text:='';
end;

procedure TStuMainFrm.Edit10Change(Sender: TObject);
Var SqlStr:string;
begin
  With Query1 do
     begin
       close;
       Sql.Clear;
       SqlStr:='Select * from StuInfo Where StuNo='+''''+Edit10.Text+'''';
       Sql.Add(SqlStr);
       Open;
       Edit11.Text:=Fieldbyname('name').asstring;
       Edit12.Text:=Fieldbyname('Class').asstring;
       Edit13.Text:=Fieldbyname('DepartMent').asstring;
     end;
   BitBtn5.Enabled:=True;
end;

procedure TStuMainFrm.BitBtn6Click(Sender: TObject);
begin
  Edit10.Text:='';
  Edit11.Text:='';
  Edit12.Text:='';
  Edit13.Text:='';
end;

procedure TStuMainFrm.BitBtn3Click(Sender: TObject);
var StuNo,StuName,StuClass,StuDepart,EncourageName:string;
begin
    with Table3 do
        begin
          Open;
          StuNo:=Edit6.text;
          StuName:=Edit7.text;
          StuClass:=Edit8.text;
          StuDepart:=Edit9.text;