ufrmchild.dfm

数据库通用工具

object frmChild: TfrmChild
  Left = 202
  Top = 119
  BorderStyle = bsSingle
  Caption = #20799#31461#20449#24687
  ClientHeight = 561
  ClientWidth = 771
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 380
    Height = 488
    Align = alLeft
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 45
      Height = 13
      AutoSize = False
      Caption = #26381#21153#22120
    end
    object Label2: TLabel
      Left = 16
      Top = 40
      Width = 45
      Height = 13
      AutoSize = False
      Caption = #25968#25454#24211
    end
    object Label3: TLabel
      Left = 16
      Top = 64
      Width = 44
      Height = 13
      AutoSize = False
      Caption = #29992#25143#21517
    end
    object Label4: TLabel
      Left = 16
      Top = 88
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #23494#30721
    end
    object Label5: TLabel
      Left = 16
      Top = 112
      Width = 41
      Height = 13
      AutoSize = False
      Caption = #34920#21517
    end
    object DBGrid1: TDBGrid
      Left = 2
      Top = 160
      Width = 376
      Height = 326
      Align = alBottom
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
    object edita1: TEdit
      Left = 64
      Top = 8
      Width = 121
      Height = 21
      TabOrder = 1
      Text = '10.10.20.8'
    end
    object edita2: TEdit
      Left = 64
      Top = 32
      Width = 121
      Height = 21
      TabOrder = 2
      Text = 'communityOld'
    end
    object edita3: TEdit
      Left = 64
      Top = 56
      Width = 121
      Height = 21
      TabOrder = 3
      Text = 'sa'
    end
    object edita4: TEdit
      Left = 64
      Top = 80
      Width = 121
      Height = 21
      TabOrder = 4
      Text = 'sa'
    end
    object edita5: TEdit
      Left = 64
      Top = 104
      Width = 121
      Height = 21
      TabOrder = 5
      Text = 'child'
    end
    object btnlink1: TButton
      Left = 208
      Top = 16
      Width = 73
      Height = 41
      Caption = #36830#25509'(&1)'
      TabOrder = 6
      OnClick = btnlink1Click
    end
    object btnunlink1: TButton
      Left = 208
      Top = 72
      Width = 73
      Height = 41
      Caption = #26029#24320'(&2)'
      TabOrder = 7
      OnClick = btnunlink1Click
    end
  end
  object Panel2: TPanel
    Left = 380
    Top = 0
    Width = 391
    Height = 488
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 1
    object Label6: TLabel
      Left = 16
      Top = 16
      Width = 49
      Height = 13
      AutoSize = False
      Caption = #26381#21153#22120
    end
    object Label7: TLabel
      Left = 16
      Top = 40
      Width = 47
      Height = 13
      AutoSize = False
      Caption = #25968#25454#24211
    end
    object Label8: TLabel
      Left = 16
      Top = 64
      Width = 44
      Height = 13
      AutoSize = False
      Caption = #29992#25143#21517
    end
    object Label9: TLabel
      Left = 16
      Top = 88
      Width = 34
      Height = 13
      AutoSize = False
      Caption = #23494#30721
    end
    object Label10: TLabel
      Left = 16
      Top = 112
      Width = 35
      Height = 13
      AutoSize = False
      Caption = #34920#21517
    end
    object DBGrid2: TDBGrid
      Left = 2
      Top = 160
      Width = 387
      Height = 326
      Align = alBottom
      DataSource = DataSource2
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
    object editb1: TEdit
      Left = 64
      Top = 8
      Width = 121
      Height = 21
      TabOrder = 1
      Text = '10.10.20.8'
    end
    object editb5: TEdit
      Left = 64
      Top = 104
      Width = 121
      Height = 21
      TabOrder = 2
      Text = 'child'
    end
    object editb4: TEdit
      Left = 64
      Top = 80
      Width = 121
      Height = 21
      TabOrder = 3
      Text = 'sa'
    end
    object editb3: TEdit
      Left = 64
      Top = 56
      Width = 121
      Height = 21
      TabOrder = 4
      Text = 'sa'
    end
    object editb2: TEdit
      Left = 64
      Top = 32
      Width = 121
      Height = 21
      TabOrder = 5
      Text = 'community'
    end
    object btnlink2: TButton
      Left = 208
      Top = 16
      Width = 73
      Height = 41
      Caption = #36830#25509'(&3)'
      TabOrder = 6
      OnClick = btnlink2Click
    end
    object btnunlink2: TButton
      Left = 208
      Top = 72
      Width = 73
      Height = 41
      Caption = #26029#24320'(&4)'
      TabOrder = 7
      OnClick = btnunlink2Click
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 488
    Width = 771
    Height = 54
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 2
    object btngo: TButton
      Left = 512
      Top = 15
      Width = 80
      Height = 30
      Caption = #23548#20837'(&E)'
      Enabled = False
      TabOrder = 0
      OnClick = btngoClick
    end
    object btnout: TButton
      Left = 656
      Top = 15
      Width = 80
      Height = 30
      Cancel = True
      Caption = #36864#20986'(&Q)'
      TabOrder = 1
      OnClick = btnoutClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 542
    Width = 771
    Height = 19
    Panels = <
      item
        Width = 300
      end
      item
        Width = 50
      end>
  end
  object mo: TMemo
    Left = 8
    Top = 376
    Width = 433
    Height = 153
    Lines.Strings = (
      'mo')
    TabOrder = 4
  end
  object Database1: TDatabase
    DriverName = 'MSSQL'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='
      'SERVER NAME=MSS_SERVER'
      'USER NAME=MYNAME'
      '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=')
    SessionName = 'Default'
    AfterConnect = Database1AfterConnect
    AfterDisconnect = Database1AfterDisconnect
    Left = 320
    Top = 8
  end
  object Query1: TQuery
    DatabaseName = 'seal'
    SQL.Strings = (
      'select * from xzqhinfo')
    Left = 320
    Top = 56
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 320
    Top = 104
  end
  object Database2: TDatabase
    DriverName = 'MSSQL'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='
      'SERVER NAME=MSS_SERVER'
      'USER NAME=MYNAME'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'