?? sy_ckjhdzd_xd.dfm
字號(hào):
object FrmY_CKJHDZD_XD: TFrmY_CKJHDZD_XD
Left = 247
Top = 110
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = '選擇請(qǐng)領(lǐng)單或單位'
ClientHeight = 389
ClientWidth = 565
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object BitBtn1: TBitBtn
Left = 352
Top = 352
Width = 75
Height = 25
Caption = '確定'
Default = True
ModalResult = 1
TabOrder = 0
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 448
Top = 352
Width = 75
Height = 25
Cancel = True
Caption = '取消'
ModalResult = 2
TabOrder = 1
NumGlyphs = 2
end
object pgc_Select: TPageControl
Left = 11
Top = 13
Width = 542
Height = 331
ActivePage = TabSheet1
Style = tsFlatButtons
TabOrder = 2
OnChange = pgc_SelectChange
object tbs_PP: TTabSheet
TabVisible = False
end
object tbs_DW: TTabSheet
ImageIndex = 1
TabVisible = False
end
object TabSheet1: TTabSheet
Caption = '參照需求'
ImageIndex = 2
object Panel2: TPanel
Left = 0
Top = 0
Width = 534
Height = 301
Align = alClient
BevelOuter = bvLowered
Caption = 'Panel2'
TabOrder = 0
object Label3: TLabel
Left = 1
Top = 1
Width = 532
Height = 12
Align = alTop
Caption = '下級(jí)零星請(qǐng)領(lǐng)單'
end
object Label4: TLabel
Left = 1
Top = 134
Width = 532
Height = 12
Align = alTop
Caption = '請(qǐng)領(lǐng)單明細(xì)'
end
object DBGrid3: TDBGrid
Left = 1
Top = 13
Width = 532
Height = 121
Align = alTop
Color = clWhite
DataSource = DataSource5
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'QLDH'
Title.Alignment = taCenter
Title.Caption = '請(qǐng)領(lǐng)單號(hào)'
Width = 213
Visible = True
end
item
Expanded = False
FieldName = 'DWMC'
Title.Alignment = taCenter
Title.Caption = '單位名稱(chēng)'
Width = 177
Visible = True
end
item
Expanded = False
FieldName = 'HJJE'
Title.Alignment = taCenter
Title.Caption = '合計(jì)金額(元)'
Width = 104
Visible = True
end>
end
object DBG_LXQL: TDBGrid
Left = 1
Top = 146
Width = 532
Height = 154
Align = alClient
Color = clWhite
DataSource = DataSource4
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'PPMC'
Title.Alignment = taCenter
Title.Caption = '票品名稱(chēng)'
Width = 218
Visible = True
end
item
Expanded = False
FieldName = 'MZ'
Title.Alignment = taCenter
Title.Caption = '面值(元)'
Width = 62
Visible = True
end
item
Expanded = False
FieldName = 'XJ'
Title.Alignment = taCenter
Title.Caption = '銷(xiāo)價(jià)(元)'
Visible = True
end
item
Expanded = False
FieldName = 'SL'
Title.Alignment = taCenter
Title.Caption = '需求數(shù)量'
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'KCSL'
Title.Alignment = taCenter
Title.Caption = '庫(kù)存數(shù)量'
Width = 68
Visible = True
end>
end
end
end
object TabSheet2: TTabSheet
Caption = '不參照需求'
ImageIndex = 3
object Panel1: TPanel
Left = 0
Top = 0
Width = 534
Height = 301
Align = alClient
BevelOuter = bvLowered
Caption = 'Panel1'
TabOrder = 0
object Label2: TLabel
Left = 4
Top = 4
Width = 60
Height = 12
Caption = '選擇單位：'
end
object DBGrid1: TDBGrid
Left = 1
Top = 19
Width = 532
Height = 281
Align = alBottom
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋體'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'DWJC'
Title.Alignment = taCenter
Title.Caption = '單位名稱(chēng)'
Width = 158
Visible = True
end
item
Expanded = False
FieldName = 'LXR'
Title.Alignment = taCenter
Title.Caption = '聯(lián)系人'
Width = 70
Visible = True
end
item
Expanded = False
FieldName = 'DH'
Title.Alignment = taCenter
Title.Caption = '電話(huà)'
Width = 108
Visible = True
end
item
Expanded = False
FieldName = 'EMAIL'
Title.Alignment = taCenter
Title.Caption = 'E_Mail'
Width = 154
Visible = True
end>
end
end
end
end
object DataSource5: TDataSource
AutoEdit = False
DataSet = Qry_LXQL1
Left = 69
Top = 79
end
object Qry_LXQL1: TQuery
AfterScroll = Qry_LXQL1AfterScroll
DatabaseName = 'yzpp'
SQL.Strings = (
'select A.QLDH,A.DWDM,A.DWMC,sum(A.JE) HJJE from tys_txpqld A, TY' +
'S_TXPCKJHDB B'
'where A.QLDH=B.BZ(+) and B.BZ IS null and A.ZT='#39'0'#39' and dwdm <> :' +
'dwdm and nd =:nd and yf=:yf'
'group by A.QLDH,A.DWDM,A.DWMC')
Left = 41
Top = 79
ParamData = <
item
DataType = ftUnknown
Name = 'dwdm'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'nd'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'yf'
ParamType = ptUnknown
end>
object Qry_LXQL1QLDH: TStringField
FieldName = 'QLDH'
Origin = 'YZPP.TYS_TXPQLD.QLDH'
Size = 16
end
object Qry_LXQL1DWDM: TStringField
FieldName = 'DWDM'
Origin = 'YZPP.TYS_TXPQLD.DWDM'
Size = 8
end
object Qry_LXQL1DWMC: TStringField
FieldName = 'DWMC'
Origin = 'YZPP.TYS_TXPQLD.DWMC'
Size = 40
end
object Qry_LXQL1HJJE: TFloatField
FieldName = 'HJJE'
Origin = 'YZPP.TYS_TXPQLD.JE'
OnGetText = Qry_LXQLMZGetText
end
end
object Qry_LXQL: TQuery
CachedUpdates = True
DatabaseName = 'yzpp'
SQL.Strings = (
'select a.qldh,a.ppdm,a.dwdm,a.ppmc,a.mz,a.sl,b.ts kcsl,b.XJ,b.KF' +
'DM'
' from tys_txpqld a, tys_TXPPKC b'
' Where a.PPDM=b.PPDM(+)'
' and a.QLDH=:QLDH'
''
' ')
Left = 45
Top = 216
ParamData = <
item
DataType = ftString
Name = 'QLDH'
ParamType = ptUnknown
Value = #39'1'#39
end>
object Qry_LXQLPPDM: TStringField
FieldName = 'PPDM'
Origin = 'YZPP.TYS_TXPQLD.PPDM'
Size = 13
end
object Qry_LXQLDWDM: TStringField
FieldName = 'DWDM'
Origin = 'YZPP.TYS_TXPQLD.DWDM'
Size = 8
end
object Qry_LXQLPPMC: TStringField
FieldName = 'PPMC'
Origin = 'YZPP.TYS_TXPQLD.PPMC'
Size = 60
end
object Qry_LXQLMZ: TFloatField
FieldName = 'MZ'
Origin = 'YZPP.TYS_TXPQLD.MZ'
OnGetText = Qry_LXQLMZGetText
end
object Qry_LXQLSL: TFloatField
FieldName = 'SL'
Origin = 'YZPP.TYS_TXPQLD.SL'
OnGetText = Qry_LXQLKCSLGetText
DisplayFormat = '#,##'
end
object Qry_LXQLQLDH: TStringField
FieldName = 'QLDH'
Origin = 'YZPP.TYS_TXPQLD.QLDH'
Size = 16
end
object Qry_LXQLKCSL: TFloatField
FieldName = 'KCSL'
OnGetText = Qry_LXQLKCSLGetText
DisplayFormat = '#,##'
end
object Qry_LXQLXJ: TFloatField
FieldName = 'XJ'
end
object Qry_LXQLKFDM: TStringField
FieldName = 'KFDM'
Size = 3
end
end
object DataSource4: TDataSource
AutoEdit = False
DataSet = Qry_LXQL
Left = 73
Top = 216
end
object Qry_GXDWSJB: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'select DWDM,DWMC from TO_GXDWSJB')
Left = 592
Top = 82
end
object DataSource1: TDataSource
DataSet = Qry_DW
Left = 294
Top = 149
end
object Qry_DW: TQuery
DatabaseName = 'yzpp'
SQL.Strings = (
'select *'
' from TGS_GXDWSJB'
' where ZJXJ='#39'1'#39' and FHDX='#39'1'#39' and TXYW='#39'1'#39
' order by PXM')
Left = 266
Top = 149
end
end
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -