xiaomaoxia的专栏

FastReport 3.Xvar  PageLine: integer;       //在現在頁列印到第幾行  PageMaxRow: integer=15;  //設定每頁列數procedure MasterData1OnBeforePrint(Sender: TfrxComponent);begin  PageLine :=  mod PageMaxRow;  if (PageLine =

财务软件、进销存软件、ERP中会计凭证录入模块DIY全攻略(二) 一、需求分析  1、录入界面要求友好，直观便捷，提供多种录入途径并有容错设计；  2、凭证录入要符合现行会计制度的要求，制度规定的凭证要素要求用户完整录入，否则不能保存；  3、提供凭证分类功能、能自动生成凭证号；  4、提供新增、保存、修改、复原、查找凭证功能；  5、提供凭证浏览功能；  6、提供会计分录的复制、粘贴、删除功能；

Option   ExplicitConst   CompanyName   As   String   =   "一卡通系统"Private   Sub   CmdExit_Click()        Unload   MeEnd   SubPrivate   Sub   CmdOk_Click()        On   Error   GoTo   err        Dim   Dat

1、在单元中设置一个全局变量，用来保存输入法句柄：      HKLCurrent: HKL;  2、在一个控件失去焦点之前取得当前的输入法句柄：     hklCurrent := GetKeyboardLayOut(0);  3、在另一个控件获得焦点时重新激活相应的输入法：     activatekeyboardlayout(hklCurrent,KLF_ACTIVATE);//设置相应的输

