qxfp.pas

来自「c/s系统。 delphi 6+access 运行前先配置数据环境：把db文件夹」· PAS 代码 · 共 50 行

unit qxfp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB;

type
  Tfqxfp = class(TForm)
    DBGrid1: TDBGrid;
    Button1: TButton;
    GroupBox1: TGroupBox;
    RadioButton2: TRadioButton;
    RadioButton1: TRadioButton;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fqxfp: Tfqxfp;

implementation
uses adduser;
{$R *.dfm}

procedure Tfqxfp.Button1Click(Sender: TObject);
begin

zjxyh.Table1.open;

 with zjxyh.table1 do
   begin
   edit;
if radiobutton1.checked=true
     then fieldvalues['class']:=0;
  if radiobutton2.checked=true
     then  fieldvalues['class']:=1;
   post;

   showmessage('你已重新分配用户权限！');
   end;
end;

end.