Delphi技术精华
Steven_xg
软件开发
展开
-
技术类(delphi)
procedure TfrmHrResult.FormShow(Sender: TObject);begin//初始化try with dmHr do begin if not adoCnnHr.Connected then adoCnnHr.Connected:=true; if not adoQryHr.Active then adoQryH原创 2007-09-28 17:02:00 · 655 阅读 · 0 评论 -
Delphi中类的使用
unit Unit2;interfaceuses Dialogs;type TPerson=Class(Tobject) private aname:string; asex:string; aage:integer; function getName():string; function getsex():string; function原创 2008-09-27 16:41:00 · 1029 阅读 · 0 评论 -
打不开Options问题与连接代码
用WIN2003+DELPHI7的组合,打不开Options问题?把数据执行保护(DEP)去掉就可以了~ 我的电脑->属性->高级->性能设置->数据执行保护,选第一项即可 if key = #13 then frmPrintInfo.SelectNext(frmPrintInfo.ActiveControl,True,false); ADOConnection1.Close原创 2008-09-20 10:32:00 · 1384 阅读 · 0 评论 -
delphi 时间日期操作
delphi 时间日期操作 用于时间操作的函数 Date函数: 定义:Date: TDateTime; 作用:返回当前的日期 范例:CurrentDate := Date;D原创 2008-07-02 10:21:00 · 1228 阅读 · 0 评论 -
Delphi备份/还原数据库
----备份数据库BACKUP DATABASE KCBusMag to disk = E:/SoftCode/AWork/车载/智卡/通用版YJ/BusMag/db/BusManager080701151536.Bak With Name = KCBusMag 备份----还原数据库 方法《一》use master alter database library set off原创 2008-07-01 15:49:00 · 776 阅读 · 0 评论 -
DbgridToExcell
function TDataModule1.DbgridToExcell(DBGrid: TDBGrid; FileName: string; TitleLst: TStringList): boolean;var i,j,Col,cntTitle:integer; EParam:OleVariant; DocuType:Olevariant; wkbk:原创 2008-06-18 11:08:00 · 599 阅读 · 0 评论 -
金额转换
Function XxToDx(hjnum:real):String;stdcall;var Vstr, zzz, cc, cc1, Presult:string; xxbb:array[1..12]of string; uppna:array[0..9] of string; iCount, iZero, vPoint, vdtlno:integer;begin /原创 2008-08-25 09:30:00 · 771 阅读 · 0 评论 -
金额小写转大写
function XxToDx(hjnum: real): string; stdcall;var Vstr, zzz, cc, cc1, Presult: string; xxbb: array[1..12] of string; uppna: array[0..9] of string; iCount, iZero, vPoint, vdtlno: integer;begin //*原创 2008-06-02 10:58:00 · 727 阅读 · 0 评论 -
DBGrid间隔行颜色与数据集的TBookmark操作
procedure TfrmCardTypeSet.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if DBGrid2.DataSource.DataSet.RecNo mod原创 2008-05-28 11:32:00 · 895 阅读 · 0 评论 -
delphi如何获取屏幕的分辨率
屏幕的分辨率用这个 x=GetSystemMetrics(SM_CXSCREEN) y=GetSystemMetrics(SM_CYSCREEN) 同上。.而且获得屏幕上的像素好像应该使用screen.pixelsperinch函数int GetDeviceCaps( HDC hdc, // device-context原创 2008-08-07 11:25:00 · 1993 阅读 · 0 评论 -
adoQryToExcell
procedure TDataModule1.adoQryToExcell(ADOQuery1: TADOQuery;RptName,TiTle1,TiTle2,TiTle3: string); var i,j,k:integer; EParam:OleVariant; DocuType:Olevariant; wkbk:_WorkBook; FileName:OleVari原创 2008-04-18 17:41:00 · 501 阅读 · 0 评论 -
技术类3(delphi)
unit USysDbSet;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls,UdmHr;type TfrmSysDbSet = class(TForm) ledtDbNa原创 2007-09-28 17:07:00 · 536 阅读 · 0 评论 -
技术类2(delphi)
procedure TfrmHrAdd.bbtnOkClick(Sender: TObject);beginif optType=0 then //新增记录 try with dmHr do begin if not adoTblHr.Active then adoTblHr.Open ; adoT原创 2007-09-28 17:05:00 · 646 阅读 · 0 评论 -
使用PrintDBGridEh进行打印
if not ADOQuery1.Active then exit; if ADOQuery1.RecordCount PrintDBGridEh1.PageHeader.CenterText.Clear; PrintDBGridEh1.PageHeader.CenterText.Add(trim(edTiTle1.Text)); PrintDBGridEh1.PageHead原创 2008-12-01 16:31:00 · 4071 阅读 · 0 评论