| | | |

2016年11月18日

摘要： 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 阅读(176) 评论(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 阅读(202) 评论(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 阅读(451) 评论(0) 推荐(0)