uadduser.pas

港口货物管理系统

unit Uadduser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, ExtCtrls, Grids, DBGrids, Buttons,
  ActnList, ActnMan;

type
  Tfmadduser = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    RadioGroup1: TRadioGroup;
    BitBtn4: TBitBtn;
    GroupBox2: TGroupBox;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmadduser: Tfmadduser;

implementation

uses ulogin;

{$R *.dfm}

procedure Tfmadduser.FormCreate(Sender: TObject);
begin
application.OnMessage:=fmlogin.doenterastab;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';



end;

procedure Tfmadduser.BitBtn1Click(Sender: TObject);
var qx:string;
begin
if table1.Locate('auid',trim(edit1.Text),[])=false then
begin
if radiogroup1.ItemIndex=0
then qx:='WR';
if radiogroup1.ItemIndex=1
then qx:='None';
if radiogroup1.ItemIndex=2
then qx:='All';

if (length(trim(edit1.Text))>3) and (length(trim(edit2.Text))>3)
then
table1.AppendRecord([edit1.text,edit2.text,edit3.text,edit4.text,qx])
else
begin
showmessage('你的帐号或密码输入长度太短！(3-10)');
edit1.SelectAll;
end;
end
else
begin
showmessage('你的帐号已经存在请重输！');
edit1.SelectAll;
end;
edit1.SetFocus;

end;

procedure Tfmadduser.FormActivate(Sender: TObject);
begin
        edit1.SetFocus;
end;

procedure Tfmadduser.BitBtn2Click(Sender: TObject);
begin
table1.Edit;
table1.Delete;

end;

procedure Tfmadduser.BitBtn3Click(Sender: TObject);
begin
fmadduser.Close;
end;

procedure Tfmadduser.BitBtn4Click(Sender: TObject);
var qx:string;
begin
if radiogroup1.ItemIndex=0
then qx:='WR';
if radiogroup1.ItemIndex=1
then qx:='None';
if radiogroup1.ItemIndex=2
then qx:='All';
table1.Edit;
table1.FieldValues['aurights']:=qx;
table1.Post;
end;

procedure Tfmadduser.Table1AfterScroll(DataSet: TDataSet);
var qx:string;
begin
if table1.Fields[0].IsNull<>true then
edit1.Text:=table1.FieldValues['auid']
else edit1.Text:='';
if table1.Fields[1].IsNull<>true then
edit2.Text:=table1.FieldValues['aupass']
else edit2.Text:='';
if table1.Fields[2].IsNull<>true then
edit3.Text:=table1.FieldValues['auname']
else edit3.Text:='';
if table1.Fields[3].IsNull<>true then
edit4.Text:=table1.FieldValues['autel']
else edit4.Text:='';
if table1.Fields[4].IsNull<>true then
qx:=table1.FieldValues['aurights'];
if qx='WR'
then radiogroup1.ItemIndex:=0;
if qx='None'
then radiogroup1.ItemIndex:=1;
if qx='All'
then radiogroup1.ItemIndex:=2;


end;

end.