?? jm_kccx.dfm
字號:
object frm_KCCX: Tfrm_KCCX
Left = -10
Top = -7
BorderStyle = bsDialog
Caption = '集郵門市管理'
ClientHeight = 502
ClientWidth = 744
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Label4: TLabel
Left = 668
Top = 26
Width = 36
Height = 12
Caption = '年度：'
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 744
Height = 49
Align = alTop
BevelOuter = bvLowered
TabOrder = 0
object XttxTitle: TRxLabel
Left = 1
Top = 1
Width = 742
Height = 24
Align = alTop
Alignment = taCenter
Caption = '營業員庫存查詢'
Font.Charset = GB2312_CHARSET
Font.Color = clGreen
Font.Height = -24
Font.Name = '楷體_GB2312'
Font.Style = [fsBold, fsUnderline]
ParentFont = False
end
object Lbl_user: TLabel
Left = 20
Top = 28
Width = 48
Height = 12
Caption = '操作員：'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
end
object Panel1: TPanel
Left = 0
Top = 90
Width = 744
Height = 412
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object Label6: TLabel
Left = 12
Top = 12
Width = 48
Height = 12
Caption = '庫存票品'
end
object Panel2: TPanel
Left = 557
Top = 0
Width = 187
Height = 412
Align = alRight
BevelOuter = bvLowered
Caption = 'Panel2'
TabOrder = 0
object GroupBox2: TGroupBox
Left = 12
Top = 6
Width = 165
Height = 87
Caption = '查詢范圍'
TabOrder = 0
object Label3: TLabel
Left = 14
Top = 24
Width = 48
Height = 12
Caption = '營業員：'
end
object ComboBox1: TComboBox
Left = 16
Top = 44
Width = 100
Height = 20
ItemHeight = 12
TabOrder = 0
Text = '全部'
OnChange = ComboBox1Change
Items.Strings = (
'全部')
end
end
object GroupBox1: TGroupBox
Left = 13
Top = 101
Width = 164
Height = 189
Caption = '查詢條件'
TabOrder = 1
object Label1: TLabel
Left = 14
Top = 60
Width = 24
Height = 12
Caption = '起始'
end
object Label2: TLabel
Left = 14
Top = 88
Width = 24
Height = 12
Caption = '截止'
end
object CheckBox1: TCheckBox
Left = 15
Top = 25
Width = 129
Height = 17
Caption = '按庫存量查詢'
TabOrder = 0
end
object CheckBox7: TCheckBox
Left = 14
Top = 128
Width = 121
Height = 14
Caption = '按票品查詢'
TabOrder = 3
OnClick = CheckBox7Click
end
object edtSLStart: TEdit
Left = 53
Top = 56
Width = 100
Height = 20
TabOrder = 1
OnKeyPress = edtSLStartKeyPress
end
object edtSLend: TEdit
Left = 53
Top = 84
Width = 100
Height = 20
TabOrder = 2
OnKeyPress = edtSLendKeyPress
end
object YzppSelect1: TYzppSelect
Left = 53
Top = 156
Width = 100
Height = 20
Enabled = False
TabOrder = 4
DatabaseName = 'YZPP'
PPLX = lx_custom
SQL.Strings = (
'SELECT a.Tdm, a.zh, a.TJC, b.mc FROM TB_YZPPTXXB a, TG_YZPPTZDM ' +
'b '
' where substr(a.TDM, 10, 2) = b.TZDM(+) order by zh')
Title_Str = '面值(元)'
OnEnter = CheckBox7Click
DropDownCount = 8
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
Color = clWindow
ShowHint = False
ReadOnly = False
end
end
object btnFind: TButton
Left = 18
Top = 340
Width = 75
Height = 25
Caption = '查詢'
TabOrder = 2
OnClick = btnFindClick
end
object Button2: TButton
Left = 18
Top = 374
Width = 75
Height = 25
Caption = '志號定位'
TabOrder = 3
OnClick = Button2Click
end
object btnPrint: TButton
Left = 101
Top = 340
Width = 75
Height = 25
Caption = '打印'
TabOrder = 4
OnClick = btnPrintClick
end
object btnEdit: TButton
Left = 101
Top = 374
Width = 75
Height = 25
Caption = '退出'
ModalResult = 1
TabOrder = 5
end
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 557
Height = 412
Align = alClient
BevelOuter = bvLowered
TabOrder = 1
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 555
Height = 410
Align = alClient
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
PopupMenu = data.pm_Export
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ZH'
Title.Alignment = taCenter
Title.Caption = '志號'
Width = 75
Visible = True
end
item
Expanded = False
FieldName = 'PPMC'
Title.Caption = '名稱'
Width = 121
Visible = True
end
item
Expanded = False
FieldName = 'JJ'
Title.Caption = '進價(元)'
Width = 75
Visible = True
end
item
Expanded = False
FieldName = 'DJ'
Title.Caption = '售價(元)'
Width = 61
Visible = True
end
item
Expanded = False
FieldName = 'FXRQ'
Title.Caption = '發行日期'
Width = 97
Visible = True
end
item
Expanded = False
FieldName = 'SL'
Title.Caption = '實際庫存數量'
Width = 72
Visible = True
end>
end
end
end
object Panel5: TPanel
Left = 0
Top = 49
Width = 744
Height = 41
Align = alTop
BevelOuter = bvLowered
Caption = 'Panel5'
TabOrder = 2
object Rgp_ppfl: TRadioGroup
Left = 1
Top = 1
Width = 742
Height = 39
Align = alClient
Caption = '票品類別'
Columns = 5
Items.Strings = (
'集郵票'
'集郵品'
'購入票')
TabOrder = 0
OnClick = Rgp_ppflClick
end
end
object Qry_find: TQuery
DatabaseName = 'YZPP'
SQL.Strings = (
'select * from tm_yyykc')
Left = 184
Top = 133
object Qry_findPPDM: TStringField
FieldName = 'PPDM'
Origin = 'JM_YZPP.TM_HTKC.PPDM'
Size = 15
end
object Qry_findLB: TStringField
FieldName = 'LB'
Origin = 'JM_YZPP.TM_HTKC.LB'
Size = 5
end
object Qry_findZH: TStringField
FieldName = 'ZH'
Origin = 'JM_YZPP.TM_HTKC.ZH'
Size = 11
end
object Qry_findPPMC: TStringField
FieldName = 'PPMC'
Origin = 'JM_YZPP.TM_HTKC.PPMC'
Size = 60
end
object Qry_findDJ: TFloatField
FieldName = 'DJ'
Origin = 'JM_YZPP.TM_HTKC.DJ'
OnGetText = Qry_findDJGetText
OnSetText = Qry_findDJSetText
end
object Qry_findTDM: TStringField
FieldName = 'TDM'
Origin = 'JM_YZPP.TB_YZPPXXB.TDM'
Size = 15
end
object Qry_findSL: TFloatField
FieldName = 'SL'
DisplayFormat = '#,##'
end
object Qry_findFXRQ: TStringField
FieldName = 'FXRQ'
Size = 75
end
object Qry_findJJ: TFloatField
FieldName = 'JJ'
Origin = 'YZPP.TM_YYYKC.JJ'
OnGetText = Qry_findJJGetText
OnSetText = Qry_findJJSetText
end
end
object DataSource1: TDataSource
DataSet = Qry_find
Left = 220
Top = 133
end
object Query1: TQuery
DatabaseName = 'YZPP'
Left = 572
Top = 181
end
object Qry_ryb: TQuery
DatabaseName = 'YZPP'
SQL.Strings = (
'select ygdm,ygmc from tgs_ryb')
Left = 188
Top = 177
object Qry_rybYGDM: TStringField
FieldName = 'YGDM'
Origin = 'JM_YZPP.TGS_RYB.YGDM'
Size = 8
end
object Qry_rybYGMC: TStringField
FieldName = 'YGMC'
Origin = 'JM_YZPP.TGS_RYB.YGMC'
Size = 12
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -