技巧分享：計算機(jī)二級考試DELPHI基礎(chǔ)開發(fā)技巧

　　◇[雜類]隱藏共享文件夾

　　共享效果:可訪問,但不可見(在資源管理、網(wǎng)絡(luò)鄰居中)

　　取共享名為:direction$

　　訪問://computer/dirction/

　　◇[Java Script]Java Script網(wǎng)頁常用效果

　　網(wǎng)頁60秒定時關(guān)閉

　　關(guān)閉窗口

　　關(guān)閉

　　定時轉(zhuǎn)URL

　　數(shù)據(jù)源,一個是MQIS,一個是LocalSever,任選一個選后點(diǎn)擊配置按鈕,不知你的SQL7.0

　　是不是安裝在本地機(jī)器上,如果是的話直接進(jìn)行下一步,如果不是,在服務(wù)器一欄中填上

　　Server,然后進(jìn)行下一步,填寫登錄ID 和密碼(登錄ID,和密碼是在SQL7.0中的用戶選項(xiàng)

　　中設(shè)的)。

　　第二步,配置BDE:

　　打開Delphi的BDE,然后點(diǎn)擊MQIS 或 LocalServer,就會提示用戶名和密碼,這和

　　ODBC的用戶名和密碼是一樣的,填上就行了。

　　第三步,配置程序:

　　如果用的是TTable,就在TTable的DatabaseName中選擇MQIS 或LocalServer,然后在

　　TableName中選擇Sale就行了,然后將Active改為True,Delphi彈出提示對話,填入用戶

　　名和密碼。

　　如果用的是TQuery,在TQuery上點(diǎn)擊右鍵,再擊"SQL Builder",這是以界面方式配置

　　SQL語句,或者在TQuery的SQL中填入SQL語句。最后,別忘了將Active改為True。

　　在運(yùn)行也可能配置TQuery,具體見Delphi幫助。

　　□◇[DELPHI]得到圖像上某一點(diǎn)的RGB值

　　procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

　　Shift: TShiftState; X, Y: Integer);

　　var

　　red,green,blue:byte ;

　　i:integer;

　　begin

　　i:= image1.Canvas.Pixels[x,y];

　　Blue:= GetBValue(i);

　　Green:= GetGValue(i):

　　Red:= GetRValue(i);

　　Label1.Caption:=inttostr(Red);

　　Label2.Caption:=inttostr(Green);

　　Label3.Caption:=inttostr(Blue);

　　end;

　　◇[DELPHI]關(guān)于日期格式分解轉(zhuǎn)換

　　var year,month,day:word;now2:Tdatatime;

　　now2:=date();

　　decodedate(now2,year,month,day);

　　lable1.Text :=inttostr(year)+''年''+inttostr(month)+''月''+inttostr(day)+''日'';

　　◇[DELPHI]如何判斷當(dāng)前網(wǎng)絡(luò)連接方式

　　判斷結(jié)果是MODEM、局域網(wǎng)或是代理服務(wù)器方式。

　　uses wininet;

　　Function ConnectionKind :boolean;

　　var flags: dword;

　　begin

　　Result := InternetGetConnectedState(@flags, 0);

　　if Result then

　　begin

　　if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then

　　begin

　　showmessage(''Modem'');

　　end;

　　if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then

　　begin

　　showmessage(''LAN'');

　　end;

　　if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then

　　begin

　　showmessage(''Proxy'');

　　end;

　　if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then

　　begin

　　showmessage(''Modem Busy'');

　　end;

　　end;

　　end;