unitfrmmain.dfm

Ole编程

object frmMain: TfrmMain
  Left = 288
  Top = 178
  Width = 686
  Height = 480
  Caption = #27426#36814#20351#29992'Woracle'#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 678
    Height = 446
    ActivePage = tbsPara
    Align = alClient
    TabOrder = 0
    OnChange = PageControl1Change
    object tbsAppBook: TTabSheet
      Caption = #30003#35831#20070#20449#24687
      object Panel1: TPanel
        Left = 0
        Top = 369
        Width = 670
        Height = 49
        Align = alBottom
        TabOrder = 0
        object btnOpenFile: TButton
          Left = 32
          Top = 16
          Width = 105
          Height = 25
          Caption = ' '#25171#24320#30003#35831#20070
          TabOrder = 0
          OnClick = btnOpenFileClick
        end
        object btnImpot: TButton
          Left = 544
          Top = 16
          Width = 91
          Height = 25
          Caption = #23548#20837#21040#25968#25454#24211
          TabOrder = 1
          OnClick = btnImpotClick
        end
      end
      object strgApp: TStringGrid
        Left = 0
        Top = 0
        Width = 670
        Height = 369
        Align = alClient
        RowCount = 2
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
        TabOrder = 1
      end
    end
    object tbsPara: TTabSheet
      Caption = #21442#25968#35774#32622
      ImageIndex = 1
      object Label1: TLabel
        Left = 128
        Top = 48
        Width = 72
        Height = 13
        Caption = #30003#35831#20070#21517#31216#65306
      end
      object Panel2: TPanel
        Left = 0
        Top = 369
        Width = 670
        Height = 49
        Align = alBottom
        Caption = 'Panel2'
        TabOrder = 0
        object btnAdd: TButton
          Left = 312
          Top = 16
          Width = 75
          Height = 25
          Caption = #28155#21152
          TabOrder = 0
          OnClick = btnAddClick
        end
        object btnDel: TButton
          Left = 405
          Top = 16
          Width = 75
          Height = 25
          Caption = #21024#38500
          TabOrder = 1
          OnClick = btnDelClick
        end
        object btnMdy: TButton
          Left = 498
          Top = 16
          Width = 75
          Height = 25
          Caption = #20462#25913
          TabOrder = 2
          OnClick = btnMdyClick
        end
        object btnSave: TButton
          Left = 592
          Top = 16
          Width = 75
          Height = 25
          Caption = #20445#23384
          TabOrder = 3
          OnClick = btnSaveClick
        end
      end
      object strgPara: TStringGrid
        Left = 0
        Top = 88
        Width = 670
        Height = 281
        Align = alBottom
        ColCount = 4
        RowCount = 10
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goTabs, goRowSelect]
        TabOrder = 1
        OnSelectCell = strgParaSelectCell
        RowHeights = (
          24
          24
          24
          24
          24
          24
          24
          24
          24
          24)
      end
      object edtAppName: TEdit
        Left = 224
        Top = 32
        Width = 249
        Height = 37
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -24
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        Text = #26032#24314#30003#35831#20070
      end
    end
  end
  object opnAppBook: TOpenDialog
    Filter = 'Doc'#25991#26723'(*.doc)|*.doc|Doc'#25991#26723'(*.doc)|*.doc'
    Options = [ofAllowMultiSelect]
    Left = 156
    Top = 416
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 276
    Top = 224
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=OraOLEDB.Oracle.1;Password=b%liang#yjsy;Persist Securit' +
      'y Info=True;User ID=gsmis;Data Source=betatest_202.114.74.23'
    LoginPrompt = False
    Provider = 'OraOLEDB.Oracle.1'
    Left = 380
    Top = 152
  end
end