delphi 数字转换成中文
获取当前日期，日期为数字。将数字转换成中文。function TForm1.GetCNDay():string; //result是function默认的返回值变量var str,strYear,strMonth,strDay,e,n,s : string; year,month,day,v_index,v_len,i : Integer;begin e:='0123456789'; n:='�一二三四五六七八九'; v_inde
Delphi
delphi手动创建dataset并插入值
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,DB,DBClient, Vcl.Grids, Vcl.DBGrids;type TForm1 = class(TForm) dbgrd1: TDBGrid; proced
delphi TADOCommand 中文使用说明
TADOCommand 中文使用说明 TADOCommand组件主要用于运行一些数据定义语言（DDL）的SQL命令，或者运行一个没有返回结果集的存储过程，对于有返回结果集的SQL语句，则最好使用TADODataSet、TADOQuery或TADOStoredProc组件，尽管 TADOCommand 组件的Execute 方法可以返回一个结果集，但却是通过另一个ADO数据集组件来使用该记录集。一、ADOCommand的主要属性1. CommandText属性 指定要执行的SQL命令。 C
delphi 递归遍历 TreeView树节点
以下全部调试通过,你在窗体扔一个Treeview就行了procedure GetRootNodes(ATreeView:TTreeView);//得到所有根节点var vNode:TTreeNode;begin vNode:=nil; vNode:=ATreeView.Items.GetFirstNode; While vNode<>nil do begin ShowMessage(vNode.Text);//处理查找到的根节点 vNode:=vNode.getNextS
delphi treeview添加背景图片
在uses中加types;procedure TForm1.TreeView1CustomDraw(Sender: TCustomTreeView; const ARect: TRect; var DefaultDraw: Boolean); var btop, bLeft: Integer; rect: Trect; x, y, h: integer; begin x
Delphi-ADOQuery查询、插入、删除、修改
//查询记录procedure TForm1.Button1Click(Sender: TObject);beginADOQuery.Close;ADOQuery.SQL.Clear;ADOQuery.SQL.Add('select * from [YourTABLE] where 查询条件');ADOQuery.Open;//插入记录procedure TForm1.Button2Click(Sender: TObject);beginADOQuery.Close;ADOQuery.S
delphi ADOConnection1 连接excel表格读取数据
uses ComObj;procedure TForm1.Button6Click(Sender: TObject);var Excel: OLEVariant; ExcelVersion: string; filename:string;beginfilename:=ExtractFilePath(ParamStr(0))+'工作表.xlsx'; try Excel := CreateOLEObject('EXCEL.Application');
Delphi ADO 连接 Excel （附Excel各个版本的版本号）
引用ComObj这个单元Type Conn: TADOConnection; qry: TADOQuery;var Excel: OLEVariant; ExcelVersion: string;begin try Excel := CreateOLEObject('EXCEL.Application'); ExcelVersion := Excel.version; finally Excel.Quit; Excel := UnA