📄 mytest001.~dfm
字号:
object Form1: TForm1
Left = 236
Top = 188
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 170
Top = 6
Width = 32
Height = 13
Caption = 'Label1'
end
object Label2: TLabel
Left = 170
Top = 26
Width = 32
Height = 13
Caption = 'Label2'
end
object Label3: TLabel
Left = 164
Top = 196
Width = 32
Height = 13
Caption = 'Label3'
end
object Label4: TLabel
Left = 162
Top = 218
Width = 32
Height = 13
Caption = 'Label4'
end
object DBStatusLabel1: TDBStatusLabel
Left = 292
Top = 200
Width = 29
Height = 13
DataSource = DataSource1
Style = lsRecordNo
end
object RealGrid1: TRealGrid
Left = 0
Top = 48
Width = 688
Height = 139
ImeName = '茄惫绢(茄臂) (MS-IME98)'
TabOrder = 0
Columns = <
item
Color = 8421631
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Footer.Style = ()
Group = 0
Title.Caption = 'Column0'
DataWidth = 16
ColWidth = 64
GrpWidth = 49
end
item
Color = clRed
Footer.Style = ()
Group = 0
LevelIndex = 4
Title.Caption = 'Column1'
DataWidth = 16
ColWidth = 64
GrpWidth = 25
end
item
Color = clLime
Footer.Style = ()
Group = 0
LevelIndex = 2
Title.Caption = 'Column2'
DataWidth = 16
ColWidth = 64
GrpWidth = 25
end
item
Footer.Style = ()
Group = 1
LevelIndex = 11
Title.Caption = 'Column3'
DataWidth = 16
ColWidth = 64
GrpWidth = 46
end
item
Footer.Style = ()
Group = 1
Items.Strings = (
'111'
'222'
'333'
'444'
'555')
LevelIndex = 9
Title.Caption = 'Column4'
Values.Strings = (
'aaa'
'bbb'
'ccc'
'ddd'
'eee')
DataWidth = 16
ColWidth = 64
GrpWidth = 46
end
item
Footer.Style = ()
Group = 1
Title.Caption = 'Column5'
Visible = False
DataWidth = 16
ColWidth = 64
GrpWidth = 40
end
item
Footer.Style = ()
Group = 2
Title.Caption = 'Column6'
DataWidth = 16
ColWidth = 64
GrpWidth = 166
end
item
Footer.Style = ()
Group = 3
Title.Caption = 'Column7'
DataWidth = 16
ColWidth = 64
GrpWidth = 211
end
item
Footer.Style = ()
Group = 4
LevelIndex = 2
Title.Caption = 'Column8'
DataWidth = 16
ColWidth = 64
GrpWidth = 139
end
item
Footer.Style = ()
Group = 4
LevelIndex = 1
Title.Caption = 'Column9'
DataWidth = 16
ColWidth = 64
GrpWidth = 121
end
item
Footer.Style = ()
Group = 4
Title.Caption = 'Column10'
DataWidth = 16
ColWidth = 64
GrpWidth = 121
end
item
Footer.Style = ()
Group = 1
LevelIndex = 2
Title.Caption = 'Column11'
DataWidth = 16
ColWidth = 64
GrpWidth = 21
end
item
Footer.Style = ()
Group = 1
LevelIndex = 6
Title.Caption = 'Column12'
DataWidth = 16
ColWidth = 64
GrpWidth = 12
end
item
Footer.Style = ()
Group = 1
LevelIndex = 10
Title.Caption = 'Column13'
DataWidth = 16
ColWidth = 64
GrpWidth = 45
end
item
Footer.Style = ()
Group = 1
LevelIndex = 3
Title.Caption = 'Column14'
DataWidth = 16
ColWidth = 64
GrpWidth = 8
end
item
Footer.Style = ()
Group = 1
LevelIndex = 5
Title.Caption = 'Column15'
DataWidth = 16
ColWidth = 64
GrpWidth = 4
end
item
Footer.Style = ()
Group = 1
LevelIndex = 7
Title.Caption = 'Column16'
DataWidth = 16
ColWidth = 64
GrpWidth = 39
end
item
Footer.Style = ()
Group = 1
LevelIndex = 4
Title.Caption = 'Column17'
DataWidth = 16
ColWidth = 64
GrpWidth = 4
end
item
Footer.Style = ()
Group = 1
LevelIndex = 8
Title.Caption = 'Column18'
DataWidth = 16
ColWidth = 64
GrpWidth = 45
end
item
Footer.Style = ()
Group = 1
LevelIndex = 1
Title.Caption = 'Column19'
DataWidth = 16
ColWidth = 64
GrpWidth = 41
end
item
Footer.Style = ()
Group = 0
LevelIndex = 1
Title.Caption = 'Column20'
DataWidth = 16
ColWidth = 64
GrpWidth = 24
end
item
Footer.Style = ()
Group = 0
LevelIndex = 3
Title.Caption = 'Column21'
DataWidth = 16
ColWidth = 64
GrpWidth = 25
end>
Groups = <
item
Title.Caption = 'Group0'
Width = 148
Weights = {01010101010101010101010101010101}
end
item
Title.Caption = 'Group1'
Width = 351
Weights = {01010101010101010101010101010101}
end
item
Title.Caption = 'Group2'
Visible = False
Width = 166
Weights = {01010101010101010101010101010101}
end
item
Title.Caption = 'Group3'
Width = 211
Weights = {01010101010101010101010101010101}
end
item
Title.Caption = 'Group4'
Width = 381
Weights = {01010101010101010101010101010101}
end>
Footers = <>
Headers.Lines.CellColor = clBlack
Headers.Lines.LevelColor = clBlack
Headers.ColHeight = 21
Headers.GrpHeight = 60
FixedStyle.Lines.CellColor = clBlack
FixedStyle.Lines.LevelColor = clBlack
GroupMode = True
Indicators.Font.Charset = DEFAULT_CHARSET
Indicators.Font.Color = clWindowText
Indicators.Font.Height = -11
Indicators.Font.Name = 'Arial'
Indicators.Font.Style = []
Lines.HorzColor = clGray
Options = [wgoArrowMove, wgoConfirmDelete, wgoEditing, wgoEnterToTab, wgoFocusRect]
RowCount = 100
ColRowHeight = 18
GrpRowHeight = 75
ColFixedCount = 0
GrpFixedCount = 0
end
object Button1: TButton
Left = 88
Top = 6
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
object RealDBGrid1: TRealDBGrid
Left = 2
Top = 238
Width = 663
Height = 215
ImeName = '茄惫绢(茄臂) (MS-IME98)'
TabOrder = 2
Columns = <
item
Color = clRed
Footer.Style = ()
Group = 0
LevelIndex = 3
Title.Caption = 'Amt_Paid'
FieldName = 'Amt_Paid'
ColWidth = 64
GrpWidth = 77
end
item
Color = clBlue
Footer.Style = ()
Group = 0
LevelIndex = 2
Title.Caption = 'Card_Exp'
FieldName = 'Card_Exp'
ColWidth = 64
GrpWidth = 60
end
item
Color = clFuchsia
Footer.Style = ()
Group = 0
LevelIndex = 1
Title.Caption = 'Card_No'
FieldName = 'Card_No'
ColWidth = 64
GrpWidth = 54
end
item
Color = clLime
Footer.Style = ()
Group = 0
Title.Caption = 'CustNo'
FieldName = 'CustNo'
ColWidth = 64
GrpWidth = 54
end
item
Footer.Style = ()
Group = 1
LevelIndex = 2
Title.Caption = 'EventNo'
FieldName = 'EventNo'
ColWidth = 64
GrpWidth = 71
end
item
Footer.Style = ()
Group = 1
Items.Strings = (
'a11111'
'b22222'
'c3333'
'd4444'
'e5555'
'f6666'
'g7777'
'h88888'
'i99999'
'j1101010'
'k1111111111111'
'l121212121212121212121212121212121212121'
'm13131313'
'n14141414'
'15151515'
'1616161661'
'171717177117'
'188181811818'
'19191919'
'202020202020'
'212121212121'
'222222222'
'232323232323232'
'242424242424'
'25252525252'
'26262626262'
'27272727'
'2828282828'
'2929292929'
'30303003')
LevelIndex = 1
Title.Caption = 'NumTickets'
Values.Strings = (
'030303'
'11111'
'22222'
'3333'
'4444'
'5555'
'6666'
'7777'
'88888'
'99999'
'1101010'
'1111111111111'
'121212121212121212121212121212121212121'
'13131313'
'14141414'
'15151515'
'1616161661'
'171717177117'
'188181811818'
'19191919'
'202020202020'
'212121212121'
'222222222'
'232323232323232'
'242424242424'
'25252525252'
'26262626262'
'27272727'
'2828282828'
'2929292929'
'30303003030303'
'')
FieldName = 'NumTickets'
ColWidth = 64
GrpWidth = 54
end
item
Footer.Style = ()
Group = 1
Title.Caption = 'Paid'
FieldName = 'Paid'
ColWidth = 64
GrpWidth = 54
end
item
Footer.Style = ()
Group = 2
LevelIndex = 1
Title.Caption = 'Pay_Method'
FieldName = 'Pay_Method'
ColWidth = 64
GrpWidth = 55
end
item
Footer.Style = ()
Group = 2
Title.Caption = 'Pay_Notes'
FieldName = 'Pay_Notes'
ColWidth = 64
GrpWidth = 54
end
item
Footer.Style = ()
Group = 3
LevelIndex = 1
Title.Caption = 'Purge_Date'
FieldName = 'Purge_Date'
ColWidth = 64
GrpWidth = 45
end
item
Footer.Style = ()
Group = 3
Title.Caption = 'ResNo'
FieldName = 'ResNo'
ColWidth = 64
GrpWidth = 45
end>
Groups = <
item
Title.Caption = 'Group0'
Width = 245
Weights = {01010101010101010101010101010101}
end
item
Title.Caption = 'Group1'
Width = 179
Weights = {01010101010101010101010101010101}
end
item
Title.Caption = 'Group2'
Width = 109
Weights = {01010101010101010101010101010101}
end
item
Title.Caption = 'Group3'
Width = 90
Weights = {01010101010101010101010101010101}
end>
Footers = <>
Headers.Lines.CellColor = clBlack
Headers.Lines.LevelColor = clBlack
Headers.ColHeight = 21
Headers.GrpHeight = 42
FixedStyle.Lines.CellColor = clBlack
FixedStyle.Lines.LevelColor = clBlack
GroupMode = True
Indicators.Font.Charset = DEFAULT_CHARSET
Indicators.Font.Color = clWindowText
Indicators.Font.Height = -11
Indicators.Font.Name = 'Arial'
Indicators.Font.Style = []
Lines.HorzColor = clGray
Options = [wgoArrowMove, wgoConfirmDelete, wgoEditing, wgoEnterToTab, wgoFocusRect]
DataSource = DataSource1
ColRowHeight = 18
GrpRowHeight = 36
ColFixedCount = 0
GrpFixedCount = 0
end
object Button2: TButton
Left = 72
Top = 198
Width = 75
Height = 25
Caption = 'Button2'
TabOrder = 3
OnClick = Button2Click
end
object RealExcel1: TRealExcel
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Title.Text = '酒府尔 绊俺甫 逞绢埃促.'
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'MS Sans Serif'
Header.Font.Style = []
Header.Lines.Strings = (
'隔扼'
'够 隔扼'
'弊繁扒 隔扼..'
'饶饶饶饶')
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'MS Sans Serif'
Footer.Font.Style = []
Footer.Lines.Strings = (
'vngkgkgk 场捞寸..')
SheetName = 'Sheet1'
GridColAttrib = False
Grid = RealGrid1
Left = 36
Top = 8
end
object RealDBExcel1: TRealDBExcel
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'MS Sans Serif'
Header.Font.Style = []
Footer.Font.Charset = DEFAULT_CHARSET
Footer.Font.Color = clWindowText
Footer.Font.Height = -11
Footer.Font.Name = 'MS Sans Serif'
Footer.Font.Style = []
SheetName = 'Sheet1'
GridColAttrib = False
Grid = RealDBGrid1
Left = 34
Top = 198
end
object Table1: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'reservat.db'
Left = 210
Top = 194
end
object DataSource1: TDataSource
DataSet = Table1
Left = 242
Top = 194
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -