unit6.~pas

学生成绩管理系统

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, DB, DBTables, StdCtrls, Mask, DBCtrls,
  Buttons;

type
  Tgrademanage = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    GroupBox1: TGroupBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Table2: TTable;
    DataSource2: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit3Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBEdit4Change(Sender: TObject);
    procedure DBEdit5Change(Sender: TObject);
    procedure DBEdit6Change(Sender: TObject);
    procedure DBEdit7Change(Sender: TObject);
    procedure DBEdit8Change(Sender: TObject);
    procedure DBEdit9Change(Sender: TObject);
    procedure DBEdit10Change(Sender: TObject);
    procedure DBEdit11Change(Sender: TObject);
    procedure DBEdit12Change(Sender: TObject);
    procedure DBEdit14Change(Sender: TObject);
    procedure DBEdit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  grademanage: Tgrademanage;

implementation

{$R *.dfm}

procedure Tgrademanage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tgrademanage.DBEdit3Change(Sender: TObject);
begin
 try
dbedit14.Text:=inttostr(strtoint(dbedit3.Text)+strtoint(dbedit4.Text)+strtoint(dbedit5.Text)+
strtoint(dbedit6.Text)+strtoint(dbedit7.Text)+strtoint(dbedit8.Text)+
strtoint(dbedit9.Text)+strtoint(dbedit10.Text)+strtoint(dbedit11.Text)+
strtoint(dbedit12.Text) );
except
;
end;
end;

procedure Tgrademanage.FormCreate(Sender: TObject);
begin
  dbedit3.Text:='0';
  dbedit4.Text:='0';
  dbedit5.Text:='0';
  dbedit6.Text:='0';
  dbedit7.Text:='0';
  dbedit8.Text:='0';
  dbedit9.Text:='0';
  dbedit10.Text:='0';
  dbedit11.Text:='0';
  dbedit12.Text:='0';

end;

procedure Tgrademanage.BitBtn1Click(Sender: TObject);
begin
 bitbtn4.Enabled :=true;
dbedit1.ReadOnly :=false;
dbedit3.ReadOnly :=false;
dbedit4.ReadOnly :=false;
dbedit5.ReadOnly :=false;
dbedit6.ReadOnly :=false;
dbedit7.ReadOnly :=false;
dbedit8.ReadOnly :=false;
dbedit9.ReadOnly :=false;
dbedit10.ReadOnly :=false;
dbedit11.ReadOnly :=false;
dbedit12.ReadOnly :=false;
table1.Append ;
dbedit1.SetFocus;
end;

procedure Tgrademanage.BitBtn2Click(Sender: TObject);
begin
dbedit1.ReadOnly :=false;
dbedit3.ReadOnly :=false;
dbedit4.ReadOnly :=false;
dbedit5.ReadOnly :=false;
dbedit6.ReadOnly :=false;
dbedit7.ReadOnly :=false;
dbedit8.ReadOnly :=false;
dbedit9.ReadOnly :=false;
dbedit10.ReadOnly :=false;
dbedit11.ReadOnly :=false;
dbedit12.ReadOnly :=false;
table1.Edit ;
 bitbtn4.Enabled :=true;
end;

procedure Tgrademanage.BitBtn5Click(Sender: TObject);
begin
table1.Refresh ;
end;

procedure Tgrademanage.BitBtn6Click(Sender: TObject);
begin
table1.Cancel ;
end;

procedure Tgrademanage.BitBtn4Click(Sender: TObject);
begin
table1.Post ;
dbedit1.ReadOnly :=true;
dbedit3.ReadOnly :=true;
dbedit4.ReadOnly:=true;
dbedit5.ReadOnly :=true;
dbedit6.ReadOnly :=true;
dbedit7.ReadOnly :=true;
dbedit8.ReadOnly :=true;
dbedit9.ReadOnly :=true;
dbedit10.ReadOnly :=true;
dbedit11.ReadOnly:=true;
dbedit12.ReadOnly :=true;
 bitbtn4.Enabled :=false;
 application.messagebox('数据已经成功保存','保存数据',0);
end;

procedure Tgrademanage.BitBtn3Click(Sender: TObject);
begin
if messagedlg('是否真的要删除。',mtwarning,[mbyes,mbno],0)=6 then
  table1.Delete 
else
;
end;

procedure Tgrademanage.DBEdit4Change(Sender: TObject);
begin
 try
dbedit14.Text:=inttostr(strtoint(dbedit3.Text)+strtoint(dbedit4.Text)+strtoint(dbedit5.Text)+
strtoint(dbedit6.Text)+strtoint(dbedit7.Text)+strtoint(dbedit8.Text)+
strtoint(dbedit9.Text)+strtoint(dbedit10.Text)+strtoint(dbedit11.Text)+
strtoint(dbedit12.Text) );
except
;
end;
end;

