最新消息:

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

感想 eben 70浏览 0评论

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

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,检测用户名密码。正确就能调用第二个窗体。

发表我的评论
取消评论

表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址