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

原作者: [db:作者] 来自: [db:来源] 收藏邀请

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.

鲜花

握手

雷人

路过

鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

MATLAB中的概率论与数理统计发布时间：2022-07-18

Matlab读取ROSbag文件指定消息数据发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：19159|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：9981|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：8320|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：8690|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：8634|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：9649|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：8617|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：7994|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：8648|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：7531|2022-11-06

客服电话

电子邮件

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

请发表评论

全部评论

上一篇：

下一篇：

kojino/Harvard-Robust-Machine-Learning:

cescoffier/puppet-nexus: A Puppet Module

文的笔顺,诠释文的笔画,解读文的部首

abos3d/CleanArchitectKotlinFlowHiltSimpl

Cassolotl/sentient.cloud · GitHub

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053