ftwsnow - 博客园

2012年3月27日

摘要： var Registry: TRegistry;begin Registry:=TRegistry.Create; Registry.RootKey:=HKEY_LOCAL_MACHINE; Registry.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion',False); Registry.RootKey:=HKEY_LOCAL_MACHINE; Registry.OpenKey('\SOFTWARE\CCCCC',True); if not Registry.ValueExists('refre 阅读全文

posted @ 2012-03-27 11:08 ftwsnow 阅读(186) 评论(0) 推荐(0)

QuickReport

摘要： chongzhireportfrm:=Tchongzhireportfrm.Create(application); chongzhireportfrm.QRLabel1.Caption :='开户单'; chongzhireportfrm.cardid.Caption := trim(cardid.text); chongzhireportfrm.name.Caption := trim(DBEdit8.text); chongzhireportfrm.amo... 阅读全文

posted @ 2012-03-27 09:42 ftwsnow 阅读(191) 评论(0) 推荐(0)

MDI程序

摘要： var currentcount:integer; ishaveinstance:boolean;begin ishaveinstance:=false; for currentcount:=0 to MDIChildcount-1 do begin if MDIChildren[currentcount].ClassName='Tcardfrm' then begin ishaveinstance:=true; MDIChildren[currentcount].WindowState:=wsmaximized; end; e... 阅读全文

posted @ 2012-03-27 09:10 ftwsnow 阅读(212) 评论(0) 推荐(0)

2012年3月26日

DateTimePicker1.DateTime:=IncMonth(Trunc(now+1)-1/24/60/60,1);

摘要： unit SysUtils;DateTimePicker1.DateTime:=IncMonth(Trunc(now+1)-1/24/60/60,1); 阅读全文

posted @ 2012-03-26 10:51 ftwsnow 阅读(222) 评论(0) 推荐(0)

2012年3月23日

调用dll

摘要： Procedure aaaaaaa(CorpName: PChar; CorpAccount, ActualCorpName: PChar; var Amount: Double; FiscalComments: PChar; ErrorCode,ErrorMessage: PChar); stdcall; external 'ccc.dll'; TCorpRecord = record CorpAccount, ActualCorpName, FiscalComments, ErrorCode, ErrorMessage: PChar; Amount: Double; end 阅读全文

posted @ 2012-03-23 16:41 ftwsnow 阅读(239) 评论(0) 推荐(0)

CreateComObject

摘要： CLASS_clsLogin: TGUID = '{72A6FADA-FE26-46BD-A921-BFD1179C1E1E}';TGUID = packed record D1: LongWord; D2: Word; D3: Word; D4: array[0..7] of Byte;end;clsLogin = interface;//////////my_login : clsLogin;my_login:=CreateComObject(CLASS_clsLogin) as clsLogin; 阅读全文

posted @ 2012-03-23 16:32 ftwsnow 阅读(531) 评论(0) 推荐(0)

VB调用dll

摘要： Private Declare Sub CallDishDetail Lib "D:\VBTest\CallDetail.dll" (ByVal orderid As Long)Private Sub Command1_Click()Dim orderid As LongIf Not IsNumeric(Text1.Text) ThenLabel1.Caption = "不是有效的数字"Elseorderid = Int(Text1.Text)Label1.Caption = ""Call CallDishDetail(orderid 阅读全文

posted @ 2012-03-23 16:22 ftwsnow 阅读(179) 评论(0) 推荐(0)

Dll封装窗体

摘要： library CallDetail;uses SysUtils, Classes, ADODB, Dialogs, ActiveX, DishDetail in 'DishDetail.pas' {frmOrderDetail};function CallDishDetail(Orderid:Integer):Boolean;stdcall;var f:TfrmOrderDetail;begin Result:=False; f:=TfrmOrderDetail.Create(nil); try f.OrderID:=Orderid; f.ShowModal;... 阅读全文

posted @ 2012-03-23 16:19 ftwsnow 阅读(187) 评论(0) 推荐(0)

webServices传送图片

摘要： //放入一个HTTPRIO1: THTTPRIO;var ImageArray:array of ImageBean;byteArray:TByteDynArray;memStream:Tmemorystream; SetLength(ImageArray,Num); memStream:=TMemoryStream.Create; for i:=0 to Num-1 do begin memStream.Clear; ImageArray[i]:=ImageBean.Create; ImageArr... 阅读全文

posted @ 2012-03-23 16:02 ftwsnow 阅读(327) 评论(0) 推荐(0)

2012年3月15日

定义常量数组

摘要： //包含十个点坐标的常量数组Const C_Point : Array [0..2] of TPoint =((X:10;Y:20),(X:20;Y:30),(X:20;Y:50)); //定义常量字符串数组const FieldArray:array [0..14] of string=('tradedate','pihao','unit','ID','EXP','mySize','ProduceEP', 'ProduceDate','imgstr' 阅读全文

posted @ 2012-03-15 10:19 ftwsnow 阅读(495) 评论(0) 推荐(0)