?? show_typ.dfm
字號:
inherited frmSY_SCGRP: TfrmSY_SCGRP
Left = 221
Top = 117
Caption = '選擇票品'
ClientHeight = 365
ClientWidth = 510
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 12
object Label2: TLabel
Left = 7
Top = 47
Width = 72
Height = 13
Caption = '零枚票信息:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 306
Top = 46
Width = 72
Height = 13
Caption = '選中的票品:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Panel2: TPanel
Left = 0
Top = 324
Width = 510
Height = 41
Align = alBottom
BevelOuter = bvLowered
TabOrder = 6
end
object RxDBGrid1: TRxDBGrid
Left = 5
Top = 60
Width = 289
Height = 255
DataSource = DataSource1
ImeName = '中文 (簡體) - 全拼'
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
OnDblClick = RxDBGrid1DblClick
Columns = <
item
Color = clWhite
Expanded = False
FieldName = 'ZH'
ReadOnly = True
Title.Caption = '志號'
Width = 65
Visible = True
end
item
Color = clWhite
Expanded = False
FieldName = 'TMC'
ReadOnly = True
Title.Caption = '名稱'
Width = 184
Visible = True
end>
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 510
Height = 37
Align = alTop
BevelOuter = bvLowered
TabOrder = 1
object Label1: TLabel
Left = 25
Top = 11
Width = 24
Height = 12
Caption = '查找'
end
object Label4: TLabel
Left = 401
Top = 14
Width = 72
Height = 12
Caption = '雙擊選中票品'
end
object Label5: TLabel
Left = 208
Top = 12
Width = 24
Height = 12
Caption = '類型'
end
object Edit1: TEdit
Left = 56
Top = 8
Width = 121
Height = 20
ImeName = '中文 (簡體) - 全拼'
TabOrder = 0
OnChange = Edit1Change
end
object ComboBox1: TComboBox
Left = 236
Top = 8
Width = 125
Height = 20
ItemHeight = 12
TabOrder = 1
Text = 'ComboBox1'
OnClick = ComboBox1Click
Items.Strings = (
'全部'
'紀特零枚'
'普通郵票'
'封片簡')
end
end
object ListBox1: TListBox
Left = 304
Top = 61
Width = 202
Height = 254
ImeName = '中文 (簡體) - 全拼'
ItemHeight = 12
MultiSelect = True
TabOrder = 2
end
Left = 151
Top = 331
Width = 75
Height = 25
Caption = '確定'
Default = True
ModalResult = 1
TabOrder = 3
OnClick = BitBtn1Click
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 413
Top = 331
Width = 75
Height = 25
Caption = '取消'
ModalResult = 2
TabOrder = 4
OnClick = BitBtn2Click
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 265
Top = 331
Width = 75
Height = 25
Caption = '刪除'
TabOrder = 5
OnClick = BitBtn3Click
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003333333333333777333333333333
300033FFFFFF3333377739999993333333333777777F3333333F399999933333
3300377777733333337733333333333333003333333333333377333333333333
3333333333333333333F333333333333330033333F33333333773333C3333333
330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
333333377F33333333FF3333C333333330003333733333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object DataSource1: TDataSource
DataSet = Query1
Left = 128
Top = 109
end
object Query1: TRxQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'select zh,tdm,tmc,tpmz,tpsj '
'from tb_yzppxxb '
'where type in (%TJ)'
'order by zh')
Macros = <
item
DataType = ftString
Name = 'TJ'
ParamType = ptInput
Value = 'jttp'
end>
Left = 156
Top = 108
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -