unit8.~pas

劳模信息综合管理

unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    Edit_username: TEdit;
    Edit_password: TEdit;
    CBox_grade: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation
   uses unit3;
{$R *.dfm}

procedure TForm8.Button2Click(Sender: TObject);
begin
   close;

end;

procedure TForm8.Button1Click(Sender: TObject);
begin

 if  (edit_username.Text='') then
     begin
      showmessage('请输入姓名');
      showmessage('添加数据失败')
     end
   else
      with datalink.ADOQ_user do
        begin
        close;
        sql.Clear;
        SQL.add('insert  into  userinfo(username,password,grade) values(:name,:password,:grade)');
        Parameters.ParamByName('name').value:=edit_username.Text;
        Parameters.ParamByName('password').value:=edit_password.Text;
        Parameters.ParamByName('grade').value:=CBox_grade.Text;
        execsql();
        sql.Clear;
         sql.add('select * from userinfo');
        close;
        showmessage('添加数据成功');
       end;

           edit_username.Text:='';
           edit_password.Text:='';
           CBox_grade.Text:='';
end;

end.