delphi里用java_如何在整个Delphi应用程序中使用ID

一种方法是将DataModule添加到项目中，并使 UserID 为其中的一个字段 .

所以，使用Delphi的默认命名，你会有

type

TDataModule1 = class(TDataModule)

[...]

public

property UserID : Integer read FUserID;

end;

[...]

var

DataModule1 : TDataModule1;

然后，将TDataModule1添加到项目使用的db-access组件中，例如用于访问存储用户详细信息的Users表的Query组件，以及尝试登录给定用户的方法，以及db-access组件使用的类型的db-connection组件 . 所以你可以添加这样的方法：

function TDataModule1.LogInUser(const UserName : String) : Boolean;

begin

try

if qUsers.Active then

qUsers.Close;

FUserID := -1; // deliberately set an invalid UserID

Assert(Trim(UserName) <> '')); // raise exception if UserName is blank

// qUsers Sql.Text property would be something like 'select * from users where username = :username'

qUsers.ParamByName(UserName).Value := UserName;

qUsers.Open;

if qUsers.Locate('UserName', UserName, []) then

FUserID := qUsers.FieldByName('UserID').AsInteger;

finally

Result := FUserID >= 0; // assuming zero is a valid UserID

end;

并以 DataModule1u 的名称保存模块 . 请注意，此方法省略了对默认 True 值的用户's password: This is because if you leave your db connection component' s LoginPrompt 属性的任何引用，它将在 LogInUser 方法执行时弹出用户密码的提示 .

一旦你've got that far, go to your Login form'单位并编辑它为USE DataModule1u .

然后你可以添加代码来使用 LogInUser 方法，如下所示：

if DataModule1.LogInUser(UserName) then begin

Caption := 'User: ' + IntToStr(DataModule1.UserID);

// do something else with DataModule1.UserID's value

end;

显然，您可以(并且通常应该)将所有数据库访问组件添加到数据模块中，并在执行db-access的表单中使用它 .

希望这一切都清楚，如果不是那么问 .

delphi里用java_如何在整个Delphi应用程序中使用ID相关推荐

Delphi for iOS开发指南(14):在iOS应用程序中使用InterBase ToGo
在开始这篇教程之前,你应该预先阅读并按下面教程实际操作过: •iOS开发指南(9):在iOS应用程序中使用ListBox组件来显示TableView 这篇教程描述了在iOS Device上,通过dbE ...
java web里实现 mvc_MVC模式在Java Web应用程序中的实现
一.MVC简介: MVC架构是一个复杂的架构,其实现也显得非常复杂..Views可以看作一棵树,可以用Composite Pattern来实现.Views和Models之间的关系可以Observer ...
微信开发修改button里的字体大小_在微信小程序中如何修改文字大小
这篇文章主要介绍了微信小程序实现点击按钮修改文字大小功能,涉及微信小程序事件绑定及setData动态修改Page页面data数据,进而控制页面元素属性动态改变的相关操作技巧,需要的朋友可以参考下本文 ...
glade java_如何在Java Gnome / GTK程序中使用Glade UI(.glade文件)？
我在互联网上做了一项研究,寻找教程/文档来解释如何在Java Gnome项目中使用Glade中设计的UI,但没有运气.我已经知道如何使用Java Gnome / GTK从代码创建UI.无论如何,我想使 ...
wadl 生成java_在Spring MVC REST应用程序中自动生成WADL
wadl 生成java 上一次我们学习了WADL的基础知识 . 语言本身并没有那么有趣,只写了一篇有关它的文章,但是本文的标题揭示了为什么我们需要这些知识. JSR 311的许多实现:JAX-RS:R ...
500分求助，delphi里用standred来配置dbf文件
500分求助,delphi里用standred来配置dbf文件 Delphi / Windows SDK/API http://www.delphi2007.net/DelphiDB/html/del ...
Delphi创建COM组件并分别用Delphi和html调用该组件的简单实例
一.功能介绍及效果图用delphi xe6 创建一个简单的COM组件,并分别测试了用delphi和HTML调用该组件的方法ShowWuXiaNames.效果图如下: 图一:在Windows中注册的C ...
Delphi 7 在程序中直接执行SQL脚本文件
Delphi 7 在程序中直接执行SQL脚本文件在处理MSDE一些操作中.需要执行一些SQL脚本.有的是从 SQLServer 2000中生成的SQL为后缀的脚本.在MSDE中没有企业管理器, 操作 ...
在Delphi程序中操作注册表
32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息. 一.创建和释放TRegistry对象 1.创建TRegistry对象.为了操作注册表,要创建一个TRegistry对象: ...

delphi里用java_如何在整个Delphi应用程序中使用ID

delphi里用java_如何在整个Delphi应用程序中使用ID相关推荐

最新文章

热门文章