📄 mailmerge.dfm
字号:
object wwDBNavigator1Post: TwwNavButton
Left = 333
Top = 0
Width = 37
Height = 25
Hint = 'Post changes of current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Post'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 9
Style = nbsPost
end
object wwDBNavigator1Cancel: TwwNavButton
Left = 370
Top = 0
Width = 37
Height = 25
Hint = 'Cancel changes made to current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Cancel'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 10
Style = nbsCancel
end
object wwDBNavigator1Refresh: TwwNavButton
Left = 407
Top = 0
Width = 37
Height = 25
Hint = 'Refresh the contents of the dataset'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Refresh'
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 11
Style = nbsRefresh
end
object wwDBNavigator1SaveBookmark: TwwNavButton
Left = 444
Top = 0
Width = 36
Height = 25
Hint = 'Bookmark current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1SaveBookmark'
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 12
Style = nbsSaveBookmark
end
object wwDBNavigator1RestoreBookmark: TwwNavButton
Left = 480
Top = 0
Width = 36
Height = 25
Hint = 'Go back to saved bookmark'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1RestoreBookmark'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 13
Style = nbsRestoreBookmark
end
end
object DBImage1: TDBImage
Left = 416
Top = 40
Width = 89
Height = 105
DataField = 'IMAGE'
DataSource = wwDataSource1
TabOrder = 3
Visible = False
end
object Panel1: TPanel
Left = 0
Top = 351
Width = 516
Height = 78
Align = alBottom
BorderWidth = 5
TabOrder = 4
DesignSize = (
516
78)
object BitBtn1: TBitBtn
Left = 408
Top = 32
Width = 102
Height = 40
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = 'Print'
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object wwDBRichEdit3: TwwDBRichEdit
Left = 6
Top = 6
Width = 387
Height = 66
Align = alLeft
AutoURLDetect = False
BorderStyle = bsNone
Color = clBtnFace
PrintJobName = 'Delphi 5'
ReadOnly = True
TabOrder = 1
EditorCaption = 'Edit Rich Text'
EditorPosition.Left = 0
EditorPosition.Top = 0
EditorPosition.Width = 0
EditorPosition.Height = 0
MeasurementUnits = muInches
PrintMargins.Top = 1
PrintMargins.Bottom = 1
PrintMargins.Left = 1
PrintMargins.Right = 1
PrintHeader.VertMargin = 0.5
PrintHeader.Font.Charset = DEFAULT_CHARSET
PrintHeader.Font.Color = clWindowText
PrintHeader.Font.Height = -11
PrintHeader.Font.Name = 'MS Sans Serif'
PrintHeader.Font.Style = []
PrintFooter.VertMargin = 0.5
PrintFooter.Font.Charset = DEFAULT_CHARSET
PrintFooter.Font.Color = clWindowText
PrintFooter.Font.Height = -11
PrintFooter.Font.Name = 'MS Sans Serif'
PrintFooter.Font.Style = []
RichEditVersion = 2
Data = {
970100007B5C727466315C616E73695C616E7369637067313235325C64656666
305C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C
66636861727365743020417269616C3B7D7D0D0A7B5C636F6C6F7274626C203B
5C7265643235355C677265656E305C626C7565303B7D0D0A5C766965776B696E
64345C7563315C706172645C66733138205468652061626F76652064656D6F20
696C6C757374726174657320686F7720796F752063616E20656D626564206461
746162617365206669656C647320696E206120726963686564697420616E6420
70726F6772616D6D61746963616C6C7920757064617465207468656D20617320
796F75206E61766967617465207468726F756768206120646174617365742E20
205468697320697320612074797065206F66205C6366315C62206D61696C2D6D
657267655C6366305C623020206F7065726174696F6E2E202055736520746869
7320746F20646973706C617920796F7572206669656C64732F6461746120696E
206120666F726D6174746564207761792E5C7061720D0A7D0D0A00}
end
object wwCheckBox1: TwwCheckBox
Left = 408
Top = 8
Width = 101
Height = 17
DisableThemes = False
AlwaysTransparent = False
ValueChecked = 'True'
ValueUnchecked = 'False'
DisplayValueChecked = 'True'
DisplayValueUnchecked = 'False'
NullAndBlankState = cbUnchecked
Caption = 'Show as Label'
TabOrder = 2
OnClick = wwCheckBox1Click
end
end
object wwDataSource1: TwwDataSource
DataSet = Table1
OnDataChange = wwDataSource1DataChange
Left = 16
Top = 16
end
object Table1: TwwTable
Active = True
DatabaseName = 'InfoDemo5'
TableName = 'clients.DBF'
ControlType.Strings = (
'RichEdit;RichEdit;;F')
SyncSQLByRange = False
NarrowSearch = False
ValidateWithMask = True
Left = 48
Top = 16
object Table1LAST_NAME: TStringField
FieldName = 'LAST_NAME'
end
object Table1FIRST_NAME: TStringField
FieldName = 'FIRST_NAME'
end
object Table1ACCT_NBR: TFloatField
FieldName = 'ACCT_NBR'
end
object Table1ADDRESS_1: TStringField
FieldName = 'ADDRESS_1'
end
object Table1CITY: TStringField
FieldName = 'CITY'
end
object Table1STATE: TStringField
FieldName = 'STATE'
Size = 2
end
object Table1ZIP: TStringField
FieldName = 'ZIP'
Size = 5
end
object Table1TELEPHONE: TStringField
FieldName = 'TELEPHONE'
Size = 12
end
object Table1DATE_OPEN: TDateField
FieldName = 'DATE_OPEN'
end
object Table1SS_NUMBER: TFloatField
FieldName = 'SS_NUMBER'
end
object Table1PICTURE: TStringField
FieldName = 'PICTURE'
Size = 15
end
object Table1BIRTH_DATE: TDateField
FieldName = 'BIRTH_DATE'
end
object Table1RISK_LEVEL: TStringField
FieldName = 'RISK_LEVEL'
Size = 8
end
object Table1OCCUPATION: TStringField
FieldName = 'OCCUPATION'
end
object Table1OBJECTIVES: TStringField
FieldName = 'OBJECTIVES'
Size = 10
end
object Table1INTERESTS: TStringField
FieldName = 'INTERESTS'
Size = 120
end
object Table1IMAGE: TBlobField
FieldName = 'IMAGE'
BlobType = ftTypedBinary
Size = 1
end
object Table1RINTERESTS: TBlobField
FieldName = 'RINTERESTS'
BlobType = ftTypedBinary
Size = 1
end
object Table1SEX: TStringField
FieldName = 'SEX'
Size = 6
end
object Table1EDUCATION: TSmallintField
FieldName = 'EDUCATION'
end
object Table1CREDRATING: TStringField
FieldName = 'CREDRATING'
Size = 1
end
object Table1MARRIED: TBooleanField
FieldName = 'MARRIED'
end
object Table1PAYMETHOD: TSmallintField
FieldName = 'PAYMETHOD'
end
object Table1BALANCEDUE: TFloatField
FieldName = 'BALANCEDUE'
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -