ukzsz.~pas

学生信息管理系统

unit Ukzsz;

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
  TFKzsz = class(TFData)
    Label5: TLabel;
    Label1: TLabel;
    Shape2: TShape;
    DBComboBoxEh: TDBComboBoxEh;
    ADOQueryID: TAutoIncField;
    ADOQuerykz: TWideStringField;
    procedure A_saveExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FKzsz: TFKzsz;

implementation

uses UPublic;

{$R *.dfm}

procedure TFKzsz.A_saveExecute(Sender: TObject);
begin
    if DBComboBoxEh.ItemIndex < 0 then begin
      ask('科组名称输入有误，请重新输入!','提示',MB_INFO);
      DBComboBoxEh.SetFocus;
      exit;
    end;
  inherited;
end;

end.