?? unit8.~dfm
字號:
object FormPay: TFormPay
Left = 189
Top = 153
Width = 481
Height = 333
Caption = #32467#36134
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ListView1: TListView
Left = 0
Top = 25
Width = 249
Height = 281
Columns = <
item
Caption = #33756#21517
Width = 100
end
item
Caption = #25968#37327
Width = 40
end
item
Caption = #21333#20215'('#20803')'
Width = 55
end
item
Caption = #25240#25187'%'
end>
TabOrder = 0
ViewStyle = vsReport
end
object StaticText1: TStaticText
Left = 0
Top = 0
Width = 105
Height = 17
AutoSize = False
Caption = #33756#21333#26126#32454':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object ComboBoxTableInuse: TComboBox
Left = 332
Top = 25
Width = 133
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 2
OnChange = ComboBoxTableInuseChange
end
object StaticText2: TStaticText
Left = 256
Top = 28
Width = 76
Height = 17
AutoSize = False
Caption = #36873#25321#32467#36134#39184#26700
TabOrder = 3
end
object StaticText3: TStaticText
Left = 256
Top = 63
Width = 73
Height = 17
Alignment = taRightJustify
AutoSize = False
Caption = #24212#20184#37329#39069'('#20803')'
TabOrder = 4
end
object StaticText4: TStaticText
Left = 256
Top = 87
Width = 73
Height = 17
Alignment = taRightJustify
AutoSize = False
Caption = #23454#20184#37329#39069'('#20803')'
TabOrder = 5
end
object StaticText5: TStaticText
Left = 256
Top = 111
Width = 73
Height = 17
Alignment = taRightJustify
AutoSize = False
Caption = #25214#38646'('#20803')'
TabOrder = 6
end
object StaticText6: TStaticText
Left = 264
Top = 137
Width = 148
Height = 17
Caption = #32467#36134#22791#27880#20449#24687'(100'#20197#20869#23383#31526')'
TabOrder = 7
end
object BitBtnOK: TBitBtn
Left = 264
Top = 281
Width = 65
Height = 25
Caption = #30830#35748
Default = True
TabOrder = 8
OnClick = BitBtnOKClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtnCancel: TBitBtn
Left = 336
Top = 281
Width = 65
Height = 25
Cancel = True
Caption = #21462#28040
TabOrder = 9
OnClick = BitBtnCancelClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object EditShouldPay: TEdit
Left = 336
Top = 61
Width = 105
Height = 21
Color = clBtnFace
ReadOnly = True
TabOrder = 10
end
object EditActuallyPay: TEdit
Left = 336
Top = 85
Width = 105
Height = 21
TabOrder = 11
OnChange = EditActuallyPayChange
end
object EditCharge: TEdit
Left = 336
Top = 109
Width = 105
Height = 21
Color = clBtnFace
ReadOnly = True
TabOrder = 12
end
object MemoDescription: TMemo
Left = 264
Top = 161
Width = 209
Height = 113
MaxLength = 100
ScrollBars = ssVertical
TabOrder = 13
end
object BitBtnExit: TBitBtn
Left = 408
Top = 281
Width = 65
Height = 25
Caption = #36864#20986
TabOrder = 14
OnClick = BitBtnExitClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object DataSourcePay: TDataSource
DataSet = TablePay
Left = 240
Top = 8
end
object TablePay: TTable
DatabaseName = 'Ch14'
TableName = 'Pay.DB'
Left = 272
Top = 8
object TablePayTableNum: TIntegerField
FieldName = 'TableNum'
end
object TablePayShouldPay: TFloatField
FieldName = 'ShouldPay'
end
object TablePayActuallyPay: TFloatField
FieldName = 'ActuallyPay'
end
object TablePayCharge: TFloatField
FieldName = 'Charge'
end
object TablePayDate: TDateField
FieldName = 'Date'
end
object TablePayTime: TTimeField
FieldName = 'Time'
end
object TablePayDescription: TMemoField
FieldName = 'Description'
BlobType = ftMemo
Size = 100
end
object TablePayUserID: TIntegerField
FieldName = 'UserID'
end
end
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -