reward.pas

一款比较好的学生信息管理系统DELPHI+ACCE

unit reward;

interface

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

type
  Tfrmreward = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    DBNreward: TDBNavigator;
    DBRGreward: TDBRadioGroup;
    DBMDesc: TDBMemo;
    GroupBox1: TGroupBox;
    tblreward: TTable;
    tblstudent: TTable;
    tblclass: TTable;
    dsreward: TDataSource;
    dsstudent: TDataSource;
    dsclass: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    DBERID: TDBEdit;
    DBEstudentID: TDBEdit;
    DBErecdate: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBTname: TDBText;
    DBTsex: TDBText;
    DBTbirthday: TDBText;
    DBTclass: TDBText;
    DBTmaster: TDBText;
    Query1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure tblrewardAfterScroll(DataSet: TDataSet);
    procedure DBNrewardClick(Sender: TObject; Button: TNavigateBtn);
    procedure DBERIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure tblrewardBeforeDelete(DataSet: TDataSet);


  private
   procedure ToggleMode;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmreward: Tfrmreward;

implementation

{$R *.dfm}




procedure Tfrmreward.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure Tfrmreward.ToggleMode;
   procedure enableInput(enabled:boolean);
     begin
     dbeRID.Enabled:=enabled;
     dbestudentID.Enabled:=enabled;
     dberecdate.Enabled:=enabled;
     dbrgreward.enabled:=enabled;
     dbmDesc.Enabled:=enabled;
    end;
  begin
   case tblreward.State of
      dsinsert,dsedit:
      begin
       enableInput(true);
       dbnreward.VisibleButtons:=[nbpost,nbcancel];
       dbeRid.SetFocus;
       dberecdate.Text:=datetostr(date);
      end;
   else
   begin
     enableInput(false);

     dbnreward.VisibleButtons:=[nbfirst,nbprior,nbnext,nblast,nbinsert,nbdelete,nbedit,nbpost,nbcancel,nbrefresh];
     end;
    end;
  end;

procedure Tfrmreward.tblrewardAfterScroll(DataSet: TDataSet);
begin
   ToggleMode;
end;

procedure Tfrmreward.DBNrewardClick(Sender: TObject; Button: TNavigateBtn);
begin
ToggleMode;
end;

procedure Tfrmreward.DBERIDKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13  then
   begin
   Query1.Close;
   Query1.SQL.Clear;
   query1.SQL.Add('select * from reward  where Rid=:str');
   query1.ParamByName('str').AsString:=dbeRid.Text;
   Query1.open;
   if  not Query1.Eof then
     begin
     showmessage('记录号已经存在,请从新输入！');
     dbeRID.SetFocus;
     end
     else
     begin
    dbestudentid.SetFocus;
     end;
   end;
end;

procedure Tfrmreward.FormCreate(Sender: TObject);
begin
 tblreward.Active:=true;
   if not tblreward.Eof then
    begin
    tblstudent.Active:=true;
    tblclass.Active:=true;
    end;
end;

procedure Tfrmreward.tblrewardBeforeDelete(DataSet: TDataSet);
 var str:string;
 begin
 str:='确定要删除此条记录吗?';
 if messageDlg(str,mtconfirmation,[mbyes,mbno],0)<>mryes then
 abort;
end;

end.