首页 / DELPHI / delphi 登陆窗口的问题 [问题点数：30分，结帖人tianhuo_soft]

delphi 登陆窗口的问题 [问题点数：30分，结帖人tianhuo_soft]

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了delphi 登陆窗口的问题 [问题点数：30分，结帖人tianhuo_soft]，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含8014字，纯文字阅读大概需要12分钟。

内容图文

delphi 登陆窗口的问题 [问题点数：30分，结帖人tianhuo_soft]

http://bbs.csdn.net/topics/200053917

有两个窗口
formLogin是登陆窗口，formMain是主窗口
我想让formMain显示出来，并且formLogin窗口关闭或者隐藏
这牵扯到如果是关闭在formMain就不用去管formLogin的问题了
如果是隐藏那formMain就还要关闭formLogin窗口
我是这样想的本人对delphi的机制不太了解~！
我在formLogin中添加
       formMain:=formMain.Create(Application);
      formMain.ShowModal;
      formLogin.Close;
这样并没有隐藏formLogin窗口，是不是还要加什么语句~！
感谢您对这个问题的回答~！

dpr里面这么写（uses Controls）

begin
Application.Initialize;
Application.CreateForm(TformMain, formMain);
formLogin = TformLogin.Create(Application);
if formLogin.ShowModal = mrOk then
begin
formLogin.Release;
Application.Run;
end;
end.

我的工程文件是这样的
  Application.Initialize;
  Application.CreateForm(TformMain, formMain);
  Application.ShowMainForm := false;
  Application.Run;
我的想法是先创建formMain窗口在从formMain的OnCreate事件中创建formLogin窗口
      formLogin:=TformLogin.Create(Application);
     formLogin.ShowModal;
当正确输入用户名和密码后
      formLogin.Free;
      formLogin:=nil;
      formMain.ShowModal;
这样有个问题是当关闭formMain后并没有关闭formLogin

procedure Tform1.formcreate(sender:Tobject);
begin
formLogin:=TformLogin.Create(self);
try
   if formlogin.showmodal<>mrok then
       close;
  finally
      formlogin.free;
end;
end;

工程文件中是这样的.
begin
  Application.Initialize;
  F_pos_start := tF_pos_start.Create(application);
  F_pos_start.show;
  F_pos_start.Update;
  Sleep(2000);
  F_pos_start.Close;
  Application.Title := ‘大药房连锁管理系统-连锁店端‘;
  Application.CreateForm(TF_pos_main, F_pos_main);
  Application.CreateForm(TF_pos_login, F_pos_login);
  .............................
  Application.CreateForm(TF_pos_select_unit, F_pos_select_unit);
  Application.CreateForm(TF_pos_check_stock, F_pos_check_stock);
  F_pos_Main.Visible := true; //显示主窗体
  F_pos_login.ShowModal; //显示登录窗体
  Application.Run;
end.

释放在登录成功的时候做个 free 什么的不就行了吗?或者 oncolose 里 action:=cafree;

建议采用MDI，这样就可以实现楼主意思了
在工程文件中只创建主窗体，
然后在主窗体中在进行登陆对话框的创建，完毕后释放。

不明白你的意思是什么
我说下自己的例子。。
MainForm 主窗体
LoginForm 登录窗体
在MainForm的FormShow事件里判断当前是否已经登录
如果么有。。就LoginForm.ShowModal;
在LoginForm的FormClose事件里判断当前是否已经登录
如果么有。。就Application.Terminate

你把LoginForm设为主窗体。。。然后判断用户名密码
验证通过 MainForm 显示。。。 loginform 释放
应该是这样的！~！~！

ShowModal 是显示模式窗体的，只有该窗体关闭后才能执行下面关闭语句
窗体隐藏的方法的Hide

Self.Hide; //先隐藏
frmMain := TForm.Create(Application);
frmMain.ShowModal;

