Delphi
文章平均质量分 66
niochen
这个作者很懒,什么都没留下…
展开
-
使用CreateTable方法建立“人员简要情况”数据库表
procedure TForm1. CreateTableBtnClick(Sender: TObject);beginif not RenYuan.Exists then begin//判别Table1组件的TableName属性指定的表是否存在,如果存在结束建表 with RenYuanTable do beginActive := False;//首先将表的Ac原创 2009-02-20 09:55:00 · 582 阅读 · 0 评论 -
数据库备份与恢复
unit UStore;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IBServices;type TFRestore = class(TForm) IBBackupService1: T原创 2009-02-20 10:16:00 · 331 阅读 · 0 评论 -
计算增加到目的表中的记录数并显示在状态栏中
procedure TForm1.AppendtBtnClick(Sender: TObject); begin with BatchMove_Append do begin Mode := batAppend; //指定批拷贝的操作方式为增加方式 AbortOnKeyViol := False原创 2009-02-20 10:18:00 · 266 阅读 · 0 评论 -
Web服务器应用程序
信息查询 信息网站 汽车房屋人才其它 和对定义表格的一行内容--------> 和对定义表格的一个单元格的内容--------> 二手汽车 房屋租赁 人才招聘 商场超市原创 2009-02-20 09:45:00 · 1064 阅读 · 1 评论 -
人员管理卡三
unit UCommon;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, ToolWin, ComCtrls, ImgList, ActnList, Menus, jp原创 2009-02-20 09:46:00 · 288 阅读 · 0 评论 -
文本编辑器
unit UOpenSave;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids,StrUtils;//添加StrUtils引用type TFOpenSave = class(TFo原创 2009-02-20 09:47:00 · 362 阅读 · 0 评论 -
以OLE方式建立与Excel连接
unit UExcel_Sum; interface //在接口部分定义使用系统的程序单元文件 uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables, StdCtrls, Buttons, Grids原创 2009-02-20 09:48:00 · 669 阅读 · 0 评论 -
打印(显示)当前页号
procedure TPreForm.RvRenderPreview1PageChange(Sender: TObject);beginwith RvRenderPreview1 dobegin PageEdit.Text := IntToStr(CurrentPage);// 获取当前页号,并将其转换成字符类型PageLabel.Caption := 第原创 2009-02-20 09:49:00 · 477 阅读 · 0 评论 -
打印报表的列标题
procedure TReportForm.OnNewColumnReport2(Sender: TObject); Caption:String; beginwith Sender as TBaseReport dobegin Underline := true; case I of //其中I为Integer类型的全局变原创 2009-02-20 09:49:00 · 232 阅读 · 0 评论 -
打印报表的列标题
procedure TReportForm.OnNewColumnReport2(Sender: TObject); Caption:String; beginwith Sender as TBaseReport dobegin Underline := true; case I of //其中I为Integer类型的全局变原创 2009-02-20 09:52:00 · 181 阅读 · 0 评论 -
应用颜色选择和字体选择对话框
unit UColorFont;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TFColorFont = class(TForm) BLineColor: T原创 2009-02-20 10:15:00 · 379 阅读 · 0 评论 -
应用访问控制组件
initializationif WebRequestHandler <> nil thenWebRequestHandler.AddWebModuleFactory(TWebAppPageModuleFactory.Create(TMyHome, TWebPageInfo.Create([wpPublished {, wpLoginRequired}], .html, , 我的原创 2009-02-20 10:15:00 · 269 阅读 · 0 评论 -
应用TIdTCPClient和TIdTCPServer组件
unit UClient;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClie原创 2009-02-20 10:13:00 · 728 阅读 · 0 评论 -
使用DeleteTable方法删除Paradox数据库的人员表
procedure TForm1. Delet_Table_BtnClick(Sender: TObject);beginwith RenYuan dobegin Active := False; //为了删除除表,表必须处于关闭状态 DatabaseName := DBDEMOS; TableName := RenYuan; //删除人员表Re原创 2009-02-20 09:56:00 · 531 阅读 · 0 评论 -
使用RevertRecord方法恢复在缓冲区中被删除的记录
procedure UndeleteAll(DataSet: TBDEDataSet);begin with DataSet do begin UpdateRecordTypes := [rtDeleted]; {指定缓冲区中可视记录的类型,此处是只有删除的记录才是可视的} try First //将指针移动数据集的开始位置 whi原创 2009-02-20 09:57:00 · 443 阅读 · 0 评论 -
使用TDBListBox组件
unit Udblistbox;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ExtCtrls, DBCtrls, DBTables;type TF原创 2009-02-20 09:58:00 · 822 阅读 · 0 评论 -
使用客户数据集获取数据库服务器信息
unit UClientDataSet2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, DB, DB原创 2009-02-20 09:59:00 · 306 阅读 · 0 评论 -
建立与Excel连接
unit UJoin_excel; interface uses //定义使用系统的单元文件 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, OleServer, ExtCtrls, DBCt原创 2009-02-20 10:00:00 · 707 阅读 · 0 评论 -
实现FTP客户端
unit U_FTP;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, IdAntiFreezeBase, IdAntiFreeze, IdIntercept, IdLogBase, IdLogDebug,原创 2009-02-20 10:06:00 · 457 阅读 · 0 评论 -
实现文件的下载上传
unit IWUnit1;{PUBDIST}interfaceuses IWAppForm, IWApplication, IWTypes, IWCompButton, Classes, Controls, IWControl, IWCompListbox, IWCompEdit, IWHTMLControls, IWCompLabel, Forms, IWC原创 2009-02-20 10:07:00 · 443 阅读 · 0 评论 -
实现打印功能
unit UPrint;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls,Printers;//Printerstype TFPrint = class(TForm)原创 2009-02-20 10:07:00 · 274 阅读 · 0 评论 -
实现数据库查询的Web服务器应用程序
library PGuYuan_query;uses //说明工程使用的有关文件,//注意:使用不同的Delphi版本,所使用文件和数量有差别!!! ActiveX, ComObj, WebBroker, ISAPIThreadPool, ISAPIApp, UGuYuan_query in UG原创 2009-02-20 10:08:00 · 629 阅读 · 0 评论 -
打印报表的表体
function TReportForm.PrintPageReport2(Sender: TObject; var PageNum: integer): Boolean; begin { 报表2 } with Sender as TBaseReport do begin SetFont(原创 2009-02-20 09:52:00 · 222 阅读 · 0 评论 -
使用Active属性判断可否使用远程数据库
procedure TForm1.FormShow(Sender: TObject);beginQuery1.Active := False;//改变数据库之前,必须将数据集关闭try Query1.DatabaseName := ORACLE; //首先将查询组件的数据库名设置成远程数据库,即ORACLE,然后打开查询 Query1.Active := Tr原创 2009-02-20 09:54:00 · 236 阅读 · 0 评论 -
使用dbExpress方式连接Oracle数据库
unit USQLConnect;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Dialogs, DBXpress, FMTBcd, StdCtrls, Mask, DBCtrls,DB, SqlExpr,ExtCtrls,Buttons;type原创 2009-02-20 09:55:00 · 913 阅读 · 0 评论 -
应用IdTimeUDPServer和TIdTimeUDP组件
(1) unit U_UDPTime_Client;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient, IdTimeUDP,原创 2009-02-20 10:09:00 · 700 阅读 · 0 评论 -
应用TADOConnection、TADODataSet和TADOCommand组件
unit U_AdoQuery;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Buttons, DBClient, ExtCtrls,SQLEdit, Grids, DBGr原创 2009-02-20 10:10:00 · 675 阅读 · 0 评论 -
应用Web Service组件
function Tmyfirst.animalsname:string; stdcall; var c: Tstringlist; begin c:=TStringList.Create ; data_md.Table1.First; while not data_md.Table1.Eof do begin c.Add(d原创 2009-02-20 10:13:00 · 293 阅读 · 0 评论 -
应用动态SQL语句
unit Minglu; {该工程使用查询组件和网格组件,显示公司的人员名录} interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBTables, E原创 2009-02-20 10:15:00 · 290 阅读 · 0 评论 -
获取TISAPIRequest对象的属性
unit URequest; interface uses Windows, Messages, SysUtils, Classes, HTTPApp, Db, DBWeb, DBTables; type TWebModule1 = class(TWebModule) procedure WebModule1rootitem原创 2009-02-20 10:17:00 · 281 阅读 · 0 评论 -
调用EXECSQL方法在数据集中插入一个新记录
procedure TForm1.FormCreate(Sender: TObject);beginAppendRecordQuery.Close;AppendRecordQuery.SQL.Clear;//清楚查询组件的SQL语句AppendRecordQuery.SQL.Add(INSERT INTO RenYuan (姓名,籍贯,年龄));// AppendRec原创 2009-02-20 10:18:00 · 664 阅读 · 0 评论 -
转换XML文档
//描述字段名称,数据类型和长度 //描述记录中每个字段的值原创 2009-02-20 10:19:00 · 293 阅读 · 0 评论 -
delphi 数据库小技巧
#资料库设置[DBLINK]ServiceName=10.13.65.201USERID=icsPASSWORD=icsdatabase=ICS_PROD#------------------------------#ServiceName=10.112.65.250#USERID=sa#PASSWORD=sa#database=msa 读取ini文件procedure TForm1.原创 2009-02-24 14:02:00 · 539 阅读 · 0 评论 -
Delphi中Format与FormatDateTime函数详解
Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用:首先看它的声明:function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式,另外一种是三个参数的,主要区别在于它是线程安全的原创 2009-02-24 11:51:00 · 1021 阅读 · 0 评论 -
区域管理
unit UTree;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Menus, StdCtrls; type PMyRec = ^TMyRec; TMyRec = record原创 2009-02-20 10:06:00 · 454 阅读 · 0 评论 -
动态设置数据集参数
procedure TForm1.ExcuteBtnClick(Sender: TObject); begin SQLDataSet1.CommandType := ctQuery; SQLDataSet1.CommandText := INSERT INTO RenYuan (NAME, Native, age) VALUES (:Name, :N原创 2009-02-20 10:05:00 · 350 阅读 · 0 评论 -
动态参数查询
unit UVarParamQuery; {单元文件名}interfaceuses//定义工程中使用的单元文件Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Buttons, Db, Grids, DBGrids, DBTables, ExtCtrls原创 2009-02-20 10:05:00 · 248 阅读 · 0 评论 -
使用TDBGrid组件
unit Udbgrid;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ExtCtrls, DBCtrls, DBTables;type TForm原创 2009-02-20 09:57:00 · 521 阅读 · 0 评论 -
使用TWordDocument组件连接Word自动化服务器
unit UJoin_Word2; interface uses //使用系统的单元文件 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleServer, Word2000, Butto原创 2009-02-20 09:59:00 · 555 阅读 · 0 评论 -
建立双平台运行的应用程序
program PWin_Linix; uses QForms, UWin_Linix in UWin_Linix.pas {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1)原创 2009-02-20 10:00:00 · 351 阅读 · 0 评论