现在做一个登录框Form1,两个Edit!在Edit1中写入用户名,在Edit2中写入密码!程序自动到数据库中指写表查找用户名密码全对,关Form1,开Form2!主要是SQL那部分怎么写!请写的详细一点儿!谢谢!!!!
解决方案 »
- Delphi打包程序 -----------!
- 能否高速转换
- 关于<<开发人员指南>>
- 如果遇到好的网站,大家如何搜集的?
- 为什么同样的com+event object在windows 2003 server能调用,在xp上不能调用?
- 为什么有记录却找不到?SQL语句的关键部分是:WHERE (时间 = #5/13/2003 15:13:13# )
- 怎么释放表单?
- 请问:不考虑硬件环境因素,如何从优化大量数据处理的数据库应用程序性能?
- 用quickreport做的报表,设计时通过右键选择预览可以看到所有页面,但是运行时用.preview方法,却只能看到第一页,为什么?
- 两个库之间的操作
- 在线等候---选中DBGrid或DBTreeView中的某一行,触发什么事件?
- Delphi 菜鸟提问8: 我想输出当前所有菜单项的Name?
首先new一个新的工程,然后再新建一个是form,进入project菜单,单击其中的option菜单后进入,使form2成为不自动创建(方法为:在auto-create forms中选中form2,然后双击即可,单击ok按钮)。
此程序的原理是通过在密码窗体(运行时首先显示此窗体)输入的密码文本是否和主窗体中的edit中的文本一样,如果一样就进入程序,否则退出程序。
在form1,form2中各加一个eidt控件,然后在form2中加入一个button控件。
程序源码如下:
工程文件:
program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.RES}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
form2:=tform2.create(application);
form2.showmodal;
if (text1<>form1.edit1.text) then
begin
application.Terminate;
end;
Application.Run;
end.单元1文件
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}end.
单元2文件
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm2 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;
text1:string;
implementation{$R *.DFM}procedure TForm2.Button1Click(Sender: TObject);
begin
text1:=form2.edit1.text;
form2.close;
end;end. 在DELPHI的程序开发中,用户登陆窗口的用处非常的大,下面的代码是这类效果的简单实现。
首先new一个新的工程,然后再新建一个是form,进入project菜单,单击其中的option菜单后进入,使form2成为不自动创建(方法为:在auto-create forms中选中form2,然后双击即可,单击ok按钮)。
此程序的原理是通过在密码窗体(运行时首先显示此窗体)输入的密码文本是否和主窗体中的edit中的文本一样,如果一样就进入程序,否则退出程序。
在form1,form2中各加一个eidt控件,然后在form2中加入一个button控件。
程序源码如下:
工程文件:
program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.RES}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
form2:=tform2.create(application);
form2.showmodal;
if (text1<>form1.edit1.text) then
begin
application.Terminate;
end;
Application.Run;
end.单元1文件
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}end.
单元2文件
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm2 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;
text1:string;
implementation{$R *.DFM}procedure TForm2.Button1Click(Sender: TObject);
begin
text1:=form2.edit1.text;
form2.close;
end;end.