xjkprint.dfm

excel import excel importe xcel importexcel import

object Form1: TForm1
  Left = 84
  Top = 96
  Width = 549
  Height = 561
  Caption = #23398#31821#23548#20986#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object SnLabel1: TSnLabel
    Left = 30
    Top = 33
    Width = 72
    Height = 13
    Caption = #26381#21153#22120#21517#31216#65306
  end
  object SnLabel2: TSnLabel
    Left = 30
    Top = 57
    Width = 72
    Height = 13
    Caption = #25968#25454#24211#21517#31216#65306
  end
  object SnLabel3: TSnLabel
    Left = 30
    Top = 81
    Width = 48
    Height = 13
    Caption = #30331#38470#21517#65306
  end
  object SnLabel4: TSnLabel
    Left = 30
    Top = 105
    Width = 36
    Height = 13
    Caption = #23494#30721#65306
  end
  object SnLabel5: TSnLabel
    Left = 176
    Top = 149
    Width = 36
    Height = 13
    Caption = #29677#32423#65306
  end
  object SnLabel6: TSnLabel
    Left = 325
    Top = 107
    Width = 48
    Height = 13
    Caption = #26597#35810#20540#65306
  end
  object SnButton1: TSnButton
    Left = 331
    Top = 16
    Width = 161
    Height = 49
    Caption = #36830#25509#25968#25454#24211
    TabOrder = 0
    ShowBorderColor = True
    OnClick = SnButton1Click
  end
  object SnButton2: TSnButton
    Left = 424
    Top = 183
    Width = 73
    Height = 25
    Caption = #24110#21161#65311
    ParentShowHint = False
    ShowHint = False
    TabOrder = 5
    ShowBorderColor = True
    OnClick = SnButton2Click
  end
  object SnEdit_user: TSnEdit
    Left = 126
    Top = 80
    Width = 121
    Height = 21
    MouseEnterColor = 12426875
    MouseLeaveColor = 12426875
    TabOrder = 3
    Text = 'sa'
  end
  object SnEdit_pass: TSnEdit
    Left = 126
    Top = 105
    Width = 121
    Height = 21
    MouseEnterColor = 12426875
    MouseLeaveColor = 12426875
    TabOrder = 4
  end
  object SnEdit_server: TSnEdit
    Left = 126
    Top = 25
    Width = 121
    Height = 21
    MouseEnterColor = 12426875
    MouseLeaveColor = 12426875
    TabOrder = 1
    Text = 'GCXY-XJ'
  end
  object SnEdit_Database: TSnEdit
    Left = 126
    Top = 52
    Width = 121
    Height = 21
    MouseEnterColor = 12426875
    MouseLeaveColor = 12426875
    TabOrder = 2
    Text = 'UserTables'
  end
  object SnListBox1: TSnListBox
    Left = 16
    Top = 144
    Width = 145
    Height = 345
    MouseEnterColor = 12426875
    MouseLeaveColor = 12426875
    ItemHeight = 13
    ShowHScroll = True
    TabOrder = 6
    OnDblClick = SnListBox1DblClick
    UniformImageIndex = -1
    SelectColor = clHighlight
  end
  object SnEdit1: TSnEdit
    Left = 232
    Top = 144
    Width = 169
    Height = 21
    MouseEnterColor = 12426875
    MouseLeaveColor = 12426875
    TabOrder = 7
  end
  object SnButton3: TSnButton
    Left = 424
    Top = 225
    Width = 73
    Height = 25
    Caption = #23548#20986'Excel'
    TabOrder = 8
    ShowBorderColor = True
    OnClick = SnButton3Click
  end
  object SnComboBox1: TSnComboBox
    Left = 328
    Top = 73
    Width = 167
    Height = 21
    ItemHeight = 13
    ItemIndex = -1
    DropDownCount = 8
    MouseEnterColor = 12426875
    MouseLeaveColor = 12426875
    OnChange = SnComboBox1Change
    Sorted = False
    Color = clWhite
    ParentColor = False
    TabOrder = 9
    ListStyle = SnStandard
    Text = #35831#36873#25321#26597#35810#26041#24335
    Items.Strings = (
      #23398#21495
      #22995#21517
      #29677#32423)
    Style = csDropDown
  end
  object SnEdit2: TSnEdit
    Left = 390
    Top = 107
    Width = 105
    Height = 21
    MouseEnterColor = 12426875
    MouseLeaveColor = 12426875
    TabOrder = 10
  end
  object SnButton4: TSnButton
    Left = 424
    Top = 143
    Width = 73
    Height = 25
    Caption = #26597#35810
    TabOrder = 11
    ShowBorderColor = True
    OnClick = SnButton4Click
  end
  object SnButton5: TSnButton
    Left = 424
    Top = 264
    Width = 73
    Height = 25
    Caption = #20851#38381
    TabOrder = 12
    ShowBorderColor = True
    OnClick = SnButton5Click
  end
  object SnStatusBar1: TSnStatusBar
    Left = 0
    Top = 511
    Width = 541
    Height = 23
    Panels = <>
    SimplePanel = True
  end
  object SnProgressBar1: TSnProgressBar
    Left = 511
    Top = 21
    Width = 12
    Height = 463
    Position = 20
    Color = clCream
    ParentColor = False
    Orientation = snVertical
  end
  object SnProgressBar2: TSnProgressBar
    Left = 464
    Top = 296
    Width = 12
    Height = 189
    Position = 20
    Color = clCream
    ParentColor = False
    Orientation = snVertical
  end
  object SnDBGrid1: TSnDBGrid
    Left = 168
    Top = 175
    Width = 233
    Height = 313
    DataSource = DataSource2
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 16
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = SnDBGrid1CellClick
    MouseEnterColor = 12426875
    MouseLeaveColor = 12426875
    RowColor = False
    RowDoubleColor = clWhite
    RowSingleColor = clWhite
    Columns = <
      item
        Expanded = False
        FieldName = 'XJ_XJK__XH'
        Title.Caption = #23398#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'XJ_XJK__XM'
        Title.Caption = #22995#21517
        Visible = True
      end>
  end
  object ADOQuery: TADOQuery
    Connection = ADOConn
    CursorType = ctStatic
    Parameters = <>
    Left = 264
    Top = 96
  end
  object ADOConn: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'MSDAORA'
    Left = 264
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery
    Left = 264
    Top = 64
  end
  object SnForm1: TSnForm
    Active = True
    BgColor = 14609391
    BorderColor = 14168584
    BorderWidth = 3
    UseCustomTaskBarMenu = True
    Left = 296
    Top = 24
  end
  object DataSource2: TDataSource
    DataSet = ADQxs
    Left = 296
    Top = 64
  end
  object ADQxs: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 296
    Top = 96
  end
  object ADOexe: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 416
    Top = 296
  end
  object ADOcj: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 416
    Top = 328
  end
  object ADOfsfs: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 416
    Top = 360
  end
  object ADObk: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 416
    Top = 392
  end
  object ADObj: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 416
    Top = 424
  end
  object ADOtwo: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 416
    Top = 456
  end
  object adocl: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 480
    Top = 296
  end
end