urrgl.pas

学生信息管理系统

unit URrgl;

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
  TFRrgl = class(TFData)
    Label5: TLabel;
    Label1: TLabel;
    DBEh_xm: TDBEditEh;
    DBEh_rs: TDBEditEh;
    Label2: TLabel;
    Shape2: TShape;
    DBComboBoxEh1: TDBComboBoxEh;
    Label3: TLabel;
    DBComboBoxEh2: TDBComboBoxEh;
    Label4: TLabel;
    ADOQueryID: TAutoIncField;
    ADOQueryusername: TWideStringField;
    ADOQuerykz: TWideStringField;
    ADOQueryqx: TSmallintField;
    ADOQuerymm: TWideStringField;
    procedure FormCreate(Sender: TObject);
    procedure A_saveExecute(Sender: TObject);
    procedure DBEh_rsKeyPress(Sender: TObject; var Key: Char);
    procedure A_addExecute(Sender: TObject);
    procedure A_modifyExecute(Sender: TObject);
    procedure DBGridEhDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRrgl: TFRrgl;

implementation

uses UPublic;

{$R *.dfm}

procedure TFRrgl.FormCreate(Sender: TObject);
begin
  if g_User.profile <=3 then with ADOQuery do try
     if Active then Close;
     sql.Text := 'select * from STU_rrgl where kz='''+g_User.kz+''' order by id';
     open;
  except
  end;
  inherited;
  InitCode('select distinct kz,id from STU_kz order by id',DBComboBoxEh2.Items);
end;

procedure TFRrgl.A_saveExecute(Sender: TObject);
begin
    if trim(DBEh_xm.Text)='' then begin
      ask('用户名不能为空，请输入!','提示',MB_INFO);
      DBEh_xm.SetFocus;
      exit;
    end;
    if DBComboBoxEh2.ItemIndex < 0 then begin
      ask('科组输入不正确，请选择!','提示',MB_INFO);
      DBComboBoxEh2.SetFocus;
      exit;
    end;    
    if DBComboBoxEh1.ItemIndex < 0 then begin
      ask('用户权限输入不正确，请选择!','提示',MB_INFO);
      DBComboBoxEh1.SetFocus;
      exit;
    end;
    if trim(DBEh_rs.Text)='' then begin
      ask('密码不能为空，请输入!','提示',MB_INFO);
      DBEh_rs.SetFocus;
      exit;
    end;
  inherited;
end;

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

procedure TFRrgl.A_addExecute(Sender: TObject);
begin
  inherited;
  if g_User.profile <=3 then begin
    DBComboBoxEh2.ItemIndex := DBComboBoxEh2.Items.IndexOf(g_User.kz);
    DBComboBoxEh2.ReadOnly := true;
    DBComboBoxEh1.ItemIndex := 2;
    DBComboBoxEh1.ReadOnly := True;
  end;
end;

procedure TFRrgl.A_modifyExecute(Sender: TObject);
begin
  inherited;
  if g_User.profile <=3 then begin
    DBComboBoxEh2.ReadOnly := true;
    DBComboBoxEh1.ReadOnly := True;
  end;
end;

procedure TFRrgl.DBGridEhDblClick(Sender: TObject);
begin
  Tool_modify.Click;
end;

end.