add.pas

来自「delphi自动出题系统源代码,有兴趣的可以来看看！」· PAS 代码 · 共 96 行

unit add;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, DBTables;

type
  Taddform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    DataSource1: TDataSource;
    Query1: TQuery;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addform: Taddform;

implementation

uses main;

{$R *.DFM}

procedure Taddform.BitBtn2Click(Sender: TObject);
begin
  close;

end;

procedure Taddform.BitBtn1Click(Sender: TObject);
begin
   if edit2.text<>edit3.Text then
      showmessage('两次输入的密码不匹配！请重新输入。')
   else  if combobox1.Text='' then
      showmessage('请选择用户类型!')
   else with query1 do
      begin
        close;
        sql.Clear;
        sql.Add('insert into user');
        sql.Add('values("'+edit1.Text+'","'+combobox1.Text+'","'+edit2.Text+'")');
        execsql;
        showmessage('已经成功增加用户，请确认。');
        modalresult:=mrOK;
      end;

end;

procedure Taddform.SpeedButton1Click(Sender: TObject);
begin
  close;
end;
procedure Taddform.SpeedButton2Click(Sender: TObject);
begin
   if edit2.text<>edit3.Text then
      showmessage('两次输入的密码不匹配！请重新输入。')
   else  if combobox1.Text='' then
      showmessage('请选择用户类型!')
   else with query1 do
      begin
        close;
        sql.Clear;
        sql.Add('insert into user');
        sql.Add('(username,usertype,password)');
        sql.Add('values("'+edit1.Text+'","'+combobox1.Text+'","'+edit2.Text+'")');
   
        execsql;
        showmessage('增加用户成功！');
        modalresult:=mrOK;

      end;

end;
end.