unit_sendinfo.dfm

delphi开发的中国移动大客户管理系统,后台数据库为oracle

object Frm_SendInfo: TFrm_SendInfo
  Left = 242
  Top = 201
  Width = 544
  Height = 375
  Caption = '短信发送'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 300
    Width = 536
    Height = 41
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 0
    object FlatButton2: TFlatButton
      Left = 375
      Top = 9
      Width = 75
      Height = 25
      Caption = '取消'
      TabOrder = 0
      OnClick = BitBtn2Click
    end
    object FlatButton3: TFlatButton
      Left = 453
      Top = 9
      Width = 75
      Height = 25
      Caption = '关闭'
      TabOrder = 1
      OnClick = BitBtn3Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 69
    Width = 536
    Height = 231
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 134
      Height = 231
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object Panel4: TPanel
        Left = 0
        Top = 206
        Width = 134
        Height = 25
        Align = alBottom
        BevelOuter = bvLowered
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 7
          Width = 77
          Height = 14
          Caption = '总用户数：0'
        end
      end
      object Panel9: TPanel
        Left = 0
        Top = 0
        Width = 134
        Height = 25
        Align = alTop
        BevelOuter = bvLowered
        Caption = '发送用户'
        TabOrder = 1
      end
      object ListBox1: TListBox
        Left = 0
        Top = 25
        Width = 134
        Height = 181
        Align = alClient
        ItemHeight = 14
        TabOrder = 2
        OnDblClick = SpeedButton3Click
        OnDragDrop = ListBox1DragDrop
        OnDragOver = ListBox1DragOver
      end
    end
    object Panel5: TPanel
      Left = 134
      Top = 0
      Width = 402
      Height = 231
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Panel6: TPanel
        Left = 0
        Top = 0
        Width = 402
        Height = 35
        Align = alTop
        BevelOuter = bvLowered
        TabOrder = 0
        object Label2: TLabel
          Left = 32
          Top = 10
          Width = 70
          Height = 14
          Caption = '手机号码：'
        end
        object Edit1: TFlatEdit
          Left = 96
          Top = 8
          Width = 121
          Height = 20
          ColorFlat = clWhite
          TabOrder = 0
          OnKeyPress = Edit1KeyPress
        end
        object FlatButton1: TFlatButton
          Left = 225
          Top = 6
          Width = 75
          Height = 25
          Caption = '确定'
          TabOrder = 1
          OnClick = SpeedButton1Click
        end
      end
      object Panel7: TPanel
        Left = 0
        Top = 35
        Width = 402
        Height = 196
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object DBGrid1: TDBGrid
          Left = 33
          Top = 0
          Width = 369
          Height = 196
          Align = alClient
          DataSource = DataSource1
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -14
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          OnDblClick = SpeedButton2Click
          Columns = <
            item
              Expanded = False
              FieldName = 'SID'
              Title.Caption = '手机号码'
              Width = 90
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Name'
              Title.Caption = '用户名称'
              Width = 110
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DJ'
              Title.Caption = '星级'
              Width = 60
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Fld_SM'
              Title.Caption = '当前状态'
              Width = 70
              Visible = True
            end>
        end
        object Panel8: TPanel
          Left = 0
          Top = 0
          Width = 33
          Height = 196
          Align = alLeft
          BevelOuter = bvLowered
          TabOrder = 1
          object SpeedButton2: TSpeedButton
            Left = 5
            Top = 48
            Width = 23
            Height = 22
            Caption = '<'
            Flat = True
            OnClick = SpeedButton2Click
          end
          object SpeedButton3: TSpeedButton
            Left = 5
            Top = 76
            Width = 23
            Height = 22
            Caption = '>'
            Flat = True
            OnClick = SpeedButton3Click
          end
          object SpeedButton4: TSpeedButton
            Left = 5
            Top = 20
            Width = 23
            Height = 22
            Caption = '<<'
            Flat = True
            OnClick = SpeedButton4Click
          end
          object SpeedButton5: TSpeedButton
            Left = 5
            Top = 104
            Width = 23
            Height = 22
            Caption = '>>'
            Flat = True
            OnClick = SpeedButton5Click
          end
        end
      end
    end
  end
  object Panel10: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 69
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Panel11: TPanel
      Left = 3
      Top = 2
      Width = 21
      Height = 63
      BevelOuter = bvLowered
      TabOrder = 0
      object Label3: TLabel
        Left = 4
        Top = 4
        Width = 14
        Height = 58
        AutoSize = False
        Caption = '短信内容'
        WordWrap = True
      end
    end
    object Memo1: TFlatMemo
      Left = 24
      Top = 2
      Width = 427
      Height = 63
      ColorFlat = clWhite
      ScrollBars = ssVertical
      TabOrder = 1
    end
    object BitBtn4: TFlatButton
      Left = 456
      Top = 11
      Width = 75
      Height = 25
      Caption = '选择短信'
      TabOrder = 2
      OnClick = BitBtn4Click
    end
    object BitBtn1: TFlatButton
      Left = 456
      Top = 39
      Width = 75
      Height = 25
      Caption = '短信发送'
      TabOrder = 3
      OnClick = BitBtn1Click
    end
  end
  object Query1: TQuery
    DatabaseName = 'db_vipdl'
    Left = 314
    Top = 135
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 346
    Top = 135
  end
  object SP_DXFW: TStoredProc
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'db_vipdl'
    SessionName = 'Default'
    StoredProcName = 'INSERT_DXFW_DS'
    Left = 377
    Top = 137
    ParamData = <
      item
        DataType = ftString
        Name = 'P_SID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_DXNR'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_FXSJ'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_YXJ'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_INGH'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_FXR'
        ParamType = ptInput
      end>
  end
end