📄 productinfo.dfm
字号:
ImeMode = imDisable
TabOrder = 5
end
object Button1: TButton
Left = 174
Top = 10
Width = 75
Height = 21
Caption = #25286#20998#26597#35810
TabOrder = 14
OnClick = Button1Click
end
object DBEdit14: TDBEdit
Left = 50
Top = 100
Width = 121
Height = 21
DataField = 'Material'
DataSource = dsBaseInfo
ImeMode = imDisable
TabOrder = 7
end
object dxDBExtLookupEdit1: TdxDBExtLookupEdit
Left = 430
Top = 40
Width = 121
Style.BorderStyle = xbsFlat
Style.ButtonStyle = btsFlat
Style.ButtonTransparence = ebtNone
Style.HotTrack = False
Style.Shadow = False
TabOrder = 2
DataField = 'splate_no'
DataSource = dsBaseInfo
ReadOnly = False
PopupHeight = 300
PopupWidth = 500
DBGridLayout = dxDBGridLayoutList1Item1
StoredValues = 64
end
object DBEdit3: TDBEdit
Left = 240
Top = 100
Width = 121
Height = 21
DataField = 'Model_No'
DataSource = dsBaseInfo
ImeMode = imDisable
TabOrder = 8
end
object DBEdit4: TDBEdit
Left = 430
Top = 100
Width = 121
Height = 21
DataField = 'Empolder_No'
DataSource = dsBaseInfo
ImeMode = imDisable
TabOrder = 9
end
end
object TabSheet2: TTabSheet
Caption = #37325#22823#20107#25925
ImageIndex = 1
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 984
Height = 199
Align = alClient
TabOrder = 0
object cxGridDBTableView1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DSLSDA
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
OnGetText = cxGridDBTableView1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems0GetText
Column = cxGridDBTableView1dates
end
item
Format = '0'#26465
Kind = skCount
Column = cxGridDBTableView1hth
end
item
Format = '0.00'#65509
Kind = skSum
FieldName = 'Direct_losing'
Column = cxGridDBTableView1Direct_losing
end
item
Format = '0.00'#65509
Kind = skSum
FieldName = 'Sum_losing'
Column = cxGridDBTableView1Sum_losing
end
item
Format = '0'#31890
Kind = skSum
FieldName = 'Amount'
Column = cxGridDBTableView1Amount
end
item
Format = '0.00'#20844#26020
Kind = skSum
FieldName = 'Weight'
Column = cxGridDBTableView1Weight
end>
DataController.Summary.SummaryGroups = <>
OptionsView.Footer = True
OptionsView.GroupByBox = False
object cxGridDBTableView1dates: TcxGridDBColumn
Caption = #21457#29983#26085#26399
DataBinding.FieldName = 'dates'
Width = 100
end
object cxGridDBTableView1hth: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'hth'
Width = 100
end
object cxGridDBTableView1buyer: TcxGridDBColumn
Caption = #21512#21516#21333#20301
DataBinding.FieldName = 'buyer'
Width = 100
end
object cxGridDBTableView1Weight: TcxGridDBColumn
Caption = #37325#37327
DataBinding.FieldName = 'Weight'
Width = 100
end
object cxGridDBTableView1Grain: TcxGridDBColumn
Caption = #27599#20844#26020#31890#25968
DataBinding.FieldName = 'Grain'
Width = 100
end
object cxGridDBTableView1Amount: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Amount'
Width = 100
end
object cxGridDBTableView1Sum_losing: TcxGridDBColumn
Caption = #24635#25439#37329#39069
DataBinding.FieldName = 'Sum_losing'
Width = 100
end
object cxGridDBTableView1Direct_losing: TcxGridDBColumn
Caption = #30452#25439#37329#39069
DataBinding.FieldName = 'Direct_losing'
Width = 100
end
object cxGridDBTableView1Slip_text: TcxGridDBColumn
Caption = #20107#25925#20869#23481
DataBinding.FieldName = 'Slip_text'
PropertiesClassName = 'TcxBlobEditProperties'
Properties.BlobEditKind = bekMemo
Width = 100
end
object cxGridDBTableView1Manage: TcxGridDBColumn
Caption = #22788#29702#24773#20917
DataBinding.FieldName = 'Manage'
PropertiesClassName = 'TcxBlobEditProperties'
Properties.BlobEditKind = bekMemo
Width = 100
end
object cxGridDBTableView1images: TcxGridDBColumn
Caption = #20107#25925#22270#29255
DataBinding.FieldName = 'images'
PropertiesClassName = 'TcxBlobEditProperties'
Properties.BlobEditKind = bekPict
Width = 100
end
object cxGridDBTableView1Liabler: TcxGridDBColumn
Caption = #36131#20219#20154
DataBinding.FieldName = 'Liabler'
Width = 100
end
object cxGridDBTableView1Up_date: TcxGridDBColumn
Caption = #19978#20132#26085#26399
DataBinding.FieldName = 'Up_date'
Width = 100
end
object cxGridDBTableView1Checker: TcxGridDBColumn
Caption = #26816#39564#21592
DataBinding.FieldName = 'Checker'
Width = 100
end
object cxGridDBTableView1Liable_dept: TcxGridDBColumn
Caption = #36131#20219#37096#38376
DataBinding.FieldName = 'Liable_dept'
Width = 100
end
object cxGridDBTableView1technics: TcxGridDBColumn
Caption = #24037#24207
DataBinding.FieldName = 'technics'
Width = 100
end
object cxGridDBTableView1working_procedure: TcxGridDBColumn
Caption = #32452#21035
DataBinding.FieldName = 'working_procedure'
Width = 100
end
object cxGridDBTableView1machine_No: TcxGridDBColumn
Caption = #26426#21495
DataBinding.FieldName = 'machine_No'
Width = 100
end
object cxGridDBTableView1remark: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'remark'
Width = 100
end
end
object cxGridLevel1: TcxGridLevel
GridView = cxGridDBTableView1
end
end
end
object TabSheet3: TTabSheet
Caption = #23458#25143#25237#35785
ImageIndex = 2
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 984
Height = 199
Align = alClient
TabOrder = 0
object cxGrid1DBTableView1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DSKHTS
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Column = cxGrid1DBTableView1ournal_No
end
item
Format = '0'#26465
Kind = skCount
Column = cxGrid1DBTableView1Appeal_Date
end>
DataController.Summary.SummaryGroups = <>
OptionsView.Footer = True
OptionsView.GroupByBox = False
object cxGrid1DBTableView1ournal_No: TcxGridDBColumn
Caption = #27969#27700#21495
DataBinding.FieldName = 'ournal_No'
Width = 100
end
object cxGrid1DBTableView1Appeal_Date: TcxGridDBColumn
Caption = #25237#35785#26085#26399
DataBinding.FieldName = 'Appeal_Date'
Width = 100
end
object cxGrid1DBTableView1buyer: TcxGridDBColumn
Caption = #23458#25143#21333#20301
DataBinding.FieldName = 'buyer'
Width = 100
end
object cxGrid1DBTableView1hth: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'hth'
Width = 100
end
object cxGrid1DBTableView1Appeal_text: TcxGridDBColumn
Caption = #25237#35785#20869#23481
DataBinding.FieldName = 'Appeal_text'
Width = 100
end
object cxGrid1DBTableView1checks: TcxGridDBColumn
Caption = #26680#26597#32467#26524
DataBinding.FieldName = 'checks'
Width = 100
end
object cxGrid1DBTableView1Solve: TcxGridDBColumn
Caption = #35299#20915#25514#26045
DataBinding.FieldName = 'Solve'
Width = 100
end
object cxGrid1DBTableView1Manage: TcxGridDBColumn
Caption = #22788#29702#24847#35265
DataBinding.FieldName = 'Manage'
Width = 100
end
object cxGrid1DBTableView1image: TcxGridDBColumn
Caption = #20107#25925#22270#29255
DataBinding.FieldName = 'image'
Width = 100
end
object cxGrid1DBTableView1type: TcxGridDBColumn
Caption = #38382#39064#23646#24615
DataBinding.FieldName = 'type'
Width = 100
end
object cxGrid1DBTableView1Stresser: TcxGridDBColumn
Caption = #37325#28857#23458#25143
DataBinding.FieldName = 'Stresser'
Width = 100
end
object cxGrid1DBTableView1Liabler: TcxGridDBColumn
Caption = #36131#20219#20154
DataBinding.FieldName = 'Liabler'
Width = 100
end
object cxGrid1DBTableView1Liable_dept: TcxGridDBColumn
Caption = #36131#20219#37096#38376
DataBinding.FieldName = 'Liable_dept'
Width = 100
end
object cxGrid1DBTableView1technics: TcxGridDBColumn
Caption = #24037#24207
DataBinding.FieldName = 'technics'
Width = 100
end
object cxGrid1DBTableView1remark: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'remark'
Width = 100
end
end
object cxGrid1Level1: TcxGridLevel
GridView = cxGrid1DBTableView1
end
end
end
end
inherited ALToolbar: TActionList
Left = 571
Top = 296
inherited acExport: TAction
Caption = #24341#20837
ImageIndex = 23
end
end
inherited QBaseInfo: TADOQuery
BeforeOpen = QBaseInfoBeforeOpen
AfterScroll = QBaseInfoAfterScroll
SQL.Strings = (
'select * from dbo.CcModel_Remark '
'where 1=0 '
'')
Left = 383
Top = 323
object QBaseInfoId: TBCDField
FieldName = 'Id'
ReadOnly = True
Precision = 18
Size = 0
end
object QBaseInfoXh: TStringField
FieldName = 'Xh'
Size = 50
end
object QBaseInfoRemark: TStringField
FieldName = 'Remark'
Size = 800
end
object QBaseInfoInputer: TStringField
FieldName = 'Inputer'
Size = 30
end
object QBaseInfoTime_Input: TDateTimeField
FieldName = 'Time_Input'
end
object QBaseInfoPerfecter: TStringField
FieldName = 'Perfecter'
Size = 30
end
object QBaseInfoTime_Perfect: TDateTimeField
FieldName = 'Time_Perfect'
end
object QBaseInfoSave_Time: TDateTimeField
FieldName = 'Save_Time'
end
object QBaseInfoSizes: TStringField
FieldName = 'Sizes'
Size = 30
end
object QBaseInfoTechnicsPic: TBlobField
FieldName = 'TechnicsPic'
end
object QBaseInfoGrainCount: TBCDField
FieldName = 'GrainCount'
Precision = 18
Size = 2
end
object QBaseInfoMaterial: TStringField
FieldName = 'Material'
Size = 50
end
object QBaseInfoArea_plate: TBCDField
FieldName = 'Area_plate'
Precision = 18
Size = 6
end
object QBaseInfoPrice_material: TBCDField
FieldName = 'Price_material'
Precision = 18
Size = 6
end
object QBaseInfoPrice_plate: TBCDField
FieldName = 'Price_plate'
Precision = 18
Size = 2
end
object QBaseInfoPrice_spray: TBCDField
FieldName = 'Price_spray'
Precision = 18
Size = 2
end
object QBaseInfoStandOneSortNo: TStringField
FieldName = 'StandOneSortNo'
Size = 30
end
object QBaseInfoStandOneSortName: TStringField
FieldName = 'StandOneSortName'
Size = 30
end
object QBaseInfoPhoto: TBlobField
FieldName = 'Photo'
end
object QBaseInfoAuditer: TStringField
FieldName = 'Auditer'
Size = 30
end
object QBaseInfoTime_Audit: TDateTimeField
FieldName = 'Time_Audit'
end
object QBaseInfosign_Audit: TBooleanField
FieldName = 'sign_Audit'
end
object QBaseInfosign_Artdept: TBooleanField
FieldName = 'sign_Artdept'
end
object QBaseInfoNumber: TStringField
FieldName = 'Number'
Size = 30
end
object QBaseInfoArtdepter: TStringField
FieldName = 'Artdepter'
Size = 30
end
object QBaseInfoTime_Artdept: TDateTimeField
FieldName = 'Time_Artdept'
end
object QBaseInfosign_Design: TBooleanField
FieldName = 'sign_Design'
end
object QBaseInfobigpic: TBlobField
FieldName = 'bigpic'
end
object QBaseInfosign: TStringField
FieldName = 'sign'
Size = 50
end
object QBaseInfoPlate_no: TStringField
FieldName = 'Plate_no'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -