当前位置:首页 » 软件开发
开发技术指南» 文章正文
    引言: unit testDBG; interface uses
 

 

 ·如何制作平面式列头的listview    »显示摘要«
    摘要: 如何制作平面式列头的listview 新建一应用程序,在窗体上放置一个listview控件和一个按钮控件,然后粘贴以下代码,代码中的有关api和常量参考windows单元,方法是按是ctrl键,然后单击鼠标左键 unit unit1; interface uses windows, messages, sysutils, variants, classes, ......
 ·delphi连接数据库浅谈    »显示摘要«
    摘要: 一个程序连接数据库中间就需要有一个数据库连接引擎 笔者在使用delphi的过程中,共使用过几种连接方式连接access,sqlserver,oracle,ibm udb,ibm as/400... 1.bde 这是使用delphi最多的一种方式,建立一个bde别名可以在控制面板中的bde administration中添加,不过我习惯在sql explorer中建立,因为建立之后直接可以执......


在TDBGrid控件中为作修改过的记录进行标识!

unit testdbg;

uses 【程序编程相关:多层数据库开发二:单层和两层的应用程序

interface 【推荐阅读:多层数据库开发六:什么是数据集

  windows, messages, sysutils, variants, classes, graphics, controls, forms, 【扩展信息:FAQ:如何从URL取得其在Intern

  dialogs, grids, dbgrids, db, adodb, stdctrls,types;

type

  tform1 = class(tform)

    dbg: tdbgrid;

    adoconnection1: tadoconnection;

    adotable1: tadotable;

    datasource1: tdatasource;

    procedure dbgdrawcolumncell(sender: tobject; const rect: trect;

      datacol: integer; column: tcolumn; state: tgriddrawstate);

    procedure dbgkeypress(sender: tobject; var key: char);

    procedure formcreate(sender: tobject);

  private

    { private declarations }

  public

    { public declarations }

  end;

var

  form1: tform1;

implementation

{$r *.dfm}

type


...   下一页
 ·纸牌控件的编写(下)    »显示摘要«
    摘要: constructor tzfplaycard.create(aowner: tcomponent); var x, y: integer; begin inherited create(aowner); fcardid := 1; cdtinit(x, y); setbounds(0, 0, x, y); controlstyle := [csclickevents......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE