unitdm.pas

一个音像租赁店铺的管理软件,可以维护影片库信息和会员信息,及日常业务的实现(出租/归还).这是我学delphi整一个月的纪念品,有些简单,不过我还是希望和大家分享一下我的成长历程.

unit UnitDM;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    Con: TADOConnection;
    AllFilmDS: TADODataSet;
    AllFilmDSrc: TDataSource;
    AllFilmDSDSDesigner: TWideStringField;
    AllFilmDSDSDesigner2: TWideStringField;
    AllFilmDSDSDesigner3: TWideStringField;
    AllFilmDSDSDesigner4: TWideStringField;
    AllFilmDSDSDesigner5: TBCDField;
    AllFilmDSDSDesigner6: TBCDField;
    AllFilmDSDSDesigner7: TWordField;
    AllFilmDSDSDesigner8: TDateTimeField;
    AllFilmDSDSDesigner9: TWideStringField;
    AllFilmDSDSDesigner10: TWideStringField;
    TypeDS: TADODataSet;
    TypeDSrc: TDataSource;
    MenberDS: TADODataSet;
    MenberDSrc: TDataSource;
    TypeDSDSDesigner: TWideStringField;
    TypeDSDSDesigner2: TBCDField;
    TypeDSDSDesigner3: TSmallintField;
    TypeDSDSDesigner4: TWideStringField;
    MenberDSDSDesigner: TWideStringField;
    MenberDSDSDesigner2: TWideStringField;
    MenberDSDSDesigner3: TWideStringField;
    MenberDSDSDesigner4: TWideStringField;
    MenberDSDSDesigner5: TDateTimeField;
    MenberDSDSDesigner6: TSmallintField;
    MenberDSDSDesigner7: TWideStringField;
    ComCZDS: TADODataSet;
    ComCZDSrc: TDataSource;
    MenCZDS: TADODataSet;
    MenCZDSrc: TDataSource;
    ComCZDSDSDesigner: TAutoIncField;
    ComCZDSDSDesigner2: TWideStringField;
    ComCZDSDSDesigner3: TBCDField;
    ComCZDSDSDesigner4: TDateTimeField;
    ComCZDSDSDesigner5: TDateTimeField;
    ComCZDSDSDesigner6: TBCDField;
    ComCZDSDSDesigner7: TWideStringField;
    ComCZDSDSDesigner8: TBooleanField;
    MenCZDSDSDesigner: TAutoIncField;
    MenCZDSDSDesigner2: TWideStringField;
    MenCZDSDSDesigner3: TDateTimeField;
    MenCZDSDSDesigner4: TDateTimeField;
    MenCZDSDSDesigner5: TWideStringField;
    MenCZDSDSDesigner6: TBCDField;
    MenCZDSDSDesigner7: TWordField;
    MenCZDSDSDesigner8: TWideStringField;
    MenCZDSDSDesigner9: TBooleanField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.