datamoban.pas

DELPHI语言制作的音象管理系统 很经典的例子噢 欢迎下载参考

unit datamoban;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModule1 = class(TDataModule)
    ADOQuery2: TADOQuery;
    ADOQuery2DSDesigner: TWideStringField;
    ADOQuery2DSDesigner2: TWideStringField;
    ADOQuery2DSDesigner3: TWideStringField;
    ADOQuery2DSDesigner4: TWideStringField;
    ADOQuery2DSDesigner5: TWideStringField;
    ADOQuery2DSDesigner6: TWideStringField;
    ADOQuery2DSDesigner7: TBCDField;
    ADOQuery2DSDesigner8: TDateTimeField;
    ADOQuery2DSDesigner9: TWideStringField;
    ADOQuery2DSDesigner10: TWideStringField;
    ADOQuery2DSDesigner11: TBlobField;
    ADOQuery2DSDesigner12: TWideStringField;
    ADOConnection3: TADOConnection;
    ADOTable3: TADOTable;
    ADOConnection2: TADOConnection;
    ADOTable2: TADOTable;
    ADOTable2DSDesigner: TWideStringField;
    ADOTable2DSDesigner2: TWideStringField;
    ADOTable2DSDesigner3: TWideStringField;
    ADOTable2DSDesigner4: TWideStringField;
    ADOTable2DSDesigner5: TWideStringField;
    ADOTable2DSDesigner6: TWideStringField;
    ADOTable2DSDesigner7: TBCDField;
    ADOTable2DSDesigner8: TDateTimeField;
    ADOTable2DSDesigner9: TWideStringField;
    ADOTable2DSDesigner10: TWideStringField;
    ADOTable2DSDesigner11: TBlobField;
    ADOTable2DSDesigner12: TWideStringField;
    ADOTable2DSDesigner13: TIntegerField;
    ADOQuery3: TADOQuery;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    ADOTable3a: TADOTable;
    ADOQuery3a: TADOQuery;
    ADOQuery12: TADOQuery;
    ADOConnection4: TADOConnection;
    ADOQuery4: TADOQuery;
    ADOQuery41: TADOQuery;
    ADOTable4: TADOTable;
    ADOTable5: TADOTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

uses kucunzonglan, tianjiahuiyuan, denglu, diepianchuzu, diepianguihuan,
  zuhuantongji;

{$R *.dfm}

end.