add_cjgly.~pas

学生学籍管理源码

unit add_cjgly;

interface

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

type
  Ttjcjgly = 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
  tjcjgly: Ttjcjgly;

implementation

uses mydata, w_main;

{$R *.dfm}

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

procedure Ttjcjgly.Button1Click(Sender: TObject);
begin
tjcjgly.Close;
end;

end.