摘要： 程序在运行时用户需要对一些控件进行重新移动布局，下次进入界面时显示布局后的方法1：每移动控件时就把位置写入INI文件中只需在控件的OnMouseDown事件写如下代码：procedure TFMain.SpeedButton4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);const sc_move = $F011;var SysFile: TiniFile;begin releasecapture; TSpeedButton(sender).Perform(wm_sysco 阅读全文

摘要： 远行效果:实现代码：procedure TfrmMain.OpenForm(Caption,FormClassName:string);var i:integer; sheet:TUniTabSheet;begin for i := 0 to pgeMain.PageCount-1 do begin if pgeMain.Pages[i].Caption=Caption then begin pgeMain.ActivePageIndex:=i; exit; end; end; sheet:=TUniTabSheet.Create(Self); sheet.Cl... 阅读全文

摘要： 最近需要开发一个简单的WEB系统，用户数不多，数据量不大，且需要快速完成开发，于是我决定采用UniGUI（http://www.unigui.com/），uniGUI完全基于ExtJS，全面支持Ajax技术,开发最终结果还可以优点：比Intraweb强，开发方便(采用开发winForm的方式开发WEB) ，界面还可以，部署都很方便缺点：不开源，控件少，速度不怎样,如要应用到一定规模系统还需努力总的一句话，强，希望更强大的后续版本！ 阅读全文

摘要： 系统支持简体、繁体、英文三种语言，开发语言Delphitype //接口定义 ILanguageTrans = interface ['{EE1BAE27-2E88-4F76-8AF3-169B6C7BF7C1}'] procedure ReadForm; //把界面所有控件翻译 procedure WriteForm;//把界面所有控件写入 function GetText(Msg: string): string; function BIG5ToGB(Str: string): string; function GBToBIG5(Str: string): string; 阅读全文

摘要： use mastergo--2012的OFFSET分页方式select numberfrom spt_valueswhere type='p'order by number offset 10 rows fetch next 5 rows only;Go--2005的ROW_NUMBER分页方式select number from (select number,row_number() over(order by number) as num from spt_values where type='p') t where num between 11 and 1 阅读全文