- 博客(18)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 SQL Server中触发器的写法
create trigger [Tri_PHAppData] on [dbo].[PHJRD] after updateas declare @NewValueJZ int declare @ErrorCnt intbegin select @NewValueJZ = JZ from inserted if @NewValueJZ = 1
2009-03-05 17:04:00
1400
原创 delphi 啟動外部程式（收藏參考）
// 上傳檔案IdFTP.Put(ALocalFileName, AServerFileName,False); // 下載檔案IdFTP.Get(AServerFileName, ALocalFileName,AUpdateMode,False); // 檢查文件是否存在try IdFTP.List(Lv_LS,ALoca
2009-01-07 12:54:00
710
原创 delphi中結束進程
uses TLHelp32;procedure TfrmSCCE100.Pvt_EndProcess(AFileName: string);const Cv_PROCESS_TERMINATE=$0001;var Lv_ExeFileName: string; Lv_ContinueLoop: BOOL; Lv_FSnapshotHandle: THandl
2009-01-07 11:52:00
720
原创 delphi中{$DEFINE}的理解
// 當你開發及DEBUG時，將REMARK(//) 移除// {$DEFINE SPECIFIC_USER }const TEST_USERID = sfc;const TEST_USERPASSWORD = sfccfs;.......這里，{$DEFINE SPECIFIC_USER }跟const TEST_USERID = sfc;const TEST_USERPASSWO
2009-01-07 11:45:00
2543
原创 自定義部件
unit Employee;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TEmployee=class(TComponent) private FName: string[10]; FAge: I
2007-10-10 09:01:00
407
原创 導入EXCEL、二維數組的運用
procedure TForm1.btnPrintClick(Sender: TObject);var Lv_ExcelApp, Lv_ExcelWkBook, Lv_ExcelWkSheet: Variant; Lv_i, Lv_j, Lv_z, Lv_Cnt, Lv_RowStart: Integer; Lv_Sum: Real; Lv_MaxMonth, Lv_MaxMonthR
2007-10-10 08:45:00
735
原创 一維數組的運用
{...............................................................................// 使用方式﹕判斷輸入的路徑是否合法// 函式名稱﹕Gvt_GetCheckPath// 傳入參數﹕Str: 路徑// 返回值﹕ Boolean.........................................
2007-10-10 08:35:00
456
原创 函數返回數組
{.............................................................................. lxx_2007_09 當此Function修改后﹐下面几個程式必須重新編譯: 熱軋-業務管理-詢單系統-報價單維護; 熱軋-業務管理-訂單維護; 冷精-業務管理-訂單登錄; 冷精-成品管理-庫存維護; 根據產品碼取得料號和
2007-10-10 08:31:00
571
原创 DataSet.Locate用法
ID, LOC_CODE,MTRL_CODE----------------欄位名Lv_ID, Lv_LocCode, Lv_MtrlCode---------------變數if Query1.locate(ID;LOC_CODE;MTRL_CODE, VarArrayOf([Lv_ID, Lv_LocCode, Lv_MtrlCode]), [loPartialKey]) then
2007-10-10 08:24:00
1855
原创 ADO數據連接和運用
procedure TfrmEntryForm1.Pvt_readExcel;begin if not FileUpdate(PDM300P1.xlt, C:Report_Template, True) then begin ShowMessage(範本檔 PDM300P1.xlt 下載失敗!); Abort; end; try try DM1.
2007-10-08 08:44:00
417
原创 Procedure of oracle (proc_count_recd)
CREATE OR REPLACE PROCEDURE proc_count_recdis tablename varchar2(30); rownum number := 0; sql_str varchar2(200); cursor cur_tablename is select table_name from user_tables;begin delete from
2007-09-30 11:00:00
439
原创 TDBGrid+TCheckBox
1.Query1虛擬兩個欄位: APPROVE, REJECT即: Query1.SQL.Text := select F APPROVE, F REJECT,A. * from pdm038m a; 2.設置DBGrid1.Options.dgEditing為False;3.procedure TForm1.DBGrid1DrawColumnCell(
2007-08-11 14:13:00
707
原创 Delphi中Create and call DLL
1. create DLL (方法1): library MyDLL; uses SysUtils, Classes, DLL in DLL.pas; ...{$R *.res} exports AddIt, SubIt; begin end. unit DLL; // 新增一個單元文件 interface function AddIt(x1,
2007-08-11 14:10:00
791
原创 Database link in Oracle
create database link NEWMES.WALSIN.COM connect to MES identified by MES using newmes;
2007-07-01 20:35:00
429
转载 Trigger of Oracle
create or replace trigger "trace_rwip104c" before inserton "mes"."rwip104c" referencing old as aa new as bb for each rowbegininsert into rwip104c_yidong(warename,plant,loc_code,mtrl_code,id,rno,s
2007-07-01 20:13:00
653
原创 View of Oracle
create or replace view lxx_lj_out asselect a."PROD_ORDER",a."YZ_QTY",a."WZ_QTY",a."F_QTY",a."G_QTY",a."MTRL_CODE",a."SHAPE",a."DIA",a."SOURCE_ID",a."NEW_ID",b.sale_order,b.sale_item,d.name_cust,
2007-07-01 19:48:00
508
转载 Function of Oracle
CREATE OR REPLACE FUNCTION FUNC_GETCOST(ONLINE_DATE1 IN VARCHAR2, ---版本號PROCESS_CODE1 in varchar2, --產品別GRADE_NO1 IN VARCHAR2, --廠內鋼種SHAPE1 IN VARCHAR2, --形狀IDIA IN VARCHAR2,
2007-07-01 19:35:00
519
转载 Usage of Cursor in Oracle Procedure
create or replace procedure diff_table istab_name varchar2(30);row_num number:=0;sql_str varchar2(200);cursor cur_tab is select table_name from user_tables;cursor cur_tab2 is select table_name
2007-07-01 19:26:00
485
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人