unit1.dfm

DELPHI操作技巧

          Top = 29
          Width = 801
          Height = 412
          DataSource = DStotal
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -15
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #25968#25454#23548#20986
      ImageIndex = 2
      object Panel6: TPanel
        Left = -1
        Top = -2
        Width = 820
        Height = 555
        TabOrder = 0
        object Label13: TLabel
          Left = 8
          Top = 8
          Width = 90
          Height = 15
          Caption = #23548#20986#20449#24687#35774#32622
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 8
          Top = 43
          Width = 45
          Height = 15
          Caption = #26631#39064#65306
        end
        object Label15: TLabel
          Left = 8
          Top = 75
          Width = 53
          Height = 15
          Caption = #21046#34920#20154':'
        end
        object Edttitle: TEdit
          Left = 46
          Top = 38
          Width = 763
          Height = 23
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          MaxLength = 100
          TabOrder = 0
        end
        object btnoutyes: TBitBtn
          Left = 8
          Top = 104
          Width = 75
          Height = 25
          Caption = #30830#23450
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clGreen
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = btnoutyesClick
        end
        object btnout: TBitBtn
          Left = 88
          Top = 104
          Width = 75
          Height = 25
          Caption = #23548#20986
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = btnoutClick
        end
        object edtman: TEdit
          Left = 62
          Top = 70
          Width = 746
          Height = 23
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          MaxLength = 100
          TabOrder = 3
        end
      end
    end
  end
  object Pangroup: TPanel
    Left = 304
    Top = 168
    Width = 245
    Height = 377
    TabOrder = 1
    Visible = False
    object Label4: TLabel
      Left = 8
      Top = 25
      Width = 60
      Height = 15
      Caption = #24453#36873#23383#27573
    end
    object Label5: TLabel
      Left = 128
      Top = 25
      Width = 60
      Height = 15
      Caption = #24050#36873#23383#27573
    end
    object Label6: TLabel
      Left = 10
      Top = 6
      Width = 52
      Height = 13
      Caption = #20998#32452#26465#20214
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object LBxgroupall: TListBox
      Left = 8
      Top = 43
      Width = 109
      Height = 320
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 0
      OnDblClick = LBxgroupallDblClick
    end
    object BitBtn5: TBitBtn
      Left = 204
      Top = 3
      Width = 40
      Height = 20
      Caption = #30830#23450
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn5Click
    end
    object LBxgroupsele: TListBox
      Left = 128
      Top = 43
      Width = 109
      Height = 320
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 2
      OnDblClick = LBxgroupseleDblClick
    end
  end
  object Pantotal: TPanel
    Left = 414
    Top = 192
    Width = 245
    Height = 377
    TabOrder = 2
    Visible = False
    object Label7: TLabel
      Left = 8
      Top = 26
      Width = 60
      Height = 15
      Caption = #24453#36873#23383#27573
    end
    object Label8: TLabel
      Left = 128
      Top = 26
      Width = 60
      Height = 15
      Caption = #24050#36873#23383#27573
    end
    object Label9: TLabel
      Left = 10
      Top = 6
      Width = 52
      Height = 13
      Caption = #32479#35745#23383#27573
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object LBxtotalall: TListBox
      Left = 8
      Top = 43
      Width = 109
      Height = 320
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 0
      OnDblClick = LBxtotalallDblClick
    end
    object BitBtn6: TBitBtn
      Left = 203
      Top = 3
      Width = 40
      Height = 20
      Caption = #30830#23450
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn6Click
    end
    object LBxtotalsele: TListBox
      Left = 128
      Top = 43
      Width = 109
      Height = 320
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 2
      OnDblClick = LBxtotalseleDblClick
    end
  end
  object Panshow: TPanel
    Left = 549
    Top = 208
    Width = 245
    Height = 377
    TabOrder = 3
    Visible = False
    object Label10: TLabel
      Left = 8
      Top = 26
      Width = 60
      Height = 15
      Caption = #24453#36873#23383#27573
    end
    object Label11: TLabel
      Left = 128
      Top = 26
      Width = 60
      Height = 15
      Caption = #24050#36873#23383#27573
    end
    object Label12: TLabel
      Left = 10
      Top = 6
      Width = 52
      Height = 13
      Caption = #24179#22343#23383#27573
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object LBxshowall: TListBox
      Left = 8
      Top = 43
      Width = 109
      Height = 320
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 0
      OnDblClick = LBxshowallDblClick
    end
    object BitBtn7: TBitBtn
      Left = 204
      Top = 3
      Width = 40
      Height = 20
      Caption = #30830#23450
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn7Click
    end
    object LBxshowsele: TListBox
      Left = 128
      Top = 43
      Width = 109
      Height = 320
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 2
      OnDblClick = LBxshowseleDblClick
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 160
  end
  object ADOConn: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=H:\pro\' +
      'excel\data\ExcelCtr.mdb;Persist Security Info=True'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 192
  end
  object Tblsystem: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'Tsystem'
    Left = 480
  end
  object DSsource: TDataSource
    DataSet = Tblsource
    Left = 184
    Top = 56
  end
  object Tblsource: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'Tsource'
    Left = 172
    Top = 56
  end
  object ADOComm: TADOCommand
    Connection = ADOConn
    Parameters = <>
    Left = 236
  end
  object TblsourceField: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'TsourceField'
    Left = 108
    Top = 56
  end
  object QryTmp: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 268
  end
  object Tbltotal: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    TableName = 'Ttotal'
    Left = 286
    Top = 35
  end
  object DStotal: TDataSource
    DataSet = Tbltotal
    Left = 296
    Top = 40
  end
end