- 博客(6)
- 资源 (2)
- 收藏
- 关注
原创 自定義部件
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 396
原创 導入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 725
原创 一維數組的運用
{...............................................................................// 使用方式﹕判斷輸入的路徑是否合法// 函式名稱﹕Gvt_GetCheckPath// 傳入參數﹕Str: 路徑// 返回值﹕ Boolean.........................................
2007-10-10 08:35:00 447
原创 函數返回數組
{.............................................................................. lxx_2007_09 當此Function修改后﹐下面几個程式必須重新編譯: 熱軋-業務管理-詢單系統-報價單維護; 熱軋-業務管理-訂單維護; 冷精-業務管理-訂單登錄; 冷精-成品管理-庫存維護; 根據產品碼取得料號和
2007-10-10 08:31:00 564
原创 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 1842
原创 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 410
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人