udm.dfm

delphi+sql server 我是delphi的初学者

object DM: TDM
  OldCreateOrder = False
  Left = 237
  Top = 94
  Height = 498
  Width = 676
  object con1: 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 = 23
    Top = 34
  end
  object qryLOGIN: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from usertable')
    Left = 117
    Top = 34
  end
  object tblpjly: TADOTable
    Connection = con1
    CursorType = ctStatic
    TableName = 'lydj'
    Left = 262
    Top = 32
  end
  object tbllibnumber: TADOTable
    Connection = con1
    TableName = 'libnumber'
    Left = 263
    Top = 88
  end
  object qrytemp: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 32
    Top = 108
  end
  object tbltypeunit: TADOTable
    Connection = con1
    CursorType = ctStatic
    TableName = 'typeunit'
    Left = 312
    Top = 32
    object tbltypeunittypeunit: TAutoIncField
      FieldName = 'typeunit'
      ReadOnly = True
    end
    object tbltypeunittypeid: TStringField
      FieldName = 'typeid'
      FixedChar = True
      Size = 10
    end
    object tbltypeunittypename: TStringField
      FieldName = 'typename'
      FixedChar = True
      Size = 10
    end
  end
  object tblperson: TADOTable
    Connection = con1
    CursorType = ctStatic
    TableName = 'person'
    Left = 312
    Top = 88
  end
  object qryperson: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from person')
    Left = 120
    Top = 88
  end
  object qrydjlx: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from typeunit')
    Left = 120
    Top = 152
  end
  object qrypjly: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from lydj')
    Left = 120
    Top = 208
  end
  object qrylibnumber: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from libnumber')
    Left = 120
    Top = 264
  end
  object qryguo: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from guo')
    Left = 32
    Top = 160
  end
  object qryserch: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from libnumber')
    Left = 32
    Top = 208
  end
  object qrylibnumber2: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from libnumber'
      '')
    Left = 180
    Top = 265
  end
  object qrylogin2: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from usertable')
    Left = 175
    Top = 34
  end
  object ADOQT: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM libnumber ')
    Left = 609
    Top = 126
  end
  object ADODTB: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM libnumber')
    Left = 557
    Top = 122
  end
  object ADOBBLS: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM lydj_ls')
    Left = 494
    Top = 365
  end
  object ADOXCT: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM libnumber ')
    Left = 613
    Top = 168
  end
  object ADObb: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM libnumberls ')
    Left = 493
    Top = 313
  end
  object ADOreport: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ly_place')
    Left = 382
    Top = 32
    object ADOreportplaceid: TAutoIncField
      FieldName = 'placeid'
      ReadOnly = True
    end
    object ADOreportplacedm: TStringField
      FieldName = 'placedm'
      FixedChar = True
      Size = 3
    end
    object ADOreportplacename: TStringField
      FieldName = 'placename'
      Size = 10
    end
  end
  object ADODJZT: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM libnumberls')
    Left = 384
    Top = 92
  end
  object ADOcx: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from lydj_ls')
    Left = 387
    Top = 149
  end
  object ADOZTDJ: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from meun_zt')
    Left = 449
    Top = 149
  end
  object ADOUSERMIGHT: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM usermghit')
    Left = 389
    Top = 207
    object ADOUSERMIGHTCDUSERID: TAutoIncField
      FieldName = 'CDUSERID'
      ReadOnly = True
    end
    object ADOUSERMIGHTCZYDM: TStringField
      FieldName = 'CZYDM'
      Size = 10
    end
    object ADOUSERMIGHTID: TIntegerField
      FieldName = 'ID'
    end
    object ADOUSERMIGHTparent: TIntegerField
      FieldName = 'parent'
    end
    object ADOUSERMIGHTmc: TStringField
      FieldName = 'mc'
    end
  end
  object ADOCDMIGHT: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM CDMIGHT')
    Left = 388
    Top = 260
    object ADOCDMIGHTID: TIntegerField
      FieldName = 'ID'
    end
    object ADOCDMIGHTparent: TIntegerField
      FieldName = 'parent'
    end
    object ADOCDMIGHTmc: TStringField
      FieldName = 'mc'
    end
  end
  object ADOdd: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from ly_place')
    Left = 32
    Top = 268
  end
  object ADOLSDJ: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM LSDJ_TB')
    Left = 389
    Top = 312
  end
  object ADOreportls: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from lsdj_tb')
    Left = 465
    Top = 29
  end
  object T_COUNTER: TADOTable
    Connection = con1
    CursorType = ctStatic
    TableName = 'COUNTER'
    Left = 121
    Top = 322
  end
  object ADOSUM: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM libnumberls')
    Left = 32
    Top = 318
  end
  object ADOview_serch: TADOQuery
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from VIEW1_serch')
    Left = 560
    Top = 35
  end
  object ADOcode: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 29
    Top = 380
  end
  object ADOlibnumber: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from libnumber')
    Left = 108
    Top = 380
    object ADOlibnumberlibnumber: TAutoIncField
      FieldName = 'libnumber'
      ReadOnly = True
    end
    object ADOlibnumberlist: TStringField
      FieldName = 'list'
      FixedChar = True
      Size = 10
    end
    object ADOlibnumbernumberid: TStringField
      FieldName = 'numberid'
      Size = 10
    end
    object ADOlibnumbernumbertype: TStringField
      FieldName = 'numbertype'
      Size = 10
    end
    object ADOlibnumberhxbz: TStringField
      FieldName = 'hxbz'
      FixedChar = True
      Size = 1
    end
    object ADOlibnumberdjdate: TDateTimeField
      FieldName = 'djdate'
    end
    object ADOlibnumberlypername: TStringField
      FieldName = 'lypername'
      Size = 30
    end
    object ADOlibnumberJINE: TBCDField
      FieldName = 'JINE'
      Precision = 19
    end
    object ADOlibnumberA: TBooleanField
      FieldName = 'A'
    end
    object ADOlibnumberB: TBooleanField
      FieldName = 'B'
    end
    object ADOlibnumberlibnumberplace: TStringField
      FieldName = 'libnumberplace'
    end
    object ADOlibnumberZT: TStringField
      FieldName = 'ZT'
      Size = 10
    end
    object ADOlibnumbersxdm: TStringField
      FieldName = 'sxdm'
      Size = 4
    end
  end
  object ADOlibnumberls: TADOQuery
    Connection = con1
    Parameters = <>
    SQL.Strings = (
      'select * from libnumberls')
    Left = 192
    Top = 377
    object ADOlibnumberlslibnumber: TIntegerField
      FieldName = 'libnumber'
    end
    object ADOlibnumberlslist: TStringField
      FieldName = 'list'
      Size = 10
    end
    object ADOlibnumberlsnumberid: TStringField
      FieldName = 'numberid'
      Size = 10
    end
    object ADOlibnumberlsnumbertype: TStringField
      FieldName = 'numbertype'
      Size = 10
    end
    object ADOlibnumberlshxbz: TStringField
      FieldName = 'hxbz'
      Size = 1
    end
    object ADOlibnumberlsrq: TDateTimeField
      FieldName = 'rq'
    end
    object ADOlibnumberlslypername: TStringField
      FieldName = 'lypername'
      Size = 30
    end
    object ADOlibnumberlsJINE: TBCDField
      FieldName = 'JINE'
      Precision = 19
    end
    object ADOlibnumberlsA: TBooleanField
      FieldName = 'A'
    end
    object ADOlibnumberlsB: TBooleanField
      FieldName = 'B'
    end
    object ADOlibnumberlslibnumberplace: TStringField
      FieldName = 'libnumberplace'
    end
    object ADOlibnumberlszt: TStringField
      FieldName = 'zt'
      Size = 10
    end
    object ADOlibnumberlssxdm: TStringField
      FieldName = 'sxdm'
      Size = 4
    end
  end
end