?? jm_srcx.dfm
字號:
object frm_SRCX: Tfrm_SRCX
Left = -4
Top = -4
BorderStyle = bsDialog
Caption = '集郵門市管理——營業員查詢'
ClientHeight = 581
ClientWidth = 800
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 15
object Panel4: TPanel
Left = 0
Top = 0
Width = 800
Height = 53
Align = alTop
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 0
object XttxTitle: TRxLabel
Left = 1
Top = 1
Width = 798
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 = 53
Width = 800
Height = 528
Align = alClient
BevelOuter = bvLowered
TabOrder = 1
object Panel2: TPanel
Left = 1
Top = 1
Width = 798
Height = 44
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Label1: TLabel
Left = 4
Top = 16
Width = 48
Height = 12
Caption = '起始日期'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 404
Top = 16
Width = 36
Height = 12
Caption = '營業員'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 192
Top = 16
Width = 48
Height = 12
Caption = '截至日期'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object DateEdit1: TDateEdit
Left = 68
Top = 12
Width = 109
Height = 21
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
NumGlyphs = 2
ParentFont = False
PopupFont.Charset = DEFAULT_CHARSET
PopupFont.Color = clWindowText
PopupFont.Height = -11
PopupFont.Name = 'MS Sans Serif'
PopupFont.Style = []
YearDigits = dyFour
TabOrder = 0
end
object DateEdit2: TDateEdit
Left = 256
Top = 12
Width = 109
Height = 21
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
NumGlyphs = 2
ParentFont = False
PopupFont.Charset = DEFAULT_CHARSET
PopupFont.Color = clWindowText
PopupFont.Height = -11
PopupFont.Name = 'MS Sans Serif'
PopupFont.Style = []
YearDigits = dyFour
TabOrder = 1
end
object CB_ygdm: TComboBox
Left = 456
Top = 12
Width = 145
Height = 20
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 2
end
object BitBtn1: TBitBtn
Left = 620
Top = 8
Width = 75
Height = 25
Caption = '查詢'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 708
Top = 8
Width = 75
Height = 25
Caption = '返回'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = BitBtn2Click
end
end
object DBG_srcx: TDBGrid
Left = 1
Top = 45
Width = 798
Height = 482
Align = alClient
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
PopupMenu = data.pm_Export
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'YGMC'
Title.Caption = '營業員'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋體'
Title.Font.Style = []
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'YFK'
Title.Caption = '預付款(元)'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋體'
Title.Font.Style = []
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'BZJ'
Title.Caption = '保證金(元)'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋體'
Title.Font.Style = []
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'GBF'
Title.Caption = '工本費(元)'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋體'
Title.Font.Style = []
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'QTFY'
Title.Caption = '其他費用(元)'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋體'
Title.Font.Style = []
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'LS'
Title.Caption = '零售(元)'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋體'
Title.Font.Style = []
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'JS'
Title.Caption = '加收(元)'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋體'
Title.Font.Style = []
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'TB'
Title.Caption = '退補(元)'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋體'
Title.Font.Style = []
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'CKLS'
Title.Caption = '磁卡零售(元)'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋體'
Title.Font.Style = []
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'TBZJ'
Title.Caption = '退保證金(元)'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋體'
Title.Font.Style = []
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'HK'
Title.Caption = '換卡(元)'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋體'
Title.Font.Style = []
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'SUM'
Title.Caption = '合計(元)'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -12
Title.Font.Name = '宋體'
Title.Font.Style = []
Width = 62
Visible = True
end>
end
end
object Qry_find: TQuery
DatabaseName = 'YZPP'
SQL.Strings = (
'select a.YGDM,YGMC, 0 sum,sum(YFK) YFK, sum(BZJ) BZJ, sum(GBF) G' +
'BF, sum(QTFY) QTFY, sum(LS) LS, sum(JS) jS, sum(TB) TB, sum(CKLS' +
') CKLS, sum(HK) HK, sum(TBZJ) TBZJ'
'from VW_JYMXB a, TGS_RYB b'
'where a.ygdm=b.ygdm and to_char(JYRQ, '#39'YYYYMMDD'#39') >='#39'20011231'#39' a' +
'nd to_char(JYRQ, '#39'YYYYMMDD'#39') <='#39'20011231'#39' '
'group by a.YGDM,YGMC'
'')
Left = 300
Top = 241
object Qry_findYGDM: TStringField
FieldName = 'YGDM'
Size = 8
end
object Qry_findYGMC: TStringField
FieldName = 'YGMC'
Size = 12
end
object Qry_findYFK: TFloatField
FieldName = 'YFK'
OnGetText = Qry_findYFKGetText
end
object Qry_findLS: TFloatField
FieldName = 'LS'
OnGetText = Qry_findYFKGetText
end
object Qry_findLS_1: TFloatField
FieldName = 'JS'
OnGetText = Qry_findYFKGetText
end
object Qry_findTB: TFloatField
FieldName = 'TB'
OnGetText = Qry_findYFKGetText
end
object Qry_findCKLS: TFloatField
FieldName = 'CKLS'
OnGetText = Qry_findYFKGetText
end
object Qry_findHK: TFloatField
FieldName = 'HK'
OnGetText = Qry_findYFKGetText
end
object Qry_findSUM: TFloatField
FieldName = 'SUM'
OnGetText = Qry_findYFKGetText
end
object Qry_findTBZJ: TFloatField
FieldName = 'TBZJ'
OnGetText = Qry_findYFKGetText
end
object Qry_findBZJ: TFloatField
FieldName = 'BZJ'
OnGetText = Qry_findYFKGetText
end
object Qry_findGBF: TFloatField
FieldName = 'GBF'
OnGetText = Qry_findYFKGetText
end
object Qry_findQTFY: TFloatField
FieldName = 'QTFY'
OnGetText = Qry_findYFKGetText
end
end
object DataSource1: TDataSource
DataSet = Qry_find
Left = 336
Top = 241
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -