Предыдущая страница реферата | 28  29  30  31  32  33  34  35  36  37  38 | Следующая страница реферата

    TUserListForm = class(TForm)

    UsersTable: TTable;

    dsUsers: TDataSource;

    UsersGrid: TrxDBGrid;

    UsersTablePassword: TStringField;

    Panel1: TPanel;

    DBNavigator: TDBNavigator;

    FormPlacement: TFormPlacement;

    UsersTableID: TFloatField;

    UsersTableUserName: TStringField;

    UsersTableFullName: TStringField;

    UsersTableUserLevel: TFloatField;

    BitBtn1: TBitBtn;

    procedure DBNavigatorClick(Sender: TObject; Button:

                               TNavigateBtn);

    procedure UsersGridDblClick(Sender: TObject);

    procedure FormPlacementSavePlacement(Sender: TObject);

    procedure FormPlacementRestorePlacement(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

end;

var

  UserListForm: TUserListForm;

implementation

uses

   EditUser, IniFiles, Global;

const

  SAccessDenied = 'Недостаточно прав. Доступ запрещен';

{$R *.DFM}

procedure TUserListForm.DBNavigatorClick(Sender: TObject;

                                         Button: TNavigateBtn);

begin

  case Button of

    nbInsert:

      begin

        EditUserData('', UsersTable, True);

      end;

    nbEdit:

      begin

        EditUserData('', UsersTable, False);

      end;

  end;

end;

procedure TUserListForm.UsersGridDblClick(Sender: TObject);

begin

  EditUserData('', UsersTable, False);

end;

procedure TUserListForm.FormPlacementSavePlacement(Sender: TObject);

var

  IniFile: TIniFile;

Рекомендуем скачать другие рефераты по теме: реферат федерация, дипломная работа проект.



Предыдущая страница реферата | 28  29  30  31  32  33  34  35  36  37  38 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки