📄 unreciveunit.~dfm
字号:
Width = 80
Height = 23
UIStyle = MacOS
Caption = #20851#38381
AutoSize = False
TabStop = True
TabOrder = 2
Transparent = False
ModalResult = 0
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
0333337F777FFFFF7F3333000000000003333377777777777333}
Layout = blGlyphLeft
Spacing = 4
ResHandle = 0
MouseContinuouslyDownInterval = 100
OnClick = suiButton2Click
end
object lyname: TsuiComboBox
Left = 74
Top = 76
Width = 121
Height = 21
UIStyle = MacOS
BorderColor = 8355711
ArrowColor = 8355711
ButtonColor = 15198183
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 3
OnDropDown = lynameDropDown
end
object numberlb: TsuiComboBox
Left = 274
Top = 76
Width = 121
Height = 21
UIStyle = MacOS
BorderColor = 8355711
ArrowColor = 8355711
ButtonColor = 15198183
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 4
OnDropDown = numberlbDropDown
end
object numberidedit: TsuiEdit
Left = 440
Top = 76
Width = 121
Height = 21
BorderColor = 8355711
TabOrder = 5
end
object wwDBGrid1: TwwDBGrid
Left = 24
Top = 113
Width = 538
Height = 217
Selected.Strings = (
'Numbertype'#9'10'#9#31080#25454#31181#31867#9#9
'Lypername'#9'19'#9#39046#29992#20154#9#9
'Numberid'#9'10'#9#31080#25454#32534#21495' '#9#9
'Djdate'#9'10'#9#39046#29992#26085#26399#9#9
'A'#9'5'#9'A'#32852#9#9
'B'#9'5'#9'B'#32852#9'F'#9)
IniAttributes.Delimiter = ';;'
TitleColor = 12450301
FixedCols = 0
ShowHorzScrollBar = True
DataSource = DataSource1
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
TitleAlignment = taCenter
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -19
TitleFont.Name = #23435#20307
TitleFont.Style = [fsBold]
TitleLines = 1
TitleButtons = False
end
object wwDBNavigator1: TwwDBNavigator
Left = 72
Top = 344
Width = 100
Height = 25
DataSource = DataSource1
RepeatInterval.InitialDelay = 500
RepeatInterval.Interval = 100
object wwDBNavigator1First: TwwNavButton
Left = 0
Top = 0
Width = 25
Height = 25
Hint = 'Move to first record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1First'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 0
Style = nbsFirst
end
object wwDBNavigator1Prior: TwwNavButton
Left = 25
Top = 0
Width = 25
Height = 25
Hint = 'Move to prior record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Prior'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 1
Style = nbsPrior
end
object wwDBNavigator1Next: TwwNavButton
Left = 50
Top = 0
Width = 25
Height = 25
Hint = 'Move to next record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Next'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 2
Style = nbsNext
end
object wwDBNavigator1NextPage: TwwNavButton
Left = 75
Top = 0
Width = 25
Height = 25
Hint = 'Move forward 10 records'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1NextPage'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 3
Style = nbsNextPage
end
end
end
object DataSource1: TDataSource
AutoEdit = False
DataSet = Query1
Left = 32
Top = 24
end
object Query1: TQuery
Active = True
DatabaseName = 'pj'
SQL.Strings = (
'select * from libnumber'
'where numbertype='#39#39
'and numberid='#39#39
'and lypername='#39#39)
Left = 64
Top = 24
object Query1Numbertype: TStringField
DisplayLabel = #31080#25454#31181#31867
DisplayWidth = 10
FieldName = 'Numbertype'
Origin = 'PJ."libnumber.DB".Numbertype'
Size = 10
end
object Query1Lypername: TStringField
DisplayLabel = #39046#29992#20154
DisplayWidth = 19
FieldName = 'Lypername'
Origin = 'PJ."libnumber.DB".Lypername'
Size = 30
end
object Query1Numberid: TStringField
DisplayLabel = #31080#25454#32534#21495' '
DisplayWidth = 10
FieldName = 'Numberid'
Origin = 'PJ."libnumber.DB".Numberid'
Size = 10
end
object Query1Djdate: TDateField
DisplayLabel = #39046#29992#26085#26399
DisplayWidth = 10
FieldName = 'Djdate'
Origin = 'PJ."libnumber.DB".Djdate'
end
object Query1A: TBooleanField
DisplayLabel = 'A'#32852
DisplayWidth = 5
FieldName = 'A'
Origin = 'PJ."libnumber.DB".A'
end
object Query1B: TBooleanField
DisplayLabel = 'B'#32852
DisplayWidth = 5
FieldName = 'B'
Origin = 'PJ."libnumber.DB".B'
end
object Query1Lsid: TFloatField
DisplayWidth = 10
FieldName = 'Lsid'
Origin = 'PJ."libnumber.DB".Lsid'
Visible = False
end
object Query1Hxbz: TStringField
DisplayWidth = 1
FieldName = 'Hxbz'
Origin = 'PJ."libnumber.DB".Hxbz'
Visible = False
Size = 1
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -