?? sy_jyywsrdj.dfm
字號:
object Bevel1: TBevel
Left = 0
Top = 41
Width = 592
Height = 104
Align = alClient
end
object DBEdit1: TDBEdit
Left = 88
Top = 49
Width = 135
Height = 20
DataField = 'DWMC'
DataSource = Dso_YWSR
TabOrder = 5
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 592
Height = 41
Align = alTop
BevelOuter = bvLowered
Caption = 'Panel2'
TabOrder = 6
object Panel1: TRxLabel
Left = 191
Top = 9
Width = 228
Height = 24
Caption = '集郵業務收入統計表'
Font.Charset = GB2312_CHARSET
Font.Color = clGreen
Font.Height = -24
Font.Name = '楷體_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
end
object DED_BYYWSR: TDBEdit
Left = 88
Top = 79
Width = 135
Height = 20
DataField = 'JYPSR'
DataSource = Dso_YWSR
TabOrder = 1
end
object DED_BYMLR: TDBEdit
Left = 87
Top = 111
Width = 135
Height = 20
DataField = 'QTSR'
DataSource = Dso_YWSR
TabOrder = 3
end
object DED_YWSRLJ: TDBEdit
Left = 415
Top = 79
Width = 104
Height = 20
DataField = 'YPSR'
DataSource = Dso_YWSR
TabOrder = 2
end
object DED_MLRLJ: TDBEdit
Left = 415
Top = 111
Width = 104
Height = 20
DataField = 'ML'
DataSource = Dso_YWSR
TabOrder = 4
end
object CB_DWMC: TFieldComboBox
Left = 88
Top = 49
Width = 135
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 0
OnChange = CB_DWMCChange
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 145
Width = 592
Height = 243
Align = alClient
DataSource = Dso_YWSR
PopupMenu = data.pm_Export
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
OnTitleClick = DBGrid1TitleClick
Columns = <
item
Expanded = False
FieldName = 'DWMC'
ReadOnly = True
Title.Alignment = taCenter
Width = 180
Visible = True
end
item
Expanded = False
FieldName = 'ND'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '年度'
Visible = False
end
item
Expanded = False
FieldName = 'YF'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '月份'
Visible = False
end
item
Expanded = False
FieldName = 'JYPSR'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '集郵票收入(萬元)'
Width = 95
Visible = True
end
item
Expanded = False
FieldName = 'YPSR'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '郵品收入(萬元)'
Width = 99
Visible = True
end
item
Expanded = False
FieldName = 'QTSR'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '其他收入(萬元)'
Width = 106
Visible = True
end
item
Expanded = False
FieldName = 'ML'
ReadOnly = True
Title.Alignment = taCenter
Title.Caption = '毛利(萬元)'
Width = 91
Visible = True
end>
end
object Qry_YWSR: TQuery
DatabaseName = 'YZPP'
RequestLive = True
SQL.Strings = (
'select * from TYS_JYYWSRTJB')
Left = 144
Top = 184
object Qry_YWSRDWDM: TStringField
FieldName = 'DWDM'
Origin = 'YZPP.TYS_JYYWSRTJB.DWDM'
Size = 8
end
object Qry_YWSRND: TStringField
FieldName = 'ND'
Origin = 'YZPP.TYS_JYYWSRTJB.ND'
Size = 4
end
object Qry_YWSRYF: TStringField
FieldName = 'YF'
Origin = 'YZPP.TYS_JYYWSRTJB.YF'
Size = 2
end
object Qry_YWSRJYPSR: TFloatField
FieldName = 'JYPSR'
Origin = 'YZPP.TYS_JYYWSRTJB.JYPSR'
OnGetText = Qry_YWSRJYPSRGetText
OnSetText = Qry_YWSRJYPSRSetText
end
object Qry_YWSRYPSR: TFloatField
FieldName = 'YPSR'
Origin = 'YZPP.TYS_JYYWSRTJB.YPSR'
OnGetText = Qry_YWSRJYPSRGetText
OnSetText = Qry_YWSRJYPSRSetText
end
object Qry_YWSRQTSR: TFloatField
FieldName = 'QTSR'
Origin = 'YZPP.TYS_JYYWSRTJB.QTSR'
OnGetText = Qry_YWSRJYPSRGetText
OnSetText = Qry_YWSRJYPSRSetText
end
object Qry_YWSRML: TFloatField
FieldName = 'ML'
Origin = 'YZPP.TYS_JYYWSRTJB.ML'
OnGetText = Qry_YWSRJYPSRGetText
OnSetText = Qry_YWSRJYPSRSetText
end
object Qry_YWSRSPR: TStringField
FieldName = 'SPR'
Origin = 'YZPP.TYS_JYYWSRTJB.SPR'
Size = 12
end
object Qry_YWSRZBR: TStringField
FieldName = 'ZBR'
Origin = 'YZPP.TYS_JYYWSRTJB.ZBR'
Size = 12
end
object Qry_YWSRZT: TStringField
FieldName = 'ZT'
Origin = 'YZPP.TYS_JYYWSRTJB.ZT'
Size = 1
end
object Qry_YWSRSDATE: TDateTimeField
FieldName = 'SDATE'
Origin = 'YZPP.TYS_JYYWSRTJB.SDATE'
end
object Qry_YWSRdwmc: TStringField
DisplayLabel = '單位名稱'
FieldKind = fkLookup
FieldName = 'DWMC'
LookupDataSet = Qry_GXDWSJBG
LookupKeyFields = 'DWDM'
LookupResultField = 'DWMC'
KeyFields = 'DWDM'
Size = 40
Lookup = True
end
end
object Dso_YWSR: TDataSource
DataSet = Qry_YWSR
Left = 176
Top = 184
end
object DataSource1: TDataSource
DataSet = Qry_GXDWSJBG
Left = 296
Top = 216
end
object Qry_GXDWSJBG: TQuery
DatabaseName = 'YZPP'
SQL.Strings = (
'select DWDM,DWJC DWMC from TGS_GXDWSJB ')
Left = 248
Top = 216
end
object Qry_Static: TQuery
DatabaseName = 'yzpp'
Left = 368
Top = 216
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -