hansoy的专栏

Form的OnMouseWheel事件 procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin

dm.qryTmp.First; while not dm.qryTmp.eof do begin edt_re.Lines.Add (dm.qryTmp.FieldByName('Field01').AsString +' '+dm.qryTmp.FieldByName('Field02').AsString +' '+dm.qryTmp.Field

//填充日期(纵向) rq:=dtp1.Date; for i:=6 to daysbetween(dtp1.Date,dtp2.Date)+6 do // 6是起始行号 begin F1Main.TextRc[i,1]:=FormatDateTime('yyyy-mm-dd',rq); rq:=rq+1;

Interface Uses： Windows, Forms//登录Form OnCreate事件 if AppRunning = True then begin Application.MessageBox('对不起，程序已运行！', '提示', MB_OK + MB_ICONINFORMATION); Application.Termina

var systemtime:Tsystemtime; DateTime:TDateTime;begin dm0.qry1.close; dm0.qry1.SQL.Clear; dm0.qry1.SQL.Text:='select sysdate from dual'; dm0.qry1.Open; DateTime:=dm0.qry.FieldByName('sy

begin SaveDialog1.DefaultExt:='xls'; SaveDialog1.Filter:='Excel文件(*.xls)|*.xls'; if SaveDialog1.Execute then begin f1main.write(SaveDialog1.FileName,f1fileexcel5); Application.MessageB

客户端的日期格式: yyyy-mm-dd，程序里想用 yyyy.mm.dd 但又不想更改客户端的日期格式。方法：在程序第一个form的create事件中加入：DateSeparator:='.';ShortDateFormat:='yyyy.mm.dd';

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);begin if Key = #13 then begin Key := #0; SelectNext(ActiveControl, True, True); end;end;

DBGrid1DrawColumnCell 事件中：if Column.FieldName='STATUS' then begin if dm.qry1.FieldByName('STATUS').AsInteger=1 then begin dbgrid1.Canvas.Font.Colo

直接在后面加“&”即可，如“复制到剪贴板&”。

orsn1.StartTransaction; try qry1.Sql.Clear; qry1.Sql.Text:=' select * from log '; qry1.Open; qry1.Insert; qry1.FieldByName('Rq').AsDateTime:=StrToDate(FormatDate

procedure TForm1.FormShow(Sender: TObject);const cWeek:array[1..7] of string = ('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');begin rzstspn1.Caption:=cWeek[DayofWeek(Now)];end;

procedure TForm1.FormCreate(Sender: TObject);begin lbl1.caption:=ExtractFileName(Application.EXEname); // 获得程序名称 lbl2.caption:=ExtractFilePath(Application.EXEname); // 获得程序路径end;

USES ShellApiprocedure TForm1.Button1Click(Sender: TObject);begin shellexecute(handle,nil,pchar('http://www.youkuaiyun.com'),nil,nil,sw_shownormal);end;

delphi中判断日期相等：if (dtp1.Date=Now) and (dtp2.Date=Now) then   这样是不行的，可以参考以下方法： if (FormatDateTime('yyyy-mm-dd',dtp1.Date)=FormatDateTime('yyyy-mm-dd',Now)) and (FormatDateTime('yyyy-mm-dd',dtp2.Da

路径:  C:\Program Files\Common Files\Borland Shared\BDEBDE的配置文件名:   idapi32.cfg直接复制即可使用，免去了重新配置的麻烦。

如字符串是 Dstr:= 'Delphi is the BEST', 那么 LeftStr(Dstr, 5) :='Delph'   从左往右截取，长度是5MidStr(Dstr, 6, 7) :='i is th' 从第6个字符开始截取，长度是7RightStr(Dstr, 6) := 'e BEST'   从右往左截取，长度是6注意：这几个函数都包含

需要 USER:DateUtils①本月的第一天和最后一天StartOfTheMonth(NOW) 和 EndOfTheMonth(NOW) 函数获取。②本年的第一天和最后一天StartOfTheYear(NOW) 和 EndOfTheYear(NOW) 函数获取。

const cColumn:array[1..13] of string = ('B','C','D','E','F','G','H','I','J','K','L','M','N');//行合计：行合计所在列为N列F1Main.FormulaRC[i,14]:= 'sum(B'+IntToStr(i)+':'+'M'+IntToStr(i)+')';//列合计：列合计从第二列开

//操作：procedure TForm1.act_GetListExecute(Sender: TObject);begin FieldList := TStringList.create; TreeView1.items.BeginUpdate; Table1.Close; // 关键！这样才能在插入、更新、删除表数据后实现实时更新 Table1.Open;

目标：将Query的查询结果输出到ExcelinterfaceusesComObj, DB;var function DataSetToExcel(DataSet:TDataSet;FieldTagMax:Integer;Visible:Boolean;ExcelFileName:String=''): Boolean; function DataSetToExcel

var i:integer; //...... qry1.First; i:=0; while not qry1.Eof do begin qry2.Close; qry2.Sql.Clear; qry2.Sql.Text:='insert into Table1 values (:BM,:JE) '; st:=Tstrin

loc1:= qry1.FieldbyName('SPBM').AsString;      //商品编码loc2:= qry1.FieldbyName('XH').AsString;          //型号qry.Locate('XH;SPBM', VarArrayOf([loc2,loc1]), [loCaseInsensitive]);          //

Application.MessageBox(Pchar('号码：' + dm.qry1.ParamByName('p_1').AsString+ '删除成功！'), '提示', MB_OK + MB_ICONINFORMATION); Application.MessageBox(Pchar('注意，昨天的日期是：' + dateToStr(now-1) + '！'), '提示', MB_O

目标：Dbgrid隔行数据显示奇偶色DBGrid1DrawColumnCell 事件：var RowHeight,Row:INteger;begin RowHeight := Rect.Bottom - Rect.Top + 1; //Rect矩形 Row := (Rect.Top div RowHeight); if row mod 2 = 0 then

原理：对一个日期控件进行循环目的：选择日期，做个动作，选择下个日期，重复做这个动作...

yy,mm,dd:word; // 同比(去年同期) 闰年2月29日无同比，就取去年的2月28日 decodedate(dtp1.Date,yy,mm,dd); if MonthDays[IsLeapYear(yy - 1), mm] < dd then QnDate := FormatDateTime('yyyy.mm.dd',EncodeDate(yy-1,mm,dd-1