handle_1,handle_2:hwnd;
begin
  //数据库文件检测
  If (not fileexists(ExtractFilePath(ParamStr(0))+‘up.mdb‘)) or (not fileexists(ExtractFilePath(ParamStr(0))+‘handset.mdb‘))  Then
     Begin
        messagebox(0,‘系统文件丢失,请重新安装!‘,‘提示‘,MB_OK);
        Application.Terminate;
     End;
  Application.Initialize;
  //获取窗口句柄
  handle_1:=findwindow(‘TForm_handset_Login‘,nil);
  handle_2:=findwindow(‘TForm_handset_Main‘,nil);
  If (handle_1=0) and (handle_2=0) Then
       Begin
       //启动登录窗口
        Form_handset_Login:=TForm_handset_Login.Create(Application);
        Form_handset_Login.ShowModal;
        If (Form_handset_Login.ModalResult=mrok) Then
            Begin
               Application.Title := ‘手机通讯录‘;
               Application.CreateForm(TForm_handset_Main, Form_handset_Main);
               Application.CreateForm(TDM, DM);
               Application.Run;
            End;
       End
  Else
      messagebox(0,‘手机通讯录已经运行！‘,‘提示‘,MB_OK);
end.

unit handset_Login;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, StdCtrls, Mask, RzEdit, RzLabel, ExtCtrls, RzPanel,
  DB, ADODB;
type
  TForm_handset_Login = class(TForm)
    RzGroupBox1: TRzGroupBox;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzEdit1: TRzEdit;
    RzEdit2: TRzEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    ADOQuery_Login: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure RzEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RzEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form_handset_Login: TForm_handset_Login;
  j:integer=1;
  E:boolean=False;
implementation
uses AES;
const
  Keys=‘z1a2x2d3cf34r5f5g6h7jk8‘;
{$R *.dfm}
{------------------------------------------------------------------------------}
//1  初始化：联据数据库
{------------------------------------------------------------------------------}
procedure TForm_handset_Login.FormCreate(Sender: TObject);
const
   PassWord=‘q1w2e3r4t5y6u7i8o9p0‘;
var
   MyPath:string;
begin
   RzEdit1.Clear;
   RzEdit2.Clear;
  //----------------------------连接数据库----------------------------------------
   MyPath:=ExtractFilePath(ParamStr(0));
   adoQuery_Login.ConnectionString :=‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=‘+
                                 MyPath+‘up.mdb;Jet OLEDB:Database Password=‘+
                                 PassWord+‘;Persist Security Info=False‘;
end;
{------------------------------------------------------------------------------}
//2  判断
{------------------------------------------------------------------------------}
procedure TForm_handset_Login.RzBitBtn1Click(Sender: TObject);
var
  UserName,PassWord:string;
begin
   ADOQuery_Login.Close;
   ADOQuery_Login.SQL.Clear;
   ADOQuery_Login.SQL.Add(‘select *from Login‘);
   ADOQuery_Login.Open;
   If ADOQuery_Login.RecordCount>0 Then
      Begin
         ADOQuery_Login.First;
         UserName:=DecryptString(ADOQuery_Login.FieldValues[‘UserName‘], Keys);
         PassWord:=DecryptString(ADOQuery_Login.FieldValues[‘PassWord‘], Keys);
         If (Trim(UserName)=Trim(RzEdit1.Text)) and (Trim(PassWord)=Trim(RzEdit2.Text)) Then
             Begin
                Self.ModalResult:=mrok;
             End
         Else
             Begin
                If j=3 Then
                   Begin
                      Messagebox(handle,‘非法登录！‘,‘系统提示‘,MB_OK+MB_ICONERROR);
                      ADOQuery_Login.Close;
                      Application.Terminate;  //退出系统
                   End;
                MessageBox(handle,‘用户名或密码不正确，请重新填写！‘,‘提示‘,MB_OK+MB_ICONINFORMATION);
                j:=j+1;
                RzEdit1.Clear;
                RzEdit2.Clear;
                RzEdit1.SetFocus;
             End;
      End;
end;
{------------------------------------------------------------------------------}
//3  退出
{------------------------------------------------------------------------------}
procedure TForm_handset_Login.RzBitBtn2Click(Sender: TObject);
begin
   E:=True;
   Close
end;
{------------------------------------------------------------------------------}
//4  退出判断
{------------------------------------------------------------------------------}
procedure TForm_handset_Login.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
   If E=True Then
      Begin
         ADOQuery_Login.Close;
         Application.Terminate;
      End
end;
{------------------------------------------------------------------------------}
//5  切换焦点
{------------------------------------------------------------------------------}
procedure TForm_handset_Login.RzEdit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   If key=vk_return Then
      RzEdit2.SetFocus
end;
{------------------------------------------------------------------------------}
//6  切换焦点
{------------------------------------------------------------------------------}
procedure TForm_handset_Login.RzEdit2KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   If key=vk_return Then
      RzBitBtn1Click(Sender);
end;
end.

program handset;
uses
  Forms,
  windows,
  SysUtils,
  controls,
  handset_Main in ‘handset_Main.pas‘ {Form_handset_Main},
  MyData in ‘MyData.pas‘ {DM: TDataModule},
  handset_Edit in ‘handset_Edit.pas‘ {Form_handset_Edit},
  handset_Search in ‘handset_Search.pas‘ {Form_handset_Search},
  handset_QZ in ‘handset_QZ.pas‘ {Form_handset_QZ},
  handset_LX in ‘handset_LX.pas‘ {Form_handset_LX},
  handset_Login in ‘handset_Login.pas‘ {Form_handset_Login},
  handset_Safety in ‘handset_Safety.pas‘ {Form_handset_Safety};
{$R *.res}
var
handle_1,handle_2:hwnd;
begin
  //数据库文件检测
  If (not fileexists(ExtractFilePath(ParamStr(0))+‘up.mdb‘)) or (not fileexists(ExtractFilePath(ParamStr(0))+‘handset.mdb‘))  Then
     Begin
        messagebox(0,‘系统文件丢失,请重新安装!‘,‘提示‘,MB_OK);
        Application.Terminate;
     End;
  Application.Initialize;
  //获取窗口句柄
  handle_1:=findwindow(‘TForm_handset_Login‘,nil);
  handle_2:=findwindow(‘TForm_handset_Main‘,nil);
  If (handle_1=0) and (handle_2=0) Then
       Begin
       //启动登录窗口
        Form_handset_Login:=TForm_handset_Login.Create(Application);
        Form_handset_Login.ShowModal;
        If (Form_handset_Login.ModalResult=mrok) Then
            Begin
               Application.Title := ‘手机通讯录‘;
               Application.CreateForm(TForm_handset_Main, Form_handset_Main);
               Application.CreateForm(TDM, DM);
               Application.Run;
            End;
       End
  Else
      messagebox(0,‘手机通讯录已经运行！‘,‘提示‘,MB_OK);
end.

原文：http://www.cnblogs.com/jijm123/p/7858106.html

内容总结

以上是互联网集市为您收集整理的delphi 登陆窗口的问题 [问题点数：30分，结帖人tianhuo_soft]全部内容，希望文章能够帮你解决delphi 登陆窗口的问题 [问题点数：30分，结帖人tianhuo_soft]所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1118640.html

来源：【匿名】

【上一篇】delphi数据类型（转载）【下一篇】为何用Delphi程序写的POST不能下传图片

更多 ►

【delphi 登陆窗口的问题 [问题点数：30分，结帖人tianhuo_soft]】教程文章相关的互联网学习教程文章

delphi提示错误行号之Assert(断言)【图】

一、用法:Assert(表达式)1.如果为假 Assert会产生一个EAssertionFailed异常,显示为 Assertion Failed (C:/src/unit1.pas, [size=+0]line 34)2.如果不想再使用这些检查时,可以使用($ASSERTIONS OFF)或($C-)编译指令3.要想使Assert在整个项目中失效, 关闭Project Options | Compiler | Assertion 选项。二、delphi Assert()函数的用法Assert（断言）的作用是用来进行条件测试。可以计算表达式 Expression ，如果其值为假（即为0），那...

Delphi操作快捷键

************************************************************** Delphi快捷键－全－高手用－南山古桃（新手）－同学共进 ************************************************************** Ctrl+PageUp 将光标移至本屏的第一行，屏幕不滚动。 Ctrl+PageDown 将光标移至本屏的最后一行，屏幕不滚动。 Ctrl+↓ 向下滚动屏幕，光标跟随滚动不出本屏。 Ctrl+↑ 向上滚动屏幕，光标跟随滚动不出本屏。...

