?? ss_zzjd.dfm
字號:
object Frm_ZZJD: TFrm_ZZJD
Left = 74
Top = 75
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = '集郵票總帳校對'
ClientHeight = 458
ClientWidth = 691
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object pnl_Top: TPanel
Left = 0
Top = 0
Width = 691
Height = 48
Align = alTop
BevelOuter = bvLowered
TabOrder = 0
object rxlbl_Title: TRxLabel
Left = 1
Top = 1
Width = 689
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 = 11
Top = 30
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_Option: TPanel
Left = 0
Top = 48
Width = 691
Height = 41
Align = alTop
BevelOuter = bvLowered
TabOrder = 1
object lbl_Sys_Use: TLabel
Left = 22
Top = 15
Width = 84
Height = 12
Caption = '系統啟用時間：'
end
object lbl_Sys_useYear: TLabel
Left = 146
Top = 15
Width = 12
Height = 12
Caption = '年'
end
object lbl_Sys_UseMonth: TLabel
Left = 185
Top = 15
Width = 12
Height = 12
Caption = '月'
end
object edt_Sys_use_Year: TEdit
Left = 110
Top = 11
Width = 33
Height = 20
TabStop = False
Color = clBtnFace
ReadOnly = True
TabOrder = 0
Text = '2000'
end
object edt_Sys_use_Month: TEdit
Left = 157
Top = 11
Width = 25
Height = 20
TabStop = False
Color = clBtnFace
ReadOnly = True
TabOrder = 1
Text = '12'
end
object pnl_HS: TPanel
Left = 235
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
end
object pnl_Body: TPanel
Left = 0
Top = 89
Width = 691
Height = 328
Align = alClient
BevelOuter = bvLowered
TabOrder = 2
object dbg_ZZJD: TDBGrid
Left = 1
Top = 1
Width = 689
Height = 326
Align = alClient
DataSource = ds_ZZJD
PopupMenu = data.pm_Export
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Expanded = False
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '日期'
Width = 49
Visible = True
end
item
Expanded = False
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '字 '
Width = 26
Visible = True
end
item
Expanded = False
FieldName = 'zy'
Title.Alignment = taCenter
Title.Caption = '摘要'
Width = 146
Visible = True
end
item
Expanded = False
Title.Alignment = taCenter
Title.Caption = '出入庫單號'
Width = 114
Visible = True
end
item
Expanded = False
FieldName = 'XJJSJE'
Title.Alignment = taCenter
Title.Caption = '增加/收進金額(元)'
Width = 126
Visible = True
end
item
Expanded = False
FieldName = 'JJJSJE'
Title.Alignment = taCenter
Title.Caption = '減少/銷售金額(元)'
Width = 117
Visible = True
end
item
Expanded = False
FieldName = 'JJYE'
Title.Alignment = taCenter
Title.Caption = '余額(元)'
Visible = True
end>
end
end
object pnl_Bottom: TPanel
Left = 0
Top = 417
Width = 691
Height = 41
Align = alBottom
BevelOuter = bvLowered
TabOrder = 3
object bbtn_Print: TBitBtn
Left = 484
Top = 8
Width = 75
Height = 25
Caption = '打印(&P)'
TabOrder = 0
OnClick = bbtn_PrintClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003388888888888888307777777777777708F33333333333338077777777777
77708FFFFFFFFFFFFFF8000000000000000088888888888888880F7F7F7F7F7F
7F708F333333333333F807F7F7F7F7F7F9F08F333333333338380F7F7F7F7F7F
7F708FFFFFFFFFFFFFF8000000000000000088888888888888883330FFFFFFFF
03333338F3FFFF3F8F333330F0000F0F03333338F88883838F333330FFFFFFFF
03333338F3FF3FFF8F333330F00F000003333338F883888883333330FFFF0FF0
33333338F3F38F3833333330F07F0F0333333338F8338F8333333330FFFF0033
33333338FFFF8833333333300000033333333338888883333333}
NumGlyphs = 2
end
object bbtn_Exit: TBitBtn
Left = 589
Top = 8
Width = 75
Height = 25
Caption = '退出(&X)'
TabOrder = 1
Kind = bkClose
end
end
object SQLStr: TSqlStrings
jyp_Sql.Strings = (
'Select JJZJJE/100 JJZJJE,XJZJJE/100 XJZJJE,JJJSJE/100 JJJSJE,XJJ' +
'SJE/100 XJJSJE,JJYE/100 JJYE,XJYE/100 XJYE,:l_zy ZY From TYS_JYP' +
'ZZYEB'
'Where ND=:l_nd and YF=:l_yf')
txp_Sql.Strings = (
'Select JJZJJE/100 JJZJJE,XJZJJE/100 XJZJJE,JJJSJE/100 JJJSJE,XJJ' +
'SJE/100 XJJSJE,JJYE/100 JJYE,XJYE/100 XJYE,:l_zy ZY From TYS_TXP' +
'ZZYEB'
'Where ND=:l_nd and YF=:l_yf')
yp_Sql.Strings = (
'Select JJZJJE/100 JJZJJE,XJZJJE/100 XJZJJE,JJJSJE/100 JJJSJE,XJJ' +
'SJE/100 XJJSJE,JJYE/100 JJYE,XJYE/100 XJYE,:l_zy ZY From TYS_YPZ' +
'ZYEB '
'Where ND=:l_nd and YF=:l_yf')
grp_Sql.Strings = (
'Select JJZJJE/100 JJZJJE,XJZJJE/100 XJZJJE,JJJSJE/100 JJJSJE,XJJ' +
'SJE/100 XJJSJE,JJYE/100 JJYE,XJYE/100 XJYE,:l_zy ZY From TYS_GRP' +
'ZZYEB'
'Where ND=:l_nd and YF=:l_yf')
Left = 484
Top = 56
end
object qry_Tmp: TQuery
DatabaseName = 'yzpp'
Left = 514
Top = 56
end
object qry_ZZJD: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'Select JJZJJE,XJZJJE,JJJSJE,XJJSJE,JJYE,XJYE,:l_zy ZY From TYS_J' +
'YPZZYEB')
Left = 542
Top = 56
ParamData = <
item
DataType = ftUnknown
Name = 'l_zy'
ParamType = ptUnknown
end>
end
object ds_ZZJD: TDataSource
DataSet = qry_ZZJD
Left = 570
Top = 56
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -