?? sy_ckjhdzd_xzpp.dfm
字號:
object FrmY_CKJHDZD_XZPP: TFrmY_CKJHDZD_XZPP
Left = 107
Top = 117
BorderStyle = bsDialog
Caption = '選擇票品'
ClientHeight = 343
ClientWidth = 542
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 Label1: TLabel
Left = 355
Top = 11
Width = 48
Height = 12
Caption = '庫房號:'
end
object Label4: TLabel
Left = 11
Top = 11
Width = 24
Height = 12
Caption = '查找'
end
object BitBtn1: TBitBtn
Left = 360
Top = 312
Width = 75
Height = 25
Caption = '確定'
Default = True
ModalResult = 1
TabOrder = 0
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 435
Top = 312
Width = 75
Height = 25
Cancel = True
Caption = '取消'
ModalResult = 2
TabOrder = 1
NumGlyphs = 2
end
object Edit1: TEdit
Left = 40
Top = 6
Width = 89
Height = 20
ImeName = '微軟拼音輸入法 3.0'
MaxLength = 10
TabOrder = 2
OnChange = Edit1Change
end
object CB_KFB: TFieldComboBox
Left = 407
Top = 6
Width = 120
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 3
OnChange = CB_KFBChange
end
object DBG_PP: TDBGrid
Left = 5
Top = 32
Width = 532
Height = 272
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
TabOrder = 4
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'KFMC'
Title.Alignment = taCenter
Title.Caption = '庫房'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'ZH'
Title.Alignment = taCenter
Title.Caption = '志號'
Width = 47
Visible = True
end
item
Expanded = False
FieldName = 'PPMC'
Title.Alignment = taCenter
Title.Caption = '票品名稱'
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'JJ'
Title.Alignment = taCenter
Title.Caption = '進價(元)'
Width = 50
Visible = True
end
item
Expanded = False
FieldName = 'XJ'
Title.Alignment = taCenter
Title.Caption = '銷價(元)'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'ZK'
Title.Alignment = taCenter
Title.Caption = '折扣'
Width = 38
Visible = True
end
item
Expanded = False
FieldName = 'JSJ'
Title.Alignment = taCenter
Title.Caption = '結算價'
Width = 48
Visible = True
end
item
Expanded = False
FieldName = 'TS'
Title.Alignment = taCenter
Title.Caption = '套數'
Width = 59
Visible = True
end>
end
object Qry_Static: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'SELECT A.ZH ZH ,A.TMC PPMC ,A.JHH JHH,B.PPDM PPDM ,B.ZK,B.JSJ,B.' +
'KFDM KFDM,B.KWH KWH ,B.JJ JJ ,B.YJ YJ ,B.XJ XJ ,B.TS TS ,B.BZ BZ' +
' FROM TB_YZPPTXXB A,TYS_JYPPKC B WHERE A.TDM=B.PPDM')
Left = 212
Top = 164
object Qry_StaticZH: TStringField
FieldName = 'ZH'
Origin = 'YZPP.TB_YZPPTXXB.ZH'
Size = 11
end
object Qry_StaticPPMC: TStringField
FieldName = 'PPMC'
Origin = 'YZPP.TB_YZPPTXXB.TMC'
Size = 60
end
object Qry_StaticPPDM: TStringField
FieldName = 'PPDM'
Origin = 'YZPP.TYS_JYPPKC.PPDM'
Size = 13
end
object Qry_StaticKFDM: TStringField
FieldName = 'KFDM'
Origin = 'YZPP.TYS_JYPPKC.KFDM'
Size = 3
end
object Qry_StaticKWH: TStringField
FieldName = 'KWH'
Origin = 'YZPP.TYS_JYPPKC.KWH'
Size = 30
end
object Qry_StaticJJ: TFloatField
FieldName = 'JJ'
Origin = 'YZPP.TYS_JYPPKC.JJ'
OnGetText = Qry_StaticJJGetText
end
object Qry_StaticYJ: TFloatField
FieldName = 'YJ'
Origin = 'YZPP.TYS_JYPPKC.YJ'
end
object Qry_StaticXJ: TFloatField
FieldName = 'XJ'
Origin = 'YZPP.TYS_JYPPKC.XJ'
OnGetText = Qry_StaticJJGetText
end
object Qry_StaticTS: TFloatField
FieldName = 'TS'
Origin = 'YZPP.TYS_JYPPKC.TS'
DisplayFormat = '#,##'
end
object Qry_StaticBZ: TStringField
FieldName = 'BZ'
Origin = 'YZPP.TYS_JYPPKC.BZ'
Size = 40
end
object Qry_StaticKFMC: TStringField
FieldKind = fkLookup
FieldName = 'KFMC'
LookupDataSet = Qry_KFB
LookupKeyFields = 'KFDM'
LookupResultField = 'KFMC'
KeyFields = 'KFDM'
Lookup = True
end
object Qry_StaticZK: TFloatField
FieldName = 'ZK'
Origin = 'YZPP.TYS_JYPPKC.ZK'
end
object Qry_StaticJSJ: TFloatField
FieldName = 'JSJ'
Origin = 'YZPP.TYS_JYPPKC.JSJ'
OnGetText = Qry_StaticJJGetText
end
end
object DataSource1: TDataSource
DataSet = Qry_Static
Left = 240
Top = 164
end
object Qry_KFB: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'SELECT * FROM TGS_KFB')
Left = 244
Top = 68
object Qry_KFBKFDM: TStringField
FieldName = 'KFDM'
Origin = 'YZPP.TGS_KFB.KFDM'
Size = 3
end
object Qry_KFBKFMC: TStringField
FieldName = 'KFMC'
Origin = 'YZPP.TGS_KFB.KFMC'
Size = 30
end
end
object Qry_Static1: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'SELECT A.ZH ZH ,A.TMC PPMC ,A.JHH JHH,B.PPDM PPDM ,B.KFDM KFDM,B' +
'.KWH KWH ,B.JJ JJ ,B.YJ YJ ,B.XJ XJ ,B.TS TS ,B.BZ BZ FROM TB_YZ' +
'PPTXXB A,TYS_GRPPKC B WHERE A.TDM=B.PPDM ')
Left = 92
Top = 172
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -