📄 dmunit.~dfm
字号:
end
end
object JSZM_DS: TDataSource
DataSet = JSZM_ADOQ
Left = 520
Top = 144
end
object JSZP_DS: TDataSource
DataSet = JSZP_ADOT
Left = 520
Top = 208
end
object JSZP_ADOT: TADOTable
Connection = ADOC
CursorType = ctStatic
IndexFieldNames = 'JSZ_NO'
MasterFields = 'JSZ_NO'
MasterSource = JSZM_DS
TableName = 'JSZ_P'
Left = 456
Top = 208
object JSZP_ADOTJSZ_NO: TStringField
FieldName = 'JSZ_NO'
end
object JSZP_ADOTJSZ_ITEMNO: TStringField
FieldName = 'JSZ_ITEMNO'
end
object JSZP_ADOTJSZ_ITEMSORT: TStringField
FieldName = 'JSZ_ITEMSORT'
end
object JSZP_ADOTJSZ_ITEMUNIT: TStringField
FieldName = 'JSZ_ITEMUNIT'
end
object JSZP_ADOTJSZ_ITEMPRICE: TBCDField
FieldName = 'JSZ_ITEMPRICE'
Precision = 18
Size = 2
end
object JSZP_ADOTJSZ_ITEMNUM: TBCDField
FieldName = 'JSZ_ITEMNUM'
Precision = 18
Size = 2
end
object JSZP_ADOTJSZ_ITEMMON: TBCDField
FieldName = 'JSZ_ITEMMON'
Precision = 18
Size = 2
end
object JSZP_ADOTitemname: TStringField
FieldKind = fkLookup
FieldName = 'itemname'
LookupDataSet = LCITEM_ADOQ
LookupKeyFields = 'ITEM_NO'
LookupResultField = 'ITEM_NAME'
KeyFields = 'JSZ_ITEMNO'
Lookup = True
end
end
object JXZTJDS: TDataSource
DataSet = JXZTJADOQ
Left = 688
Top = 256
end
object JXZTJADOQ: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT JM.JXZ_NO,JM.JXZ_TIME,C.CLASS_NAME,LC.LC_NAME,LC1.LC_NAME' +
',C1.CLASS_NAME,'
'LCI.ITEM_NAME,JP.JXZ_ITEMSORT,JP.JXZ_ITEMUNIT,JP.JXZ_ITEMPRICE,J' +
'P.JXZ_ITEMNUM,'
'JP.JXZ_ITEMMON FROM JXZ_M JM '
'LEFT JOIN LCBASE LC ON'
'JM.JXZ_CARNO=LC.LC_NO'
'LEFT JOIN LCBASE LC1 ON'
'JM.JXZ_JCARNO=LC1.LC_NO'
'LEFT JOIN CLASS_ITEM C ON'
'C.CLASS_ID=JM.JXZ_JBZ'
'LEFT JOIN CLASS_ITEM C1 ON'
'C1.CLASS_ID=JM.JXZ_JSBZ'
'LEFT JOIN JXZ_P JP ON'
'JM.JXZ_NO=JP.JXZ_NO'
'LEFT JOIN LCITEM_ITEM LCI ON'
'LCI.ITEM_NO=JP.JXZ_ITEMNO')
Left = 616
Top = 264
end
object RKCHART_DS: TDataSource
DataSet = RKCHART_ADOQ
Left = 464
Top = 344
end
object RKCHART_ADOQ: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT '#20837#24211#26102#38388'=RM.RKD_TIME, '
#24635#25968#37327'=SUM(RP.ITEM_NUM),'
#24635#37329#39069'=SUM(RP.ITEM_MON) '
'FROM RKD_M RM'
'LEFT JOIN RKD_P RP ON RP.RKD_NO=RM.RKD_NO'
'WHERE 2>1'
'GROUP BY RM.RKD_TIME')
Left = 512
Top = 344
end
object CKCHART_ADOQ: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT '#20986#24211#26102#38388'=CM.CKD_TIME,'
#20986#24211#25968#37327'=SUM(CP.ITEM_NUM),'
#25439#32791#25968#37327'=SUM(CP.ITEM_SHNUM),'
#20986#24211#37329#39069'=SUM(CP.ITEM_MON)'
'FROM CKD_M CM'
'LEFT JOIN CKD_P CP ON CP.CKD_NO=CM.CKD_NO '
'WHERE 2>1'
'GROUP BY CKD_TIME')
Left = 512
Top = 408
end
object CKCHART_DS: TDataSource
DataSet = CKCHART_ADOQ
Left = 464
Top = 408
end
object LCRKCHART_ADOQ: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT '#36710#21495'=LC.LC_NAME,'#27719#24635#32534#21495'=LH.LC_HZ,'#29677#32452'=C.CLASS_NAME,'#24635#25968#37327'=SUM(LC_NU' +
'M),'#24635#37329#39069'=SUM(LC_MON)'
'FROM LCRKD_HZ LH'
'LEFT JOIN LCBASE LC ON'
'LC.LC_NO=LH.LC_CARNO'
'LEFT JOIN CLASS_ITEM C ON'
'C.CLASS_ID=LH.LC_BZ'
'GROUP BY LC.LC_NAME,LH.LC_HZ,C.CLASS_NAME')
Left = 512
Top = 472
end
object LCRKCHART_DS: TDataSource
DataSet = LCRKCHART_ADOQ
Left = 464
Top = 472
end
object JXZCHART_ADOQ: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT JM.JXZ_NO,LC.LC_NAME,C.CLASS_NAME,JM.JXZ_TIME,LC1.LC_NAME' +
',C1.CLASS_NAME,'
#24635#25968#37327'=SUM(JP.JXZ_ITEMNUM),'#24635#37329#39069'=SUM(JP.JXZ_ITEMMON)'
'FROM JXZ_M JM'
'LEFT JOIN JXZ_P JP ON'
'JM.JXZ_NO=JP.JXZ_NO'
'LEFT JOIN LCBASE LC ON'
'LC.LC_NO=JM.JXZ_CARNO'
'LEFT JOIN CLASS_ITEM C ON'
'C.CLASS_ID=JM.JXZ_JBZ'
'LEFT JOIN LCBASE LC1 ON'
'LC1.LC_NO=JM.JXZ_JCARNO'
'LEFT JOIN CLASS_ITEM C1 ON'
'C1.CLASS_ID=JM.JXZ_JSBZ'
'GROUP BY JM.JXZ_NO,LC.LC_NAME,C.CLASS_NAME,JM.JXZ_TIME,LC1.LC_NA' +
'ME,C1.CLASS_NAME')
Left = 512
Top = 536
end
object JXZCHART_DS: TDataSource
DataSet = JXZCHART_ADOQ
Left = 464
Top = 536
end
object JSZCHART_ADOQ: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT JM.JSZ_NO,A=LC.LC_NAME,B=C.CLASS_NAME,JM.JSZ_TIME,'
'A1=LC1.LC_NAME,B1=C1.CLASS_NAME,'
#24635#25968#37327'=SUM(JP.JSZ_ITEMNUM),'
#24635#37329#39069'=SUM(JP.JSZ_ITEMMON)'
'FROM JSZ_M JM'
'LEFT JOIN JSZ_P JP ON'
'JM.JSZ_NO=JP.JSZ_NO'
'LEFT JOIN LCBASE LC ON'
'LC.LC_NO=JM.JSZ_CARNO'
'LEFT JOIN CLASS_ITEM C ON'
'C.CLASS_ID=JM.JSZ_BZ'
'LEFT JOIN LCBASE LC1 ON'
'LC1.LC_NO=JM.JSZ_JCARNO'
'LEFT JOIN CLASS_ITEM C1 ON'
'C1.CLASS_ID=JM.JSZ_JBZ'
'GROUP BY JM.JSZ_NO,LC.LC_NAME,C.CLASS_NAME,'
'JM.JSZ_TIME,LC1.LC_NAME,C1.CLASS_NAME')
Left = 512
Top = 592
end
object JSZCHART_DS: TDataSource
DataSet = JSZCHART_ADOQ
Left = 464
Top = 592
end
object PRC_DS: TDataSource
DataSet = PRC_ADOQ
Left = 456
Top = 272
end
object PRC_ADOQ: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT * FROM PRCTURE')
Left = 520
Top = 272
end
object LIRUN_ADOQ: TADOQuery
Connection = ADOC
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'SELECT '#36710#21495'=LC.LC_NAME,'#29677#32452'=C.CLASS_NAME,'#27719#24635#32534#21495'=S.ITEM_BS,'#24635#25968#37327'=ISNULL(S' +
'UM(S.ITEM_NUM),0),'#24635#37329#39069'=ISNULL(SUM(S.ITEM_MON),0)'
'INTO #SALE'
'FROM SALE S'
'LEFT JOIN LCBASE LC ON'
'LC.LC_CARNO=S.ITEM_CARNO'
'LEFT JOIN CLASS_ITEM C ON'
'C.CLASS_ID=S.ITEM_BZ'
'GROUP BY LC.LC_NAME,C.CLASS_NAME,S.ITEM_BS --'#38144#21806#21033#28070
''
'SELECT '#36710#21495'=LC.LC_NAME,'#27719#24635#32534#21495'=LH.LC_HZ,'#29677#32452'=C.CLASS_NAME,'#24635#25968#37327'=ISNULL(SU' +
'M(LC_NUM),0),'#24635#37329#39069'=ISNULL(SUM(LC_MON),0)'
'INTO #RKHZ'
'FROM LCRKD_HZ LH'
'LEFT JOIN LCBASE LC ON'
'LC.LC_NO=LH.LC_CARNO'
'LEFT JOIN CLASS_ITEM C ON'
'C.CLASS_ID=LH.LC_BZ'
'GROUP BY LC_NAME,CLASS_NAME,LC_HZ --'#20837#24211#27719#24635#34920
''
'SELECT '#36710#21495'=LC.LC_NAME,'#29677#32452'=C.CLASS_NAME,'#27719#24635#32534#21495'=JM.JXZ_HXNO,'
#24635#25968#37327'=ISNULL(SUM(JP.JXZ_ITEMNUM),0),'#24635#37329#39069'=ISNULL(SUM(JP.JXZ_ITEMMON)' +
',0)'
'INTO #JXZ'
'FROM JXZ_M JM'
'LEFT JOIN JXZ_P JP ON'
'JM.JXZ_NO=JP.JXZ_NO'
'LEFT JOIN LCBASE LC ON'
'LC.LC_NO=JM.JXZ_CARNO'
'LEFT JOIN CLASS_ITEM C ON'
'C.CLASS_ID=JM.JXZ_JBZ'
'GROUP BY JM.JXZ_NO,LC.LC_NAME,C.CLASS_NAME,JM.JXZ_HXNO--'#20132#19979#32452
''
'SELECT '#27719#24635#32534#21495'=JM.JSZ_HZ,'
#36710#21495'=LC1.LC_NAME,'#29677#32452'=C1.CLASS_NAME,'
#24635#25968#37327'=ISNULL(SUM(JP.JSZ_ITEMNUM),0),'
#24635#37329#39069'=ISNULL(SUM(JP.JSZ_ITEMMON),0)'
'INTO #JSZ'
'FROM JSZ_M JM'
'LEFT JOIN JSZ_P JP ON'
'JM.JSZ_NO=JP.JSZ_NO'
'LEFT JOIN LCBASE LC1 ON'
'LC1.LC_NO=JM.JSZ_JCARNO'
'LEFT JOIN CLASS_ITEM C1 ON'
'C1.CLASS_ID=JM.JSZ_JBZ'
'GROUP BY LC1.LC_NAME,C1.CLASS_NAME,'
'JM.JSZ_HZ --'#25509#19978#32452
''
'SELECT S.'#36710#21495',S.'#29677#32452','#24635#25968#37327'=ISNULL(S.'#24635#25968#37327',0)-ISNULL(R.'#24635#25968#37327',0)-ISNULL(J.'#24635#25968 +
#37327',0)+ISNULL(J1.'#24635#25968#37327',0),'
#24635#37329#39069'=ISNULL(S.'#24635#37329#39069',0)-ISNULL(R.'#24635#37329#39069',0)-ISNULL(J.'#24635#37329#39069',0)+ISNULL(J1.'#24635#37329 +
#39069',0)'
'FROM #SALE S'
'LEFT JOIN #RKHZ R ON'
'R.'#36710#21495'=S.'#36710#21495' AND S.'#29677#32452'=R.'#29677#32452' AND R.'#27719#24635#32534#21495'=S.'#27719#24635#32534#21495
'LEFT JOIN #JXZ J ON'
'J.'#36710#21495'=S.'#36710#21495' AND S.'#29677#32452'=J.'#29677#32452' AND J.'#27719#24635#32534#21495'=S.'#27719#24635#32534#21495
'LEFT JOIN #JSZ J1 ON'
'J1.'#36710#21495'=S.'#36710#21495' AND S.'#29677#32452'=J1.'#29677#32452' AND J1.'#27719#24635#32534#21495'=S.'#27719#24635#32534#21495
'WHERE 2>1'
'DROP TABLE #SALE'
'DROP TABLE #RKHZ'
'DROP TABLE #JXZ'
'DROP TABLE #JSZ')
Left = 512
Top = 648
end
object LIRUN_DS: TDataSource
DataSet = LIRUN_ADOQ
Left = 464
Top = 648
end
object ADOQF: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT LCB.LC_NAME,LCC.CLASS_NAME,LCH.LC_HZ,I.ITEM_NAME,LCH.LC_I' +
'TEMSORT,LCH.LC_ITEMUNIT,LCH.LC_NUM,LCH.LC_MON'
'FROM LCRKD_HZ LCH'
'LEFT JOIN LCBASE LCB ON'
'LCB.LC_NO=LCH.LC_CARNO'
'LEFT JOIN CLASS_ITEM LCC ON'
'LCC.CLASS_ID=LCH.LC_BZ'
'LEFT JOIN ITEM_ITEM I ON'
'I.ITEM_ID=LCH.LC_ITEMNO'
'WHERE 2>1')
Left = 680
Top = 432
end
object FDS: TDataSource
DataSet = ADOQF
Left = 616
Top = 432
end
object SUMSTOCK_DS: TDataSource
DataSet = SUMSTOCK_ADOQ
Left = 600
Top = 512
end
object SUMSTOCK_ADOQ: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT II.ITEM_NAME AS '#20135#21697#21517#31216',S.RKD_SORT AS '#31867#21035',S.RKD_UNIT '#21333#20301', SUM(' +
'RKD_NUM) AS '#25968#37327' FROM STOCK S'
'LEFT JOIN ITEM_ITEM II ON S.RKD_ITEMNAME=II.ITEM_ID'
'GROUP BY II.ITEM_NAME,S.RKD_SORT,S.RKD_UNIT ')
Left = 640
Top = 512
end
object FINDADO: TADOQuery
Connection = ADOC
Parameters = <>
Left = 680
Top = 512
end
object SCJSZQry: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT * FROM SCJSZ_ITEM')
Left = 296
Top = 648
end
object SCJSZ_DS: TDataSource
DataSet = SCJSZQry
Left = 232
Top = 648
end
object SALENO_Qry: TADOQuery
Connection = ADOC
Parameters = <>
Left = 160
Top = 592
end
object ZFQry: TADOQuery
Connection = ADOC
Parameters = <>
Left = 64
Top = 208
end
object CXTJQry: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
' SELECT S.ITEM_CARNO,S.ITEM_BZ,S.ITEM_CSJNO,LC.ITEM_NAME,LC.ITE' +
'M_PLIAO,LC.ITEM_FLIAO,S.ITEM_NO,ITEM_NUM=SUM(S.ITEM_NUM),ITEM_MO' +
'N=SUM(S.ITEM_MON)'
' FROM SALE S LEFT JOIN LCITEM_ITEM LC ON LC.ITEM_NO=S.ITEM_NO' +
' WHERE 2>1 AND ITEM_BS='#39#21487#29992#39
'GROUP BY ITEM_CARNO,ITEM_BZ,ITEM_CSJNO,LC.ITEM_NAME,LC.ITEM_PLIA' +
'O,LC.ITEM_FLIAO,S.ITEM_NO')
Left = 64
Top = 272
end
object CXTJ_DS: TDataSource
DataSet = CXTJQry
Left = 64
Top = 328
end
object ADOCo: TADOConnection
LoginPrompt = False
Left = 16
Top = 64
end
object CS_ADOQ: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT * FROM CS_ITEM')
Left = 680
Top = 584
end
object CS_DS: TDataSource
DataSet = CS_ADOQ
Left = 616
Top = 584
end
object SALECX_ADOQ: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT S.ITEM_CARNO,S.ITEM_BZ,S.ITEM_CSJNO,S.ITEM_LSNO,S.ITEM_NO' +
',LI.ITEM_NAME,S.ITEM_PRICE,S.ITEM_NUM,S.ITEM_MON,S.ITEM_TIME,S.I' +
'TEM_DATE,'
'S.ITEM_MEN,S.ITEM_BS,S.ITEM_MARKS FROM SALE S LEFT JOIN LCITEM_I' +
'TEM LI ON LI.ITEM_NO=S.ITEM_NO'
'WHERE 2>1')
Left = 696
Top = 625
end
object SALECX_DS: TDataSource
DataSet = SALECX_ADOQ
Left = 624
Top = 625
end
object CARBZ_ADOQ: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT ITEM_CARNO,ITEM_BZ,SUM(ITEM_MON) AS ITEM_MON,YEAR(ITEM_DA' +
'TE) AS YEARD,MONTH(ITEM_DATE) AS MONTHD '
'FROM SALE WHERE 2>1'
'GROUP BY ITEM_CARNO,ITEM_BZ,YEAR(ITEM_DATE),MONTH(ITEM_DATE)')
Left = 408
Top = 704
end
object CARBZ_DS: TDataSource
DataSet = CARBZ_ADOQ
Left = 352
Top = 704
end
object SALEITEM_DS: TDataSource
DataSet = SALEITEM_ADOQ
Left = 472
Top = 704
end
object SALEITEM_ADOQ: TADOQuery
Connection = ADOC
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT S.ITEM_CARNO,S.ITEM_BZ,LCI.ITEM_NAME,SUM(S.ITEM_MON) AS I' +
'TEM_MON,YEAR(S.ITEM_DATE) AS YEARD,MONTH(S.ITEM_DATE) AS MONTHD '
'FROM SALE S '
'LEFT JOIN LCITEM_ITEM LCI ON'
'LCI.ITEM_NO=S.ITEM_NO'
'WHERE 2>1 '
'GROUP BY ITEM_CARNO,ITEM_BZ,LCI.ITEM_NAME,YEAR(ITEM_DATE),MONTH(' +
'ITEM_DATE)')
Left = 536
Top = 704
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -