📄 ss_flzjd.dfm
字号:
object Frm_FLZJD: TFrm_FLZJD
Left = 20
Top = 18
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
BorderWidth = 12
Caption = '分类帐校对'
ClientHeight = 488
ClientWidth = 732
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object pnl_Body: TPanel
Left = 0
Top = 0
Width = 732
Height = 488
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object pnl_title: TPanel
Left = 0
Top = 0
Width = 732
Height = 39
Align = alTop
BevelOuter = bvNone
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
object rxlbl_Title: TRxLabel
Left = 0
Top = 0
Width = 732
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 = 2
Top = 21
Width = 60
Height = 12
Caption = '使用单位：'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
end
object Pnl_Condition: TPanel
Left = 0
Top = 39
Width = 732
Height = 41
Align = alTop
BevelOuter = bvLowered
TabOrder = 1
object lbl_Sys_Use: TLabel
Left = 198
Top = 15
Width = 84
Height = 12
Caption = '系统启用时间：'
end
object lbl_Sys_useYear: TLabel
Left = 322
Top = 15
Width = 12
Height = 12
Caption = '年'
end
object lbl_Sys_UseMonth: TLabel
Left = 364
Top = 15
Width = 12
Height = 12
Caption = '月'
end
object Label1: TLabel
Left = 13
Top = 15
Width = 72
Height = 12
Caption = '按志号定位：'
end
object edt_Sys_use_Year: TEdit
Left = 286
Top = 11
Width = 33
Height = 20
TabStop = False
Color = clBtnFace
ReadOnly = True
TabOrder = 0
Text = '2000'
end
object edt_Sys_use_Month: TEdit
Left = 336
Top = 11
Width = 25
Height = 20
TabStop = False
Color = clBtnFace
ReadOnly = True
TabOrder = 1
Text = '12'
end
object pnl_HS: TPanel
Left = 389
Top = 7
Width = 215
Height = 28
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object rb_JJ_HS: TRadioButton
Left = 12
Top = 6
Width = 83
Height = 17
Caption = '按进价核算'
Checked = True
TabOrder = 0
TabStop = True
OnClick = rb_JJ_HSClick
end
object rb_XJ_HS: TRadioButton
Left = 114
Top = 6
Width = 85
Height = 17
Caption = '按销价核算'
TabOrder = 1
OnClick = rb_XJ_HSClick
end
end
object edt_Locate: TEdit
Left = 91
Top = 12
Width = 84
Height = 20
TabOrder = 3
OnKeyPress = edt_LocateKeyPress
end
end
object dbg_FLZ: TDBGrid
Left = 0
Top = 80
Width = 732
Height = 364
Align = alClient
DataSource = ds_FLZJD
PopupMenu = data.pm_Export
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Color = cl3DLight
Expanded = False
FieldName = 'ZH'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '志号'
Width = 70
Visible = True
end
item
Color = cl3DLight
Expanded = False
FieldName = 'TMC'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '名称'
Width = 183
Visible = True
end
item
Color = cl3DLight
Expanded = False
FieldName = 'JJ'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '进价(元)'
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'ZJSL'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '增加数量'
Width = 65
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'JJZJJE'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '增加金额(元)'
Width = 78
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'JSSL'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '减少数量'
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'JJJSJE'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '减少金额(元)'
Width = 80
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'JCSL'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '结存数量'
Visible = True
end
item
Color = clInfoBk
Expanded = False
FieldName = 'JJYE'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '结存金额(元)'
Width = 77
Visible = True
end>
end
object pnl_Control: TPanel
Left = 0
Top = 444
Width = 732
Height = 35
Align = alBottom
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 3
object lbl_Search: TLabel
Left = 11
Top = 7
Width = 435
Height = 23
AutoSize = False
WordWrap = True
end
object bbtn_Quit: TBitBtn
Left = 646
Top = 5
Width = 75
Height = 25
Cancel = True
Caption = '返回(&X)'
ModalResult = 3
TabOrder = 2
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object bbtn_Find: TBitBtn
Left = 456
Top = 5
Width = 75
Height = 25
Caption = '查询(&F)'
TabOrder = 0
OnClick = bbtn_FindClick
Glyph.Data = {
36020000424D3602000000000000360000002800000010000000100000000100
10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F001F001F00
1F001F001F7C1F7C1F7C1F7C1F7C1F001F001F001F001F001F7C1F00FF7F1F00
1F001F001F7C1F7C1F7C1F7C1F7C1F00FF7F1F001F001F001F7C1F00FF7F1F00
1F001F001F7C1F7C1F7C1F7C1F7C1F00FF7F1F001F001F001F7C1F001F001F00
1F001F001F001F001F7C1F001F001F001F001F001F001F001F7C1F001F00FF7F
1F001F001F001F001F001F00FF7F1F001F001F001F001F001F7C1F001F00FF7F
1F001F001F001F7C1F001F00FF7F1F001F001F001F001F001F7C1F001F00FF7F
1F001F001F001F7C1F001F00FF7F1F001F001F001F001F001F7C1F7C1F001F00
1F001F001F001F001F001F001F001F001F001F001F001F7C1F7C1F7C1F7C1F00
FF7F1F001F001F001F7C1F00FF7F1F001F001F001F7C1F7C1F7C1F7C1F7C1F00
1F001F001F001F001F7C1F001F001F001F001F001F7C1F7C1F7C1F7C1F7C1F7C
1F001F001F001F7C1F7C1F7C1F001F001F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F00FF7F1F001F7C1F7C1F7C1F00FF7F1F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F001F001F001F7C1F7C1F7C1F001F001F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C}
end
object bbtn_Print: TBitBtn
Left = 551
Top = 5
Width = 75
Height = 25
Caption = '打印(&P)'
TabOrder = 1
OnClick = bbtn_PrintClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
end
object pnl_Seperate: TPanel
Left = 0
Top = 479
Width = 732
Height = 9
Align = alBottom
BevelOuter = bvNone
TabOrder = 4
end
end
object SQLStr: TSqlStrings
jyp_Sql.Strings = (
'Select b.ZH,b.TMC,a.PPDM,a.JJ/100 JJ,a.ND,a.YF,a.ZJSL,a.JSSL,a.J' +
'CSL,a.JJJSJE/100 JJJSJE,a.XJJSJE/100 XJJSJE,a.JJZJJE/100 JJZJJE,' +
'a.XJZJJE/100 XJZJJE,a.JJYE/100 JJYE,a.XJYE/100 XJYE'
'From TYS_JYPMXFLZYEB a,TB_YZPPXXB b'
'Where a.PPDM= b.TDM(+)')
txp_Sql.Strings = (
'Select b.ZH,b.TMC,a.PPDM,a.JJ/100 JJ,a.ND,a.YF,a.ZJSL,a.JSSL,a.J' +
'CSL,a.JJJSJE/100 JJJSJE,a.XJJSJE/100 XJJSJE,a.JJZJJE/100 JJZJJE,' +
'a.XJZJJE/100 XJZJJE,a.JJYE/100 JJYE,a.XJYE/100 XJYE'
'From TYS_TXPMXFLZYEB a,TB_YZPPXXB b'
'Where a.PPDM= b.TDM(+)')
yp_Sql.Strings = (
'Select b.ZH,b.TMC,a.PPDM,a.JJ/100 JJ,a.ND,a.YF,a.ZJSL,a.JSSL,a.J' +
'CSL,a.JJJSJE/100 JJJSJE,a.XJJSJE/100 XJJSJE,a.JJZJJE/100 JJZJJE,' +
'a.XJZJJE/100 XJZJJE,a.JJYE/100 JJYE,a.XJYE/100 XJYE'
'From TYS_YPMXFLZYEB a,TB_YZPPXXB b'
'Where a.PPDM= b.TDM(+)')
grp_Sql.Strings = (
'Select b.ZH,b.TMC,a.PPDM,a.JJ/100 JJ,a.ND,a.YF,a.ZJSL,a.JSSL,a.J' +
'CSL,a.JJJSJE/100 JJJSJE,a.XJJSJE/100 XJJSJE,a.JJZJJE/100 JJZJJE,' +
'a.XJZJJE/100 XJZJJE,a.JJYE/100 JJYE,a.XJYE/100 XJYE'
'From TYS_GRPMXFLZYEB a,TB_YZPPXXB b'
'Where a.PPDM= b.TDM(+) ')
Left = 696
Top = 45
end
object qry_Tmp: TQuery
DatabaseName = 'yzpp'
Left = 666
Top = 45
end
object qry_FLZJD: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'Select b.ZH,b.TMC,a.PPDM,a.JJ/100 JJ,a.ND,a.YF,a.ZJSL,a.JSSL,a.J' +
'CSL,a.JJJSJE/100 JJJSJE,a.XJJSJE/100 XJJSJE,a.JJZJJE/100 JJZJJE,' +
'a.XJZJJE/100 XJZJJE,a.JJYE/100 JJYE,a.XJYE/100 XJYE'
'From TYS_JYPMXFLZYEB a,TB_YZPPXXB b'
'Where a.PPDM= b.TDM(+)')
Left = 605
Top = 45
end
object ds_FLZJD: TDataSource
DataSet = qry_FLZJD
Left = 635
Top = 45
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -