delphi Ò³Ãæ¼ä´«ÖµÎÊÌâ
unit song;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,question;
type
TForm1 = class(TForm)
Label1: TLabel;
procedure Label1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
private
{ Private declarations }
public
temp_id:string;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Label1Click(Sender: TObject);
begin
temp_id:=trim(label1.Caption) ;
label1.Font.Color :=clHighlight;
form2.Show ;
end;
Ïë°Ñ±äÁ¿temp_id´«µ½form2´°ÌåÖÐ,ÈçÏ£º
unit question;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls, DB, ADODB;
type
TForm2 = class(TForm)
Label1: TLabel;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADODataSet1: TADODataSet;
Label2: TLabel;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
procedure FormCreate(
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC....
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......
ÀÏʦ²¼ÖÃÁËÒ»¸ö¿ÎÌ⣬ÐèÒªÓÃDelphi×öÒ»¸öÓ°ÔºÊÛÆ±¹ÜÀíϵͳ£¬µ«ÊÇÎÒÃÇ»¹Ã»ÓÐѧ¹ýDelphi£¬¸÷λ¸ßÊÖÄÜ·ñÖ¸µãһϣ¬ÈçºÎ½øÐÐϵͳÉè¼Æ£¬Ê±¼ä±È½Ï½ô¼±£¬Ð»Ð»°¡
ÎÒÒ²²»¶®£¬Ò²Ïëѧ£¡
ÎÒÒ²Êǰ¡£¬¸Ð¾õDelphiͦºÃµÄ£¬ÏÖ ......
Çë´ó¼Ò°ïæ ллÁË ÓÃDelphi±àдһ¸öƽÐÐËıßÐÎ
1
111
11111
111
1
¾ÍÊÇÕâ¸öÑù× ÔÚÕâÀïллÁË
ƽÐÐËıßÐÎ,ÄãÊÇÒªÇó»Í¼»¹ÊÇÊý×ÖÅÅÁÐ?
ÊÇÊý×Ö ÅÅÁÐ ²» ......
СµÜ×î½ü×öÁ˼¸¸ö·þÎñ ·þÎñÔËÐÐÐèҪһЩ²ÎÊý ²ÎÊýÊÇͨ¹ýÒ»¸ö³ÌÐò½çÃæÐÞ¸ÄµÄ ²ÎÊý±£´æÔÚaccessÊý¾Ý¿âÖÐ ÏÖÔÚ³öÏÖÒ»ÁéÒìÏÖÏó µ¥¶ÀµÄ·þÎñÊÇ¿ÉÒÔ½øÐпØÖƵ썷þÎñµÄÍ£Ö¹ ÔÝÍ£µÈµÈ£©µ«ÊǶà¸ö·þÎñÒ»Æð¿ªÆô»á³öÏÖÒ»·þÎñ¿ª ......