unit_browse.dfm

实现短信的收发应用非常的方便,系统很小直接使用不需安装

object Browseform: TBrowseform
  Left = 246
  Top = 223
  BorderStyle = bsNone
  ClientHeight = 392
  ClientWidth = 386
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnMouseDown = FormMouseDown
  PixelsPerInch = 96
  TextHeight = 12
  object Shape2: TShape
    Left = 0
    Top = 30
    Width = 386
    Height = 362
    Align = alClient
    Brush.Color = clInactiveBorder
    Pen.Color = clTeal
    Pen.Width = 4
  end
  object BitBtn2: TSpeedButton
    Left = 6
    Top = 34
    Width = 74
    Height = 22
    Caption = #23383#27573#35774#32622
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000055
      555557777777775F55550FFFFFFFFF0555557F5555555F7FFF5F0FEEEEEE0000
      05007F555555777775770FFFFFF0BFBFB00E7F5F5557FFF557770F0EEEE000FB
      FB0E7F75FF57775555770FF00F0FBFBFBF0E7F57757FFFF555770FE0B00000FB
      FB0E7F575777775555770FFF0FBFBFBFBF0E7F5575FFFFFFF5770FEEE0000000
      FB0E7F555777777755770FFFFF0B00BFB0007F55557577FFF7770FEEEEE0B000
      05557F555557577775550FFFFFFF0B0555557FF5F5F57575F55500F0F0F0F0B0
      555577F7F7F7F7F75F5550707070700B055557F7F7F7F7757FF5507070707050
      9055575757575757775505050505055505557575757575557555}
    NumGlyphs = 2
    OnClick = BitBtn2Click
  end
  object SpeedButton1: TSpeedButton
    Left = 80
    Top = 34
    Width = 72
    Height = 22
    Caption = #36864#20986
    Flat = True
    Glyph.Data = {
      E6040000424DE604000000000000360000002800000013000000140000000100
      180000000000B004000000000000000000000000000000000000C6C3C6C6C3C6
      C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3
      C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6000000C6C3C6C6C3C6C6C3C6C6
      C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6
      C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6000000C6C3C6C6C3C6C6C3C6C6C3C6C6C3
      C6C6C3C6C6C3C60000FF0000FF0000FF0000FF0000FFC6C3C6C6C3C6C6C3C6C6
      C3C6C6C3C6C6C3C6C6C3C6000000C6C3C6C6C3C6C6C3C6C6C3C6C6C3C60000FF
      0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FFC6C3C6C6C3C6C6C3
      C6C6C3C6C6C3C6000000C6C3C6C6C3C6C6C3C6C6C3C60000FF0000FFC6C3C6C6
      C3C67B7D7B0000007B7D7BC6C3C60000FF0000FF0000FFC6C3C6C6C3C6C6C3C6
      C6C3C6000000C6C3C6C6C3C6C6C3C60000FF0000FF0000FF0000FFC6C3C60000
      00000000000000C6C3C6C6C3C60000FF0000FF0000FFC6C3C6C6C3C6C6C3C600
      0000C6C3C6C6C3C6C6C3C60000FFC6C3C60000FF0000FF0000FF7B7D7B000000
      7B7D7BC6C3C6C6C3C6C6C3C60000FF0000FFC6C3C6C6C3C6C6C3C6000000C6C3
      C6C6C3C60000FF0000FFC6C3C6C6C3C60000FF0000FF0000FFC6C3C6C6C3C6C6
      C3C6C6C3C6C6C3C6C6C3C60000FF0000FFC6C3C6C6C3C6000000C6C3C6C6C3C6
      0000FF0000FFC6C3C6C6C3C6C6C3C60000FF0000FF000000C6C3C6C6C3C6C6C3
      C6C6C3C6C6C3C60000FF0000FFC6C3C6C6C3C6000000C6C3C6C6C3C60000FF00
      00FFC6C3C6C6C3C6C6C3C6C6C3C67B7D7B0000007B7D7BC6C3C6C6C3C6C6C3C6
      C6C3C60000FF0000FFC6C3C6C6C3C6000000C6C3C6C6C3C60000FF0000FFC6C3
      C6C6C3C6C6C3C6C6C3C60000840000000000840000FFC6C3C6C6C3C6C6C3C600
      00FF0000FFC6C3C6C6C3C6000000C6C3C6C6C3C60000FF0000FFC6C3C6C6C3C6
      C6C3C6C6C3C60000000000000000000000FF0000FFC6C3C6C6C3C60000FF0000
      FFC6C3C6C6C3C6000000C6C3C6C6C3C6C6C3C60000FF0000FFC6C3C6C6C3C6C6
      C3C60000000000000000000000FF0000FF0000FFC6C3C60000FFC6C3C6C6C3C6
      C6C3C6000000C6C3C6C6C3C6C6C3C60000FF0000FF0000FFC6C3C6C6C3C60000
      00000000000000C6C3C60000FF0000FF0000FF0000FFC6C3C6C6C3C6C6C3C600
      0000C6C3C6C6C3C6C6C3C6C6C3C60000FF0000FF0000FFC6C3C67B7D7B000000
      7B7D7BC6C3C6C6C3C60000FF0000FFC6C3C6C6C3C6C6C3C6C6C3C6000000C6C3
      C6C6C3C6C6C3C6C6C3C6C6C3C60000FF0000FF0000FF0000FF0000FF0000FF00
      00FF0000FF0000FFC6C3C6C6C3C6C6C3C6C6C3C6C6C3C6000000C6C3C6C6C3C6
      C6C3C6C6C3C6C6C3C6C6C3C6C6C3C60000FF0000FF0000FF0000FF0000FFC6C3
      C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6000000C6C3C6C6C3C6C6C3C6C6
      C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6
      C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6000000C6C3C6C6C3C6C6C3C6C6C3C6C6C3
      C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6
      C3C6C6C3C6C6C3C6C6C3C6000000C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6
      C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3C6C6C3
      C6C6C3C6C6C3C6000000}
    OnClick = SpeedButton1Click
  end
  object Shape1: TShape
    Left = 0
    Top = 0
    Width = 386
    Height = 30
    Align = alTop
    Brush.Color = clTeal
    Pen.Color = clTeal
    Pen.Width = 2
    OnMouseDown = Shape1MouseDown
  end
  object Label4: TLabel
    Left = 171
    Top = 12
    Width = 48
    Height = 12
    Caption = #36873#25321#20449#24687
    Transparent = True
  end
  object StatusBar1: TStatusBar
    Left = 92
    Top = 253
    Width = 153
    Height = 19
    Align = alNone
    Panels = <
      item
        Text = #24635#35760#24405#25968#65306
        Width = 90
      end
      item
        Text = #24403#21069#20301#32622#65306
        Width = 90
      end
      item
        Width = 50
      end>
    SimplePanel = False
    Visible = False
  end
  object BitBtn1: TBitBtn
    Left = 216
    Top = 280
    Width = 75
    Height = 25
    Caption = #36807#28388
    TabOrder = 1
    Visible = False
    OnClick = BitBtn1Click
  end
  object DBGrid1: TDBGrid
    Left = 5
    Top = 57
    Width = 376
    Height = 331
    Color = clInfoBk
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    OnMouseDown = DBGrid1MouseDown
    OnTitleClick = DBGrid1TitleClick
  end
  object Edit1: TEdit
    Left = 153
    Top = 35
    Width = 228
    Height = 20
    Color = clInfoBk
    TabOrder = 2
    OnKeyPress = Edit1KeyPress
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 248
    Top = 48
  end
  object Query1: TADOQuery
    Connection = smsdb.conn
    AfterScroll = Query1AfterScroll
    Parameters = <>
    Left = 208
    Top = 160
  end
end