unit19.pas

用于开发税务票据管理的软件

unit Unit19;

interface
   {11111111111111111111111111111}

        {用户管理窗体}

   {11111111111111111111111111111}
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,unit2, DB, ADODB, XPMenu, StdCtrls, ComCtrls;

type
  TForm19 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    XPMenu1: TXPMenu;
    db4: TADOQuery;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Button2: TButton;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Label9: TLabel;
    Edit9: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form19: TForm19;

implementation

{$R *.dfm}

procedure TForm19.Button1Click(Sender: TObject);
begin
db4.Close;
db4.SQL.Clear;
db4.SQL.Add('select * from 用户 where 用户名=');
db4.SQL.Add(''''+edit1.Text+'''');
db4.Open;
if not db4.IsEmpty then
begin
  showmessage('该用户已经存在!请另选取一个用户名');
  exit;
end;
if edit2.text<>edit3.Text then
begin
  showmessage('两次密码不一样,请重新确定!');
  exit;
end;
db4.Close;
db4.SQL.Clear;
db4.SQL.Add('insert into 用户 (用户名,密码) ');
db4.SQL.add('values('''+edit1.Text+''',');
db4.SQL.add(''''+edit2.Text+''')');
db4.execsql;
showmessage('用户添加成功');
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;

procedure TForm19.Button2Click(Sender: TObject);
begin
db4.Close;
db4.SQL.Clear;
db4.SQL.Add('select * from 用户  ') ;
db4.sql.Add(format('where 用户名=''%s'' and 密码=''%s''',[edit4.text,edit5.text]));
db4.Open;
if db4.IsEmpty then
begin
showmessage( '对不起,输入不正确.你不能删除');
exit;
end;
db4.Delete;
showmessage('该用户已经删除');
edit4.Clear;
edit5.Clear;
end;

procedure TForm19.Button3Click(Sender: TObject);
begin
db4.Close;
db4.SQL.Clear;
db4.SQL.Add('select * from 用户  ') ;
db4.sql.Add(format('where 用户名=''%s'' and 密码=''%s''',[edit6.text,edit7.text]));
db4.Open;
if db4.IsEmpty then begin
showmessage('没有该用户或者密码有误,请核对!');
exit;
end;
if edit9.text<>edit8.Text then
begin
showmessage('两次输入的密码不一致');
exit;
end;
db4.Delete;
db4.Edit;
db4.FieldValues['用户名']:=edit6.Text;
db4.FieldValues['密码']:=edit8.Text;
db4.Post;
showmessage('用户修改完成,请记住新信息!');
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
end;

end.