利用函數loadyardmap去datamdoule中的adotable 取得我想要的資料 |
|
尚未結案
|
|
pricejit2
一般會員   發表：53 回覆：18 積分：14 註冊：2005-01-28 發送簡訊給我 |
程式一打開 就利用函數loadyardmap 去抓資料
procedure TForm1.FormCreate(Sender: TObject);
begin
loadyardmap(datamodule.DM.adotblYardMap) //??
end; loadyardmap的功能程式碼
unit Global; interface
uses ADODB,Types;
procedure LoadYardmap(TableYardMap : TAdoTable);
type
TArea = packed record
//EquipType : Integer;
EquipClass : Integer;
Area : TRect;
EquipID1 : String;
EquipID2 : String;
CoilCount : Integer;
LimitCoilCount : Integer;
RemainCoilCount : Integer;
CoilStock : Integer;
// StockPlace : array of TStockPlace;
CoilType : String;
BaseValue : String; //mm
Central : String; //cm
Level : Integer;
PLevel : String;
LastUpdateTime : TDateTime; end;
implementation
uses mainfrm;
procedure LoadYardmap(TableYardMap : TAdoTable);
var idx:integer;
begin
tableyardmap.Open;
tableyardmap.First; //Moves to the first record in the dataset.
SetLength(YardMap,TableYardMap.RecordCount); //設定記憶體的長度
idx:=0;
YardMap[idx].EquipClass := TableYardMap.FieldByName('EquipClass').AsInteger;
TableYardMap.Next; //Moves to the next record in the dataset.
//Inc(idx);
TableYardMap.Close; end;
end. 指定datamodule與資料庫(access)的路徑 type
TDM = class(TDataModule)
adotblYardMap: TADOTable;
procedure DataModuleCreate(Sender: TObject); private
{ Private declarations }
public
{ Public declarations }
end; var
DM: TDM; implementation {$R *.dfm} procedure TDM.DataModuleCreate(Sender: TObject);
begin
adotblYardmap.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
+ ExtractFilePath(ParamStr(0)) + 'Database\Layout.mdb;Persist Security Info=False';
end; end. ??為何loadyardmap 一直進不去呢??
|
發表時間：2005-06-15 14:15:11
IP:220.130.xxx.xxx 未訂閱
系統時間：2024-06-27 0:59:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |