ufrmadd.dfm

数据库通用工具

object frmAdd: TfrmAdd
  Left = 197
  Top = 93
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25209#37327#28155#21152
  ClientHeight = 594
  ClientWidth = 760
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel3: TPanel
    Left = 0
    Top = 145
    Width = 760
    Height = 424
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 0
    object Label11: TLabel
      Left = 552
      Top = 39
      Width = 32
      Height = 16
      Caption = '===>'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 392
      Top = 16
      Width = 69
      Height = 13
      AutoSize = False
      Caption = #34920#23383#27573
    end
    object Label13: TLabel
      Left = 600
      Top = 16
      Width = 78
      Height = 13
      AutoSize = False
      Caption = #20540#31867#22411
      Visible = False
    end
    object Label6: TLabel
      Left = 392
      Top = 345
      Width = 70
      Height = 14
      Caption = #28155#21152#35760#24405#25968
    end
    object cbxType: TComboBox
      Left = 600
      Top = 36
      Width = 145
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 0
      Visible = False
      Items.Strings = (
        #25972#22411
        #28014#28857#22411
        #23383#31526#22411
        #26085#26399#24615)
    end
    object cbx1: TComboBox
      Left = 392
      Top = 36
      Width = 145
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 1
    end
    object lv: TListView
      Left = 393
      Top = 104
      Width = 352
      Height = 217
      Columns = <
        item
          AutoSize = True
          Caption = #31867#22411'ID'
        end
        item
          AutoSize = True
          Caption = #20540#31867#22411
        end>
      ColumnClick = False
      GridLines = True
      HideSelection = False
      Items.Data = {
        570000000200000000000000FFFFFFFFFFFFFFFF030000000000000003616161
        03626262026363013100000000FFFFFFFFFFFFFFFF0300000000000000033132
        33033435360337383901320100FFFFFFFFFFFFFFFFFFFF}
      ReadOnly = True
      RowSelect = True
      TabOrder = 3
      ViewStyle = vsReport
    end
    object btnadd: TButton
      Left = 392
      Top = 376
      Width = 60
      Height = 30
      Caption = #28155#21152'(&T)'
      TabOrder = 4
      OnClick = btnaddClick
    end
    object btndel: TButton
      Left = 464
      Top = 376
      Width = 60
      Height = 30
      Caption = #21024#38500'(&D)'
      Enabled = False
      TabOrder = 5
      OnClick = btndelClick
    end
    object btngo: TButton
      Left = 608
      Top = 376
      Width = 60
      Height = 30
      Caption = #25554#20837'(&E)'
      Enabled = False
      TabOrder = 6
      OnClick = btngoClick
    end
    object btnclear: TButton
      Left = 536
      Top = 376
      Width = 60
      Height = 30
      Caption = #28165#38500'(&C)'
      Enabled = False
      TabOrder = 7
      OnClick = btnclearClick
    end
    object btnout: TButton
      Left = 680
      Top = 376
      Width = 60
      Height = 30
      Cancel = True
      Caption = #36864#20986'(&Q)'
      TabOrder = 8
      OnClick = btnoutClick
    end
    object CheckBox1: TCheckBox
      Left = 400
      Top = 72
      Width = 97
      Height = 17
      Caption = ' '#40664#35748#20540
      TabOrder = 9
      OnClick = CheckBox1Click
    end
    object Edit1: TEdit
      Left = 504
      Top = 69
      Width = 121
      Height = 22
      TabOrder = 10
      Text = '0'
    end
    object dtpDate: TDateTimePicker
      Left = 632
      Top = 69
      Width = 113
      Height = 22
      Date = 38420.000000000000000000
      Time = 38420.000000000000000000
      TabOrder = 11
    end
    object lv1: TListView
      Left = 2
      Top = 2
      Width = 375
      Height = 420
      Align = alLeft
      Columns = <
        item
          AutoSize = True
          Caption = #34920#23383#27573
        end
        item
          AutoSize = True
          Caption = #20540#31867#22411
        end
        item
          Caption = #40664#35748#20540
          Width = 160
        end
        item
          Caption = 'ID'
          Width = 30
        end>
      ColumnClick = False
      GridLines = True
      HideSelection = False
      Items.Data = {
        570000000200000000000000FFFFFFFFFFFFFFFF030000000000000003616161
        03626262026363013100000000FFFFFFFFFFFFFFFF0300000000000000033132
        33033435360337383901320100FFFFFFFFFFFFFFFFFFFF}
      ReadOnly = True
      RowSelect = True
      TabOrder = 2
      ViewStyle = vsReport
    end
    object SpinEdit1: TSpinEdit
      Left = 472
      Top = 341
      Width = 121
      Height = 23
      MaxValue = 0
      MinValue = 0
      TabOrder = 12
      Value = 50
    end
    object BitBtn1: TBitBtn
      Left = 680
      Top = 340
      Width = 70
      Height = 25
      Caption = 'Debug'
      TabOrder = 13
      OnClick = BitBtn1Click
    end
    object mo: TMemo
      Left = 280
      Top = 184
      Width = 89
      Height = 113
      Lines.Strings = (
        'mo')
      TabOrder = 14
      Visible = False
    end
    object BitBtn3: TBitBtn
      Left = 600
      Top = 340
      Width = 70
      Height = 25
      Caption = #38543#26426#22995#21517
      TabOrder = 15
      OnClick = BitBtn3Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 569
    Width = 760
    Height = 25
    Panels = <
      item
        Width = 300
      end
      item
        Width = 50
      end>
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 760
    Height = 145
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 305
      Top = 2
      Width = 453
      Height = 141
      Align = alClient
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
    object Panel1: TPanel
      Left = 2
      Top = 2
      Width = 303
      Height = 141
      Align = alLeft
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object Label1: TLabel
        Left = 19
        Top = 15
        Width = 45
        Height = 13
        AutoSize = False
        Caption = #26381#21153#22120
      end
      object Label2: TLabel
        Left = 19
        Top = 39
        Width = 45
        Height = 13
        AutoSize = False
        Caption = #25968#25454#24211
      end
      object Label3: TLabel
        Left = 19
        Top = 63
        Width = 44
        Height = 13
        AutoSize = False
        Caption = #29992#25143#21517
      end
      object Label4: TLabel
        Left = 19
        Top = 87
        Width = 33
        Height = 13
        AutoSize = False
        Caption = #23494#30721
      end
      object Label5: TLabel
        Left = 19
        Top = 111
        Width = 41
        Height = 13
        AutoSize = False
        Caption = #34920#21517
      end
      object edita1: TEdit
        Left = 68
        Top = 10
        Width = 121
        Height = 22
        TabOrder = 0
        Text = '10.10.20.8'
      end
      object edita2: TEdit
        Left = 68
        Top = 34
        Width = 121
        Height = 22
        TabOrder = 1
        Text = 'master'
      end
      object edita3: TEdit
        Left = 68
        Top = 58
        Width = 121
        Height = 22
        TabOrder = 2
        Text = 'sa'
      end
      object edita4: TEdit
        Left = 68
        Top = 82
        Width = 121
        Height = 22
        TabOrder = 3
        Text = 'sa'
      end
      object edita5: TEdit
        Left = 68
        Top = 106
        Width = 121
        Height = 22
        TabOrder = 4
        Text = 'master'
      end
      object btnlink1: TButton
        Left = 208
        Top = 16
        Width = 73
        Height = 41
        Caption = #36830#25509'(&L)'
        TabOrder = 5
        OnClick = btnlink1Click
      end
      object btnunlink1: TButton
        Left = 208
        Top = 72
        Width = 73
        Height = 41
        Caption = #26029#24320'(&U)'
        TabOrder = 6
        OnClick = btnunlink1Click
      end
    end
  end
  object pbr: TProgressBar
    Left = 306
    Top = 575
    Width = 449
    Height = 16
    Position = 20
    TabOrder = 3
  end
  object Database3: TDatabase
    AliasName = 'myDB2'
    DatabaseName = 'mydb'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='
      'USER NAME=yymdb2'
      'ODBC DSN=myDB2'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'SQLQRYMODE='
      'LANGDRIVER='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'PASSWORD=123')
    SessionName = 'Default'
    AfterConnect = Database3AfterConnect
    AfterDisconnect = Database3AfterDisconnect
    Left = 488
    Top = 8
  end
  object Query1: TQuery
    DatabaseName = 'seal'
    SQL.Strings = (
      'select * from xzqhinfo')
    Left = 416
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 472
    Top = 72
  end
  object Query3: TQuery
    Left = 668
    Top = 88
  end
  object adoQry: TADOQuery
    Connection = dbm.adocLink
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'id'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select cname from person'
      'where id=:id')
    Left = 690
    Top = 280
  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 = Database3AfterConnect
    AfterDisconnect = Database3AfterDisconnect
    Left = 360
    Top = 64
  end
end