udm.dfm

delphi+sql server 我是delphi的初学者

object DM: TDM
  OldCreateOrder = False
  Left = 278
  Top = 147
  Height = 399
  Width = 454
  object ADOCon1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=CWPJGL;Data Source=xjhotel;Use Procedure for Prepare=' +
      '1;Auto Translate=True;Packet Size=4096;Workstation ID=XJHOTEL;Us' +
      'e Encryption for Data=False;Tag with column collation when possi' +
      'ble=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 41
    Top = 37
  end
  object ADOTEMP: TADOQuery
    Connection = ADOCon1
    Parameters = <>
    SQL.Strings = (
      'select * from libnumber')
    Left = 218
    Top = 39
  end
  object ADOLOGIN: TADOQuery
    Connection = ADOCon1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM usertable')
    Left = 159
    Top = 37
  end
  object ADOCODE: TADOQuery
    Connection = ADOCon1
    Parameters = <>
    SQL.Strings = (
      'select * from libnumberls')
    Left = 160
    Top = 105
    object ADOCODElibnumber: TIntegerField
      FieldName = 'libnumber'
    end
    object ADOCODElist: TStringField
      FieldName = 'list'
      Size = 10
    end
    object ADOCODEnumberid: TStringField
      FieldName = 'numberid'
      Size = 10
    end
    object ADOCODEnumbertype: TStringField
      FieldName = 'numbertype'
      Size = 10
    end
    object ADOCODEhxbz: TStringField
      FieldName = 'hxbz'
      Size = 1
    end
    object ADOCODErq: TDateTimeField
      FieldName = 'rq'
    end
    object ADOCODElypername: TStringField
      FieldName = 'lypername'
      Size = 30
    end
    object ADOCODEJINE: TBCDField
      FieldName = 'JINE'
      Precision = 19
    end
    object ADOCODEA: TBooleanField
      FieldName = 'A'
    end
    object ADOCODEB: TBooleanField
      FieldName = 'B'
    end
    object ADOCODElibnumberplace: TStringField
      FieldName = 'libnumberplace'
    end
    object ADOCODEzt: TStringField
      FieldName = 'zt'
      Size = 10
    end
    object ADOCODEsxdm: TStringField
      FieldName = 'sxdm'
      Size = 4
    end
  end
  object ADOTP: TADOQuery
    Connection = ADOCon1
    Parameters = <>
    Left = 42
    Top = 110
  end
  object ADOZTDJ: TADOQuery
    Connection = ADOCon1
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM meun_zt')
    Left = 158
    Top = 170
  end
  object ADOTY: TADOQuery
    Connection = ADOCon1
    Parameters = <>
    Left = 48
    Top = 177
  end
  object ADOREPORT: TADOQuery
    Connection = ADOCon1
    CursorType = ctStatic
    Parameters = <>
    Left = 300
    Top = 45
  end
  object frxDBREPORT: TfrxDBDataset
    UserName = 'frxDBREPORT'
    CloseDataSource = False
    DataSet = ADOREPORT
    Left = 366
    Top = 41
  end
  object ADOLX: TADOQuery
    Connection = ADOCon1
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM typeunit')
    Left = 224
    Top = 107
  end
  object ADOusermight: TADOQuery
    Connection = ADOCon1
    Parameters = <>
    SQL.Strings = (
      'select * from usermghit')
    Left = 301
    Top = 105
  end
  object ADOLSDJ: TADOQuery
    Connection = ADOCon1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * from lsdj_tb')
    Left = 227
    Top = 172
  end
  object frxDBrepotls: TfrxDBDataset
    UserName = 'frxDBrepotls'
    CloseDataSource = False
    DataSet = ADOrepotls
    Left = 376
    Top = 168
  end
  object ADOrepotls: TADOQuery
    Connection = ADOCon1
    CursorType = ctStatic
    Parameters = <>
    Left = 307
    Top = 169
  end
  object ADOsummoney: TADOQuery
    Connection = ADOCon1
    Parameters = <>
    SQL.Strings = (
      'select * from libnumberls')
    Left = 161
    Top = 239
  end
  object T_COUNTER: TADOTable
    Connection = ADOCon1
    TableName = 'COUNTER'
    Left = 231
    Top = 237
  end
  object ADOhj: TADOQuery
    Connection = ADOCon1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from lsdj_tb')
    Left = 163
    Top = 298
  end
  object ADOTYPEHJ: TADOQuery
    Connection = ADOCon1
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM LSDJ_TB')
    Left = 229
    Top = 298
  end
end