martian6125 - 博客园

2009年8月10日

摘要：用友账套号修改及合并同账套多账套号多年度请仔细阅读代码后再小心使用主要适用于将同一账套，单由于建账时分别使用了多账套号例如：001-2005，002-2006，但确实是一个公司的帐，想合并成一个账套号，变成001账套种有2005-2006年度【code】--改账套号... 阅读全文

posted @ 2009-08-10 11:02 martian6125 阅读(359) 评论(0) 推荐(0) 编辑

2009年7月30日

摘要：第1回，我上车，除了坐车的1块钱什么都没带。从起点站坐到终点站，自我感觉一路平静。但是在终点站下车时，发现裤子里多了张纸条：“一个大人出门一个子都不带，丢不丢人啊。——小偷公司敬上”。第2回，我揣了个破钱包，里面装了1毛钱。到了终点站后，发现钱还在，钱包里被塞了张... 阅读全文

posted @ 2009-07-30 15:29 martian6125 阅读(118) 评论(0) 推荐(0) 编辑

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) 编辑