unigui组件中client javascript delphi组件之间的操作

UniLabel组件：function OnClick(sender, e){ MainForm.UniLabel1.setText(‘Click!‘);}function Onmousemove(sender, x, y){ MainForm.UniLabel1.setPosition(x, y);} unibutton组件：function OnMouseout(sender, e){ sender.setText(‘Out‘);}uniedit组件function form.Onmousemove(sender, x, y){ MainForm.UniEdit1.setValue(x+‘ : ‘+y); ss=MainForm.UniEdit1.getValue();}原文：http://www.cnblogs.com/findumars/...

Android问题-DelphiXE5开发Andriod连接Webservice乱码问题

问题现象：在使用DelphiXE5开发Andriod连接Webservice乱码。问题原因：数据类型不同。问题处理：为了不让广大朋友再烦恼，我就把解决办法写出来吧，把数据库中我们要查询的字段类型改成nvarchar就行了。原文：http://www.cnblogs.com/FKdelphi/p/5984052.html

Delphi 悬浮窗口、浮动窗口的实现

源：Delphi 悬浮窗口、浮动窗口的实现浮动窗体的实现 http://blog.tianya.cn/blogger/post_show.asp?BlogID=68097&PostID=806089需要一个这样的窗体:a:没有标题栏; b:可以改变大小; c:不在任务栏上显示图标; d:如果不是主窗体,它的最小化不受主窗体的限制; e:在最顶端显示处理:a:不在任务栏出现的,只要设置窗体的属性为ToolWindow就可以了.b:要想使窗体脱离主窗体的限制,必须修改它的ParentWnd,使用SetParent显然有些问题.可以通过...

Delphi中DLL的创建和使用【转】

Delphi中DLL的创建和使用 1.DLL简介； 2.调用DLL； 3.创建DLL； 4.两个技巧； 5.初始化； 6.例外处理。 1、DLL简介 DLL是Dynamic-Link Libraries(动态链接库)的缩写，库里面是一些可执行的模块以及资源(如位图、图标等)。可以认为DLL和EXE基本上是一回事，只是DLL不能直接执行，而必须由应用程序或者其他DLL调用。DLL为应用程序间的资源共享提供了方便，同时也是多语言混合编程的重要手段。由...

我所理解的Delphi中的数组类型【代码】【图】

数组可以使Object Pascal所拥有的任何数据类型，数组是一些数值的简单集合。var MyArray: array[0..4] of Integer; { 声明一个数组包括5个整数数值}begin MyArray[0] := -200; { 通过操作符[]就可以访问每个数组元素} MyArray[1] := -100; MyArray[2] := 0; MyArray[3] := 100; MyArray[4] := 200; MyArray[0] := MyArray[1] + MyArray[4]; { MyArray[0]为-100}end;其MyArray在内存空间...

Delphi String的散漫记录，真是知识无数，陷阱无数

真是膜拜Delphi C++ Builder编译器的作者们，要下多少苦功夫才能解决如此之多的问题，制造出一个神级作品给世人享用。另外以我的编程经验所能想到很麻烦但却是必须的还有两个地方，一个是Format函数，另一个是类型转换。有空看看FreePascal的源码可以略窥一二。其实我也是一个疯狂的政经爱好者，本来也不是很吊美国，觉得我们迟早各方面，包括最先进的科学技术，都能赶上的他们的。但是想想这些神级的工程师，包括Borland早期的和...

垂死挣扎还是涅槃重生 -- Delphi XE5 公布会归来感想【图】

Delphi 是一个基本上被我遗忘的工具，要不是在使用RapidSql , 我是收不到Embarcadero 公司发出的邀请来參加Delphi XE5的公布会的。有人可能要问为什么是Embarcadero （名称很拗口）而不是Borland 开Delphi 公布会，这是由于Borland那几年撑不下去，把IDE工具打包成立了CodeGear 公司，已经被Embarcadero 收购了。实际上十多年前以前參加过机械工业出版社主办的一个技术沙龙，李维先生作为Borland 技术专家，畅谈了“程序开发...

Delphi用TActionList下载文件

