unit1.~dfm

本程序是个基于SQL语句的短消息管理系统 可以对短信进行添加和查询

object Form1: TForm1
  Left = 192
  Top = 112
  Width = 544
  Height = 375
  Caption = 'Form1'
  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 Label1: TLabel
    Left = 16
    Top = 8
    Width = 84
    Height = 13
    Caption = #30701#20449#25910#21040#26085#26399#65306
  end
  object Label2: TLabel
    Left = 16
    Top = 32
    Width = 84
    Height = 13
    Caption = #30701#20449#25910#21040#26102#38388#65306
  end
  object Label3: TLabel
    Left = 16
    Top = 56
    Width = 48
    Height = 13
    Caption = #21457#20449#20154#65306
  end
  object Label4: TLabel
    Left = 16
    Top = 88
    Width = 60
    Height = 13
    Caption = #25163#26426#21495#30721#65306
  end
  object Label5: TLabel
    Left = 16
    Top = 120
    Width = 60
    Height = 13
    Caption = #30701#20449#20869#23481#65306
  end
  object Edit1: TEdit
    Left = 112
    Top = 8
    Width = 121
    Height = 21
    TabOrder = 0
    Text = 'Edit1'
  end
  object Edit2: TEdit
    Left = 112
    Top = 32
    Width = 121
    Height = 21
    TabOrder = 1
    Text = 'Edit2'
  end
  object Edit3: TEdit
    Left = 112
    Top = 56
    Width = 121
    Height = 21
    TabOrder = 2
    Text = 'Edit3'
  end
  object Edit4: TEdit
    Left = 112
    Top = 80
    Width = 121
    Height = 21
    TabOrder = 3
    Text = 'Edit4'
  end
  object Edit5: TEdit
    Left = 112
    Top = 112
    Width = 217
    Height = 21
    TabOrder = 4
    Text = 'Edit5'
    OnChange = Edit5Change
  end
  object Edit6: TEdit
    Left = 400
    Top = 96
    Width = 70
    Height = 21
    TabOrder = 5
    Text = 'Edit6'
  end
  object Button1: TButton
    Left = 344
    Top = 8
    Width = 129
    Height = 25
    Caption = #26174#31034#24403#21069#26085#26399#21644#26102#38388
    TabOrder = 6
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 344
    Top = 48
    Width = 129
    Height = 25
    Caption = #23558#30701#20449#28155#21152#21040#25968#25454#24211
    Enabled = False
    TabOrder = 7
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 344
    Top = 96
    Width = 45
    Height = 25
    Caption = #26816#32034
    TabOrder = 8
    OnClick = Button3Click
  end
  object Panel1: TPanel
    Left = 24
    Top = 160
    Width = 441
    Height = 193
    Caption = 'Panel1'
    TabOrder = 9
    object DBGrid1: TDBGrid
      Left = 8
      Top = 48
      Width = 409
      Height = 105
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object DBNavigator1: TDBNavigator
      Left = 96
      Top = 152
      Width = 240
      Height = 25
      DataSource = DataSource1
      TabOrder = 1
    end
    object DateTimePicker1: TDateTimePicker
      Left = 232
      Top = 8
      Width = 186
      Height = 21
      Date = 38488.511745092590000000
      Time = 38488.511745092590000000
      TabOrder = 2
    end
  end
  object CheckBox1: TCheckBox
    Left = 344
    Top = 128
    Width = 129
    Height = 17
    Caption = #26174#31034#25968#25454#24211#20869#23481
    TabOrder = 10
    OnClick = CheckBox1Click
  end
  object Query1: TQuery
    SessionName = 'Default'
    SQL.Strings = (
      'select * from shortinfo.db')
    Left = 48
    Top = 160
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 88
    Top = 160
  end
end