Delphi 怎样做一个登陆窗体

来源：百度知道 编辑：UC知道 时间：2024/06/23 07:07:52
请高手能够解决我这个问题
如：我做一个服务器，要求密码登陆进去。检测服务器有没有这个用户，或者如果没有可以注册，然后要登陆到服务器里去那么要怎么做。什么数据库啊，要什么数据库控件啊。我都不知道，高手能详细点吗？觉得分少我可以给追加分。麻烦大家了
好像只写了一个登陆窗体哦，还写个服务器呢。如果没有这个ID 可以注册的那样。如果写好了我可以把全部分都给你

//需要的数据库组件就是AdoQuery 或者 Query
//连的数据库可以自定,sqlserver,Access,Mysql 都可以.

//下面是一个详细的例子,从我的一个小项目中摘的一个登陆单元

//基本思路是在主窗体FMain 的Formshow事件中创建显示这个窗体
//这个窗体判断输入的用户和密码,正确则显示Fmain,不然则提示

unit Ulogin;

interface

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

type
TFlogin = class(TForm)
GroupBox1: TGroupBox;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
username: TEdit;
password: TEdit;
Q: TADOQuery;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
logtimes:integer; //登陆尝试次数<