ucxlxr.dfm

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

object frmcxlxr: Tfrmcxlxr
  Left = 207
  Top = 182
  BorderStyle = bsNone
  Caption = 'frmcxlxr'
  ClientHeight = 266
  ClientWidth = 411
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Shape1: TShape
    Left = 0
    Top = 0
    Width = 411
    Height = 30
    Align = alTop
    Brush.Color = clTeal
    Pen.Color = clTeal
    Pen.Width = 2
    OnMouseDown = Shape1MouseDown
  end
  object Label4: TLabel
    Left = 181
    Top = 13
    Width = 60
    Height = 12
    Caption = #32852#31995#20154#26597#35810
    Transparent = True
  end
  object Shape2: TShape
    Left = 0
    Top = 30
    Width = 411
    Height = 236
    Align = alClient
    Brush.Color = clActiveBorder
    Pen.Color = clTeal
    Pen.Width = 4
  end
  object Label1: TLabel
    Left = 9
    Top = 62
    Width = 72
    Height = 12
    Caption = #32852#31995#20154#22995#21517#65306
  end
  object Label2: TLabel
    Left = 204
    Top = 62
    Width = 84
    Height = 12
    Caption = #32852#31995#20154#25163#26426#21495#65306
  end
  object Label3: TLabel
    Left = 8
    Top = 88
    Width = 192
    Height = 12
    Caption = #25552#31034#65306#21452#20987#32852#31995#20154#22995#21517#21487#20197#21457#36865#30701#20449
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 301
    Top = 78
    Width = 52
    Height = 22
    Caption = #26597#35810
    Flat = True
    OnClick = SpeedButton1Click
  end
  object Shape3: TShape
    Left = 6
    Top = 101
    Width = 397
    Height = 1
    Brush.Color = clGradientInactiveCaption
    Pen.Style = psDot
  end
  object SpeedButton2: TSpeedButton
    Left = 353
    Top = 78
    Width = 52
    Height = 22
    Caption = #36864#20986
    Flat = True
    OnClick = SpeedButton2Click
  end
  object Edit1: TEdit
    Left = 77
    Top = 58
    Width = 121
    Height = 20
    Color = clInfoBk
    TabOrder = 0
  end
  object Edit2: TEdit
    Left = 284
    Top = 58
    Width = 121
    Height = 20
    Color = clInfoBk
    MaxLength = 11
    TabOrder = 1
  end
  object DBGrid1: TDBGrid
    Left = 6
    Top = 106
    Width = 399
    Height = 153
    Color = clInfoBk
    DataSource = DataSource1
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'fzname'
        Title.Alignment = taCenter
        Title.Caption = #25152#23646#32452#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Title.Alignment = taCenter
        Title.Caption = #22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sex'
        Title.Alignment = taCenter
        Title.Caption = #24615#21035
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'telsj'
        Title.Alignment = taCenter
        Title.Caption = #25163#26426#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'email'
        Title.Alignment = taCenter
        Title.Caption = #30005#23376#37038#20214
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'qz'
        Title.Alignment = taCenter
        Title.Caption = #20256#30495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'telgs'
        Title.Alignment = taCenter
        Title.Caption = #20844#21496#30005#35805
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gsname'
        Title.Alignment = taCenter
        Title.Caption = #20844#21496#21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ssbm'
        Title.Alignment = taCenter
        Title.Caption = #25152#23646#37096#38376
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'xxdz'
        Title.Alignment = taCenter
        Title.Caption = #32852#31995#22320#22336
        Visible = True
      end>
  end
  object DataSource1: TDataSource
    DataSet = Qcxlxr
    Left = 88
    Top = 168
  end
  object Qcxlxr: TADOQuery
    Connection = smsdb.conn
    Parameters = <>
    SQL.Strings = (
      'select * from txl,fz where txl.fzid=fz.fzid')
    Left = 200
    Top = 176
  end
end