自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(24)
  • 资源 (2)
  • 收藏
  • 关注

原创 EBS 财务辅助工具开发手记--类设计

目前系统内先设定以下几个类:用户类,部门类,事区类预算类型类,预算类传票类 使用ModelMaker 生成 代码如下:unit EBSMainClass;interfaceuses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs;type T

2013-10-13 16:55:20 860

原创 EBS 财务辅助工具开发手记--开篇之作

公司马上立上Oracl EBS 系统,考虑到日后的许多工作的需要,自己准备写个小工具,用于 简化日常工作。软件的基本功能主要保证EBS 下的财务报表与之前的AS400保持一致,同事实现日常用财务指标的自动化。具体内容包括(订 131006-01 版):一、经费分析报表的平滑过度,主要包括:    ① FKR311的正常生成(附加价值分析报表,预算-实际 分析比较)    ② F

2013-10-13 16:41:35 777

原创 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 4451

原创 Delphi 编写控制台程序(无Form)

打开Delphi,在新建中,选择Console Application,就可以写代码    控制台程序是以program 开头,并有编译标识{$APPTYPE CONSOLE}用以标识程序是控制台程序;通常情况下只需要引用SysUtils一个单元就可以;    如下是一个简单的事例,可以编写一个控制台程序 program Project1; {$APPTYPE CO

2013-07-20 16:59:00 2780

原创 Delphi 调用SQL Server 2008存储过程

一个简单的 Delphi + SQL 存储过程,代码简捷,思路清晰

2013-07-14 07:53:13 3005

转载 用Delphi编写Win2000服务程序

一、Win2000服务简介服务程序(Service Application)是一种运行于WinNT的后台程序,每个服务 程序(Service Application)中可能包含若干个服务(Service),每个服务就 是其中的一个线程(该服务也可以创建多个子线程)。采用服务,应用程序可以 获得特殊的权限,而且不会被用户通过Win2000的任务管理器直接结束程序,所以 服务常常用来实现一些特殊的

2013-02-06 19:39:48 531

转载 基于Delphi的接口编程入门

为什么使用接口?举个例子好了:有这样一个卖票服务,电影院可以卖票,歌剧院可以卖票,客运站也可以卖票,那么我们是否需要把电影院、、歌剧院和客运站都设计成一个类架构以提供卖票服务?要知道,连经理人都可以卖票,很显然不适合把经理人也包括到卖票服务的继承架构中,我们需要的只是一个共通的卖票服务。于是,卖票的服务是个接口,电影院、歌剧院什么的只要都遵循这样一个服务定义就能很好地相互交互和沟通(如果须要的

2013-02-06 19:15:32 1059

转载 用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 890

转载 Delphi中优秀的字符串分割函数

Delphi没有自己的字符串分割函数,所以只能程序员自己写了,网上搜了好多但是真正好用的没有几个。下面这个是我在网上找到修改后了的,个人感觉算法不错,所以就贴了上来。function SplitString(Source, Deli: string ): TStringList;stdcall;var EndOfCurrentString: byte; StringList

2013-02-06 14:53:10 1671 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 619

原创 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 5325

原创 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 5575

原创 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 3525

原创 使用批处理自动备份并压缩Oracle数据

因为部门采用的是Oracle数据库,数据量不是很大,但因为数据重要,需要天天备份,备份后再压缩刻录,工作简单,但是常需要人工操作,参考了批处理文件和RAR的相关资料,实现定期自动备份,并压缩,如下: 1、备份数据库,采用Exp方式,批处理代码是 Exp username/userpassword full=y d:/OracleBck/Orc_%date:0,12%.dmp 2、压

2009-08-19 09:29:00 851 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 1003

转载 修改已Release的后台JOB

  以前一直认为后台job只要release以后,就不能再修改了,每次都将任务删除,然后重新建。今天在sap工作者群中,听某位大大介绍经验,才知道原来后台job也可以修改!马上登陆培训系统去小试了一把,确实可以修改~!  首先进入sm37,选择已经release的任务(已经完成的任务当然不能修改。。。)打上勾以后,点击上方job----change  出现任务画面以后,点击任务step

2009-08-12 09:39:00 1007

原创 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 518

原创 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 541

转载 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 535

原创 Delphi的动态数组,以及在复旦天翼学生收费管理软件的基础运用

由于复旦天翼学生收费软件的表是按学年存放的,即2008学年相关数据存储与类似×××2008的表内,因此在查询数据时,不可避免牵涉到不确定表查询,即可能查询A学生时仅涉及2005,2006,2007,2008其中的数据,而查询B学生时涉及到为2006,2007,2008,2009年数据等,更由于学生在校时期的不确定,因此在处理这类表时如何查询是一个比较棘手的问题,我的方法是遍历全部的表或者遍历该生入

2009-08-10 10:38:00 1205

原创 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 546

转载 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 2458

原创 使用Excel中的VBA连接并操作Oracle

  Excel通过ADO方式连接到Oracle并操作Oracle给我们这些编程能力不强的人带来很大的福音,结合着Excel的数据处理与图表制作,就能很轻松地处理一些常规工作。以下是通过Excel 的VBA连接Oracle并操作Oracle相关数据的示例;   Excel 通过VBA连接数据库需要安装相应的Oracle客户端工具并引用ADO的相关组件,引用ADO相关组件可按如下步骤操作:

2009-08-05 16:31:00 1622

转载 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 660

SAP Show(SAP课件浏览器)

SAP 文件 浏览器,主要用于浏览KEP格式文件

2009-08-05

Delphi2007Remobjects分布式ERP模型附加源码

Delphi2007Remobjects分布式ERP模型附加源码

2009-06-10

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除