• 博客园logo
  • 会员
  • 周边
  • 新闻
  • 博问
  • 闪存
  • 众包
  • 赞助商
  • Chat2DB
    • 搜索
      所有博客
    • 搜索
      当前博客
  • 写随笔 我的博客 短消息 简洁模式
    用户头像
    我的博客 我的园子 账号设置 会员中心 简洁模式 ... 退出登录
    注册 登录
 






zyb2016

 
 

Powered by 博客园
博客园 | 首页 | 新随笔 | 联系 | 订阅 订阅 | 管理

11 2016 档案

 
获取选中行中的数据提取并且保存到txt
摘要：function getchcount(query: TADOQuery): Integer;var i:integer;begin i:=0; with Query do begin Query.First; while not Eof do begin if Query.FieldByName( 阅读全文
posted @ 2016-11-23 10:19 zyb2016 阅读(170) 评论(0) 推荐(0)
传入sql语句，执行完提取内容赋值到控件上
摘要：class procedure DBTools.FillStrings(ComboBoxEh: TDBComboBoxEh; sql: string; Default: Boolean = False);var Q2: TADOQuery;begin ComboBoxEh.KeyItems.Clea 阅读全文
posted @ 2016-11-18 13:58 zyb2016 阅读(177) 评论(0) 推荐(0)
delphi保存和提取ini文件信息
摘要：procedure TLoginForm.FormShow(Sender: TObject);var ini:TIniFile; name:string;begin //实现动态提取数据库的登录用户名 edt1.Text:=''; qry1.SQL.Text:=''; qry1.SQL.Text:= 阅读全文
posted @ 2016-11-18 13:55 zyb2016 阅读(205) 评论(0) 推荐(0)
delphi的dbgrid控件点击title排序
摘要：procedure TfrmMain.DBGridEhTitleClick(Column: TColumnEh);var i : integer;begin for i:= 1 to DBGridEh.Columns.Count do begin//恢复所有标题字体为默认 DBGridEh.Colu 阅读全文
posted @ 2016-11-18 13:54 zyb2016 阅读(460) 评论(0) 推荐(0)