dm.dfm

本程序设计的是一个小型商店每天记的流水帐管理程序

object dm2: Tdm2
  OldCreateOrder = False
  Left = 388
  Top = 219
  Height = 236
  Width = 282
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=xmjl.' +
      'mdb;Mode=Share Deny None;Extended Properties="";Locale Identifie' +
      'r=2052;Persist Security Info=False;Jet OLEDB:System database="";' +
      'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OL' +
      'EDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Gl' +
      'obal Partial 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 Loc' +
      'ale on Compact=False;Jet OLEDB:Compact Without Replica Repair=Fa' +
      'lse;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    Top = 48
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    OnCalcFields = ADOQuery1CalcFields
    Parameters = <>
    SQL.Strings = (
      'select * from xmb')
    Left = 128
    Top = 48
    object ADOQuery1DSDesigner: TWideStringField
      FieldName = #24207#21495
      Size = 5
    end
    object ADOQuery1DSDesigner2: TBCDField
      FieldName = #25910#20837
      Precision = 19
    end
    object ADOQuery1DSDesigner3: TBCDField
      FieldName = #25903#20986
      Precision = 19
    end
    object ADOQuery1DSDesigner4: TDateTimeField
      FieldName = #26085#26399
    end
    object ADOQuery1DSDesigner5: TWideStringField
      FieldName = #32463#25163#20154
      Size = 8
    end
    object ADOQuery1total: TCurrencyField
      FieldKind = fkCalculated
      FieldName = #21512#35745
      Calculated = True
    end
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'new'
    Left = 48
    Top = 112
  end
end