byronming

摘要： //增加i:=ListView1.Items.Count;withListView1dobeginListItem:=Items.Add;ListItem.Caption:=IntToStr(i);ListItem.SubItems.Add('第'+IntToStr(i)+'行');ListItem.SubItems.Add('第三列内容');end;//按标题删除fori:=ListView1.Items.Count-1downto0DoifListView1.Items[i].Caption=Edit1.TextthenbeginListVi 阅读全文

摘要： interfaceTHackDBGridEH = class(TCustomdbgrideh)end;procedure OptimizeGrid(AGrid: TCustomDbGridEh);implementationprocedure OptimizeGrid(AGrid: TCustomDbGridEh);vari: integer;begin// 優化GRID的寬度for i := 0 to TDBGridEh(AGrid).Columns.count - 1 doTHackDBGridEH(AGrid).OptimizeSelectedColsWidth(TDBGridEh(AG 阅读全文

摘要： 文本文件 内容如下：000000123407:552009052901000000123407:552009053001000000123407:552009053101说明，0000001234 为卡号，07:55为时间，20090530为日期，01为机号怎么倒入SQL表？SQL表如下卡号 时间 日期 机号请帮忙写出详细代码，感谢其他回答 共1条2009-5-29 17:34 yych1987 | 二级procedure TForm1.PostData(aValue: string);var KaH,ShiJ,RiQ,JiH: string; Temp: integer;begin Temp 阅读全文

摘要： 关于TListView中的Data属性赋值：type PAllHidenDate = ^AllHidenDate; AllHidenDate = record PriceID: Integer; OrderNumber: string; State: Integer; PriceData: WideString; end;var HidenData: PAllHidenDate;beginwith lvDataViewAll.Items.Add dobeginHidenData := New(PAllHidenDate);HidenData.PriceID := StrToIntDef(Nod 阅读全文

摘要： procedure TForm1.FormCreate(Sender: TObject);var　i:Integer;　TempColumn:TListColumn;　TempItem:TListItem;begin　ListView1.ViewStyle:=vsReport;　for i:=0 to Query1.FieldCount-1 do　begin TempColumn:=self.ListView1.Columns.Add; TempColumn.Caption:=Query1.Fields[i].FieldName;　end;　Query1.First;　while not .. 阅读全文

摘要： //从数据库表里读取数据写入ListviewvarTitem:Tlistitem; //此处一定要预定义临时记录存储变量.beginListView1.Items.Clear;with adoquery1 dobeginclose;sql.Clear;sql.Add('select spmc,jg,sl from kcxs');Open;ListView1.Items.Clear;while not eof dobeginTitem:=ListView1.Items.add;Titem.Caption:=FieldByName('spmc').Value;Tit 阅读全文

摘要： Delphi获取与设置系统时间格式(长日期与短日期)(2011-08-06 11:40:13)转载▼标签：delphi长日期短日期格式it分类： DelphiDelphi获得与设置系统时间格式在Delphi中，特别是在写管理系统软件时，经常要用到 FormatDateTime 以将 TDateTime 格式的日期时间转换成字符串形式的值显示或保存起来，或者用 StrToDateTime将字符串形式的日期时间转换成 TDateTime 然后再做其他操作。在进行时间或日期的转换时，会使用系统当前设定的时间日期格式。而如果时间日期格式与字符串中的表示方式不相符，会使转换过程失败。例如当前短日期格式设 阅读全文

摘要： Delphi里有现成的函数可以实现日期加减，是在DateUtils单元里的。function IncYear(const AValue: TDateTime;const ANumberOfYears: Integer = 1): TDateTime;// function IncMonth is in SysUtilsfunction IncWeek(const AValue: TDateTime;const ANumberOfWeeks: Integer = 1): TDateTime;function IncDay(const AValue: TDateTime;const ANumber 阅读全文

摘要： 地址http://www.cometgroup.com.cn/it在下载中心找找 如果你要自己开发考勤系统，参考下：http://blog.sina.com.cn/u/1625457061SQL Server创建和使用临时表（转)创建临时表 方法一： create table #临时表名(字段1 约束条件,字段2 约束条件,.....)create table ##临时表名(字段1 约束条件,字段2 约束条件,.....)方法二： select * into #临时表名 from 你的表; select * into ##临时表名 from 你的表;注：以上的#代表局部临时表，##代表全局临时 阅读全文

摘要： treeview1.Selected := treeview1.Items.Add(nil, '新节点 ');select substring(convert(varchar(50),convert(datetime,'9:12:45'),126),12,8)SELECT datename(WEEKDAY, GETDATE()) as t1 ------------得到星期五select datepart(WEEKDAY,getdate()-1)------------------显示当月第一天和最后一天----------------------------- 阅读全文