Delphi程序创建DataModule模块不成立弹出窗口。

2013-09-16 10:53:43 281 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

zhangzhen_927116 墨衍会员 · AI 创作全网分发关注 + 加入社区

我delphi程序只有一个Datamodule,如何在运行时在任务栏显示图标？在这个示例代码中，我们在DataModule的OnCreate事件中设置Application.ShowMainForm为False，以便隐藏主窗口，并将Application.MainFormOnTaskbar设置为True，以便在任务栏中显示主窗口的图标。如果您的Delphi程序只有一个DataModule，您可以将Application.MainFormOnTaskbar属性设置为False，并在DataModule的OnCreate事件中创建一个空白的主窗口，以便在任务栏中显示图标。阅读详情

在程序入口处。先检查DataModule模块上的数据库连接是否成功后再创建窗口。如果连接失败就弹出配置窗口。

Application.Initialize;

    Application.CreateForm(Tdtmdl1, dtmdl1);

    Application.CreateForm(Tinif, iniF);

  if TLoginForm.ShowForm then

    begin

      Application.CreateForm(TIDCardRead_F, IDCardRead_F);

      Application.CreateForm(TLeave, Leave);

      Application.CreateForm(Tlavel, lavel);

    end;

      Application.Run;

里面的Tdtmdl是DataModule。Tinif是配置窗口。TIDCardRead_F是程序主窗口。TLoginForm是登陆窗口。
怎么样实现呢？

procedure Tdtmdl1.DataModuleCreate(Sender: TObject);

var

  ini_FileName:string;

begin

  ini_FileName:=ExtractFilePath(Application.ExeName)+'conn.ini';

  if not FileExists(ini_FileName)then

  begin

    Application.MessageBox('数据库文件不存在','信息提示',MB_OK);

    Application.Terminate;

  end;

  with con1 do

  con1.ConnectionString:=Get_Db_Con_Str(ini_FileName);

  con1.Connected:=False;

  try

    con1.Connected:=True;

    except

       Application.MessageBox('数据库连接失败请联系管理员','信息提示',mb_ok);

      //在这里弹出窗口。

      end;

end;

这是DataModule的配置检查。

...全文

国产数据库PolarDB-X实战：5分钟快速搭建本地开发环境（附Docker一键部署脚本）本文提供了一份详尽的国产分布式数据库PolarDB-X本地开发环境搭建指南。通过Docker Compose一键部署脚本，开发者可在5分钟内快速启动一个功能完整的PolarDB-X实例，涵盖环境准备、脚本解析、连接验证及日常维护，极大简化了国产数据库的入门和体验流程。阅读详情

zhangzhen_927116

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

simonhehe 2013-09-17

打赏
举报

iniF.Show; //这里弹出配置窗体。但是登陆窗体也同时弹出了。不知道上面原因。 --------------------------------------------------------------------------------- 改成showmodal;

引用 6 楼 zhangzhen_927116 的回复:

[quote=引用 4 楼 simonhehe 的回复:] Application.CreateForm(Tdtmdl1, dtmdl1); if mrOk <> dtmdl1.isConnected then //通过自定义函数isConnected检查数据模块连接是否成功 begin //不成功时, 打开配置窗口 with TInfo.create(Application) do try if mrOk <> showmodal then //取消配置则退出程序 Application.Terminate finally free; end; end;

谢谢。如果使用我的那种方法。是否正确？[/quote] 正确, 两个实现都可以达到目的.

zhangzhen_927116 2013-09-16

打赏
举报

procedure Tdtmdl1.DataModuleCreate(Sender: TObject);
var
  ini_FileName:string;
begin
  ini_FileName:=ExtractFilePath(Application.ExeName)+'conn.ini';
  if not FileExists(ini_FileName)then
  begin
    Application.MessageBox('数据库文件不存在','信息提示',MB_OK);
    Application.Terminate;
  end;
  with con1 do
  con1.ConnectionString:=Get_Db_Con_Str(ini_FileName);
  con1.Connected:=False;
  try
    con1.Connected:=True;
    except
       Application.MessageBox('数据库连接失败请联系管理员','信息提示',mb_ok);
      iniF:=TiniF.Create(Application);
       iniF.Show;
//这里弹出配置窗体。但是登陆窗体也同时弹出了。不知道上面原因。
      end;
end;

zhangzhen_927116 2013-09-16

打赏
举报

引用 4 楼 simonhehe 的回复:

Application.CreateForm(Tdtmdl1, dtmdl1); if mrOk <> dtmdl1.isConnected then //通过自定义函数isConnected检查数据模块连接是否成功 begin //不成功时, 打开配置窗口 with TInfo.create(Application) do try if mrOk <> showmodal then //取消配置则退出程序 Application.Terminate finally free; end; end;

谢谢。如果使用我的那种方法。是否正确？

reverzeng 2013-09-16

打赏
举报

simonhehe 2013-09-16

打赏
举报

Application.CreateForm(Tdtmdl1, dtmdl1); if mrOk <> dtmdl1.isConnected then //通过自定义函数isConnected检查数据模块连接是否成功 begin //不成功时, 打开配置窗口 with TInfo.create(Application) do try if mrOk <> showmodal then //取消配置则退出程序 Application.Terminate finally free; end; end;

zhangzhen_927116 2013-09-16

打赏
举报

实现的代码如下。还请指教下有上面其他方法


      Application.Initialize;
      Application.CreateForm(Tdtmdl1, dtmdl1);
      if not Assigned(iniF) then
        begin
            if TLoginForm.ShowForm then
            begin
              Application.CreateForm(TIDCardRead_F, IDCardRead_F);
              Application.CreateForm(TLeave, Leave);
              Application.CreateForm(Tlavel, lavel);
            end;
        end;
      Application.Run;

zhangzhen_927116 2013-09-16

打赏
举报

以成功实现了。来个人接分吧

Delphi程序创建DataModule模块不成立弹出窗口。

相关推荐