TActionList有个标准动作TDownLoadURL，内部是使用的URLDownloadToFile，它下载文件时会定时产生OnDownloadProgress 事件，这样就可以用进度条显示：?1234567891011121314151617181920212223242526272829303132333435363738394041424344454647uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtActns, ActnList, StdCtrls, ComCtrls; type TForm1 = class(TForm) Button1: TBu...

Delphi TcxCurrencyEditt控件说明

AlignWithMargins：是否显示边框。由Margins 属性来设置边框的值Anchors：控件停靠，来处理窗口最大化或是调动里的位置AutoSize：是否自动变化大小BeepOnEnter：回车的时候，给出蜂鸣声BidiMode：输入数据值的方向，是从左至右，还是从右至左Constains：约束，来控制控件的高度，宽度Enable：是否可用Hint：是否显示隐藏的备注信息，由ShowHint属性配合使用Margins：边框间距，由上下左右值来处理。Name：控件的Name，同一个Form窗...

Delphi 窗体的释放和判断窗体是否存在【代码】

1常规释放和关闭：Form.Free - 释放Form占用的所有资源。Free后，Form指针不能再使用，除非对Form重新赋值。 Form.Hide - 隐藏Form。可以调用form.Show再一次显示。 Form.close - 关闭Form，实际的结果取决于OnCloseQuery和OnClose,如果OnCloseQuery的CanClose为False,不执行任何操作，如果为True,进一步考察OnClose的Action的值: 　　caNone: 不执行任何操作　　caHide: 隐藏窗口，同form.Hide 　　ca...

Delphi 项目版本

URL:http://stackoverflow.com/questions/9757886/how-do-i-determine-the-delphi-version-which-created-a-delphi-projecthttp://stackoverflow.com/questions/4394136/how-can-i-tell-what-version-of-delphi-was-used-to-create-a-project Delphi 的每个工程都有一个 *.dproj 文件，实际上为一个 xml 文件。通过该文件的 ProjectVersion 可以知道其工程的建立所用 IDE 的版本。-----------------------------------------------...

Delphi 组件渐进开发浅谈（一）——由简入繁

最近业余时间在写游戏修改器玩，对于Delphi自带的组件总觉得差强人意，需要书写大量冗余代码，如果大量使用第三方组件，在以后的移植和与他人交互时也不是很方便，因此便产生了自己封装组件的想法。　　实际上这个想法在很久以前（大概04年写第一个修改器的时候）就有了，一直没有闲暇时间去做，而工作上类似的组件也会很实用，虽然不见得有第三方组件设计的那么规范、强大，但小巧、灵活是自主开发的优点。　　很多初学者喜欢大量...

delphi 7 mdi子窗体。。。无法更改以命令对象为源的记录集对象的 ActiveConnection 属性。【代码】【图】

问题是这样的我做了一个小程序把 adoconnection放到了主窗体连接的是access数据库;新建了一个子窗体继承自FBase 新建了一个pubulic方法 qrySearch 实现了打开表;formCreate调用了qrySearch方法 ; publicprocedure qrySearch(cLiuShui: string = ‘-1‘);{ Public declarations }end;varFRuKuDan: TFRuKuDan;implementationusesUFMain, UPubFunction, UFRuKuDanliulan;{$R *.dfm}/// <summary> /// 打开qry /// </summary> ///...

DELPHI - 最热教程

在ubuntu 上使用wine 运行Delphi win32...Delphi编程常用快捷键大全 delphi TDbGrid 右键 PopupMenu 菜单只...Delphi 的链式代码手把手教你用Delphi实现硬件版hello wo...Delphi ADO数据库控件（转）delphi程序员腾讯QQphp程序员面试题目整...Delphi 7连接MySql 5.5.15 Sqlite框架Delphi10.3 delphi 根据数据库结构生成TreeView

首页 / DELPHI / delphi 登陆窗口的问题 [问题点数：30分，结帖人tianhuo_soft]

delphi 登陆窗口的问题 [问题点数：30分，结帖人tianhuo_soft]

内容导读

内容图文

内容总结

内容备注

内容手机端

【delphi 登陆窗口的问题 [问题点数：30分，结帖人tianhuo_soft]】教程文章相关的互联网学习教程文章

DELPHI - 最新教程

DELPHI - 最热教程