主程序为MID界面窗口,如何在进入主程序窗口之前显示密码校验窗口。
解决方案 »
- DELPHI求解释
- 关于在image控件上画图后滚动条问题
- delphi中listview单行颜色问题.
- DBNavigator更新数据问题???(用TQuery,datasource,DBGrid)
- 探讨一下移动硬盘的功能,顺便做个市场调查、散个分
- 关于“继承”关系的问题,请大家帮我解答一下
- 谁有自己做的三层例子,客户端(delphi)---应用服务器(COM+)---数据库服务器
- 一个关于字符串的问题,问了我们公司最厉害的程序员,不懂。有兴趣的话进来看一下
- 谢谢你,请接分
- NT下的自定义纸张打印问题
- 找一个2.0时代的控件,老手请进
- 请问各位高手怎样把AVI等资源文件嵌入到EXE文件中阿!
begin
fstart:=TFstart.Create(application);
fstart.Show;
fstart.Update;
Application.Initialize;
Application.CreateForm(TFmain, Fmain);
fstart.Hide;
fstart.Free;
Application.Run;fstart为启动界面,你把它改成密码窗体,然后判断一下就可以拉
program Project1;uses
Forms,
main_try in 'main_try.pas' {main},
wait_sys in 'wait_sys.pas' {wait},
about_sys in 'about_sys.pas' {about},
login_zj in 'login_zj.pas' {login},
db_zj in 'db_zj.pas' {cldbf: TDataModule};{$R *.res}begin
Application.Initialize;
wait:=Twait.create(application);
wait.ProgressBar1.Max:=100; wait.Show;
application.ProcessMessages; ///////////
wait.Update;
// wait.name_lbl.Caption:='读取参数...';
wait.company_lbl.Caption:='正在初始化...';
wait.update;
Application.CreateForm(Tmain, main);
wait.ProgressBar1.StepBy(25);
wait.company_lbl.Caption:='正在建立数据库连接...';
wait.update;
Application.CreateForm(Tcldbf, cldbf);
wait.ProgressBar1.StepBy(50);
if main.door then
begin
wait.company_lbl.Caption:='数据库连接成功!';
wait.update;
Application.CreateForm(Tabout, about); login:=Tlogin.Create(application); //输入用户名密码窗体
wait.ProgressBar1.StepBy(25);
wait.hide;
wait.free; login.ShowModal;
if login.con then
begin
Application.Run;
end;
end
else Application.Terminate;
end.
form1:=tform1.create(self);
form1.showmodel;
窗体产生后输入用户名,密码按button后
showmedel属性有一个返回值
根据返回值来判断是否产生主窗体
说的比较笼统
楼主试着来,我就是这样做的,呵呵。
program crm;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
datamodule in 'datamodule.pas' {DataModule5: TDataModule},
sysfun in 'sysfun.pas',
about in 'about.pas' {AboutBox},
Unit16 in 'Unit16.pas' {Form16},
Unit5 in 'Unit5.pas' {Form5},
Unit18 in 'Unit18.pas' {Form18},
w_password in 'w_password.pas' {PasswordDlg};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TPasswordDlg, PasswordDlg); //用户名密码窗体
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TDataModule5, DataModule5);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TForm16, Form16);
Application.CreateForm(TForm18, Form18);
Application.Run;
end.
//在工程文件中修改,如下:program crm;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
datamodule in 'datamodule.pas' {DataModule5: TDataModule},
sysfun in 'sysfun.pas',
about in 'about.pas' {AboutBox},
Unit16 in 'Unit16.pas' {Form16},
Unit5 in 'Unit5.pas' {Form5},
Unit18 in 'Unit18.pas' {Form18},
w_password in 'w_password.pas' {PasswordDlg};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TDataModule5, DataModule5);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TForm16, Form16);
Application.CreateForm(TForm18, Form18); PasswordDlg:=TPasswordDlg.Create(application); //密码窗体名称
PasswordDlg.ShowModal;
if PasswordDlg.ModalResult=1 then
begin
PasswordDlg.close;
Application.Run;
end;
end.