个人开发资料
YmirBoy
这个作者很懒,什么都没留下…
展开
-
Delphi的动态数组,以及在复旦天翼学生收费管理软件的基础运用
由于复旦天翼学生收费软件的表是按学年存放的,即2008学年相关数据存储与类似×××2008的表内,因此在查询数据时,不可避免牵涉到不确定表查询,即可能查询A学生时仅涉及2005,2006,2007,2008其中的数据,而查询B学生时涉及到为2006,2007,2008,2009年数据等,更由于学生在校时期的不确定,因此在处理这类表时如何查询是一个比较棘手的问题,我的方法是遍历全部的表或者遍历该生入原创 2009-08-10 10:38:00 · 1276 阅读 · 0 评论 -
EBS 财务辅助工具开发手记--开篇之作
公司马上立上Oracl EBS 系统,考虑到日后的许多工作的需要,自己准备写个小工具,用于 简化日常工作。软件的基本功能主要保证EBS 下的财务报表与之前的AS400保持一致,同事实现日常用财务指标的自动化。具体内容包括(订 131006-01 版):一、经费分析报表的平滑过度,主要包括: ① FKR311的正常生成(附加价值分析报表,预算-实际 分析比较) ② F原创 2013-10-13 16:41:35 · 909 阅读 · 0 评论 -
Excel VBA以单元格区域做参数
简单点,只写代码,自己看懂就可以了Function TstRangEAsPara(MyRange As Range, RowNum As Integer, ColNum As Integer) as variant Dim MyArr() MyArr = MyRange TstRangeAsPara = MyArr(ColNum,ColNum)End原创 2013-08-16 20:32:45 · 5598 阅读 · 0 评论 -
Delphi 调用SQL Server 2008存储过程
一个简单的 Delphi + SQL 存储过程,代码简捷,思路清晰原创 2013-07-14 07:53:13 · 3119 阅读 · 0 评论 -
Delphi编程辨别显示分辨率
现在的显示分辨率是越来越高了,以至于是多少都搞不清楚,程序也往往需要知道分辨率才能合理安排窗体,所以要得到显示分辨率,下列的程序帮你忙:var x:longint; a:string;begin x := GetSystemMetrics(SM_CXSCREEN); Str(x,a); Label1.Caption := 显示器水平分辨率 + a; x转载 2013-02-06 14:50:37 · 721 阅读 · 0 评论 -
Delphi中优秀的字符串分割函数
Delphi没有自己的字符串分割函数,所以只能程序员自己写了,网上搜了好多但是真正好用的没有几个。下面这个是我在网上找到修改后了的,个人感觉算法不错,所以就贴了上来。function SplitString(Source, Deli: string ): TStringList;stdcall;var EndOfCurrentString: byte; StringList转载 2013-02-06 14:53:10 · 1812 阅读 · 1 评论 -
用Delphi编写Win2000服务程序
一、Win2000服务简介服务程序(Service Application)是一种运行于WinNT的后台程序,每个服务 程序(Service Application)中可能包含若干个服务(Service),每个服务就 是其中的一个线程(该服务也可以创建多个子线程)。采用服务,应用程序可以 获得特殊的权限,而且不会被用户通过Win2000的任务管理器直接结束程序,所以 服务常常用来实现一些特殊的转载 2013-02-06 19:39:48 · 593 阅读 · 0 评论 -
基于Delphi的接口编程入门
为什么使用接口?举个例子好了:有这样一个卖票服务,电影院可以卖票,歌剧院可以卖票,客运站也可以卖票,那么我们是否需要把电影院、、歌剧院和客运站都设计成一个类架构以提供卖票服务?要知道,连经理人都可以卖票,很显然不适合把经理人也包括到卖票服务的继承架构中,我们需要的只是一个共通的卖票服务。于是,卖票的服务是个接口,电影院、歌剧院什么的只要都遵循这样一个服务定义就能很好地相互交互和沟通(如果须要的转载 2013-02-06 19:15:32 · 1134 阅读 · 0 评论 -
用delphi读取网卡物理号
unit Main;interfaceuses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Nb, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; Memo1转载 2013-02-06 15:02:03 · 994 阅读 · 0 评论 -
Delphi 获取系统时区
function GetTimeZone: string; var TimeZone: TTimeZoneInformation; begin GetTimeZoneInformation(TimeZone); Result := GMT + IntToStr(TimeZone.Bias div -60); end; procedure TForm原创 2009-08-20 14:59:00 · 3799 阅读 · 0 评论 -
Delphi三层开发手册——三层开发基本概念介绍
一、三层开发的优点——灵活性和可扩展性 1、解决C/S结构的维护成本问题,改善C/S结构延展性问题。 C/S结构支持的用户人数有一定限度(200人以下)。这种结构限制了Internet/Intranet及电子商务的发展。三层开发应用Database Pooling, Object pooling,Resource Pooling,线程模式提供了高度延展性。 2、解决应用逻辑原创 2009-08-16 06:55:00 · 1088 阅读 · 0 评论 -
Oracle 临时表的创建与应用
1、利用查询的数据建立临时表: Create Global Temporary Table [TmpTbl] On Commit Delete Rows As Select * From [TableName]; 2、将查询数据放到临时表内: Insert Into TmpTbl Select * From [tableName] where [Condition原创 2009-08-10 15:52:00 · 657 阅读 · 0 评论 -
EBS 财务辅助工具开发手记--类设计
目前系统内先设定以下几个类:用户类,部门类,事区类预算类型类,预算类传票类 使用ModelMaker 生成 代码如下:unit EBSMainClass;interfaceuses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs;type T原创 2013-10-13 16:55:20 · 950 阅读 · 0 评论