Delphi工作代码
文章平均质量分 53
jia7007
这个作者很懒,什么都没留下…
展开
-
fastreport打印代码及SQL合并字段的语句
procedure Tform1.Button5Click(Sender: TObject);var p:pointer; FrfStr:string;begin inherited; Screen.Cursor:=MYCURSORWAITHAND; with cdsPrint do begin Active:=false; //这个SQL用于将remark中的记录合并到原创 2009-11-17 10:39:00 · 1016 阅读 · 0 评论 -
删除ITEMS中的一个元素的代码
j:=-1; for i:=0 to DBComboBoxEh1.Items.Count-1 do begin if DBComboBoxEh1.Items[i]=strTemp then begin j:=i; break; end;原创 2009-11-17 09:46:00 · 423 阅读 · 0 评论 -
CDS本地过滤及字符串函数getFmtString
DBComboBoxEh1.Items.Text:=getFmtString(cds_BillOut,STOWAGE_ID,#13); DBComboBoxEh1.KeyItems.Text:=DBComboBoxEh1.Items.Text; DBComboBoxEh1.ItemIndex:=0; DBComboBoxEh1.Enabled:=true; if原创 2009-11-17 09:52:00 · 769 阅读 · 0 评论 -
UpdateRecord和MergeChangeLog
procedure TForm1.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin inherited; with cds do if Active and(State in [dsEdit]) then begin UpdateRecord; Post; end;en原创 2009-11-17 10:42:00 · 1252 阅读 · 0 评论 -
月份处理及SQL时间条件instr函数
YearCode:=yearof(Date); MonthCode:=monthof(Date); if MonthCode>9 then FTime1:=inttostr(YearCode)+inttostr(MonthCode) else FTime1:=inttostr(YearCode)+0+inttostr(Mont原创 2009-11-17 10:52:00 · 740 阅读 · 0 评论 -
取消与设置CDS本地排序
取消CDS本地排序.cds.IndexDefs.Update; if cds.IndexName begin if cds.IndexDefs.IndexOf(index1)>=0 then cds.DeleteIndex(index1); cds.IndexDefs.Clear; cds.IndexName:=; end;设置CD原创 2009-11-17 10:58:00 · 591 阅读 · 0 评论