滴水藏海映太阳

2008年12月30日

摘要：在运行应用程序时，首先看到的就是用户登录界面，只有输入正确的用户名及密码，才可以进入程序的主界面。用户登录的作用是保护应用程序中的相关资料，以防止无关人员对程序信息的肆意破坏。当进入程序后，会根据用户的所拥有的权限对程序中的相关模块进行相应操作。为了防止其他人员在数据库中获取用户信息，而对应用程序进行操作，可以对用户名和密码进加密后存入数据库中。本章将详细介绍如何制作用户的登录界面、权限以及密码验... 阅读全文

posted @ 2008-12-30 15:26 滴水藏海映太阳阅读(347) 评论(0) 推荐(0)

用户登录方案

摘要： 3.2 用户登录方案在进入一个系统时，必须先在登录窗体中输入正确的用户名和密码才能进入。这样可以确保系统的安全性和保密性，登录窗体的制作按照系统的大小及用处，可以分为不同的登录窗体样式，在系统第一次登录前，首先要对操作员信息进行相应的设置。本节将对登录窗体及操作员管理窗体的制作过程进行详细的说明。 3.2.1 简单用户登录简单用户登录，是指在登录窗体中只通过用户名及密码进行登录，用户登录后... 阅读全文

posted @ 2008-12-30 15:18 滴水藏海映太阳阅读(1221) 评论(0) 推荐(0)

2008年12月29日

用Delphi编制金额大写转换程序

摘要：在从事与财务相关的软件开发过程中，通常要求将小写金额转换成相应的大写金额，并打印在大写金额栏中。下面是用Delphi3.0编制的一个转换函数，能够方便的在程序中调用，并返回字符串。 1.定义函数num—str function num—str(ls: Variant): String; var dx—sz,dx—dw,str—int,str—dec,dx—str... 阅读全文

posted @ 2008-12-29 13:35 滴水藏海映太阳阅读(413) 评论(0) 推荐(0)

Delphi编程禁止用户关闭操作系统

摘要：本实例介绍在程序运行的过程中禁止用户关闭操作系统。用户是否可以关闭操作系统是通过对WM_QueryEndSession的处理来实现的，为此首先需要在程序中添加WM_QueryEndSession消息处理的声明： procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession; 它的响应代码... 阅读全文

posted @ 2008-12-29 13:29 滴水藏海映太阳阅读(181) 评论(0) 推荐(0)

如何用Delphi实现子目录级的文件查询

摘要：在应用实践中，我们经常会用到文件查询功能。通过Win95中提供的查找功能，我们可以方便的找出磁盘上任何子目录下的文件，其原因是该查找功能可以遍历指定目录下的所有子目录中的文件。从编程角度讲，它实现了子目录级的文件查询。其实，这项功能并不难实现，关键是能理解并掌握懙莨閽这种程序设计思路。本人用Delphi实现了该项功能（任意子目录级），由于使用了懙莨閽，程序思路清晰，代码量小。实现方法： 1... 阅读全文

posted @ 2008-12-29 13:19 滴水藏海映太阳阅读(268) 评论(0) 推荐(0)

Delphi中数据的自动录入

摘要：在Delphi数据库应用系统的数据录入过程中，有些数据是保存在Excel中的；有些是保存在纸张上的；还有一些是需要新增加的，由于各条记录之间有大量的重复数据，如果每条记录都让录入人员全部手工录入，其间的重复劳动是相当大的，还降低了工作效率。下面就这个问题进行论述。 1、利用Delphi调用Excel Delphi中已经带了Word与PowERPoint的例子，因为Excel的调用与这两... 阅读全文

posted @ 2008-12-29 13:17 滴水藏海映太阳阅读(322) 评论(0) 推荐(0)

用Delphi实现虚拟盘映射

摘要：本实例演示如何映射和断开网络虚拟盘。向窗体上添加两个TLabel组件、两个TEdit组件和两个TButton组件，设计完成的主界面如图1所示。图1 主界面首先添加“连接”按钮的响应代码，在其中调用WNetAddConnection2函数，根据用户输入的本地虚拟盘和网络共享目录来映射虚拟盘，响应代码如下： procedure TfrmMain.bt... 阅读全文

posted @ 2008-12-29 13:14 滴水藏海映太阳阅读(337) 评论(0) 推荐(0)

Delphi 7中快速得到本机IP地址

摘要：朋友们在用Delphi编程序的时候，常常碰到需要在程序中获取自己的IP地址的情况。在以往的版本中，可以通过编写一段代码或函数实现这一功能。但有了Delphi 7，这个工作可以更简化了。利用控件只需一句代码，就可以非常方便地实现这一功能。新建一Project1，在form1中添加控件statusbar 1(Win32页)和控件IdIPWatch1(Indy Misc页)。接着设... 阅读全文

posted @ 2008-12-29 13:14 滴水藏海映太阳阅读(204) 评论(0) 推荐(0)

用Delphi设计循环播放声音文件程序

摘要：实例将演示在程序运行过程中如何循环地播放一个指定的声音文件。首先在程序的uses段中添加MMSYSTEM，然后在窗体的初始化过程中添加以下代码： procedure TForm1.FormCreate(Sender: TObject); begin SndPlaySound(’c:\RECYCLE.WAV’,SND_ASYNC or SND_LOOP); end;... 阅读全文

posted @ 2008-12-29 13:12 滴水藏海映太阳阅读(252) 评论(0) 推荐(0)

2008年12月11日

Delphi小技巧杂记

摘要： //获取任务栏尺寸 procedure TForm1.Button1Click(Sender: TObject); var TaskList: HWnd; Bordered: TRect; begin TaskList := FindWindow(’Shell_TrayWnd’, nil); GetWindowRect(TaskList, Bordered); Label1.Cap... 阅读全文

posted @ 2008-12-11 11:16 滴水藏海映太阳阅读(570) 评论(0) 推荐(0)