uadduser.pas

个人理财系统可以添加

unit uadduser;

interface

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

type
  Tadduser = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Table1: TTable;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  adduser: Tadduser;

implementation

{$R *.dfm}

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

procedure Tadduser.Button1Click(Sender: TObject);
begin
   table1.DatabaseName:=sysutils.GetCurrentDir+'\database';
   table1.TableName:='mima.db';
   table1.Open;
   while((edit1.Text<>table1.FieldByName('Name').asstring)and(not table1.Eof))do
    table1.Next;
   if(table1.Eof)then     //创建用户名并且创建用户表
   begin
     if(edit2.Text=edit3.Text)then
       begin
         table1.Close;
          with table1 do
           begin
               TableName:=edit1.Text;
               FieldDefs.Clear;
               with FieldDefs.AddFieldDef do begin
                Name:= 'indate';
                DataType:= ftDate;
               end;
               with FieldDefs.AddFieldDef do begin
                Name:='inclass';
                DataType:=ftString;
                Size:= 12;
               end;
                with FieldDefs.AddFieldDef do begin
                Name:='inmoney';
                DataType:=ftfloat;
                end;
                with FieldDefs.AddFieldDef do begin
                Name:='inshouming';
                DataType:=ftMemo;
                Size:=200;
                end;
                with FieldDefs.AddFieldDef do begin
                Name:= 'outdate';
                DataType:= ftDate;
                end;
                with FieldDefs.AddFieldDef do begin
                Name:='outclass';
                DataType:=ftString;
                Size:= 12;
                end;
                with FieldDefs.AddFieldDef do begin
                Name:='outmoney';
                DataType:=ftfloat;
                end;
                with FieldDefs.AddFieldDef do begin
                Name:='outshouming';
                DataType:=ftMemo;
                Size:=200;
                end;
              createtable;
           end;
         table1.Close;
         table1.TableName:='mima.db';
         table1.Open;
         table1.Edit;
         table1.Last;
         table1.Insert;
         table1.Fields[0].AsString:=edit1.Text;
         table1.FieldByName('Psw').AsString:=edit2.Text;
         table1.FieldByName('jibei').AsString:='user';
         table1.Post;
         table1.Close;
         showmessage('该用户创建成功');
         edit1.Clear;
         edit2.Clear;
         edit3.Clear;
       end
     else showmessage('两次输入的密码不一样');
   end
   else showmessage('该用户已存在,请重新输入用户名');
end;

end.