delphi中间件

摘要： 计算机的时——CPU时间计算机的空——内存为了节省CPU的处理时间，就必须用更多的内存；要想节省内存，就势必会使用更多的CPU处理时间。明此者，明数据结构与算法。架构--就是分而治之；算法--就是时空转换。 阅读全文

摘要： 将释放写在子窗体的FORMCLOSE()里面procedure TFormLogin.FormClose(Sender: TObject; var Action: TCloseAction);begin Action := caFree; FormLogin := nil;end;关闭TABSHEET的时候,遍历找到它里面的窗体,然后调用窗体的close()方法procedure TFormMain.CloseTabsheet;var i: Integer; begin if RzPageControl1.PageCount <= 0 then Exit; if RzPageContro 阅读全文

摘要： 使用递归方法遍历MAINMENU的所有菜单项procedure TFormMain.BLMenu; procedure GetItems(AItem:TMenuItem); var I:integer; begin AItem.OnClick := MenuTreeClick;//菜单项关联点击事件 for I:=0 to AItem.Count-1 do begin GEtItems(AItem.Items[I]); end; end;var I:integer;begin for I:=0 to MainMenu1.Items.Count-1 do begin GetIt... 阅读全文

摘要： 在工程文件里面增加Application.ShowMainForm := False;登录窗体.visible := true;成功登录以后再显示主窗体。 阅读全文

摘要： 1. 判断状态: if RzCheckTree1.Selected.StateIndex = 2 then //则为选中状态 else if RzCheckTree1.Selected.StateIndex = 1 then //则为未选中状态 else if RzCheckTree1.Selected.StateIndex = 3 then //则为未全选状态 或者 if RzCheckTree1.ItemState[I] = csUnchecked then //为未选中状态 if RzCheckTree1.ItemState[I] = cschecked then... 阅读全文

摘要： // Author: CXG 2010-08-07 08:22:30unit uMain;{.$HINTS OFF}interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, RzTabs, RzSplit, RzPanel, ExtCtrls, ComCtrls, RzButton ,ADODB, DB, ImgList, StdCtrls, RzStatus ;type TFormMain = class(TForm) MainMenu1: 阅读全文

摘要： 字典数据表设计，table字段设置排序 读取字典元数据方法procedure SetDataSet(dataset: TDataSet; const table: string);var d: TADOQuery; i: Integer;begin if dataset = nil then Exit; if not dataset.Active then Exit; if table = '' then Exit; d := TADOQuery.Create(nil); try with d do begin Connection := uFunction.GetConnec 阅读全文

摘要： 此法可用于设计功能模块树，用户权限树，类别树以及一切需要TREE来表示之层级关系的。。。此法只需要遍历一次数据集即生成了整棵树。读取数据生成树的算法：procedure CreateTree(DataSet: TADOQuery; Tree: TTreeView; const table, aid, aname: string; idname: Boolean);const ID_DEPT = 2;var nLevel: Integer; pNodes: array[0..1023] of TTreeNode; lpID, lpName, s: string;begin if DataSet 阅读全文

摘要： econtrol form designer添加三方控件支持 修改StdRegComps.pas单元 1.添加引用单元进来 uses {$IFDEF EHLIB} DBGridEh, PrnDbgeh, GridsEh, DBCtrlsEh, {$ENDIF} {$IFDEF DBANYWHERE} 阅读全文

摘要： FASTSCRIPT脚本实现多国语言 阅读全文