unit8.~pas

简单的一个computer系统

unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    Image1: TImage;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);
begin
if self.Edit1.Text='' then
    begin
    showmessage('没有输入用户名，请输入用户名');
    exit;
    end;
if self.Edit2.Text='' then
    begin
    showmessage('密码不能为空，请输入密码');
    exit;
    end ;

    dm.ADOQuery3.Close;
    dm.ADOQuery3.SQL.Clear;
    dm.ADOQuery3.SQL.Add('select * from customers where name=:name and pwd=:pwd ');
    dm.ADOQuery3.Parameters.ParamByName('name').Value:= Edit1.Text;
    dm.ADOQuery3.Parameters.ParamByName('pwd').Value:= Edit2.Text;
    dm.ADOQuery3.Open;

     if not(dm.ADOQuery3.IsEmpty ) then
      begin
      Form1.Show;
      Form8.Hide;
      end
end;

end.