11 2009 档案

权限管理库
摘要: /*** 数据库权限管理数据库 ***/ /****** 对象: Table [dbo].[az_set_mods] 脚本日期: 11/19/2009 18:15:29 模块库******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOCREATE TABLE [dbo].[az_set_mods]( [id] [int] IDENTITY(1,1) ...阅读全文
posted @ 2009-11-19 18:25 azhai 阅读(3) | 评论 (0) 编辑
线程加载返回的XMLtoTClientDataSet
摘要: type TReadOrderThread = class(TThread) private FCDS: TClientDataSet; Fstr: string; protected procedure Execute; override; procedure readOrder; function XMLToDataSet(strXML:WideString;nodeName:string):...阅读全文
posted @ 2009-11-03 12:04 azhai 阅读(39) | 评论 (0) 编辑
用IDHTTP 实现上传和返回XML
摘要: {idHTTP} procedure upload;var tmpWeb: TIdHTTP; FS: TIdMultiPartFormDataStream;begin try tmpWeb:=TIdHTTP.Create(nil); FS := TIdMultiPartFormDataStream.Create; FS.AddFormField('postconntext', ''); //上传参...阅读全文
posted @ 2009-11-03 11:54 azhai 阅读(133) | 评论 (0) 编辑
delphi 开发扩展（二）
摘要: library plug_in;uses SysUtils, Classes, Unit3 in 'H:\test\Unit3.pas' {Form3};exports GetForm,GetName;{$R *.res}beginend.{要加载的窗体} unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes...阅读全文
posted @ 2009-11-03 11:44 azhai 阅读(34) | 评论 (0) 编辑
delphi 开发扩展（一）
摘要: {主程序} unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB;type TPluginName = Function:string; stdcall; TShowPerSN = functio...阅读全文
posted @ 2009-11-03 11:41 azhai 阅读(89) | 评论 (0) 编辑