datamoban.dfm

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

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 226
  Top = 237
  Height = 256
  Width = 656
  object ADOQuery2: TADOQuery
    Active = True
    Connection = ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#20250#21592#22522#26412#20449#24687)
    Left = 160
    Top = 64
    object ADOQuery2DSDesigner: TWideStringField
      FieldName = #35777#21495
      Size = 50
    end
    object ADOQuery2DSDesigner2: TWideStringField
      FieldName = #31867#22411
      Size = 50
    end
    object ADOQuery2DSDesigner3: TWideStringField
      FieldName = #22995#21517
      Size = 50
    end
    object ADOQuery2DSDesigner4: TWideStringField
      FieldName = #24615#21035
      Size = 50
    end
    object ADOQuery2DSDesigner5: TWideStringField
      FieldName = #24180#40836
      Size = 50
    end
    object ADOQuery2DSDesigner6: TWideStringField
      FieldName = #36523#20221#35777
      Size = 50
    end
    object ADOQuery2DSDesigner7: TBCDField
      FieldName = #25276#37329
      Precision = 19
    end
    object ADOQuery2DSDesigner8: TDateTimeField
      FieldName = #21150#35777#26085#26399
    end
    object ADOQuery2DSDesigner9: TWideStringField
      FieldName = #30005#35805
      Size = 50
    end
    object ADOQuery2DSDesigner10: TWideStringField
      FieldName = #22320#22336
      Size = 50
    end
    object ADOQuery2DSDesigner11: TBlobField
      FieldName = #29031#29255
    end
    object ADOQuery2DSDesigner12: TWideStringField
      FieldName = #22791#27880
      Size = 50
    end
  end
  object ADOConnection3: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=data\' +
      'yingdiexinxi.mdb;Mode=Share Deny None;Extended Properties="";Per' +
      'sist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:' +
      'Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine' +
      ' Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Parti' +
      'al Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=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 Com' +
      'pact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OL' +
      'EDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 144
  end
  object ADOTable3: TADOTable
    Active = True
    Connection = ADOConnection3
    CursorType = ctStatic
    TableName = #20250#21592#23458#25143
    Left = 96
    Top = 120
  end
  object ADOConnection2: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=data\' +
      'huiyuan.mdb;Mode=Share Deny None;Extended Properties="";Persist ' +
      'Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Regis' +
      'try Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type' +
      '=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bu' +
      'lk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Data' +
      'base Password="";Jet OLEDB:Create System Database=False;Jet OLED' +
      'B:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=' +
      'False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:S' +
      'FP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 64
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = ADOConnection2
    CursorType = ctStatic
    TableName = #20250#21592#22522#26412#20449#24687
    Left = 96
    Top = 64
    object ADOTable2DSDesigner: TWideStringField
      FieldName = #35777#21495
      Size = 50
    end
    object ADOTable2DSDesigner2: TWideStringField
      FieldName = #31867#22411
      Size = 50
    end
    object ADOTable2DSDesigner3: TWideStringField
      FieldName = #22995#21517
      Size = 50
    end
    object ADOTable2DSDesigner4: TWideStringField
      FieldName = #24615#21035
      Size = 50
    end
    object ADOTable2DSDesigner5: TWideStringField
      FieldName = #24180#40836
      Size = 50
    end
    object ADOTable2DSDesigner6: TWideStringField
      FieldName = #36523#20221#35777
      Size = 50
    end
    object ADOTable2DSDesigner7: TBCDField
      FieldName = #25276#37329
      Precision = 19
    end
    object ADOTable2DSDesigner8: TDateTimeField
      FieldName = #21150#35777#26085#26399
    end
    object ADOTable2DSDesigner9: TWideStringField
      FieldName = #30005#35805
      Size = 50
    end
    object ADOTable2DSDesigner10: TWideStringField
      FieldName = #22320#22336
      Size = 50
    end
    object ADOTable2DSDesigner11: TBlobField
      FieldName = #29031#29255
    end
    object ADOTable2DSDesigner12: TWideStringField
      FieldName = #22791#27880
      Size = 50
    end
    object ADOTable2DSDesigner13: TIntegerField
      FieldName = #24050#20511#29255#25968
    end
  end
  object ADOQuery3: TADOQuery
    Active = True
    Connection = ADOConnection3
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *from '#20250#21592#23458#25143)
    Left = 160
    Top = 120
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=data\' +
      'yingdiexinxi.mdb;Mode=Share Deny None;Extended Properties="";Per' +
      'sist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:' +
      'Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine' +
      ' Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Parti' +
      'al Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=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 Com' +
      'pact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OL' +
      'EDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 16
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #24211#23384#24635#25597
    Left = 96
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#24211#23384#24635#25597)
    Left = 176
    Top = 16
  end
  object ADOTable3a: TADOTable
    Active = True
    Connection = ADOConnection3
    CursorType = ctStatic
    TableName = #26222#36890#23458#25143
    Left = 96
    Top = 168
  end
  object ADOQuery3a: TADOQuery
    Active = True
    Connection = ADOConnection3
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#26222#36890#23458#25143)
    Left = 160
    Top = 168
  end
  object ADOQuery12: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#24322#24120#22788#29702)
    Left = 240
    Top = 16
  end
  object ADOConnection4: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=data\' +
      'denglu.mdb;Mode=Share Deny None;Extended Properties="";Persist S' +
      'ecurity Info=False;Jet OLEDB:System database="";Jet OLEDB:Regist' +
      'ry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=' +
      '5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bul' +
      'k Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Datab' +
      'ase Password="";Jet OLEDB:Create System Database=False;Jet OLEDB' +
      ':Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=F' +
      'alse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SF' +
      'P=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 320
    Top = 16
  end
  object ADOQuery4: TADOQuery
    Active = True
    Connection = ADOConnection4
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from guanli')
    Left = 400
    Top = 16
  end
  object ADOQuery41: TADOQuery
    Active = True
    Connection = ADOConnection4
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from yiban')
    Left = 464
    Top = 16
  end
  object ADOTable4: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\yingdiexinxi.m' +
      'db;Persist Security Info=False'
    CursorType = ctStatic
    TableName = #24322#24120#22788#29702
    Left = 248
    Top = 104
  end
  object ADOTable5: TADOTable
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\qita.mdb;Persi' +
      'st Security Info=False'
    CursorType = ctStatic
    TableName = #30331#38470#35774#32622
    Left = 488
    Top = 128
  end
end