procedure Tgrademanage.DBEdit5Change(Sender: TObject);
begin
 try
dbedit14.Text:=inttostr(strtoint(dbedit3.Text)+strtoint(dbedit4.Text)+strtoint(dbedit5.Text)+
strtoint(dbedit6.Text)+strtoint(dbedit7.Text)+strtoint(dbedit8.Text)+
strtoint(dbedit9.Text)+strtoint(dbedit10.Text)+strtoint(dbedit11.Text)+
strtoint(dbedit12.Text) );
except
;
end;
end;

procedure Tgrademanage.DBEdit6Change(Sender: TObject);
begin
 try
dbedit14.Text:=inttostr(strtoint(dbedit3.Text)+strtoint(dbedit4.Text)+strtoint(dbedit5.Text)+
strtoint(dbedit6.Text)+strtoint(dbedit7.Text)+strtoint(dbedit8.Text)+
strtoint(dbedit9.Text)+strtoint(dbedit10.Text)+strtoint(dbedit11.Text)+
strtoint(dbedit12.Text) );
except
;
end;
end;

procedure Tgrademanage.DBEdit7Change(Sender: TObject);
begin
 try
dbedit14.Text:=inttostr(strtoint(dbedit3.Text)+strtoint(dbedit4.Text)+strtoint(dbedit5.Text)+
strtoint(dbedit6.Text)+strtoint(dbedit7.Text)+strtoint(dbedit8.Text)+
strtoint(dbedit9.Text)+strtoint(dbedit10.Text)+strtoint(dbedit11.Text)+
strtoint(dbedit12.Text) );
except
;
end;
end;

procedure Tgrademanage.DBEdit8Change(Sender: TObject);
begin
 try
dbedit14.Text:=inttostr(strtoint(dbedit3.Text)+strtoint(dbedit4.Text)+strtoint(dbedit5.Text)+
strtoint(dbedit6.Text)+strtoint(dbedit7.Text)+strtoint(dbedit8.Text)+
strtoint(dbedit9.Text)+strtoint(dbedit10.Text)+strtoint(dbedit11.Text)+
strtoint(dbedit12.Text) );
except
;
end;
end;

procedure Tgrademanage.DBEdit9Change(Sender: TObject);
begin
 try
dbedit14.Text:=inttostr(strtoint(dbedit3.Text)+strtoint(dbedit4.Text)+strtoint(dbedit5.Text)+
strtoint(dbedit6.Text)+strtoint(dbedit7.Text)+strtoint(dbedit8.Text)+
strtoint(dbedit9.Text)+strtoint(dbedit10.Text)+strtoint(dbedit11.Text)+
strtoint(dbedit12.Text) );
except
;
end;
end;

procedure Tgrademanage.DBEdit10Change(Sender: TObject);
begin
 try
dbedit14.Text:=inttostr(strtoint(dbedit3.Text)+strtoint(dbedit4.Text)+strtoint(dbedit5.Text)+
strtoint(dbedit6.Text)+strtoint(dbedit7.Text)+strtoint(dbedit8.Text)+
strtoint(dbedit9.Text)+strtoint(dbedit10.Text)+strtoint(dbedit11.Text)+
strtoint(dbedit12.Text) );
except
;
end;
end;

procedure Tgrademanage.DBEdit11Change(Sender: TObject);
begin
 try
dbedit14.Text:=inttostr(strtoint(dbedit3.Text)+strtoint(dbedit4.Text)+strtoint(dbedit5.Text)+
strtoint(dbedit6.Text)+strtoint(dbedit7.Text)+strtoint(dbedit8.Text)+
strtoint(dbedit9.Text)+strtoint(dbedit10.Text)+strtoint(dbedit11.Text)+
strtoint(dbedit12.Text) );
except
;
end;
end;

procedure Tgrademanage.DBEdit12Change(Sender: TObject);
begin
 try
dbedit14.Text:=inttostr(strtoint(dbedit3.Text)+strtoint(dbedit4.Text)+strtoint(dbedit5.Text)+
strtoint(dbedit6.Text)+strtoint(dbedit7.Text)+strtoint(dbedit8.Text)+
strtoint(dbedit9.Text)+strtoint(dbedit10.Text)+strtoint(dbedit11.Text)+
strtoint(dbedit12.Text) );
except
;
end;
end;

procedure Tgrademanage.DBEdit14Change(Sender: TObject);
begin
dbedit13.Text :=floattostr(strtofloat(dbedit14.Text)/10);
end;

procedure Tgrademanage.DBEdit1Change(Sender: TObject);
begin
try
table2.Filter := 'studentid'+'='+dbedit1.text;
table2.Filtered :=true;
dbedit2.text:=table2.fieldbyname('name').AsString ;
except
;
end;
end;

end.