usssz.~pas

学生信息管理系统

unit USssz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UData, PrnDbgeh, DB, ADODB, ActnList, Grids, DBGridEh, ExtCtrls,
  ComCtrls, ToolWin, StdCtrls, Mask, DBCtrlsEh;

type
  TFSssz = class(TFData)
    Label5: TLabel;
    Label1: TLabel;
    DBEh_xm: TDBEditEh;
    DBEh_rs: TDBEditEh;
    Label2: TLabel;
    Shape2: TShape;
    ADOQueryID: TAutoIncField;
    ADOQueryss: TWideStringField;
    ADOQueryrs: TSmallintField;
    procedure DBEh_rsKeyPress(Sender: TObject; var Key: Char);
    procedure A_saveExecute(Sender: TObject);
    procedure A_addExecute(Sender: TObject);
    procedure A_refreshExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FSssz: TFSssz;

implementation

uses UPublic;

{$R *.dfm}

procedure TFSssz.DBEh_rsKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then Tool_save.Click;
end;

procedure TFSssz.A_saveExecute(Sender: TObject);
begin
    if trim(DBEh_xm.Text)='' then begin
      ask('试室不能为空，请输入!','提示',MB_INFO);
      DBEh_xm.SetFocus;
      exit;
    end;
    if trim(DBEh_rs.Text)='' then begin
      ask('人数不能为空，请输入!','提示',MB_INFO);
      DBEh_rs.SetFocus;
      exit;
    end;
    if strtoint(trim(DBEh_rs.Text))>96 then begin
      ask('人数不能超出96人，请重新输入!','提示',MB_INFO);
      DBEh_rs.SetFocus;
      exit;
    end;

  inherited;
end;

procedure TFSssz.A_addExecute(Sender: TObject);
begin
  inherited;
  DBEh_xm.SetFocus;
end;

procedure TFSssz.A_refreshExecute(Sender: TObject);
begin
  ExecuteSQL('update STU_info set 学生类型=''尖一'',类型=''尖'' where 班级=''初二（5）''');
  inherited;
end;

end.