ufrmview.dfm

数据库通用工具

      end
      object Panel5: TPanel
        Left = 2
        Top = 307
        Width = 99
        Height = 40
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 3
        object BitBtn1: TBitBtn
          Left = 12
          Top = 5
          Width = 75
          Height = 30
          Cancel = True
          Caption = #36864#20986'(&Q)'
          TabOrder = 0
          OnClick = BitBtn1Click
        end
      end
      object BitBtn3: TBitBtn
        Left = 15
        Top = 37
        Width = 75
        Height = 30
        Caption = '&Excel'
        TabOrder = 1
        OnClick = BitBtn3Click
      end
      object bbtRead: TBitBtn
        Left = 15
        Top = 73
        Width = 75
        Height = 30
        Caption = '&ReadType'
        TabOrder = 2
        OnClick = bbtReadClick
      end
      object CheckBox2: TCheckBox
        Left = 16
        Top = 109
        Width = 73
        Height = 17
        Caption = #26174#31034'(&X)'
        TabOrder = 4
        OnClick = CheckBox2Click
      end
      object BitBtn5: TBitBtn
        Left = 15
        Top = 132
        Width = 75
        Height = 30
        Caption = #20462#25913#38543#26426
        TabOrder = 5
        OnClick = BitBtn5Click
      end
      object cbxZD: TComboBox
        Left = 7
        Top = 232
        Width = 90
        Height = 22
        Style = csDropDownList
        ItemHeight = 14
        TabOrder = 6
        OnChange = cbxZDChange
      end
      object cbxNR: TComboBox
        Left = 7
        Top = 203
        Width = 90
        Height = 22
        Style = csDropDownList
        ItemHeight = 14
        ItemIndex = 0
        TabOrder = 7
        Text = #22995#21517
        OnChange = cbxNRChange
        Items.Strings = (
          #22995#21517
          #22320#22336
          #30005#35805
          #37038#32534
          #29983#26085
          #36523#20221#35777
          #21378#23478)
      end
      object dxcSL: TdxCurrencyEdit
        Left = 7
        Top = 174
        Width = 90
        TabOrder = 8
        Alignment = taRightJustify
        MaxLength = 0
        ReadOnly = False
        DisplayFormat = '0;0'
        Value = 500.000000000000000000
        StoredValues = 83
      end
      object BitBtn7: TBitBtn
        Left = 15
        Top = 264
        Width = 75
        Height = 30
        Caption = 'Save'
        TabOrder = 9
        OnClick = BitBtn7Click
      end
      object BitBtn8: TBitBtn
        Left = 15
        Top = 296
        Width = 75
        Height = 30
        Caption = 'Load'
        TabOrder = 10
        OnClick = BitBtn8Click
      end
    end
    object mo: TMemo
      Left = 8
      Top = 152
      Width = 291
      Height = 194
      ScrollBars = ssBoth
      TabOrder = 2
      Visible = False
    end
    object DBMemo1: TDBMemo
      Left = 526
      Top = 2
      Width = 250
      Height = 349
      Align = alRight
      ScrollBars = ssBoth
      TabOrder = 3
      Visible = False
    end
  end
  object Panel10: TPanel
    Left = 203
    Top = 336
    Width = 500
    Height = 351
    BevelInner = bvLowered
    TabOrder = 2
    Visible = False
    object Panel11: TPanel
      Left = 2
      Top = 2
      Width = 496
      Height = 30
      Cursor = crHandPoint
      Align = alTop
      TabOrder = 0
      OnMouseMove = Panel11MouseMove
      object labTBCap: TLabel
        Left = 17
        Top = 6
        Width = 20
        Height = 19
        Caption = '--'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnMouseMove = Panel11MouseMove
      end
      object BitBtn6: TBitBtn
        Left = 464
        Top = 2
        Width = 25
        Height = 25
        Caption = 'X'
        TabOrder = 0
        OnClick = BitBtn6Click
      end
    end
    object DBGrid2: TDBGrid
      Left = 2
      Top = 32
      Width = 496
      Height = 317
      Align = alClient
      DataSource = DataSource2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 232
    Top = 144
  end
  object Database1: TDatabase
    DatabaseName = 'DBView'
    DriverName = 'MSSQL'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME=master'
      'SERVER NAME=.'
      'USER NAME=sa'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'BLOB EDIT LOGGING='
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'DATE MODE=0'
      'SCHEMA CACHE TIME=-1'
      'MAX QUERY TIME=300'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'HOST NAME='
      'APPLICATION NAME='
      'NATIONAL LANG NAME='
      'ENABLE BCD=FALSE'
      'TDS PACKET SIZE=4096'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=5120'
      'PASSWORD=sa')
    SessionName = 'Default'
    AfterConnect = Database1AfterConnect
    AfterDisconnect = Database1AfterDisconnect
    Left = 128
    Top = 96
  end
  object Query1: TQuery
    DatabaseName = 'DBView'
    SQL.Strings = (
      'select *'
      'from operator')
    Left = 232
    Top = 96
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 608
    Top = 392
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 608
    Top = 328
  end
  object ExcelWorksheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 608
    Top = 456
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 296
    Top = 32
    object N1: TMenuItem
      Caption = #21453#36873'(&F)'
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #20840#36873'(&A)'
      OnClick = N2Click
    end
    object O1: TMenuItem
      Caption = #25490#24207'(&O)'
      OnClick = O1Click
    end
  end
  object cxShellBrowserDialog1: TcxShellBrowserDialog
    FolderLabelCaption = #36335#24452#36873#25321#65306
    Root.BrowseFolder = bfDrives
    Title = #36335#24452#36873#25321#23545#35805#26694#65306
    Left = 488
    Top = 40
  end
  object SaveDialog1: TSaveDialog
    Filter = '*.dat|*.dat'
    Left = 432
    Top = 193
  end
  object Database2: TDatabase
    DatabaseName = 'DBViewList'
    DriverName = 'MSSQL'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME=master'
      'SERVER NAME=.'
      'USER NAME=sa'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'BLOB EDIT LOGGING='
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'DATE MODE=0'
      'SCHEMA CACHE TIME=-1'
      'MAX QUERY TIME=300'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'HOST NAME='
      'APPLICATION NAME='
      'NATIONAL LANG NAME='
      'ENABLE BCD=FALSE'
      'TDS PACKET SIZE=4096'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=sa')
    SessionName = 'Default'
    Left = 128
    Top = 288
  end
  object Query2: TQuery
    DatabaseName = 'DBViewList'
    SQL.Strings = (
      'select *'
      'from operator')
    Left = 184
    Top = 288
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = Timer1Timer
    Left = 838
    Top = 242
  end
  object adoQry: TADOQuery
    Connection = dbm.myConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select cname from person'
      'where id=:id')
    Left = 722
    Top = 392
  end
  object Query3: TQuery
    DatabaseName = 'DBView'
    SQL.Strings = (
      'select *'
      'from operator')
    Left = 344
    Top = 96
  end
  object PopupMenu2: TPopupMenu
    Left = 120
    Top = 216
    object N3: TMenuItem
      Caption = #29983#25104#23548#34920#35821#21477
      OnClick = N3Click
    end
  end
  object Query4: TQuery
    DatabaseName = 'DBView'
    SQL.Strings = (
      'SELECT  '
      'syscolumns.name ,           '
      'syscomments.text ,           '
      'systypes.name ,           '
      'syscolumns.length ,           '
      'syscolumns.prec ,           '
      'syscolumns.scale ,           '
      'syscolumns.isnullable     '
      'FROM '
      'syscolumns ,           '
      'syscomments ,           '
      'sysobjects ,           '
      'systypes     '
      'WHERE ( syscolumns.cdefault *= syscomments.id) '
      'and   ( syscolumns.id = sysobjects.id ) '
      'and   ( syscolumns.xtype = systypes.xtype ) '
      'and   (sysobjects.xtype = '#39'U'#39')'
      'and   (sysobjects.name = :tbName )  '
      'ORDER BY syscolumns.colorder ASC  ')
    Left = 288
    Top = 96
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'tbName'
        ParamType = ptUnknown
      end>
  end
  object DataSource2: TDataSource
    DataSet = Query4
    Left = 286
    Top = 146
  end
  object OpenDialog1: TOpenDialog
    Left = 712
    Top = 591
  end
  object SaveDialog2: TSaveDialog
    Left = 712
    Top = 543
  end
  object qryPub: TQuery
    DatabaseName = 'DBView'
    SQL.Strings = (
      'select *'
      'from operator')
    Left = 344
    Top = 184
  end
end