📄 frmprocp.dfm
字号:
848484008400848484008400848484008400848484FFFFFF0000}
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = btnOutBodyClick
end
object SpeedButton1: TSpeedButton
Left = 235
Top = 10
Width = 76
Height = 25
Hint = 'Delete'
Caption = #21024#24405
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033337733333333333333333F333333333333
0000333911733333973333333377F333333F3333000033391117333911733333
37F37F333F77F33300003339111173911117333337F337F3F7337F3300003333
911117111117333337F3337F733337F3000033333911111111733333337F3337
3333F7330000333333911111173333333337F333333F73330000333333311111
7333333333337F3333373333000033333339111173333333333337F333733333
00003333339111117333333333333733337F3333000033333911171117333333
33337333337F333300003333911173911173333333373337F337F33300003333
9117333911173333337F33737F337F33000033333913333391113333337FF733
37F337F300003333333333333919333333377333337FFF730000333333333333
3333333333333333333777330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton1Click
end
object Label3: TLabel
Left = 405
Top = 15
Width = 72
Height = 16
Caption = #25968#37327#24635#35745':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object DBNavigator2: TDBNavigator
Left = 104
Top = 10
Width = 128
Height = 25
DataSource = dsQryProcList
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 0
end
end
object dxDBGrid2: TdxDBGrid
Left = 0
Top = 308
Width = 543
Height = 45
Bands = <
item
Fixed = bfLeft
end
item
end>
DefaultLayout = False
HeaderPanelRowCount = 1
KeyField = 'ID'
ShowSummaryFooter = True
SummaryGroups = <>
SummarySeparator = ', '
Align = alClient
TabOrder = 3
DataSource = dsQryProcList
Filter.Criteria = {00000000}
OptionsBehavior = [edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
RowFooterColor = clWhite
object dxDBGrid2cc: TdxDBGridColumn
Alignment = taCenter
Caption = '-'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
HeaderAlignment = taCenter
Width = 23
BandIndex = 0
RowIndex = 0
FieldName = 'cc'
end
object dxDBGrid2cBarCode: TdxDBGridMaskColumn
Caption = #26465#24418#30721
HeaderAlignment = taCenter
Width = 120
BandIndex = 0
RowIndex = 0
FieldName = 'cBarCode'
SummaryFooterType = cstCount
end
object dxDBGrid2cInvCode: TdxDBGridMaskColumn
Caption = #23384#36135#20195#30721
HeaderAlignment = taCenter
Width = 108
BandIndex = 1
RowIndex = 0
FieldName = 'cInvCode'
end
object dxDBGrid2cInvName: TdxDBGridMaskColumn
Caption = #23384#36135#21517#31216
HeaderAlignment = taCenter
Width = 143
BandIndex = 1
RowIndex = 0
FieldName = 'cInvName'
end
object dxDBGrid2cFree1: TdxDBGridColumn
Alignment = taLeftJustify
Caption = #39068#33394
HeaderAlignment = taCenter
Width = 50
BandIndex = 1
RowIndex = 0
FieldName = 'cFree1'
end
object dxDBGrid2cFree2: TdxDBGridColumn
Caption = #23610#30721
HeaderAlignment = taCenter
Width = 50
BandIndex = 1
RowIndex = 0
FieldName = 'cFree2'
end
object dxDBGrid2cInvStd: TdxDBGridMaskColumn
Caption = #35268#26684
HeaderAlignment = taCenter
Width = 150
BandIndex = 1
RowIndex = 0
FieldName = 'cInvStd'
end
object dxDBGrid2iQuantity: TdxDBGridMaskColumn
Caption = #25968#37327
HeaderAlignment = taCenter
Width = 74
BandIndex = 1
RowIndex = 0
FieldName = 'iQuantity'
SummaryFooterType = cstSum
end
object dxDBGrid2iUnitCost: TdxDBGridMaskColumn
Caption = #21333#20215
HeaderAlignment = taCenter
Visible = False
Width = 76
BandIndex = 1
RowIndex = 0
FieldName = 'iUnitCost'
end
object dxDBGrid2iPrice: TdxDBGridCurrencyColumn
Caption = #37329#39069
HeaderAlignment = taCenter
Visible = False
Width = 140
BandIndex = 1
RowIndex = 0
FieldName = 'iPrice'
SummaryFooterType = cstSum
Nullable = False
end
object dxDBGrid2cError: TdxDBGridColumn
Caption = #38169#35823#25552#31034
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
HeaderAlignment = taCenter
Width = 250
BandIndex = 1
RowIndex = 0
FieldName = 'cError'
end
end
end
object QryProc: TADOQuery
Connection = DataDm.AdoConUfsoft
CursorType = ctStatic
BeforeEdit = QryProcBeforeEdit
BeforePost = QryProcBeforePost
AfterPost = QryProcAfterPost
AfterScroll = QryProcAfterScroll
Parameters = <>
SQL.Strings = (
'select * from Szb_PurIn')
Left = 120
Top = 112
object QryProcid: TAutoIncField
FieldName = 'id'
ReadOnly = True
end
object QryProccMaker: TStringField
FieldName = 'cMaker'
end
object QryProcPCID: TStringField
FieldName = 'PCID'
end
object QryProccVouchType: TStringField
FieldName = 'cVouchType'
Size = 6
end
object QryProccOrderCode: TStringField
FieldName = 'cOrderCode'
Size = 30
end
object QryProcipurorderid: TIntegerField
FieldName = 'ipurorderid'
end
object QryProccType: TStringField
FieldName = 'cType'
Size = 10
end
object QryProccVenCode: TStringField
FieldName = 'cVenCode'
Size = 30
end
object QryProccVenAbbName: TStringField
FieldName = 'cVenAbbName'
Size = 30
end
object QryProccDept: TStringField
FieldName = 'cDept'
end
object QryProccDeptName: TStringField
FieldName = 'cDeptName'
Size = 30
end
object QryProccPerson: TStringField
FieldName = 'cPerson'
end
object QryProccPersonName: TStringField
FieldName = 'cPersonName'
Size = 30
end
object QryProccWhCode: TStringField
FieldName = 'cWhCode'
end
object QryProccWhName: TStringField
FieldName = 'cWhName'
Size = 30
end
object QryProccPTCode: TStringField
FieldName = 'cPTCode'
Size = 15
end
object QryProccRdCode: TStringField
FieldName = 'cRdCode'
Size = 15
end
object QryProccMemo: TStringField
FieldName = 'cMemo'
Size = 60
end
object QryProcipurarriveid: TIntegerField
FieldName = 'ipurarriveid'
end
object QryProccCusCode: TStringField
FieldName = 'cCusCode'
Size = 30
end
object QryProccCusAbbName: TStringField
FieldName = 'cCusAbbName'
Size = 30
end
object QryProccPTName: TStringField
FieldName = 'cPTName'
end
object QryProccSTCode: TStringField
FieldName = 'cSTCode'
Size = 15
end
object QryProccSTName: TStringField
FieldName = 'cSTName'
end
object QryProcDLID: TIntegerField
FieldName = 'DLID'
end
object QryProccc: TStringField
FieldKind = fkCalculated
FieldName = 'cc'
Size = 4
Calculated = True
end
object QryProccError: TStringField
FieldKind = fkCalculated
FieldName = 'cError'
Size = 50
Calculated = True
end
object QryProccRdName: TStringField
FieldName = 'cRdName'
end
end
object dsQryProc: TDataSource
DataSet = QryProc
Left = 160
Top = 112
end
object QryProcList: TADOQuery
Connection = DataDm.AdoConUfsoft
CursorType = ctStatic
BeforeEdit = QryProcListBeforeEdit
AfterScroll = QryProcListAfterScroll
Parameters = <>
SQL.Strings = (
'select * from Szb_PurInList'
'')
Left = 104
Top = 384
object QryProcListcc: TStringField
FieldKind = fkCalculated
FieldName = 'cc'
Size = 2
Calculated = True
end
object QryProcListID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
object QryProcListPCID: TStringField
FieldName = 'PCID'
end
object QryProcListiPurID: TIntegerField
FieldName = 'iPurID'
end
object QryProcListcInvCode: TStringField
FieldName = 'cInvCode'
Size = 30
end
object QryProcListcInvName: TStringField
FieldName = 'cInvName'
Size = 50
end
object QryProcListcInvStd: TStringField
FieldName = 'cInvStd'
Size = 60
end
object QryProcListcBarCode: TStringField
FieldName = 'cBarCode'
Size = 30
end
object QryProcListiQuantity: TFloatField
FieldName = 'iQuantity'
end
object QryProcListiUnitCost: TFloatField
FieldName = 'iUnitCost'
end
object QryProcListiPrice: TBCDField
FieldName = 'iPrice'
Precision = 19
end
object QryProcListiPosID: TIntegerField
FieldName = 'iPosID'
end
object QryProcListcError: TStringField
FieldKind = fkCalculated
FieldName = 'cError'
Size = 50
Calculated = True
end
object QryProcListiArrsId: TIntegerField
FieldName = 'iArrsId'
end
object QryProcListcVouchType: TStringField
FieldName = 'cVouchType'
Size = 6
end
object QryProcListiDLsID: TIntegerField
FieldName = 'iDLsID'
end
object QryProcListcFree1: TStringField
FieldName = 'cFree1'
end
object QryProcListcFree2: TStringField
FieldName = 'cFree2'
end
end
object dsQryProcList: TDataSource
DataSet = QryProcList
Left = 136
Top = 384
end
object LsQryPop: TADOQuery
Connection = DataDm.AdoConUfsoft
Parameters = <>
SQL.Strings = (
'SELECT DISTINCT dbo.Szb_PurInList.cBarCode'
'FROM dbo.Inventory RIGHT OUTER JOIN'
' dbo.Szb_PurInList ON '
' dbo.Inventory.cBarCode = dbo.Szb_PurInList.cBarCode'
'WHERE (dbo.Inventory.cBarCode IS NULL)'
'Order by dbo.Szb_PurInList.cBarCode')
Left = 288
Top = 168
end
object QryCheckPo: TADOQuery
Connection = DataDm.AdoConUfsoft
Parameters = <>
SQL.Strings = (
'SELECT dbo.Szb_PurIn.ID,dbo.Szb_PurIn.cOrderCode'
'FROM dbo.Szb_PurIn LEFT OUTER JOIN'
' dbo.PO_Pomain ON dbo.Szb_PurIn.cOrderCode = dbo.PO_Pomain.' +
'cPOID'
'WHERE (dbo.PO_Pomain.cPOID IS NULL)')
Left = 328
Top = 240
end
object QryCheckType: TADOQuery
Connection = DataDm.AdoConUfsoft
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT Szb_PurIn.id, Szb_PurIn.cType'
'FROM (SELECT *'
' FROM szb_ini'
' WHERE (Szb_Ini.cMaker = '#39'admin'#39') AND (Szb_Ini.cType = '#39#37319 +
#36141#35746#21333#39')) '
' AA RIGHT OUTER JOIN'
' Szb_PurIn ON AA.cNO = Szb_PurIn.cType'
'WHERE (Szb_PurIn.PCID = '#39'095947589'#39') AND (AA.cNO IS NULL)')
Left = 368
Top = 176
end
object SaveDialog1: TSaveDialog
Filter = '*.xml|*.xml'
Left = 72
Top = 32
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -