uyfdx.dfm

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

object frmyfdx: Tfrmyfdx
  Left = 251
  Top = 192
  BorderStyle = bsNone
  Caption = 'frmyfdx'
  ClientHeight = 303
  ClientWidth = 417
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 417
    Height = 303
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Shape1: TShape
      Left = 0
      Top = 0
      Width = 417
      Height = 30
      Align = alTop
      Brush.Color = clTeal
      Pen.Color = clTeal
      Pen.Width = 2
      OnMouseDown = Shape1MouseDown
    end
    object Shape2: TShape
      Left = 0
      Top = 30
      Width = 417
      Height = 273
      Align = alClient
      Brush.Color = clActiveBorder
      Pen.Color = clTeal
      Pen.Width = 4
    end
    object Label4: TLabel
      Left = 184
      Top = 12
      Width = 48
      Height = 12
      Caption = #24050#21457#30701#20449
      Transparent = True
    end
    object Label1: TLabel
      Left = 11
      Top = 45
      Width = 84
      Height = 12
      Caption = #25509#25910#32773#25163#26426#21495#65306
      Color = clBtnFace
      ParentColor = False
    end
    object Label2: TLabel
      Left = 35
      Top = 63
      Width = 60
      Height = 12
      Caption = #21457#36865#26085#26399#65306
      Color = clBtnFace
      ParentColor = False
    end
    object Label3: TLabel
      Left = 8
      Top = 82
      Width = 156
      Height = 12
      Caption = #25552#31034#65306#21452#20987#30701#20449#21487#20197#21457#36865#30701#20449
      Color = clBtnFace
      ParentColor = False
    end
    object SpeedButton1: TSpeedButton
      Left = 307
      Top = 78
      Width = 52
      Height = 22
      Caption = #26597#35810
      Flat = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 359
      Top = 78
      Width = 52
      Height = 22
      Caption = #36864#20986
      Flat = True
      OnClick = SpeedButton2Click
    end
    object Edit1: TEdit
      Left = 94
      Top = 40
      Width = 95
      Height = 20
      Color = clInfoBk
      MaxLength = 11
      TabOrder = 0
    end
    object tm: TDateTimePicker
      Left = 94
      Top = 60
      Width = 95
      Height = 20
      Hint = #25171#21246#34920#31034#21152#20837#26102#38388#26597#35810
      CalAlignment = dtaLeft
      Date = 37587.5733486458
      Time = 37587.5733486458
      ShowCheckbox = True
      Checked = False
      Color = clInfoBk
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object DBGrid1: TDBGrid
      Left = 5
      Top = 104
      Width = 405
      Height = 195
      Color = clInfoBk
      DataSource = DataSource1
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 2
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'sender'
          Title.Alignment = taCenter
          Title.Caption = #21457#36865#32773
          Width = 82
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'receiver'
          Title.Alignment = taCenter
          Title.Caption = #25509#25910#32773#25163#26426#21495
          Width = 83
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'content'
          Title.Alignment = taCenter
          Title.Caption = #30701#20449#20869#23481
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'senddate'
          Title.Alignment = taCenter
          Title.Caption = #21457#36865#26102#38388
          Visible = True
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = qyfdx
    Left = 336
    Top = 40
  end
  object qyfdx: TADOQuery
    Connection = smsdb.conn
    Parameters = <>
    SQL.Strings = (
      'select * from sendsms where status=1')
    Left = 368
    Top = 40
  end
end