机房收费系统之主窗体

     整个系统做完之后认识到我们现在做的这些确实很简单,机房收费系统除了几个比较特殊的的地方其实用的最多的还是对数据的增删改查,与之前去做的学生系统有很多相同的地方,当时做学生时只知道去敲代码,大部分的代码还是读不懂的,对大家做完机房后肯定都发现自己在这个过程中进步了很多,有种豁然开朗的感觉,废话少说我们来看今天的主角——机房主窗体

前言

     我们在做机房主窗体前首先要明确你做的这个程序是给谁使用的,系统中有一般用户,操作员,管理员几个职务,其中大家很多人对于一般用户的的定位不是很清楚,可以将它作为最基层管理人员,也可以作为上机用户两者权限有些区别。我们的主窗体用到的是MDI窗体,我开始就没有用MDI建立主窗体,甚至发现这个问题后也没有去改而是自作聪明的又加了添加了个空的MDI,等到在最后完成的时候结果问题不断,一句话说的好欠下的迟早要还的。在MDI窗体中是不能直接添加控件的,我在里面添加了图片框然后在上面添加控件,方法很多人都分享过了利用SetParent函数。还可以使用无边框子窗体。

主体

      在做主窗体时我看什么都不懂,既不理解代码意思,也不清楚调用数据库,主窗体能让人很快提高自己,整个机房收费系统大部分的东西都有用到,说一下思路我的一般用户是基础管理人员,有人要上机输入卡号通过卡号调取student表中用户信息并显示,确认信息后点击上机获取系统日期和时间显示界面中,然后将信息在online表和line表中各添加一条数据,就这么简单上机就完成了。下机需要进行计算之前尝试过用time控件计数计算时间后来放弃了,如果哪个小伙伴这么做的可以和我交流,我用的是最简单的下机时间减去下机时间,因为添加上日期后计算有点困难,暂时绕过了,当天上机必须当天下


  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 22
    评论
### 回答1: 在 Delphi 中,可以通过将窗体的 Panel 控件作为一个容器,嵌入 DLL 窗体的源码。以下是一个示例的源码: 首先,我们需要创建一个新的 Delphi 项目,并在窗体上添加一个 Panel 控件(假设控件名称为 Panel1)。 在项目中创建一个新的 DLL 单元(假设名称为 DLLFormUnit),并在其中添加以下代码: unit DLLFormUnit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TMyDLLForm = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var MyDLLForm: TMyDLLForm; implementation {$R *.dfm} procedure TMyDLLForm.Button1Click(Sender: TObject); begin ShowMessage('DLL 窗体按钮被点击!'); end; exports MyDLLForm; end. 接下来,在窗体代码中添加以下代码: unit MainFormUnit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TMainForm = class(TForm) Panel1: TPanel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } DLLHandle: THandle; MyDLLForm: TForm; public { Public declarations } end; var MainForm: TMainForm; implementation {$R *.dfm} procedure TMainForm.Button1Click(Sender: TObject); begin DLLHandle := LoadLibrary('MyDLL.dll'); if DLLHandle <> 0 then begin @MyDLLForm := GetProcAddress(DLLHandle, 'MyDLLForm'); if Assigned(MyDLLForm) then begin MyDLLForm.Parent := Panel1; MyDLLForm.Align := alClient; MyDLLForm.BorderStyle := bsNone; MyDLLForm.Visible := True; end; end; end; end. 在以上代码中,我们通过 LoadLibrary 函数加载 DLL 文件,通过 GetProcAddress 函数获取 DLL 中的窗体对象,并将其嵌入到 Panel1 控件中。 当我们在窗体中的 Button1 控件上单击时,会加载 DLL 文件并将 DLL 窗体嵌入到 Panel1 控件中。在 DLL 窗体上的按钮点击事件中,我们显示一个消息框。 请注意,以上示例仅提供了一个基本的框架,以在 Delphi 窗体的 Panel 上嵌入 DLL 窗体。你可以根据自己的需要进一步扩展和修改该代码。 ### 回答2: 在Delphi中,要实现窗体Panel嵌入DLL窗体,你需要遵循以下步骤: 1. 在Delphi中创建窗体项目。将一个Panel组件放置在窗体上。你可以根据需要设置Panel的位置、大小和其他属性。 2. 创建一个DLL项目。在DLL项目中,你可以创建一个新的窗体或使用现有的窗体。 3. 在DLL项目中,使用Application对象的Handle属性获取窗体的句柄。 4. 将窗体的句柄传递给DLL窗体,以便在DLL窗体中调用窗体。 5. 在DLL项目中,通过使用SetParent函数将DLL窗体的父窗体设置为窗体的Panel。SetParent函数的第一个参数是DLL窗体的句柄,第二个参数是窗体Panel的句柄。 6. 编译和运行DLL项目。 通过以上步骤,你可以实现将DLL窗体嵌入到窗体的Panel中。这样,DLL窗体就会作为Panel的子组件显示在窗体上。 需要注意的是,你需要确保窗体Panel的位置和大小适合显示DLL窗体。此外,窗体和DLL窗体之间的通信可以通过事件、方法或共享变量进行。 以上是一种简单的实现方法,具体的源代码取决于你的需求和窗体的实现方式。你可以根据这些步骤来编写相应的Delphi代码

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 22
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值