user.~pas

能够动态的实现数据库表的创建

unit user;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB, jpeg, Buttons;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    ADOQuery1: TADOQuery;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses main;

//uses Unit2;

{$R *.dfm}





procedure TForm1.BitBtn1Click(Sender: TObject);
 var sqlstr:string;
begin

if (trim(edit1.Text)='')or(trim(edit2.text)='')then
  begin
  application.MessageBox('用户名或密码不能为空','错误提示',0+64);
  exit;
  end;
  sqlstr:='select * From 登陆  where 用户名='''+trim(edit1.Text)+'''';
  Adoquery1.Close;
  Adoquery1.SQL.Clear;
  Adoquery1.SQL.Add(sqlstr);
  ADOquery1.Open;
   if adoQuery1.recordcount<>1 then
     begin
       application.MessageBox('你输入的用户名不存在','错误提示',mb_ok);
       edit2.Clear;
       edit1.SetFocus;
       edit1.SelectAll;
       exit;
     end;

  if trim(adoQuery1.FieldValues['密码'])<>edit2.Text then
     begin
       application.MessageBox('你输入的密码不对','错误提示',mb_ok);
       exit;
     end;
     Form2.show;
     self.hide;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  self.Close;
end;

end.