原创 EBS 財務輔助工具開發手記--開篇之作
公司馬上立上Oracl EBS 系統，考慮到日後的許多工作的需要，自己準備寫個小工具，用於 簡化日常工作。 軟件的基本功能主要保證EBS 下的財務報表與之前的AS400保持一致，同事實現日常用財務指標的自動化。 具體內容包括（訂 1310
2018-08-26 04:19:27
5
原创 用delphi讀取網卡物理號
unit Main; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtr
2018-08-26 04:19:25
8
原创 EBS 財務輔助工具開發手記--類設計
目前系統內先設定以下幾個類： 用戶類，部門類，事區類 預算類型類，預算類 傳票類 使用ModelMaker 生成 代碼如下： unit EBSMainClass; interface uses SysUtils, Window
2018-08-26 04:19:25
1
原创 基於Delphi的接口編程入門
爲什麼使用接口？ 舉個例子好了：有這樣一個賣票服務，電影院可以賣票，歌劇院可以賣票，客運站也可以賣票，那麼我們是否需要把電影院、、歌劇院和客運站都設計成一個類架構以提供賣票服務？要知道，連經理人都可以賣票，很顯然不適合把經理人也包括到賣票
2018-08-26 04:19:25
3
原创 Excel VBA以單元格區域做參數
簡單點，只寫代碼，自己看懂就可以了 Function TstRangEAsPara(MyRange As Range, RowNum As Integer, ColNum As Integer) as variant Dim My
2018-08-26 04:19:25
原创 Delphi三層開發手冊——三層開發基本概念介紹
一、三層開發的優點——靈活性和可擴展性 1、解決C/S結構的維護成本問題，改善C/S結構延展性問題。 C/S結構支持的用戶人數有一定限度（200人以下）。這種結構限制了Internet/Intranet及電子商務的發展。三層開
2018-08-26 04:19:25
3
原创 Delphi 調用SQL Server 2008存儲過程
1.表結構如下（預算數據明細表）： CREATE TABLE [dbo].[BA_FeeDetail]( [ID] [int] IDENTITY(1,1) NOT NULL, [FeeDeptID] [nvarchar](4) NUL
2018-08-26 04:19:25
3
原创 用Delphi編寫Win2000服務程序
一、Win2000服務簡介 服務程序（Service Application）是一種運行於WinNT的後臺程序，每個服務 程序（Service Application）中可能包含若干個服務（Service），每個服務就 是其中的一個線程（
2018-08-26 04:19:25
原创 Delphi中優秀的字符串分割函數
Delphi沒有自己的字符串分割函數，所以只能程序員自己寫了，網上搜了好多但是真正好用的沒有幾個。 下面這個是我在網上找到修改後了的，個人感覺算法不錯，所以就貼了上來。 function SplitString(Source, Deli:
2018-08-26 04:19:25
2
原创 Oracle 臨時表的創建與應用
1、利用查詢的數據建立臨時表： Create Global Temporary Table [TmpTbl] On Commit Delete Rows As Select * From [TableName]； 2、將查詢數
2018-08-26 04:19:25
4
原创 Delphi 編寫控制檯程序(無Form)
打開Delphi，在新建中，選擇Console Application，就可以寫代碼 控制檯程序是以program 開頭，並有編譯標識{$APPTYPE CONSOLE}用以標識程序是控制檯程序；通常情況下只需要引用Sys
2018-08-26 04:19:25
原创 Delphi編程辨別顯示分辨率
現在的顯示分辨率是越來越高了，以至於是多少都搞不清楚，程序也往往需要知道分辨率才能合理安排窗體，所以要得到顯示分辨率，下列的程序幫你忙： var x:longint; a:string; begin x := GetSyste
2018-08-26 04:19:23
2
原创 Delphi實現身份證15位升18位的算法
以下是用Delphi寫的計算校驗碼的函數 function TForm1.f(ID: string):string; const W:array [1..18] of integer = (7,9,10,5,8,4,2,1,6,3,
2018-08-26 04:19:23
原创 Delphi 獲取系統時區
function GetTimeZone: string; var TimeZone: TTimeZoneInformation; begin GetTimeZoneInformation(TimeZone); Re
2018-08-26 04:19:23
3
原创 Oracle中的有用查詢
1、利用Oracle獲取毫秒級（4位）序號： select To_char(SysTimestamp,'YYYYMMDDHH24MMSSFF4') from dual; 2、產生10000～99999之間的隨機數： select Tr
2018-08-26 04:19:23