varick_zhong-CSDN博客

转载 delphi frame 重载onshow

type Tframe1 = class(TFrame) ... private { Private declarations } procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED; ...procedure Tframe1.CMSh

2015-11-08 20:00:12 777

原创 CDS模糊过滤

with ClientDataSet1 do //edit1.text begin Filtered := false; Filter := 'orderno like ''%'+edit1.text + '%''' ; Filtered := true; end;

2015-11-05 23:00:48 462

原创 SQL生成按月的自动编号

CREATE PROCEDURE [dbo].[Select_NO]( @UserId char(12) )ASSET NOCOUNT ONdeclare @maxNOchar(6),@newNo int,@yearMonth char(6),@resultNo char(12)--取当前年月YYYYMM select @year

2015-07-09 16:44:49 1483

转载 cxgrid全选

procedure TWebOrder.SelectAll;var iSelected: Integer;begin iSelected := 0; if DataSet.RecordCount = 0 then Exit; try DataSet.DisableControls; DataSet.First; case Da

2015-06-12 12:57:32 846

转载 delphi身份证验证

uses DateUtils;const IntMultiplication: Array[1..17] Of Integer=(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2);//函数名：IsRightID//参数：sID，身份证号码（输入）//返回值：sID是标准身份证号，返回OK，否则返回相应信息function IsRi

2015-06-04 13:44:31 697

转载 excel导入导出操作comobj;

procedure TForm1.N1Click(Sender: TObject);var ExcelApp:Variant; expath,str:String; ExCountRow,ExCountCol,i,j:integer;begin if dlgOpen1.Execute then begin expath:=dlgOpen1.FileN

2014-10-08 16:26:28 697

转载复制表A到表B

select * into jhdnr from JsInfo.dbo.jhdnr

2014-07-26 08:59:34 460

翻译 SQL A表数据更新到B表

update A set A.orgid=B.organization from SH_STOCK_product_out_stock A, JsInfo.dbo.shsp_out_stock B where A.autonum=B.autonumupdate A set A.orgname= B.name from SH_STOCK_product_in_stoc

2014-07-24 16:47:17 1839

转载 Delphi ListView基本用法大全

Delphi ListView基本用法大全//增加项或列(字段)ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Items[0].Caption:='id';

2014-06-26 16:58:18 578

转载 Cxgrid根据列条件改变行颜色

procedure TFrm_ListBaseForm4InStock.cxGridListCustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);var i : Intege

2014-06-05 11:10:53 1298

原创 SQL 本地数据库数据插入到服务器数据库

insert into opendatasource('sqloledb','server=192.168.168.168;uid=xz;pwd=xz;database=erp').erp.dbo.autoface_second ( autonum,symbol,employee_id,last_employee_id,version,state, checked,start_da

2014-05-13 14:54:37 564

原创 TCXDBImage属性设置

DataBindingproperties->graphicClass->JPG

2014-04-30 09:21:25 534

原创遍历窗体中的组件checkbox

var i: Integer;begin for i := 0 to Self.ComponentCount - 1 do begin if Self.Components[i] is TCheckBox then begin TCheckBox(Self.Components[i]).Checked := False; end;

2014-04-22 11:39:24 1134

转载 delphi身份证验证

function ValidatePID(const APID: string): string; {内部函数,取身份证号校验位,最后一位,对18位有效} function GetVerifyBit(sIdentityNum: string): Char; var nNum: Integer; begin Result := #0; nNum

2014-04-15 10:57:19 1970

原创 advstringgrid排序

advsg.SortSettings.Column := 1;//可在属性中设置 advsg.SortSettings.Show := True;//可在属性中设置 advsg.SortSettings.Direction := sdDescending; //sdAscending advsg.QSort;

2014-03-29 10:03:41 1279

原创格式化成财务类型数字

Format('%12.2n',[1234563327.226]) = 1,234,563,327.23

2014-03-10 11:45:51 914

转载 delphi添加{$R WindowsXP}，控件具有系统主题风格

delphi添加{$R WindowsXP}，控件具有系统主题风格

2014-02-08 16:10:45 820

原创 delphi随机数生成

Randomize; ShowMessage(IntToStr(Random(100)));

2013-12-28 10:43:24 1494

原创 delphi中sql语句like

'select ''全部'' as 所属公司, ''111'' as 机构号 union all select organization_name as 所属公司, symbol as 机构号 from organization where '''+userinfo.PersonOrgGroup+''' like ''%'' +symbol+ ''%'' '

2013-12-06 10:49:06 754

转载发布delphi程序（build with runtime package）要带哪些文件？

使用包，你可以使用如下方法设置：项目选项（菜单project-options-Packages页），在Runtimes packages中勾选Build with runtime packages。这样你就能够使用包来编译了。但不是这里所有的包都是你需要，这里包含了Delphi中安装的所有的包。如果环境改变了，可能你的程序就执行不了，那么你可以在这里调整你所包含的包。在IDE中运行程序，打

2013-11-07 16:08:06 522

转载 delphi程序全局快捷键

private { Private declarations } HotKeyId1: Integer; procedure HotKeyDown(var Msg: Tmessage); message WM_HOTKEY;procedure TForm1.FormCreate(Sender: TObject);begin HotKeyId1

2013-10-29 16:24:45 1090

原创 js设置<select>中的默认值

var sel=document.getElementById("symbol");for(var i=0;iif(sel.options[i].value==) { sel.selectedIndex=i; break; }}

2013-10-24 10:36:06 2606

原创 JAVA判断session是否连接

String pid = "";try{ if(request.getSession(false)==null){ response.sendRedirect("./../error_session.jsp"); } pid = (String)session.getAttribute("personid"); if(pid == null){

2013-10-23 11:55:43 1454

原创 dxBarManager中添加edit、combobox、lookupcombobox的设置

TcxComboBoxProperties(cxbrdtm1.Properties).Items.Add('ddddd');设置dxBarManager属性alwaysSaveText为ture，可解决每次输入edit推动焦点时自动为空的问题

2013-10-16 15:14:38 1612

转载 MMC不能打开文件SQL Server企业管理器问题解决方法

平时使用正常的SQL Server企业管理器今天早上突然出现问题，错误如下:"MMC不能打开文件C:/Program Files/Microsoft SQL Server/80/Tools/Binn/SQL Server Enterprise Manager.MSC这可能是由于文件不存在，不是一个MMC 控制台，或者用后来版本的MMC 创建。也可能是由于您没有访问此文件的足够权限。

2013-10-10 09:09:01 592

<br />1.你先放一个cxGrid，设置好View，设置View.DataController连接的DataSource <br />2.激活DataSource连接的DataSet，双击cxGrid，点击Retrieve Fields，取得所有的Column <br />3.设置View的OptionsView.Footer=True，OptionsView.GroupFooters=gfVisibleWhenExpanded，这是为了把分组小计和总计面板显示出来 <br />4.将“订单号”字段

2010-12-23 15:56:00 3110

delphi实现两个listview之间的item拖拽

空空如也