- 博客(24)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 EBS 财务辅助工具开发手记--类设计
目前系统内先设定以下几个类：用户类，部门类，事区类预算类型类，预算类传票类 使用ModelMaker 生成 代码如下：unit EBSMainClass;interfaceuses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs;type T
2013-10-13 16:55:20
941
原创 EBS 财务辅助工具开发手记--开篇之作
公司马上立上Oracl EBS 系统，考虑到日后的许多工作的需要，自己准备写个小工具，用于 简化日常工作。软件的基本功能主要保证EBS 下的财务报表与之前的AS400保持一致，同事实现日常用财务指标的自动化。具体内容包括（订 131006-01 版）：一、经费分析报表的平滑过度，主要包括： ① FKR311的正常生成（附加价值分析报表，预算-实际 分析比较） ② F
2013-10-13 16:41:35
892
原创 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
5379
原创 Delphi 编写控制台程序(无Form)
打开Delphi，在新建中，选择Console Application，就可以写代码 控制台程序是以program 开头，并有编译标识{$APPTYPE CONSOLE}用以标识程序是控制台程序；通常情况下只需要引用SysUtils一个单元就可以； 如下是一个简单的事例，可以编写一个控制台程序 program Project1; {$APPTYPE CO
2013-07-20 16:59:00
3152
转载 用Delphi编写Win2000服务程序
一、Win2000服务简介服务程序（Service Application）是一种运行于WinNT的后台程序，每个服务 程序（Service Application）中可能包含若干个服务（Service），每个服务就 是其中的一个线程（该服务也可以创建多个子线程）。采用服务，应用程序可以 获得特殊的权限，而且不会被用户通过Win2000的任务管理器直接结束程序，所以 服务常常用来实现一些特殊的
2013-02-06 19:39:48
581
转载 基于Delphi的接口编程入门
为什么使用接口？举个例子好了：有这样一个卖票服务，电影院可以卖票，歌剧院可以卖票，客运站也可以卖票，那么我们是否需要把电影院、、歌剧院和客运站都设计成一个类架构以提供卖票服务？要知道，连经理人都可以卖票，很显然不适合把经理人也包括到卖票服务的继承架构中，我们需要的只是一个共通的卖票服务。于是，卖票的服务是个接口，电影院、歌剧院什么的只要都遵循这样一个服务定义就能很好地相互交互和沟通（如果须要的
2013-02-06 19:15:32
1123
转载 用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
977
转载 Delphi中优秀的字符串分割函数
Delphi没有自己的字符串分割函数，所以只能程序员自己写了，网上搜了好多但是真正好用的没有几个。下面这个是我在网上找到修改后了的，个人感觉算法不错，所以就贴了上来。function SplitString(Source, Deli: string ): TStringList;stdcall;var EndOfCurrentString: byte; StringList
2013-02-06 14:53:10
1795
1
转载 Delphi编程辨别显示分辨率
现在的显示分辨率是越来越高了，以至于是多少都搞不清楚，程序也往往需要知道分辨率才能合理安排窗体，所以要得到显示分辨率，下列的程序帮你忙：var x:longint; a:string;begin x := GetSystemMetrics(SM_CXSCREEN); Str(x,a); Label1.Caption := 显示器水平分辨率 + a; x
2013-02-06 14:50:37
700
原创 Delphi 操作 AdvStringGrid一些笔记
procedure TForm1.AdvStrGrdMainCheckBoxMouseUp(Sender: TObject; ACol, ARow: Integer; State: Boolean); var CheckState:Boolean;begin AdvStrGrdMain.GetCheckBoxState(ACol,ARow,CheckState);
2013-01-26 22:08:03
5595
原创 Delphi 实现简易语音发音（基于TTS方式）
uses Comobj; procedure TForm1.Button1Click(Sender: TObject); var voice: OLEVariant; begin voice := CreateOLEObject(SAPI.SpVoice); voice.Speak(Hello World!, 0); end;
2009-08-20 22:13:00
5836
原创 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
3748
原创 使用批处理自动备份并压缩Oracle数据
因为部门采用的是Oracle数据库，数据量不是很大，但因为数据重要，需要天天备份，备份后再压缩刻录，工作简单，但是常需要人工操作，参考了批处理文件和RAR的相关资料，实现定期自动备份，并压缩，如下： 1、备份数据库，采用Exp方式，批处理代码是 Exp username/userpassword full=y d:/OracleBck/Orc_%date:0,12%.dmp 2、压
2009-08-19 09:29:00
931
1
原创 Delphi三层开发手册——三层开发基本概念介绍
一、三层开发的优点——灵活性和可扩展性 1、解决C/S结构的维护成本问题，改善C/S结构延展性问题。 C/S结构支持的用户人数有一定限度（200人以下）。这种结构限制了Internet/Intranet及电子商务的发展。三层开发应用Database Pooling, Object pooling,Resource Pooling,线程模式提供了高度延展性。 2、解决应用逻辑
2009-08-16 06:55:00
1076
转载 修改已Release的后台JOB
以前一直认为后台job只要release以后，就不能再修改了，每次都将任务删除，然后重新建。今天在sap工作者群中，听某位大大介绍经验，才知道原来后台job也可以修改！马上登陆培训系统去小试了一把，确实可以修改~！ 首先进入sm37，选择已经release的任务（已经完成的任务当然不能修改。。。）打上勾以后，点击上方job----change 出现任务画面以后，点击任务step
2009-08-12 09:39:00
1402
原创 Oracle中的有用查询
1、利用Oracle获取毫秒级（4位）序号： select To_char(SysTimestamp,YYYYMMDDHH24MMSSFF4) from dual; 2、产生10000～99999之间的随机数： select Trunc(dbms_random.value(10000,99999)) from dual; 3、从查询语句中创建临时表：Create global
2009-08-10 16:46:00
560
原创 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
633
转载 Oracle常用操作——复制表结构
1、复制表结构及其数据： create table table_name_new as select * from table_name_old 2、只复制表结构： create table table_name_new as select * from table_name_old where 1=2; 3、只复制表数据： 如果两个表结构一样：
2009-08-10 15:31:00
581
原创 Delphi的动态数组，以及在复旦天翼学生收费管理软件的基础运用
由于复旦天翼学生收费软件的表是按学年存放的，即2008学年相关数据存储与类似×××2008的表内，因此在查询数据时，不可避免牵涉到不确定表查询，即可能查询A学生时仅涉及2005，2006，2007，2008其中的数据，而查询B学生时涉及到为2006，2007，2008，2009年数据等，更由于学生在校时期的不确定，因此在处理这类表时如何查询是一个比较棘手的问题，我的方法是遍历全部的表或者遍历该生入
2009-08-10 10:38:00
1262
原创 Excel 临时代码
VBA编写代码时候需要用到，代码如下:Const nItem=4 For I = 0 to nItem DptName(I) = Cells(I+4,1) nTmp = DptName(0) If i > 0 then Cells(I+3,1) = nTmp End IfNextCells(I+4,1) = NewDptName
2009-08-07 11:28:00
581
转载 Main difference between the MRP type(PD/MPS/M0)
原文：Main difference between the MRP type(PD/MPS/M0) 翻译：MRP的三种类型(PD/MPS/M0)的主要区别 When running MRP using transaction MD02 and MD41, what the difference should be? There is no difference in the
2009-08-05 17:01:00
2766
原创 使用Excel中的VBA连接并操作Oracle
Excel通过ADO方式连接到Oracle并操作Oracle给我们这些编程能力不强的人带来很大的福音，结合着Excel的数据处理与图表制作，就能很轻松地处理一些常规工作。以下是通过Excel 的VBA连接Oracle并操作Oracle相关数据的示例； Excel 通过VBA连接数据库需要安装相应的Oracle客户端工具并引用ADO的相关组件，引用ADO相关组件可按如下步骤操作：
2009-08-05 16:31:00
1735
转载 Excel导入到SQL Server 2K中代码
Delphi是一本很优秀的软件，当前虽然B/S开发很流行，不过随着VPN的开发，C/S更具性能上的优势，同样相信易博龙买下Delphi后，会给Delphi带来更大的活力。 以下是用Delphi写的将Excel数据导入到SQL Server中的部分代码，仅供各位参考学习！ unit XlsToSQL;interfaceuses Windows, Messages
2009-08-05 16:20:00
706
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人