2017年3月12日
delphi 播放mp3
摘要： mp1: TMediaPlayer; mp1.FileName := ExtractFilePath(Application.Exename)+'凉凉.mp3'; mp1.Open; mp1.Play; 可参考 http://www.cnblogs.com/pchmonster/archive/20 阅读全文
posted @ 2017-03-12 21:23 夏天的西瓜君 阅读(1033) 评论(0) 推荐(0) 编辑
delphi 获取文件路径函数
摘要： ExpandFileName() 返回文件的全路径(含驱动器、路径) ExtractFileExt() 从文件名中抽取扩展名 ExtractFileName() 从文件名中抽取不含路径的文件名 ExtractFilePath() 从文件名中抽取路径名 ExtractFileDir() 从文件名中抽取 阅读全文
posted @ 2017-03-12 21:12 夏天的西瓜君 阅读(2359) 评论(0) 推荐(0) 编辑
Delphi XE2 使用dbExpress连接MySQL数据库
摘要： MySQL安装目录下lib子目录中的libmysql.dll文件拷贝至c:/windows/system32（系统不在c盘的请转至对应目录），重新启动Delphi XE，按照上面的步骤测试连接，你会发现还是出现无法正确初始化数据库驱动的问题。最大的弯路就是使用的是安装版的MySQL。你只要使用解压版 阅读全文
posted @ 2017-03-12 11:24 夏天的西瓜君 阅读(1201) 评论(0) 推荐(0) 编辑
kbmmemsql 查询
摘要： procedure TForm6.btn8Click(Sender: TObject);begin //通过kbmmemsql查询 ds1.DataSet := kbmsql1; cxGrid1DBTableView1.DataController.DataSource := ds1; try kb 阅读全文
posted @ 2017-03-12 10:30 夏天的西瓜君 阅读(655) 评论(0) 推荐(0) 编辑
kbmmemtable 更新表
摘要： procedure TForm6.btn3Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField;begin //更新 cxGrid1DBTableView1.D 阅读全文
posted @ 2017-03-12 10:28 夏天的西瓜君 阅读(210) 评论(0) 推荐(0) 编辑
kbmmemtable 删除数据
摘要： procedure TForm6.btn5Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField;begin //删除 cxGrid1DBTableView1.D 阅读全文
posted @ 2017-03-12 10:27 夏天的西瓜君 阅读(295) 评论(0) 推荐(0) 编辑
kbmmemtable 查询
摘要： procedure TForm6.btn4Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField;begin //查询 cxGrid1DBTableView1.D 阅读全文
posted @ 2017-03-12 10:27 夏天的西瓜君 阅读(328) 评论(0) 推荐(0) 编辑
kbmmemtable 遍历
摘要： procedure TForm6.btn6Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField; id:Integer;begin //循环比较最小值 cxGr 阅读全文
posted @ 2017-03-12 10:26 夏天的西瓜君 阅读(318) 评论(0) 推荐(0) 编辑
kbmmemtable 清空表数据
摘要： kbmtbl1.EmptyTable; 阅读全文
posted @ 2017-03-12 10:25 夏天的西瓜君 阅读(255) 评论(0) 推荐(0) 编辑
kbmmemtable 创建表
摘要： //建表 kbmtbl1 := TkbmMemTable.Create(Self); ds1.DataSet := kbmtbl1; kbmtbl1.FieldDefs.Clear; kbmtbl1.FieldDefs.Add('Id', ftInteger, 0, False); kbmtbl1. 阅读全文
posted @ 2017-03-12 10:24 夏天的西瓜君 阅读(203) 评论(0) 推荐(0) 编辑
kbmmemtable 插入数据
摘要： procedure TForm6.btn2Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField; i,Id:Integer;begin //插入 cxGrid1 阅读全文
posted @ 2017-03-12 10:22 夏天的西瓜君 阅读(251) 评论(0) 推荐(0) 编辑