?? sj_kccx.dfm
字號:
object Frm_kccx: TFrm_kccx
Left = 73
Top = 26
BorderStyle = bsDialog
Caption = '集郵票庫存查詢'
ClientHeight = 493
ClientWidth = 693
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object GroupBox1: TGroupBox
Left = 16
Top = 44
Width = 577
Height = 53
Caption = '查詢條件'
TabOrder = 0
object Label1: TLabel
Left = 143
Top = 24
Width = 48
Height = 12
Caption = '庫房名稱'
end
object Label2: TLabel
Left = 334
Top = 25
Width = 48
Height = 12
Caption = '票品名稱'
end
object Label3: TLabel
Left = 7
Top = 26
Width = 48
Height = 12
Caption = '志號定位'
end
object CBo_kfmc: TComboBox
Left = 195
Top = 20
Width = 126
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 0
OnChange = CBo_kfmcChange
Items.Strings = (
'全部')
end
object CBo_ppmc: TComboBox
Left = 388
Top = 20
Width = 173
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 1
Items.Strings = (
'全部')
end
object Edit1: TEdit
Left = 56
Top = 21
Width = 73
Height = 20
MaxLength = 10
TabOrder = 2
OnChange = Edit1Change
end
end
object DBGid_kc: TDBGrid
Left = 0
Top = 104
Width = 693
Height = 389
Align = alBottom
DataSource = DS_kc
PopupMenu = PM_Exp
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'KFDM'
Visible = False
end
item
Expanded = False
FieldName = 'KFMC'
Title.Caption = '庫房名稱'
Width = 88
Visible = True
end
item
Expanded = False
FieldName = 'ZH'
Title.Caption = '志號'
Width = 71
Visible = True
end
item
Expanded = False
FieldName = 'TMC'
Title.Caption = '票品名稱'
Width = 167
Visible = True
end
item
Expanded = False
FieldName = 'KWH'
Title.Caption = '庫位號'
Width = 77
Visible = True
end
item
Expanded = False
FieldName = 'TS'
Title.Caption = '套數'
Width = 103
Visible = True
end
item
Expanded = False
FieldName = 'BZ'
Title.Caption = '備注'
Width = 99
Visible = True
end>
end
object BitBtn1: TBitBtn
Left = 607
Top = 43
Width = 75
Height = 25
Action = Act_sel
Caption = '查詢(&F)'
TabOrder = 2
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FFBFFF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FFBFFF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000BFFF00
0000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF000000FF000000FF000000FF000000FF000000FF00FF00FF000000FFFF
FF00FF0000BFFF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF000000FFFFFF00FF0000BFFF000000FF000000FF00FF00FF0000BFFFFF
FF00FF0000BFFF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF000000FFFFFF00FF0000BFFF000000FF000000FF00FF00FF0000BFFF00
0000FF000000FF000000FF000000FF000000FF000000FF00FF00FF000000FF00
0000FF000000FF000000FF000000FF000000FF000000FF00FF00FF0000BFFF00
0000FFFFFF00FF0000BFFF000000FF000000FF000000FF000000FF000000FFFF
FF00FF0000BFFF000000FF000000FF000000FF000000FF00FF00FF0000BFFF00
0000FFFFFF00FF0000BFFF000000FF000000FF00FF00FF000000FF000000FFFF
FF00FF0000BFFF000000FF000000FF000000FF000000FF00FF00FF000000FF00
0000FFFFFF00FF0000BFFF000000FF000000FF00FF00FF000000FF000000FFFF
FF00FF0000BFFF000000FF000000FF000000FF000000FF00FF00FF00FFBFFF00
0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
0000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FFBFFF00
FF00FF000000FFFFFF00FF0000BFFF000000FF000000FF00FF00FF000000FFFF
FF00FF0000BFFF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF000000FF000000FF000000FF000000FF000000FF00FF00FF000000FF00
0000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00
0000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FFBFFF00
FF00FF00FF00FF000000FFFFFF00FF0000BFFF00FF00FF00FF00FF00FF00FF00
0000FFFFFF00FF0000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00FFBFFF00
FF00FF00FF00FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00
0000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end
object BitBtn2: TBitBtn
Left = 607
Top = 70
Width = 75
Height = 25
Action = Act_rtn
Caption = '返回'
TabOrder = 3
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000000000000000000000000000000000000FF00FF008080
800080808080808080808080808080808080808080808080808080808080FF00
FF80FF00FF00FFFFFF00FF00FFBFFFFFFF00808080BFFF00FF80800000008000
000080000000800000000000000000000000808080008080808080808080FFFF
FF80FFFFFFBFFFFFFFBF800000BF800000008000000080000000FF00FF00FF00
FF00FF00FF0080000000FF00FF00800080BF0000000000000000FFFFFF00FFFF
FFBFFFFFFFBFFFFFFFBF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF008000000080008000FF00FF808000800000000080FFFFFF00FFFF
00BFFFFFFFBFFFFF00BF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF0080000000FF00FF00800080BFFF00FF00000000BFFFFFFF00FFFF
FFBFFFFFFFBFFFFFFFBF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF008000000080008000FF00FF808000800000000080FFFFFF00FFFF
00BFFFFFFFBFFFFF00BF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF0080000000FF00FF00800080BFFF00FF00000000BFFFFFFF00FFFF
FFBFFFFFFFBFFFFFFFBF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF008000000080008000FF00FF808000800000000080FFFFFF00FFFF
00BFFFFFFFBFFFFF00BF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF0080000000FF00FF00800080BFFF00FF00000000BFFFFF0000FFFF
FF00FFFF00BFFFFFFF00800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF008000000080008000FF00FF808000800000000080FFFFFF00FFFF
00BFFFFFFFBFFFFF00BF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF0080000000FF00FF00800080BFFF00FF00000000BFFFFF0000FFFF
FF00FFFF00BFFFFFFF00800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF008000000080000000800000008000000080000000800000008000
0000800000008000000080000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00000000000000000000000000000000000000
000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF000000000000FF000000FF000000FF00BF00FF
0000000000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00FF00FF00FF00FF00FF00FF00000000000000000000000000000000000000
000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 693
Height = 38
Align = alTop
BevelOuter = bvNone
TabOrder = 4
object XttxTitle: TRxLabel
Left = 0
Top = 0
Width = 693
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 DWMC: TLabel
Left = 20
Top = 19
Width = 60
Height = 12
Caption = '使用單位：'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 700
Top = 20
Width = 36
Height = 12
Caption = 'Label1'
end
object Panel3: TPanel
Left = 524
Top = 8
Width = 149
Height = 41
BevelOuter = bvNone
TabOrder = 0
end
end
object ActionList1: TActionList
Left = 456
Top = 175
object Act_sel: TAction
Caption = '查詢'
ImageIndex = 20
OnExecute = Act_selExecute
end
object Act_rtn: TAction
Caption = '返回'
ImageIndex = 15
OnExecute = Act_rtnExecute
end
end
object DS_kc: TDataSource
DataSet = RxQry
Left = 220
Top = 132
end
object RxQry: TRxQuery
AfterOpen = RxQryAfterOpen
DatabaseName = 'yzpp'
Macros = <>
Left = 188
Top = 132
end
object SqlStrings1: TSqlStrings
jyp_Sql.Strings = (
'select a.KFDM,a.PPDM,a.KWH,a.TS,a.BZ,b.KFMC,c.TMC, c.ZH'
' from TKS_JYPPKC a, TGS_KFB b, TB_YZPPXXB c '
' where a.KFDM=b.KFDM and a.PPDM=c.TDM '
' and a.KFDM= %KFDM'
' and a.PPDM= %PPDM'
' and a.KFDM in (select KFDM from TGS_KFRYDZB where YGDM= :YGDM)'
' order by a.KFDM,a.PPDM')
txp_Sql.Strings = (
'select a.KFDM,a.PPDM,a.KWH,a.TS,a.BZ,b.KFMC,c.TMC, c.ZH'
' from TKS_TXPPKC a, TGS_KFB b, TB_YZPPXXB c'
' where a.KFDM=b.KFDM and a.PPDM=c.TDM'
' and a.KFDM= %KFDM'
' and a.PPDM= %PPDM'
' and a.KFDM in (select KFDM from TGS_KFRYDZB where YGDM=:YGDM)'
' order by a.KFDM,a.PPDM')
yp_Sql.Strings = (
'select a.KFDM,a.PPDM,a.KWH,a.TS,a.BZ,b.KFMC,c.MC TMC, c.ZH'
' from TKS_YPPKC a, TGS_KFB b, TB_JYPTXXB c '
' where a.KFDM=b.KFDM and a.PPDM=c.TDM'
' and a.kfdm= %KFDM'
' and a.ppdm= %PPDM'
' and a.KFDM in (select KFDM from TGS_KFRYDZB where YGDM= :YGDM)'
' order by a.KFDM,a.PPDM')
grp_Sql.Strings = (
'select a.KFDM,a.PPDM,a.KWH,a.TS,a.BZ,b.KFMC,c.TMC,c.ZH'
' from TKS_GRPPKC a, TGS_KFB b, TB_YZPPXXB c '
' where a.KFDM=b.KFDM and a.PPDM=c.TDM'
' and a.kfdm= %KFDM'
' and a.ppdm= %PPDM'
' and a.KFDM in (select KFDM from TGS_KFRYDZB where YGDM= :YGDM)'
' order by a.KFDM,a.PPDM')
Left = 156
Top = 132
end
object SqlStrings2: TSqlStrings
jyp_Sql.Strings = (
'select distinct a.PPDM, b.TMC,c.MC TZMC from TKS_JYPPKC a, TB_YZ' +
'PPTXXB b, TG_YZPPTZDM c '
' where b.TDM=a.PPDM and b.tz=c.tzdm and a.KFDM= %KFDM')
txp_Sql.Strings = (
'select distinct a.PPDM, b.TMC from TKS_TXPPKC a, TB_YZPPXXB b'
' where b.TDM=a.PPDM and a.KFDM= %KFDM'
' ')
yp_Sql.Strings = (
'select distinct a.PPDM, b.MC TMC from TKS_YPPKC a, TB_JYPTXXB b '
' where b.TDM=a.PPDM and a.KFDM= %KFDM')
grp_Sql.Strings = (
'select distinct a.PPDM, b.TMC,c.MC TZMC from TKS_GRPPKC a, TB_YZ' +
'PPTXXB b, TG_YZPPTZDM c '
' where b.TDM=a.PPDM and b.tz=c.tzdm and a.KFDM= %KFDM')
Left = 464
Top = 60
end
object RxQuery1: TRxQuery
DatabaseName = 'yzpp'
Macros = <>
Left = 256
Top = 64
end
object PM_Exp: TPopupMenu
Left = 88
Top = 336
object MI_Exc: TMenuItem
Caption = '導出到Excel'
OnClick = MI_ExcClick
end
object N2: TMenuItem
Caption = '-'
end
object MI_txt: TMenuItem
Caption = '導出到文本'
OnClick = MI_txtClick
end
end
object DBGE_rkd: TDBGridExport
Show_Progress = True
SpaceMark = csTab
Title = '庫存'
SheetName = '庫存'
Left = 60
Top = 336
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -