udm.pas

教材管理系统

unit udm;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TDM = class(TDataModule)
    Dbjcgl: TDatabase;
    Qryuser: TQuery;
    Qrytemp: TQuery;
    Qryuserusername: TStringField;
    Qryuserpassword: TStringField;
    QryuserAdministrator: TBooleanField;
    Qryuseruserright: TStringField;
    Qrygn: TQuery;
    dsuser: TDataSource;
    user: TQuery;
    procedure dsuserDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation
   uses mycommon,userAuthor,main;
{$R *.dfm}



procedure TDM.dsuserDataChange(Sender: TObject; Field: TField);
begin
  if (frmUserAuthor.MyStatus = 'browse') then
  begin
    FrmUserAuthor.TableToEdit;
   FrmUserAuthor.ShowMyButton;
  end;
end;

end.