umysys.~pas

这个是我做的一个小程序

unit Umysys;

interface

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

type
  TUmysys1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button3: TButton;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Label2: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Label3: TLabel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button4: TButton;
    DBText1: TDBText;
    Label4: TLabel;
    DBLookupListBox1: TDBLookupListBox;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure DBLookupListBox1Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Umysys1: TUmysys1;
  in_name:String;

implementation
uses Apublic;

{$R *.dfm}

procedure TUmysys1.Button1Click(Sender: TObject);
begin

if (Edit1.Text='') or (Edit2.Text='') then
ShowMessage('输入数据有误!')
else
if  ADOTable1.Locate('user',Edit1.Text,[loCaseInsensitive]) then
  ShowMessage('该用户已存在，请用其他用户!')
  else
begin
ADOTable1.Append;
ADOTable1.FieldByName('user').AsString:=Edit1.Text;
ADOTable1.FieldByName('password').AsString:=Edit2.Text;
if RadioButton1.Checked then
ADOTable1.FieldByName('allow').AsString:='admin'
else
ADOTable1.FieldByName('allow').AsString:='read';
ADOTable1.Post;
end;
Edit1.Clear;
Edit2.Clear;
end;

procedure TUmysys1.FormCreate(Sender: TObject);
begin
if  ADOTable1.FieldByName('allow').AsString='admin' then
RadioButton1.Checked:=True
else
RadioButton2.Checked:=True;

end;

procedure TUmysys1.Button3Click(Sender: TObject);
begin
if StrToInt(ADOTable1.FieldByName('id').AsString)=login_id then
ShowMessage('你不能删除自己!')
else
ADOTable1.Delete;
Edit1.Clear;
Edit2.Clear;
end;

procedure TUmysys1.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TUmysys1.Button4Click(Sender: TObject);
begin

if (Edit1.Text='') then
ShowMessage('输入数据有误!')
else
begin
if  ADOTable1.Locate('user',Edit1.Text,[loCaseInsensitive]) then
  ShowMessage('该用户已存在，请用其他用户!')
  else
  begin
 ADOTable1.Open;
ADOTable1.First;
while (ADOTable1.FieldByName('user').AsString<>in_name) do
ADOTable1.Next;
ADOTable1.Edit;
ADOTable1.FieldByName('user').AsString:=Edit1.Text;
if  Edit2.Text<>'' then
ADOTable1.FieldByName('password').AsString:=Edit2.Text;
if RadioButton1.Checked then
ADOTable1.FieldByName('allow').AsString:='admin'
else
ADOTable1.FieldByName('allow').AsString:='read';
ADOTable1.Post;

end;
end;
Edit1.Clear;
Edit2.Clear;
end;

procedure TUmysys1.DBLookupListBox1Click(Sender: TObject);

begin

in_name:=ADOTable1.FieldByName('user').AsString;
Edit1.Text:=in_name;
if  ADOTable1.FieldByName('allow').AsString='admin' then
RadioButton1.Checked:=True
else
RadioButton2.Checked:=True;
end;

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

end.