udm.dfm

DELPHI应用一则

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 308
  Top = 241
  Height = 391
  Width = 379
  object ADOCON: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initi' +
      'al Catalog=xykdate200603;Data Source=server;Use Procedure for Pr' +
      'epare=1;Auto Translate=True;Packet Size=4096;Workstation ID=XJHO' +
      'TEL;Use Encryption for Data=False;Tag with column collation when' +
      ' possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 30
    Top = 13
  end
  object ADOtemp: TADOQuery
    Connection = ADOCON
    Parameters = <>
    Left = 111
    Top = 13
  end
  object ADOcode: TADOQuery
    Connection = ADOCON
    Parameters = <>
    Left = 163
    Top = 13
  end
  object ADOxykmx: TADOQuery
    Connection = ADOCON
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from xykmx')
    Left = 112
    Top = 83
    object ADOxykmxid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOxykmxbankmc: TStringField
      FieldName = 'bankmc'
      Size = 50
    end
    object ADOxykmxcardmc: TStringField
      FieldName = 'cardmc'
      Size = 50
    end
    object ADOxykmxcardno: TStringField
      FieldName = 'cardno'
      Size = 50
    end
    object ADOxykmxamount: TBCDField
      FieldName = 'amount'
      Precision = 19
    end
    object ADOxykmxondate: TDateTimeField
      FieldName = 'ondate'
    end
    object ADOxykmxcardname: TStringField
      FieldName = 'cardname'
      Size = 50
    end
    object ADOxykmxbz: TStringField
      FieldName = 'bz'
      Size = 200
    end
    object ADOxykmxbz1: TStringField
      FieldName = 'bz1'
      Size = 200
    end
    object ADOxykmxbz2: TStringField
      FieldName = 'bz2'
      Size = 200
    end
    object ADOxykmxbz3: TStringField
      FieldName = 'bz3'
      Size = 200
    end
    object ADOxykmxbz4: TStringField
      FieldName = 'bz4'
      Size = 200
    end
  end
  object frxxykmx: TfrxDBDataset
    UserName = 'frxxykmx'
    DataSet = ADOrepot
    Left = 280
    Top = 88
  end
  object ADOrepot: TADOQuery
    Connection = ADOCON
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from xykmx')
    Left = 234
    Top = 83
  end
  object ADOlx: TADOQuery
    Connection = ADOCON
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from cdcard')
    Left = 170
    Top = 87
  end
  object ADObank: TADOQuery
    Connection = ADOCON
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from cdbank')
    Left = 116
    Top = 141
  end
  object ADOrowset: TADOQuery
    Connection = ADOCON
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from row_set')
    Left = 172
    Top = 143
  end
end