udycx.dfm

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

object frmdycx: Tfrmdycx
  Left = 230
  Top = 260
  BorderStyle = bsNone
  Caption = 'frmdycx'
  ClientHeight = 276
  ClientWidth = 410
  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 Shape4: TShape
    Left = 0
    Top = 30
    Width = 410
    Height = 246
    Align = alClient
    Brush.Color = clActiveBorder
    Pen.Color = clTeal
    Pen.Width = 4
  end
  object Shape1: TShape
    Left = 0
    Top = 0
    Width = 410
    Height = 30
    Align = alTop
    Brush.Color = clTeal
    Pen.Color = clTeal
    Pen.Width = 2
    OnMouseDown = Shape1MouseDown
  end
  object Label4: TLabel
    Left = 184
    Top = 12
    Width = 48
    Height = 12
    Caption = #26597#35810#30701#35821
    Transparent = True
  end
  object Shape2: TShape
    Left = 0
    Top = 30
    Width = 410
    Height = 246
    Align = alClient
    Brush.Color = clActiveBorder
    Pen.Color = clTeal
    Pen.Width = 4
  end
  object Label1: TLabel
    Left = 6
    Top = 53
    Width = 72
    Height = 12
    Caption = #30701#35821#20851#38190#23383#65306
  end
  object Label3: TLabel
    Left = 8
    Top = 88
    Width = 156
    Height = 12
    Caption = #25552#31034#65306#21452#20987#30701#35821#21487#20197#21457#36865#30701#20449
  end
  object SpeedButton1: TSpeedButton
    Left = 301
    Top = 78
    Width = 52
    Height = 22
    Caption = #26597#35810
    Flat = True
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 353
    Top = 78
    Width = 52
    Height = 22
    Caption = #36864#20986
    Flat = True
    OnClick = SpeedButton2Click
  end
  object Shape3: TShape
    Left = 6
    Top = 101
    Width = 397
    Height = 1
    Brush.Color = clGradientInactiveCaption
    Pen.Style = psDot
  end
  object Edit1: TEdit
    Left = 74
    Top = 49
    Width = 121
    Height = 20
    Color = clInfoBk
    TabOrder = 0
  end
  object DBGrid1: TDBGrid
    Left = 5
    Top = 104
    Width = 399
    Height = 167
    Color = clInfoBk
    DataSource = DataSource1
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'dyfzname'
        Title.Alignment = taCenter
        Title.Caption = #25152#23646#32452#21517
        Width = 93
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dyinfo'
        Title.Alignment = taCenter
        Title.Caption = #30701#35821#20869#23481
        Width = 283
        Visible = True
      end>
  end
  object DataSource1: TDataSource
    DataSet = Qdycx
    Left = 136
    Top = 128
  end
  object Qdycx: TADOQuery
    Connection = smsdb.conn
    Parameters = <>
    SQL.Strings = (
      'select * from dy,dyfz where dy.dyfzid=dyfz.dyfzid')
    Left = 176
    Top = 128
  end
end