delphi开发一个进销存软件的登录界面。怎么让他连接sql2000，检测用户名密码。正确就能调用第二个窗体。

这样做首先要分好多个步骤

1、在MAIN窗体创建后，首先要检查数据库是否能联通
2、显示一个登录框，输入用户名、密码，然后去数据库相应的表里做对比 select * from 表 where 用户名=用户名 and 密码=密码
如果数据集记录条数大于0，那么就正确。。。。。。。
3、显示main窗体，同时关闭第一个窗体

delphi里，是有主窗体这个概念，比如IDE窗体，启动后，可以HIDE起来，然后show登录窗体，当密码过关后，close登录窗体，main窗体SHOW就可以了

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Edit1: TEdit;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses  Unit2;

procedure TForm1.Button1Click(Sender: TObject);

const
  password:string='sss';

begin
  if edit1.Text=password   then
  begin       
  Form1.hide;
  Form2.Show;
  end
  else
  begin
  showmessage('未输入密码或密码错误');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.Text:='';
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  showmessage('这是第一版，可以联系信息科');
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  showmessage('信息科院内小号：8155');
end;

end.

转载请注明：落伍老站长 » delphi开发一个进销存软件的登录界面。怎么让他连接sql2000，检测用户名密码。正确就能调用第二个窗体。