Delphi
文章平均质量分 51
shenlanzz
无
展开
-
TreeView(产品分类)
procedure Te_cpzl_fm.AddClass(AId: integer;FatherNode:TTreeNode);var QryTmp:TADOQuery; myNode:TTreeNode; myLabel:TLabel; treeNode: TTreeNode;begin QryTmp:=TADOQuery.Create(self); Q原创 2008-05-12 00:49:00 · 470 阅读 · 0 评论 -
treeview(读取SQL表中某个字段)
varindex:integer;strfzyw:string;treeNode:TTreeNode;begin{-----------按业务员分}strfzyw:=main_fm.RzStatusPane2.Caption;if rzpagecontrol1.ActivePage=TabSheet2 thenbegin with dm_fm.Query_xl do begin Close;原创 2008-05-12 00:53:00 · 455 阅读 · 0 评论 -
combobox(下拉框外部数据)
with dbcomboboxeh3 do begin Items.clear; with dm_fm.Query_xl do begin close; sql.clear; sql.add(select * from cyzl_qyg); open; first; begin whi原创 2008-05-12 00:55:00 · 445 阅读 · 0 评论 -
DBGrid(下拉框外部数据)
procedure Tyw_bjgl_new_fm.DBGridEh1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var strcpbh:string; begin strcpbh:=dbgrideh1.Columns.Items[0].DisplayText;原创 2008-05-12 00:58:00 · 542 阅读 · 0 评论 -
ini文件操作
uses inifiles//////////////////////////写入 var filename: String; FileIni: TIniFile;begin Filename := ExtractFilePath(paramstr(0))+connect.Ini; FileIni := TIniFile.Create(Filename); FileIni.wri原创 2008-05-12 01:02:00 · 423 阅读 · 0 评论 -
WinAPI: ShellExecute - 打开外部程序或文件
ShellExecute( hWnd: HWND; {指定父窗口句柄} Operation: PChar; {指定动作, 譬如: open、print} FileName: PChar; {指定要打开的文件或程序} Parameters: PChar; {给要打开的程序指定参数; 如果打开的是文件这里应该是 nil} Directory: PChar; {缺省目录}原创 2008-05-12 17:20:00 · 949 阅读 · 0 评论 -
WinExec(打开外部文件)
WinExec(Calc,SW_RESTORE);//打开计算器或WinExec(Calc);---------------------------------------------------WinExec(NotePad,SW_RESTORE);//打开文本文档或WinExec(NotePad);原创 2008-05-12 17:24:00 · 1743 阅读 · 0 评论 -
数据指针
var i:integer; begin i:=Adoquery1.recno; //获取当前指针 end; Adoquery1.RecNo:=I;//指向原创 2008-06-14 10:38:00 · 381 阅读 · 0 评论