dmu.pas

这是一个用Delphi和access做的一个treeview控件的小练习 希望大家多指教

unit dmu;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    Table2: TADOTable;
    Table2kmlb: TStringField;
    Table2kmlbmc: TStringField;
    Table2xgsj: TDateTimeField;
    Table2yefx: TStringField;
    Table1: TADOTable;
    Table1kmbm: TStringField;
    Table1kmmc: TStringField;
    Table1kmpy: TStringField;
    Table1bmjb: TIntegerField;
    Table1sjbm: TStringField;
    Table1kmlb: TStringField;
    Table1yefx: TStringField;
    Table1yhzh: TStringField;
    Table1sjbz: TBooleanField;
    Table1tybz: TBooleanField;
    Table1xgsj: TDateTimeField;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.