- 博客(22)
- 资源 (6)
- 收藏
- 关注
RSS订阅转载 SQL 实现34进制
CREATE FUNCTION [dbo].[int2Char](@id bigint) RETURNS char(4) AS BEGIN; DECLARE @char_return varchar(10) = '', @v_count int; WHILE @id > 0 SELECT @v_count = @id %...
2018-03-22 14:53:34
1365
转载 delphi MD5加密
uses IdHashMessageDigest,IdGlobal, IdHash; function StrToMD5(S: String): String; var Md5Encode: TIdHashMessageDigest5; begin Md5Encode:= TIdHashMessageDigest5.Create; try result:=
2018-02-06 16:09:12
3726
原创 delphi 下拉框控件中插入表数据
procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin adoquery1.Close; //表查询代码略 adoquery1.Open; adoquery1.First; for i:=1 to adoquery1.RecordCount do begin comb
2017-10-10 14:57:23
1646
原创 sql 周转换为日期自定义函数
SQL中，将周期转换为日期，取当周第一天的日期，格式：dbo.get_WeekToDate(Week,WeekFormat) CREATE Function [dbo].[get_WeekToDate](@week varchar(4),@wkformat varchar(4)) Returns date AS BEGIN declare @year varchar(
2017-09-21 15:13:33
3762
原创 SQL分组自增，再按组分列显示
语法：ROW_NUMBER() OVER(PARTITION BY COLUMN ORDER BY COLUMN) select row_number() over(partition by pdctno order by pdctno) as id2 ,* into #temp20 from engmail --where pdctno='02047829ga
2017-08-22 11:29:24
1596
原创 delphi 遍历EXCEL文档 ，查找指定区域的位置，并显示其值
遍历EXCEL文档 ，查找指定区域的位置，并显示其值procedure TForm1.Button2Click(Sender: TObject); var i:integer; begin EApp := CreateOleObject( 'Excel.Application' ); EApp.Workbooks.Open('d:\book4.xls'); for
2017-01-10 13:32:10
2524
原创 delphi 操作excel 复选框
delphi 操作excel 复选框 EApp.ActiveSheet.CheckBoxes(3).Value:=1; EApp.ActiveSheet.CheckBoxes(1).Value:=1;
2017-01-05 17:19:00
820
原创 delphi 往 excel 指定单元格中插入图片
delphi 操作excel 插入图片 EApp.ActiveSheet.Range['imagepath'].select; //--选定插入图片的单元格 EApp.ActiveSheet.Pictures.Insert('d:\test.jpg').Select;
2017-01-05 17:17:22
5397
原创 delphi控制excel ,在指定单元格后插入行
delphi控制excel ,查找指定单元格“test1”，在指定单元格后插入行unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComObj,excel2000, StdCtrls;type TForm1 = class
2017-01-04 11:37:43
1563
转载 用Delphi将数据导入到Excel并控制Excel(转载)
一、调用Excel的方法：一般情况下有两种方法调用Excel： 1、 直接使用Delphi自带的组件：在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。 2、动态创建Excel文件：首先创建 Excel 对象，使用ComObj,Excel2000: var ExcelApp: Variant; ExcelApp := Crea
2016-12-27 14:36:13
1730
原创 delphi AdvStringGrid 检索数据的行数
for i:=0 to 20 do begin if advstringgrid1.Cells[0,i] = '' then begin j:=i-1; break; en
2016-12-27 14:13:28
1408
原创 用 AdvStringGrid addbutton 中添加图片（BMP/JPG)
在AdvStringGrid 中插入 JPG、BMP格式图片 procedure TForm1.AdvStringGrid8ClickCell(Sender: TObject; ARow, ACol: Integer);
2016-12-22 09:18:22
1019
原创 在AdvStringGrid单元格中添加按钮及按钮事件
在AdvStringGrid单元格中添加按钮 AdvStringGrid8.AddButton(0,1,75,25,'导入图片', haCenter, vaCenter);给按钮添加事件：单击按钮在单元格中插入图片（实际上单击单元格中任意位置都可以）procedure TForm1.AdvStringGrid8ClickCell(Sender: TObject; ARow, ACol: Inte
2016-12-22 08:33:14
2459
转载 Delphi基本图像处理方法汇总
本文实例汇总了Delphi基本图像处理方法。分享给大家供大家参考。具体分析如下： ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
2016-12-21 13:39:40
4255
原创 AdvStringGrid 单元格动态添加图片
procedure TForm1.Button1Click(Sender: TObject); var Bmp: TBitmap; begin opendialog1.Execute; Bmp := TBitmap.Create; Bmp.LoadFromFile(opendialog1.Filename); advstringgrid5.AddBit
2016-12-21 10:51:39
1119
转载 OpenDialog/SaveDialog 中 Filter用法
Filter 属性 赋值为一字符串用于过滤文件类型; 字符串说明如下： ‘|’分割的两个，一个是注释，一个是真的Filter，显示出来的是那个注释。如果要一次显示多中类型的文件，用分号分开。 如： Open1.Filter="图片文件(*.jpg,*.gif,*.bmp)|*.jpg;*.gif;*.bmp"; 则过滤的文件类型为 “|”号 右边的 *.jpg;*.gif;*.b
2016-12-21 08:40:45
6427
转载 AdvStringGrid 使用技巧（2）（转载）
(1)如何设置表格固定的列数，如下图所示： 这里固定的列数为3列，通过设置下面属性来改变固定的列数： AdvStringGrid.FixedCols:=n;（n为要固定的列数值） (2)如何从AdvStringGrid中读取和向AdvStringGrid中导入值： AdvStringGrid.Cells[
2016-12-19 15:42:32
1988
转载 TAdvStringGrid 使用技巧(转载）
TAdvStringGrid是Delphi编程中常用的控件，经常用于统计数据和设计比较复杂的表格。控件功能很强大，但相应的使用也很复杂! 以下常用技巧，有一部分整理了，有一部分没有整理；有一部分测试了，有一部分没有经过测试。
2016-12-19 14:39:47
11765
1
SQL常用字符串函数
2016-12-16
SQL SERVER 获取年、季、月、周、日开始时间和结束时间
2022-08-03
Delphi XE7 破解包 （非update1)
2016-12-16
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人