userreg.~pas

毕业论文源码 毕业论文源码 毕业论文源码

unit UserReg;

interface

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

type
  TUserRegForm = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    UserTable: TTable;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserRegForm: TUserRegForm;

implementation

{$R *.dfm}

procedure TUserRegForm.Button1Click(Sender: TObject);
var
    //存放用户权限
    P : Integer;
begin
    //判断输入是否合法
    if edit1.Text = '' then
        Exit;
    if edit2.text = '' then
        Exit;
    if ComboBox1.text = '' then
        Exit;
    //增加新记录
    UserTable.Append;
    UserTable.FieldValues['Name'] := edit1.Text;
    UserTable.FieldValues['Password'] := edit2.Text;
    if ComboBox1.Text = '管理员' then
    begin
        P := 1;
    end;
    if ComboBox1.Text = '员工' then
    begin
        P := 2;
    end;
    if ComboBox1.Text = '访客' then
    begin
        P := 3;
    end;
    UserTable.FieldValues['Power'] := P;
    //提交操作
    UserTable.Post;
    close;
end;

end.