{1、 MD5String、MD5File、MD5Print、MD5Match这四个函数是供调用的。其他是用来辅助这几个函数的子函数。2、MD5String为加密字符串。3、MD5File为加密这个文件。4、MD5Print是将加密后的密文转换成字符串。5、MD5Match是用来比较密文是否一致。加密字符串aaa             MD5String(aaa)将加密后的aaa显示出来  

Dbgrid使用技巧(下)- -                                       二、建立项目，实现功能 1．新建一项目，并为表单添加相关控件，各控件主要属性如下表： 2．建立各Click的事件代码 Button1(打开表)的Click事件代码如下： procedure TForm1.Button1Click(Sender: TObject); begin  

Dbgrid使用技巧（上）- -                                       在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色

改变行高：在OnGetCellParams事件里//改变高使适应字体高度，你可以改成你自己想要的高度if TStringgrid(dbgrid1).RowHeights[dbgrid1.DataSource.DataSet.RecNo]  TStringgrid(dbgrid1).RowHeights[dbgrid1.DataSource.DataSet.RecNo]:=ABS(afont.Hei

date1,date2:TDatetime;s1,s2:string;month,i1,i2:integer;datetostring(s1,yyyy-mm-dd,date1);datetostring(s2,yyyy-mm-dd,date2);i1:=12*strtoint(copy(s1,1,4))+strtoint(copy(s1,6,2));i2:=12*strtoint(copy

procedure TForm1.Button1Click(Sender: TObject);begin   postmessage(DateTimePicker1.handle,wm_keydown,VK_RIGHT,0);   datetimepicker1.SetFocus;end

一键式安装.Net FrameWork,MSDE,Web安装程序,Windows安装程序,还原数据库文件,注册表导入 何为"一键式安装"? 我的解释就是,运行安装程序的时候,把.Net FrameWork、Sql Server(MSDE)、Web应用程序、其它安装文件、注册表修改、数据库还原等操作一次安装完成,不需要客户做其它任何操作,而且安装过程中不用客户做任何操作,系统自动替代用户操作,比

异构数据库之间的导入导出示例 异构数据库之间的导入导出示例，abc为表,包含以下导入与导出MSSQL2EXCEL EXCEL2MSSQL  MSSQL2VFP VFP2MSSQLMSSQL2access access2MSSQL  excel2access access2excel实现部分procedure TForm1.btn_MSSQL2EXCELClick(Sender: TObject);

1.前一段去兰州出差了，所以有些问题没法及时回答，抱歉！2.明天去泰港澳游了，高兴，发一段代码上来供大家参考！3.以前测试过，大部分可以用，但也不敢担保一定可以正常运行，我现在也没有环境重新测试，只好你们自已试试了，有些参数自已要改的，我就不写了，有什么问题等半个月后我再来看看！[FRM]object Form1: TForm1  Left = 194  Top = 126  Width = 54

真的好好，昨天看到，今天就用上了：if adoUpload.Connected=true then adoUpload.Close;    adoUpload.Execute(insert INTO msg_test (msg_citycode,msg_contents) select msg_citycode,msg_contents FROM OPENDATASOURCE(SQLOLED

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin  if not (key in [0..9]) then key:=#0;end;

在onkeypress事件写如下代码：if key=#13 then   begin     keybd_event(vk_tab,0,0,0);     keybd_event(vk_tab,0,keyeventf_keyup,0);   end;

{功能描述：把DBGrid输出到Excel表格（支持多Sheet）调用格式：CopyDbDataToExcel([DBGrid1, DBGrid2]);}procedure CopyDbDataToExcel(Args: array of const);var  iCount, jCount: Integer;  XLApp: Variant;  Sheet: Variant;  I: Integ

Lets assume, you have a Blob Filed called "Report" and the table Name is "Reports":On the frxDesigner object, go to the Event "OnSaveReport" and put this code...function TForm1.frxDesigner1SaveReport

procedure TForm1.CopyNWriteRegestry;var Path:array [0..255] of char;    Hk:HKEY;    SysStr,CurStr:string;begin//以下是自我复制,首先判断该程序是否存在，再决定是否进行复制    GetSystemDirectory(Path,255);    SysStr:=StrPas(Path); 

type  TDBGridEx = class(TDBGrid)    function GetValue(row, col: integer):Variant;  end;function TDBGridEx.GetValue(row, col: integer): Variant;begin  // TDBGrid有行列索引，但它们是protected的  self.Row := row;  

  我在使用 Delphi3 进行数据库编程的时候，希望 DBGRID 构件在显示数据的时候能象FoxPro 的 BROWSE 命令一样，锁定左边指定的几列不进行滚动，请问应用什么方法来实现？    我们知道 Delphi 的 TStringGrid 有一个属性 FixedCols 来指定不滚动的列。虽然TDBGrid 不能直接使用这一属性，但通过强制类型转换也可以首先这一功能，因为这两个类都来自

在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。   以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示的表格就

Application.MessageBox 是 TApplication 的成员函数，宣告如下：function TApplication.MessageBox(const Text, Caption: PChar; Flags: Longint): Integer;引数： 1. Text：要显示的讯息 2. Caption：讯息视窗的标题列文字 3. Flags：讯息旗标    3.1. 可指

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);beginif not(key in [0..9,#8]) thenkey:=#0;end;*******************************************************另一種方法procedure TForm1.FormCreate

http://www.d208.com/mx.asp?id=184

作者:DengGuo通常在用fastreport作分組報表時,我們想到的是用groupheader+masterdata+groupfooter,但是在實現分組頁次時總是不能得到各分組頁次與總頁,類似-----------------------------------------------------------按公司名分組後,A公司

procedure TForm1.FormCreate(Sender: TObject);begin  AnimateWindow(Handle,500,AW_BLEND);{ 动画显示窗体^_^  AW_HOR_POSITIVE = $00000001;  AW_HOR_NEGATIVE = $00000002;  AW_VER_POSITIVE = $00000004;  AW_VER_NEG

1.隔行不同颜色显示with TDBGrid(Sender) dobeginif (gdSelected in State) or (gdFocused in State) thenCanvas.Brush.Color := clAquaelse if DataSource.DataSet.RecNo mod 2 = 0 thenCanvas.Brush.Color := $00F0F0F5els

看了以上这么多的技巧和方法，想必大家未免会有一种冲动吧－自己动手做一个DBGrid，下面就介绍一种自制DBGrid的方法啦。    Delphi中的TDBGrid是一个使用频率很高的VCL元件。TDBGrid有许多优良的特性，例如它是数据绑定的，能够定义功能强大的永久字段，事件丰富等，特别是使用非常简单。但是，与FoxPro、VB 、PB中的DBGrid相比就会发现，TDBGrid也有明显的缺陷：

欲实现点击DBGrid的Title对查询结果排序，想作一个通用程序，不是一事一议，例如不能在SQL语句中增加Order by ...，因为SQL可能原来已经包含Order by ...，而且点击另一个Title时又要另外排序，目的是想作到象资源管理器那样随心所欲。procedure TFHkdata.SortQuery(Column:TColumn);var  SqlStr,myFieldName

//*****************************//*       连接数据库//* INI参数变量说明//*   mcb_addr  :服务器地址//*   mcb_user  :数据库用户名;//*   mcb_pwd   :密码;//*   mcb_DBName:数据库名;Function ConnectDB:boolean;var  f:Tinifile;//INI文件  m