2009年7月23日
摘要: var i : Integer; cl : TcxGridDBColumn;begin Screen.Cursor := crHourGlass; cxtvMaster.BeginUpdate; try cxtvMaster.ClearItems; c... 阅读全文
posted @ 2009-07-23 18:10 martian6125 阅读(188) 评论(0) 推荐(0) 编辑
摘要: for(int i=0; iFields->Count; i++){ cxGrid1DBTableView1->CreateColumn(); cxGrid1DBTableView1->Columns[i]->DataBinding->FieldName=... 阅读全文
posted @ 2009-07-23 18:10 martian6125 阅读(84) 评论(0) 推荐(0) 编辑
摘要: 设为:footerkind:=sknone;procedure TFrmPOOrder.myviewTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems4GetText( Sender: TcxDataSum... 阅读全文
posted @ 2009-07-23 18:10 martian6125 阅读(131) 评论(0) 推荐(0) 编辑
摘要: varnode: TTreeNode;label ok;begin node := TreeView1.TopItem; while True do begin if node.HasChildren then node := node.GetF... 阅读全文
posted @ 2009-07-23 18:09 martian6125 阅读(121) 评论(0) 推荐(0) 编辑
摘要: Delphi中大家在使用 ListView和TreeView时,一般都会使用到Item的Data属性来保存大家自己的内部数据,这个Data的声明如下:property Data: Pointer;大家可以看到它就是一个指针,使用上一般类似如下代码(以ListView为... 阅读全文
posted @ 2009-07-23 18:07 martian6125 阅读(154) 评论(0) 推荐(0) 编辑
摘要: myProperties1 := tcxcomboboxproperties.Create(nil); myProperties1.DropDownListStyle := lsEditFixedList; myProperties1.Items.Add(''并... 阅读全文
posted @ 2009-07-23 18:06 martian6125 阅读(242) 评论(0) 推荐(0) 编辑
摘要: TcxPopupEditPopupWindow(GetParentForm(PanelGoods)).ClosePopup;PanelGoods为面板控件 panel 阅读全文
posted @ 2009-07-23 18:06 martian6125 阅读(292) 评论(0) 推荐(0) 编辑
摘要: 将列的Properties设置为cxCurrencyEdit就可以计算了 阅读全文
posted @ 2009-07-23 18:05 martian6125 阅读(138) 评论(0) 推荐(0) 编辑
摘要: 设置:cxGrid1DBTableView1Column.PropertiesClass = TcxTextEditProperties; cxGrid1DBTableView1Column.PropertiesClass = TcxDateEd... 阅读全文
posted @ 2009-07-23 18:05 martian6125 阅读(101) 评论(0) 推荐(0) 编辑
摘要: uses cxexportgrid4link;var SaveDialog: TSaveDialog;begin SaveDialog:=TSaveDialog.Create(nil); with SaveDialog do begin Filter :... 阅读全文
posted @ 2009-07-23 18:05 martian6125 阅读(76) 评论(0) 推荐(0) 编辑
摘要: procedure TFrmgoodsedit.cxGrid1DBTableView1Column1PropertiesButtonClick( Sender: TObject; AButtonIndex: Integer);begin cdssub.edit... 阅读全文
posted @ 2009-07-23 18:04 martian6125 阅读(536) 评论(0) 推荐(0) 编辑
摘要: procedure.Enter(Sender: TObject);varView: TcxGridDBTableView;beginView := TcxGridDBTableView((Sender as TcxGrid).FocusedView);if View.... 阅读全文
posted @ 2009-07-23 18:03 martian6125 阅读(105) 评论(0) 推荐(0) 编辑
摘要: 1、uses clipbrd;2、复制procedure TForm1.cxButton1Click(Sender: TObject);varp1,p2:integer;p3:string;beginp1:=cxGrid5DBTableView1.Controller... 阅读全文
posted @ 2009-07-23 18:02 martian6125 阅读(340) 评论(0) 推荐(0) 编辑
摘要: View_Client.DataController.Summary.FooterSummaryValues[0],//得到值 View_Client.DataController.Summary.FooterSummaryTexts //得到显示文... 阅读全文
posted @ 2009-07-23 18:01 martian6125 阅读(101) 评论(0) 推荐(0) 编辑
摘要: select 表名=object_name(parent_obj),触发器名=name,状态=case status & power(2,11) when power(2,11) then '禁用' else '启用' endfrom sysobjectswhere ... 阅读全文
posted @ 2009-07-23 17:59 martian6125 阅读(97) 评论(0) 推荐(0) 编辑
摘要: alter table 你的表名 disable trigger all-- 禁用再执行删除你的语句之前先执行这句,这样就禁用 触发器了alter table 你的表名 enable trigger all-- 企用 阅读全文
posted @ 2009-07-23 17:59 martian6125 阅读(169) 评论(0) 推荐(0) 编辑
摘要: create trigger tr_process on 表after insert,updateasselect namefrom syscolumnswhere id=object_id('表')and (substring(columns_updated(),(... 阅读全文
posted @ 2009-07-23 17:58 martian6125 阅读(194) 评论(0) 推荐(0) 编辑
摘要: if exists (select 1 from inserted) and not exists (select 1 from deleted) --insertif exists (select 1 from inserted) and exists (se... 阅读全文
posted @ 2009-07-23 17:58 martian6125 阅读(333) 评论(0) 推荐(0) 编辑
摘要: --转贴:MSSQL(查找死锁):use mastergodeclare @spid int,@bl intDECLARE s_cur CURSOR FOR select 0 ,blockedfrom (select * from sysprocesses wher... 阅读全文
posted @ 2009-07-23 17:57 martian6125 阅读(139) 评论(0) 推荐(0) 编辑
摘要: 更改Table中字段refinv里的内容,有重复的内容在后面加数字,后面的数字是有序的。原表:id refinv price date----------- ---------------... 阅读全文
posted @ 2009-07-23 17:57 martian6125 阅读(183) 评论(0) 推荐(0) 编辑