unitdm.dfm

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

object DM: TDM
  OldCreateOrder = False
  Left = 206
  Top = 109
  Height = 154
  Width = 529
  object Con: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='#38899#20687#31199#36161#25968 +
      #25454'.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:Syst' +
      'em database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Pas' +
      'sword="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode' +
      '=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Tra' +
      'nsactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create ' +
      'System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB' +
      ':Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact Without Re' +
      'plica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 16
  end
  object AllFilmDS: TADODataSet
    Active = True
    Connection = Con
    CursorType = ctStatic
    CommandText = 'select * from '#24433#29255#24211
    Parameters = <>
    Left = 88
    Top = 16
    object AllFilmDSDSDesigner: TWideStringField
      FieldName = #24433#29255#21495
      Required = True
      Size = 10
    end
    object AllFilmDSDSDesigner2: TWideStringField
      FieldName = #29255#21517
      Size = 15
    end
    object AllFilmDSDSDesigner3: TWideStringField
      FieldName = #23548#28436
      Size = 10
    end
    object AllFilmDSDSDesigner4: TWideStringField
      FieldName = #20027#28436
    end
    object AllFilmDSDSDesigner5: TBCDField
      FieldName = #38656#35201#25276#37329
      Precision = 19
    end
    object AllFilmDSDSDesigner6: TBCDField
      FieldName = #26085#31199#37329
      Precision = 19
    end
    object AllFilmDSDSDesigner7: TWordField
      FieldName = #26085#28040#32791#29255#27425
    end
    object AllFilmDSDSDesigner8: TDateTimeField
      FieldName = #20837#24211#26085#26399
    end
    object AllFilmDSDSDesigner9: TWideStringField
      FieldName = #29366#24577
      Size = 5
    end
    object AllFilmDSDSDesigner10: TWideStringField
      FieldName = #22791#27880
      Size = 50
    end
  end
  object AllFilmDSrc: TDataSource
    DataSet = AllFilmDS
    Left = 144
    Top = 16
  end
  object TypeDS: TADODataSet
    Active = True
    Connection = Con
    CursorType = ctStatic
    CommandText = 'select * from '#20250#21592#31181#31867
    Parameters = <>
    Left = 88
    Top = 64
    object TypeDSDSDesigner: TWideStringField
      FieldName = #20250#21592#31181#31867
      Size = 5
    end
    object TypeDSDSDesigner2: TBCDField
      FieldName = #37329#39069
      Precision = 19
    end
    object TypeDSDSDesigner3: TSmallintField
      FieldName = #21487#29992#29255#27425
    end
    object TypeDSDSDesigner4: TWideStringField
      FieldName = #22791#27880
      Size = 50
    end
  end
  object TypeDSrc: TDataSource
    DataSet = TypeDS
    Left = 144
    Top = 64
  end
  object MenberDS: TADODataSet
    Active = True
    Connection = Con
    CursorType = ctStatic
    CommandText = 'select * from '#20250#21592#35760#24405
    Parameters = <>
    Left = 232
    Top = 16
    object MenberDSDSDesigner: TWideStringField
      FieldName = #20250#21592#21495
      Size = 10
    end
    object MenberDSDSDesigner2: TWideStringField
      FieldName = #22995#21517
      Size = 10
    end
    object MenberDSDSDesigner3: TWideStringField
      FieldName = #36523#20221#35777#21495#30721
    end
    object MenberDSDSDesigner4: TWideStringField
      FieldName = #31181#31867
      Size = 5
    end
    object MenberDSDSDesigner5: TDateTimeField
      FieldName = #20837#20250#26085#26399
    end
    object MenberDSDSDesigner6: TSmallintField
      FieldName = #21487#29992#29255#27425
    end
    object MenberDSDSDesigner7: TWideStringField
      FieldName = #22791#27880
      Size = 50
    end
  end
  object MenberDSrc: TDataSource
    DataSet = MenberDS
    Left = 296
    Top = 17
  end
  object ComCZDS: TADODataSet
    Active = True
    Connection = Con
    CursorType = ctStatic
    CommandText = 'select * from '#19968#33324#31199#36161
    Parameters = <>
    Left = 232
    Top = 64
    object ComCZDSDSDesigner: TAutoIncField
      FieldName = #24207#21495
      ReadOnly = True
    end
    object ComCZDSDSDesigner2: TWideStringField
      FieldName = #24433#29255#21495
      Size = 10
    end
    object ComCZDSDSDesigner3: TBCDField
      FieldName = #25276#37329
      Precision = 19
    end
    object ComCZDSDSDesigner4: TDateTimeField
      FieldName = #31199#20511#26085#26399
    end
    object ComCZDSDSDesigner5: TDateTimeField
      FieldName = #24402#36824#26085#26399
    end
    object ComCZDSDSDesigner6: TBCDField
      FieldName = #24212#20184#31199#37329
      Precision = 19
    end
    object ComCZDSDSDesigner8: TBooleanField
      FieldName = #24050#24402#36824
    end
    object ComCZDSDSDesigner7: TWideStringField
      FieldName = #22791#27880
      Size = 50
    end
  end
  object ComCZDSrc: TDataSource
    DataSet = ComCZDS
    Left = 296
    Top = 64
  end
  object MenCZDS: TADODataSet
    Active = True
    Connection = Con
    CursorType = ctStatic
    CommandText = 'select * from '#20250#21592#31199#36161
    Parameters = <>
    Left = 368
    Top = 64
    object MenCZDSDSDesigner: TAutoIncField
      FieldName = #24207#21495
      ReadOnly = True
    end
    object MenCZDSDSDesigner2: TWideStringField
      FieldName = #24433#29255#21495
      Size = 10
    end
    object MenCZDSDSDesigner5: TWideStringField
      FieldName = #20250#21592#21495
      Size = 10
    end
    object MenCZDSDSDesigner6: TBCDField
      FieldName = #25276#37329
      Precision = 19
    end
    object MenCZDSDSDesigner3: TDateTimeField
      FieldName = #31199#20511#26085#26399
    end
    object MenCZDSDSDesigner4: TDateTimeField
      FieldName = #24402#36824#26085#26399
    end
    object MenCZDSDSDesigner7: TWordField
      FieldName = #28040#32791#29255#27425
    end
    object MenCZDSDSDesigner9: TBooleanField
      FieldName = #24050#24402#36824
    end
    object MenCZDSDSDesigner8: TWideStringField
      FieldName = #22791#27880
      Size = 50
    end
  end
  object MenCZDSrc: TDataSource
    DataSet = MenCZDS
    Left = 424
    Top = 64
  end
end