unit1.dfm

Delphi 错误帮助工具 在错误的时候能够让你知道是什么错了

object Form1: TForm1
  Left = 280
  Top = 109
  Hint = 'Delphi'#38169#35823#36895#26597#25163#20876
  AutoScroll = False
  Caption = 'Delphi'#38169#35823#36895#26597#25163#20876
  ClientHeight = 362
  ClientWidth = 228
  Color = clBtnFace
  Constraints.MaxHeight = 396
  Constraints.MaxWidth = 236
  Constraints.MinHeight = 389
  Constraints.MinWidth = 234
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 10
    Top = 15
    Width = 100
    Height = 13
    AutoSize = False
    Caption = #38169#35823#25552#31034#20869#23481#65306
  end
  object SpeedButton1: TSpeedButton
    Left = 200
    Top = 67
    Width = 21
    Height = 19
    Caption = '>>>'
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object Label6: TLabel
    Left = 14
    Top = 63
    Width = 65
    Height = 17
    AutoSize = False
    Caption = #27809#26377#25214#21040
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
  end
  object Edit1: TEdit
    Left = 23
    Top = 34
    Width = 186
    Height = 19
    Ctl3D = False
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ParentCtl3D = False
    TabOrder = 0
    OnChange = Edit1Change
  end
  object Button1: TButton
    Left = 80
    Top = 64
    Width = 75
    Height = 25
    Caption = #26597#35810
    Default = True
    TabOrder = 1
    OnClick = Button1Click
  end
  object GroupBox1: TGroupBox
    Left = 5
    Top = 88
    Width = 217
    Height = 249
    Caption = #26597#35810#32467#26524
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    object Label2: TLabel
      Left = 16
      Top = 67
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #38169#35823#25552#31034#65306
    end
    object Label3: TLabel
      Left = 16
      Top = 140
      Width = 81
      Height = 15
      AutoSize = False
      Caption = #38169#35823#21407#22240#65306
    end
    object Label4: TLabel
      Left = 16
      Top = 20
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #38169#35823#26102#38388#65306
    end
    object Label5: TLabel
      Left = 16
      Top = 43
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #38169#35823#31867#21035#65306
    end
    object DBText1: TDBText
      Left = 93
      Top = 19
      Width = 65
      Height = 17
      DataField = 'error_time'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 93
      Top = 44
      Width = 108
      Height = 17
      DataField = 'error_kind'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBMemo1: TDBMemo
      Left = 26
      Top = 82
      Width = 167
      Height = 55
      Ctl3D = False
      DataField = 'error_id'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 0
    end
    object DBMemo2: TDBMemo
      Left = 26
      Top = 156
      Width = 167
      Height = 83
      Ctl3D = False
      DataField = 'error_corse'
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 1
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 343
    Width = 228
    Height = 19
    Panels = <>
    SimplePanel = True
    SimpleText = '    '#20316#32773#65306#20312#25991#21018'  QQ'#65306'44512974 '
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\error.mdb;Persist' +
      ' Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 112
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 176
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from error_table')
    Left = 144
  end
  object PopupMenu1: TPopupMenu
    Left = 160
    Top = 56
    object exit: TMenuItem
      Caption = #20851#38381
      OnClick = exitClick
    end
  end
end