Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DelphiÖ÷´Ó±íÀý×Ó

ÔÚsql server µÄnorthwide Öн¨Á¢Ö÷±í
create table sell_h( sell_id char(10),cust_name char(10) Primary key(sell_id) )
go
create table sell_h( sell_id char(10),inv char(10) ,amt float,qty float Primary key(sell_id,inv) )
Ê×ÏÈ,ҪעÒâÒÔÏÂÉèÖÃ
1.ҪעÒⱨ´Ó±íqrydetailÉèÖÃ,Åú±£´æ¿ªÊ½. ¼´.locktype= batchoptimistic ,cursortype=keyset,cursorlocation
=cluseclient
2.
procedure TForm1.FormCreate(Sender: TObject);
begin
qrymain.Close;
qrydetail.Close;
qrymain.SQL.Add(' select *   from   sell_h')   ;
qrydetail.SQL.add('select * from sell_b where sell_id = :sell_id')  ;
qrymain.Open;
qrydetail.Open;
end;
3.
procedure TForm1.qrymainAfterScroll(DataSet: TDataSet);
begin
qrydetail.Close;
qrydetail.Parameters.ParamByName('sell_ID').Value := qrymain.fieldbyname('sell_id').value;
qrydetail.Open;
end;
ÒÔÉϾÍÊÇÖ÷ÒªµÄÉèÖÃ,»¹ÓÐ×¢ÒâÖ÷´Ó±íµÄ±£´æÎÊÌâ:
Ö÷±í²»ÒªÓÃÅú´¦Àí£¬Ö±½Ó±£´æ,°ÑltBatchOptimisticÈ¥µô
Ã÷ϸ±íÓÃÅú´¦Àí¡£ 
±£´æÊ±Ïȱ£´æÃ÷ϸ±í£¬ÔÙ±£´æÖ÷±í¼´¿É¡£
ADOÖÐADOTable¡¢ADOQueryºÍADODataSetÖ÷´Ó±íÉèÖÃ
1¡¢ADOTableµÄÖ÷´Ó±íÉèÖÃ
Ö÷±íÃûΪjxc_out£¬´Ó±íÃûΪjxc_out_detl   Ö÷±íÓë´Ó±í¹ØÁª×Ö¶ÎΪdraw_no
tbM: TADOTable;
tbD: TADOTable;
dtsM: TDataSource;
dtsD: TDataSource;
tbM.TableName=jxc_out
tbD.TableName=jxc_out_detl
dtsM.DataSet=tbM
dtsD.DataSet=tbD
tbD.MasterSource=tbM
ÔÚ´Ó±íµÄ[tbD]ÖÐÑ¡ÔñMasterFieldsÊôÐÔ£¬Ñ¡ÔñÖ÷±íºÍ´Ó±í¹ØÁªµÄ×ֶΣ¬È»ºóÖ´ÐÐtbM.openºÍtbD.Open¼´¿É
2¡¢ADOQueryµÄÖ÷´Ó±íÉèÖÃ
Ö÷±íÃûΪjxc_out£¬´Ó±íÃûΪjxc_out_detl  Ö÷±íÓë´Ó±í¹ØÁª×Ö¶ÎΪdraw_no
adqM: TADOQuery;
adqD: TADOQuery;
dtsM: TDataSource;
dtsD: TDataSource;
tbM.sql.text=select * from jxc_out
tbM.sql.text=select * from jxc_out_detl where draw_no=:draw_no
dtsM.DataSet=adqM
dtsD.DataSet=adqD
dtsD.DataSource=dtsM
Ö´ÐÐadqM.openºÍadqD.Open¼´¿É
3¡¢ADODataSetÖ÷´Ó±íÉèÖÃ
¸úADOQueryÉèÖò¶à£¬²»¹ýADODataSetÉèÖõÄÊÇcommandtext


Ïà¹ØÎĵµ£º

delphiÖÐActiveX ºÍ Web

http://book.77169.com/data/web5302/20050228/20050228__3692503.html
ActiveX ºÍ Web
ÔÚWindows ²Ù×÷ϵͳÏ£¬ÓÐÒ»¸öÖØÒªµÄ»úÖÆ£¬¾ÍÊÇOLE £¬¾ÍÊÇ¿ÉÒÔÈÃij
¸öÓ¦ÓóÌÐò£¨OLE Controller£©·ÃÎÊÆäËüÓ¦ÓóÌÐò£¨OLE Server£©ËùÌṩµÄ
¹¦ÄÜ£¬ÕâÑù×öµÄºÃ´¦ÊÇ£¬Èç¹ûÒѾ­ÓÐÁËÍê³ÉijÏÄܵijÌÐò£¬Äã¾Í²»±ØÔÙΪ
ijÏÄܱàÐ´ÌØ¶¨ ......

Delphi±í´ïʽ

function ExpCalc(exp: string): string;
var
vScript: Variant;
begin
vScript := CreateOleObject('ScriptControl');
vScript.Language := 'VBScript';
Result := vScript.Eval(exp);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=ExpCalc('100 *4.17/0.5*(55. ......

Delphiµ÷ÓÃExcelµÄÆäËü¼¼ÇÉ

1>ÏòÖ¸¶¨µÄÇøÓò»òÐÎ×´Ìí¼Ó³¬Á´½Ó¡£
Óï·¨
±í´ïʽ.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
±í´ïʽ   Ò»¸ö´ú±í Hyperlinks ¶ÔÏóµÄ±äÁ¿¡£
²ÎÊý
Ãû³Æ±ØÑ¡/¿ÉÑ¡Êý¾ÝÀàÐÍÃèÊö
Anchor
±ØÑ¡
Object
³¬Á´½ÓµÄλÖ᣿ÉΪ Range »ò Shape ¶ÔÏó¡£
Address
±ØÑ¡
String
³¬Á´½ÓµÄµØÖ ......

Delphiµ÷ÓÃoutlook

 //¶¨ÒåÈ«¾Ö±äÁ¿
public
{ Public declarations }
outlook,MailItem,Recipient:variant;
OutlookNameSpace:variant;
OutlookFolder:variant;
OutlookAttachment:variant;
//´´½¨´ò¿ªoutlook
procedure TForm1.CreateOutLook;
begin
try
outlook:=CreateOleObject('OutLook.app ......

delphi×¢²á±í²Ù×÷ÍêÈ«ÊÖ²á

32λDelphi³ÌÐòÖпÉÀûÓÃTRegistry¶ÔÏóÀ´´æÈ¡×¢²á±íÎļþÖеÄÐÅÏ¢¡£
¡¡¡¡Ò»¡¢´´½¨ºÍÊÍ·ÅTRegistry¶ÔÏó
¡¡¡¡1.´´½¨TRegistry¶ÔÏó¡£ÎªÁ˲Ù×÷×¢²á±í£¬Òª´´½¨Ò»¸öTRegistry¶ÔÏó£ºARegistry := TRegistry.Create£»
¡¡¡¡2.ÊÍ·ÅTRegistry¶ÔÏó¡£¶Ô×¢²á±í²Ù×÷½áÊøºó£¬Ó¦ÊÍ·ÅTRegistry¶ÔÏóËùÕ¼Äڴ棺ARegistry.Destroy¡£
¡¡¡¡¶þ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