mysys.pas

直接可以编译运行

unit mysys;

interface

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

type
  Tmysys1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mysys1: Tmysys1;

implementation
uses Apublic, Main,login, Math;


{$R *.dfm}

procedure Tmysys1.Button1Click(Sender: TObject);
begin
ADOTable1.Open;
if (Edit2.Text=login_pass) and (Edit3.Text=Edit4.Text)  then
begin
//ADOTable1.Filtered:=True;
//ADOTable1.Filter:='user='+Edit1.Text;
  if  ADOTable1.Locate('user',Edit1.Text,[loCaseInsensitive]) then
  ShowMessage('该用户已存在，请用其他用户!')
  else
  begin
  ADOTable1.Open;
ADOTable1.First;
while (ADOTable1.FieldByName('user').AsString<>login_name) do
ADOTable1.Next;
ADOTable1.Open;
ADOTable1.Edit;
ADOTable1.FieldByName('user').AsString:=Edit1.Text;
    if Edit3.Text<>'' then
        ADOTable1.FieldByName('password').AsString:=Edit3.Text;
        if RadioButton1.Checked=True then
        ADOTable1.FieldByName('allow').AsString:='admin'
        else
            if RadioButton2.Checked=True then
            ADOTable1.FieldByName('allow').AsString:='read';
ADOTable1.Post;
login_name:=ADOTable1.FieldByName('user').AsString;
login_pass:=ADOTable1.FieldByName('password').AsString;
login_admin:=ADOTable1.FieldByName('allow').AsString;
ShowMessage('已提交修改！');
mysys1.Close;
end;
end

else
ShowMessage('输入资料有误');

end;

procedure Tmysys1.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tmysys1.FormCreate(Sender: TObject);
begin
Label5.Caption:='操作用户:'+login_name+'   ';
Edit1.Text:=login_name;
if login_admin='admin' then
begin
RadioButton1.Enabled:=True;
RadioButton1.Checked:=True;
end
else
begin
RadioButton1.Enabled:=False;
RadioButton2.Checked:=True;
end;

end;


procedure Tmysys1.Edit1Click(Sender: TObject);
begin
Edit1.SelectAll;
end;

end.