add_ptgly.~pas

系统管理程序的源码

unit add_ptgly;

interface

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

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

var
  tjptgly: Ttjptgly;

implementation

uses mydata;

{$R *.dfm}

procedure Ttjptgly.Button2Click(Sender: TObject);
begin
if (edit3.Text ='') or (edit2.Text ='') then begin
   showmessage('用户名和密码不能为空！')   end else begin
if (edit2.Text=edit1.Text) then
   begin
      data.tptgly.open;
      data.tptgly.Append ;
      data.tptgly.FieldByName('name').Value:=edit3.text;
      data.tptgly.FieldByName('password').Value:=edit2.text;
      data.tptgly.Post;
    end
 else
   begin
    showmessage('您输入的两次密码不相同,不能添加此管理员!');
   end;
 end;
   edit1.Text:='';
edit2.text:='';
edit3.text:='';
data.tptgly.Close ;
data.tptgly.Open;
end;

procedure Ttjptgly.Button1Click(Sender: TObject);
begin
tjptgly.Close;
end;

end.