📄 sms1.dfm
字号:
object Form1: TForm1
Left = 111
Top = 127
AutoScroll = False
BorderIcons = [biSystemMenu, biMinimize]
Caption = '中正sms客户管理系统'
ClientHeight = 469
ClientWidth = 765
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIForm
OldCreateOrder = False
OnCreate = FormCreate
OnDblClick = ddd
PixelsPerInch = 96
TextHeight = 13
object Label12: TLabel
Left = 360
Top = 248
Width = 38
Height = 13
Caption = 'Label12'
end
object PageControl1: TPageControl
Left = 0
Top = -2
Width = 766
Height = 466
ActivePage = TabSheet8
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnChange = PageControl1Change
object TabSheet1: TTabSheet
Caption = '新建sms'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
object Label1: TLabel
Left = 16
Top = 16
Width = 153
Height = 16
Caption = '收信人 '
end
object Label10: TLabel
Left = 88
Top = 408
Width = 137
Height = 16
Caption = '已输入0个字符 '
end
object duanxin: TMemo
Left = 17
Top = 248
Width = 360
Height = 145
MaxLength = 142
TabOrder = 2
OnChange = MemoTextChangeView
end
object tongxb: TBitBtn
Left = 392
Top = 40
Width = 89
Height = 89
Caption = '通讯簿：'
TabOrder = 1
OnClick = tongxunbo_buton
end
object StaticText1: TStaticText
Left = 16
Top = 216
Width = 68
Height = 24
Caption = '短信内容'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
object fasdx: TBitBtn
Left = 400
Top = 304
Width = 89
Height = 89
Caption = '发送短信'
Default = True
TabOrder = 3
OnClick = fasdxClick
end
object shoujihao: TMemo
Left = 18
Top = 39
Width = 361
Height = 170
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Lines.Strings = (
' 手机号每行一个或用'#39'；'#39'隔开。')
MaxLength = 1023
OEMConvert = True
ParentFont = False
ScrollBars = ssVertical
TabOrder = 0
WantTabs = True
end
object ListView7: TListView
Left = 512
Top = 40
Width = 222
Height = 369
Color = clActiveBorder
Columns = <
item
Caption = ' '
Width = 218
end>
MultiSelect = True
RowSelect = True
TabOrder = 5
ViewStyle = vsReport
OnChange = listView7change
end
end
object TabSheet2: TTabSheet
Caption = '待发送sms'
ImageIndex = 1
OnContextPopup = TabSheet2ContextPopup
object Label2: TLabel
Left = 16
Top = 289
Width = 57
Height = 16
Caption = '收信人： '
end
object Label3: TLabel
Left = 0
Top = 348
Width = 87
Height = 16
Caption = '短信内容： '
end
object ListView2: TListView
Left = 11
Top = 0
Width = 737
Height = 281
BiDiMode = bdLeftToRight
Columns = <
item
Width = 1
end
item
Width = 30
end
item
Caption = '序号'
end
item
Caption = '收信人'
Width = 80
end
item
Caption = '短信内容'
Width = 380
end
item
Caption = '收发时间'
Width = 120
end
item
Caption = ' '
Width = 80
end
item
Caption = ' '
Width = 60
end>
FullDrag = True
HotTrack = True
MultiSelect = True
ParentBiDiMode = False
TabOrder = 0
ViewStyle = vsReport
OnChange = daifaListView
end
object Memo1: TMemo
Left = 80
Top = 286
Width = 553
Height = 59
MaxLength = 1023
ScrollBars = ssVertical
TabOrder = 1
end
object Memo2: TMemo
Left = 80
Top = 352
Width = 553
Height = 73
MaxLength = 1023
TabOrder = 2
end
object changge_dai_BitBtn1: TBitBtn
Left = 638
Top = 288
Width = 75
Height = 33
Caption = '修 改'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = PageControl1Change
OnEnter = changge_dai_BitBtn1Click
end
object del_dai_BitBtn2: TBitBtn
Left = 640
Top = 384
Width = 73
Height = 33
Caption = '发送选择'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = PageControl1Change
OnEnter = del_dai_BitBtn2Click
end
end
object TabSheet3: TTabSheet
Caption = '已发送sms'
ImageIndex = 2
object Label4: TLabel
Left = 19
Top = 296
Width = 72
Height = 16
Caption = '收 信 人： '
end
object Label5: TLabel
Left = 16
Top = 352
Width = 66
Height = 16
Caption = '短信内容： '
end
object Label14: TLabel
Left = 8
Top = 98
Width = 42
Height = 16
Caption = '日期： '
end
object ListView3: TListView
Left = 104
Top = 0
Width = 646
Height = 281
Columns = <
item
Width = 1
end
item
Width = 1
end
item
Caption = '序号'
end
item
Caption = '收信人'
Width = 80
end
item
Caption = '短信内容'
Width = 380
end
item
Caption = '发送时间'
Width = 80
end
item
Caption = ' '
Width = 100
end
item
Caption = ' '
Width = 60
end>
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
OnChange = YiifaduanXinlistView
OnEnter = YIifaDuanXinChaXun
end
object Memo3: TMemo
Left = 104
Top = 288
Width = 649
Height = 57
MaxLength = 10240
ScrollBars = ssVertical
TabOrder = 1
end
object Memo4: TMemo
Left = 104
Top = 352
Width = 649
Height = 73
MaxLength = 1023
TabOrder = 2
end
object Button5: TButton
Left = 8
Top = 176
Width = 81
Height = 41
Caption = '上一工作日'
TabOrder = 3
OnClick = Button5Click
end
object Button6: TButton
Left = 8
Top = 216
Width = 81
Height = 41
Caption = '下一工作日'
TabOrder = 4
OnClick = Button6Click
end
object nian_Edit7: TEdit
Left = 8
Top = 127
Width = 81
Height = 24
MaxLength = 1023
TabOrder = 5
OnChange = YIifaDuanXinChaXun
OnEnter = YIifaDuanXinChaXun
end
end
object TabSheet6: TTabSheet
Caption = '已接收sms'
ImageIndex = 5
object Label6: TLabel
Left = 36
Top = 304
Width = 57
Height = 16
Caption = '收信人： '
end
object Label7: TLabel
Left = 18
Top = 360
Width = 72
Height = 16
Caption = '短信内容： '
end
object Label11: TLabel
Left = 4
Top = 108
Width = 48
Height = 16
Caption = '日期： '
end
object ListView4: TListView
Left = 103
Top = 0
Width = 648
Height = 289
Columns = <
item
Width = 1
end
item
Caption = '信息内容'
Width = 1
end
item
Caption = '序号'
Width = 60
end
item
Caption = '发信人'
Width = 80
end
item
Caption = ' 信息内容'
Width = 410
end
item
Caption = '收到时间'
Width = 80
end
item
Caption = ' '
Width = 80
end
item
Caption = ' '
Width = 60
end>
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
ViewStyle = vsReport
OnChange = YiJieShouListView4Change
OnEnter = YiJieshouDuanXinenter
end
object Memo5: TMemo
Left = 104
Top = 296
Width = 641
Height = 57
MaxLength = 1023
TabOrder = 1
end
object Memo6: TMemo
Left = 104
Top = 364
Width = 641
Height = 64
MaxLength = 1023
TabOrder = 2
end
object Button3: TButton
Left = 9
Top = 196
Width = 88
Height = 41
Caption = '上一工作日'
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 9
Top = 236
Width = 88
Height = 41
Caption = '下一工作日'
TabOrder = 4
OnClick = Button4Click
end
object Edit4: TEdit
Left = 6
Top = 136
Width = 89
Height = 24
TabOrder = 5
OnChange = YiJieshouDuanXinenter
OnEnter = YiJieshouDuanXinenter
end
end
object TabSheet5: TTabSheet
Caption = '点播信息维护'
ImageIndex = 5
object Label8: TLabel
Left = 0
Top = 320
Width = 87
Height = 16
Caption = '短信代码 ： '
end
object Label9: TLabel
Left = 0
Top = 360
Width = 72
Height = 16
Caption = '短信内容： '
end
object ListView1: TListView
Left = 5
Top = 0
Width = 745
Height = 297
Columns = <
item
Width = 1
end
item
Caption = '序号'
Width = 60
end
item
Caption = '信息代码'
Width = 80
end
item
Caption = '信息内容'
Width = 580
end
item
Caption = ' '
Width = 80
end
item
Caption = ' '
Width = 60
end>
FlatScrollBars = True
FullDrag = True
HotTrack = True
HotTrackStyles = [htHandPoint, htUnderlineHot]
IconOptions.AutoArrange = True
MultiSelect = True
RowSelect = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -