先運(yùn)行力控應(yīng)用程序(如演示工程——反應(yīng)釜),實(shí)時(shí)數(shù)據(jù)庫(kù)系統(tǒng)亦隨之啟動(dòng)。
然后啟動(dòng)delphi6.0,創(chuàng)建一個(gè)新的工程。
在form1窗體中,放置DdeClientConv控件(system標(biāo)簽頁(yè)),設(shè)置ConnectMode屬性值為ddeAutomatic、DdeService屬性值為db、DdeTopic屬性值為db;
接下來(lái)放置DdeClientItem控件(system標(biāo)簽頁(yè)),設(shè)置DdeConv為DdeClientConv1,設(shè)置DdeItem屬性值為所要讀取的數(shù)據(jù)庫(kù)點(diǎn)參數(shù)值如dbmixvol.pv;
放置一個(gè)edit控件;
放置一個(gè)timer控件,設(shè)置interval屬性值為100;在ontimer腳本中加入:
procedure TForm1.Timer1Timer(Sender: TObject)
begin
edit1.text:=form1.DdeClientItem1.Text
end
標(biāo)簽:
運(yùn)行
力控
應(yīng)用程序
工程
上傳時(shí)間:
2014-01-22
上傳用戶:lwwhust