- 博客(22)
- 资源 (6)
- 收藏
- 关注
转载 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 1211
转载 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 3504
原创 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 1507
原创 sql 周转换为日期自定义函数
SQL中,将周期转换为日期,取当周第一天的日期,格式:dbo.get_WeekToDate(Week,WeekFormat)CREATE Function [dbo].[get_WeekToDate](@week varchar(4),@wkformat varchar(4)) Returns dateAS BEGIN declare @year varchar(
2017-09-21 15:13:33 3463
原创 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 1480
原创 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 2319
原创 delphi 操作excel 复选框
delphi 操作excel 复选框 EApp.ActiveSheet.CheckBoxes(3).Value:=1; EApp.ActiveSheet.CheckBoxes(1).Value:=1;
2017-01-05 17:19:00 712
原创 delphi 往 excel 指定单元格中插入图片
delphi 操作excel 插入图片 EApp.ActiveSheet.Range['imagepath'].select; //--选定插入图片的单元格 EApp.ActiveSheet.Pictures.Insert('d:\test.jpg').Select;
2017-01-05 17:17:22 5075
原创 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 1401
转载 用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 1385
原创 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 1271
原创 用 AdvStringGrid addbutton 中添加图片(BMP/JPG)
在AdvStringGrid 中插入 JPG、BMP格式图片procedure TForm1.AdvStringGrid8ClickCell(Sender: TObject; ARow, ACol: Integer);
2016-12-22 09:18:22 910
原创 在AdvStringGrid单元格中添加按钮及按钮事件
在AdvStringGrid单元格中添加按钮 AdvStringGrid8.AddButton(0,1,75,25,'导入图片', haCenter, vaCenter);给按钮添加事件:单击按钮在单元格中插入图片(实际上单击单元格中任意位置都可以)procedure TForm1.AdvStringGrid8ClickCell(Sender: TObject; ARow, ACol: Inte
2016-12-22 08:33:14 2277
转载 Delphi基本图像处理方法汇总
本文实例汇总了Delphi基本图像处理方法。分享给大家供大家参考。具体分析如下:?1234567891011121314151617181920212223242526272829303132333435363738
2016-12-21 13:39:40 4059
原创 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 997
转载 OpenDialog/SaveDialog 中 Filter用法
Filter 属性 赋值为一字符串用于过滤文件类型;字符串说明如下:‘|’分割的两个,一个是注释,一个是真的Filter,显示出来的是那个注释。如果要一次显示多中类型的文件,用分号分开。如:Open1.Filter="图片文件(*.jpg,*.gif,*.bmp)|*.jpg;*.gif;*.bmp";则过滤的文件类型为 “|”号 右边的 *.jpg;*.gif;*.b
2016-12-21 08:40:45 5957
转载 AdvStringGrid 使用技巧(2)(转载)
(1)如何设置表格固定的列数,如下图所示: 这里固定的列数为3列,通过设置下面属性来改变固定的列数: AdvStringGrid.FixedCols:=n;(n为要固定的列数值) (2)如何从AdvStringGrid中读取和向AdvStringGrid中导入值: AdvStringGrid.Cells[
2016-12-19 15:42:32 1774
转载 TAdvStringGrid 使用技巧(转载)
TAdvStringGrid是Delphi编程中常用的控件,经常用于统计数据和设计比较复杂的表格。控件功能很强大,但相应的使用也很复杂! 以下常用技巧,有一部分整理了,有一部分没有整理;有一部分测试了,有一部分没有经过测试。
2016-12-19 14:39:47 11275 1
SQL SERVER 获取年、季、月、周、日开始时间和结束时间
2022-08-03
Delphi XE7 破解包 (非update1)
2016-12-16
SQL常用字符串函数
2016-12-16
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人