📄 stbrclothoutin.dfm
字号:
inherited STBrClothOutInForm: TSTBrClothOutInForm
Left = 50
Top = 108
Width = 694
Height = 495
Caption = #26381#35013#35843#25320#31649#29702
FormStyle = fsMDIChild
PixelsPerInch = 96
TextHeight = 12
inherited ToolBar: TToolBar
Width = 686
ButtonWidth = 55
object ToolButton1: TToolButton
Left = 0
Top = 2
Action = AddNewAction
end
object ToolButton2: TToolButton
Left = 55
Top = 2
Action = EditAction
end
object ToolButton3: TToolButton
Left = 110
Top = 2
Action = DeleteAction
end
object ToolButton10: TToolButton
Left = 165
Top = 2
Width = 8
Caption = 'ToolButton10'
ImageIndex = 9
Style = tbsSeparator
end
object ToolButton4: TToolButton
Left = 173
Top = 2
Action = PrintPreviewAction
end
object ToolButton5: TToolButton
Left = 228
Top = 2
Action = PrintAction
end
object ToolButton11: TToolButton
Left = 283
Top = 2
Width = 8
Caption = 'ToolButton11'
ImageIndex = 10
Style = tbsSeparator
end
object ToolButton6: TToolButton
Left = 291
Top = 2
Action = ExportAction
end
object ToolButton12: TToolButton
Left = 346
Top = 2
Width = 8
Caption = 'ToolButton12'
ImageIndex = 11
Style = tbsSeparator
end
object ToolButton7: TToolButton
Left = 354
Top = 2
Action = FiltrateAction
end
object ToolButton14: TToolButton
Left = 409
Top = 2
Action = CustomizeViewAction
end
object ToolButton8: TToolButton
Left = 464
Top = 2
Action = RefreshAction
end
object ToolButton13: TToolButton
Left = 519
Top = 2
Width = 8
Caption = 'ToolButton13'
ImageIndex = 9
Style = tbsSeparator
end
object ToolButton9: TToolButton
Left = 527
Top = 2
Action = ExitAction
end
end
inherited Panel1: TPanel
Width = 686
Height = 427
inherited PageControl: TPageControl
Top = 400
Width = 686
Height = 27
inherited TabSheet1: TTabSheet
Caption = #26381#35013#35843#25320#36164#26009
end
end
inherited DBGrid: TQLDBGrid
Width = 686
Height = 400
FooterRowCount = 1
Columns = <
item
Expanded = False
FieldName = #32534#21495
Title.Alignment = taCenter
Width = 110
Visible = True
end
item
Expanded = False
FieldName = #26085#26399
Title.Alignment = taCenter
Width = 110
Visible = True
end
item
Expanded = False
FieldName = #19994#21153#31867#21035
Title.Alignment = taCenter
Width = 110
Visible = True
end
item
Expanded = False
FieldName = #35843#20986#20179#24211
Title.Alignment = taCenter
Width = 110
Visible = True
end
item
Expanded = False
FieldName = #35843#25320#37329#39069
Title.Alignment = taCenter
Width = 110
Visible = True
end
item
Expanded = False
FieldName = #35843#20837#20179#24211
Title.Alignment = taCenter
Width = 110
Visible = True
end
item
Expanded = False
FieldName = #20445#36136#26085#26399
Title.Alignment = taCenter
Width = 110
Visible = True
end
item
Expanded = False
FieldName = #32463#25163#20154
Title.Alignment = taCenter
Width = 110
Visible = True
end
item
Expanded = False
FieldName = #22791#27880
Title.Alignment = taCenter
Width = 110
Visible = True
end
item
Expanded = False
FieldName = #20973#21333#29366#24577
Title.Alignment = taCenter
Width = 110
Visible = True
end>
end
end
inherited ActionList: TActionList
Left = 371
Top = 77
end
inherited DataSource: TDataSource
DataSet = adsMaster
Left = 198
Top = 108
end
object adsMaster: TADODataSet
Connection = CommonData.acnConnection
CursorType = ctStatic
Filtered = True
CommandText =
'select a.ID,a.ClientID,a. EmployeeID, A.RECORDSTATE,'#13#10'a.Code as ' +
'['#32534#21495'],a.Date ['#26085#26399'],'#13#10'a.BillMode ['#19994#21153#31867#21035'],'#13#10'c.name as ['#35843#20986#20179#24211'] ,'#13#10'ttl.A' +
'mount*a.ModeDC*a.ModeC as ['#35843#25320#37329#39069'] ,'#13#10'd.name as ['#35843#20837#20179#24211'] ,'#13#10'b.name ' +
'as ['#32463#25163#20154'], '#13#10'a.ClearDate as ['#20445#36136#26085#26399'], '#13#10'a.Memo as ['#22791#27880'],'#13#10'A.RECORDST' +
'ATE as ['#20973#21333#29366#24577']'#13#10'from STGoodsOutInMaster a '#13#10'left outer join MSEm' +
'ployee b on b. ID=a.EmployeeID '#13#10'left outer join STWarehouse ' +
'c on c.id=a.ClientID '#13#10'left outer join STWarehouse d on d.id=a.' +
'WarehouseID '#13#10'left outer join '#13#10'(select masterID, sum(isnull(A' +
'mount,0)) as Amount'#13#10'from STGoodsOutIndetail group by masterId ' +
') as ttl '#13#10'on ttl.masterID=a.id '#13#10'WHERE A.RECORDSTATE<>'#39#21024#38500#39' '#13#10'o' +
'rder by a.ID DESC'
Parameters = <>
Left = 160
Top = 108
object adsMasterID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
Visible = False
end
object adsMasterClientID: TIntegerField
FieldName = 'ClientID'
Visible = False
end
object adsMasterEmployeeID: TIntegerField
FieldName = 'EmployeeID'
Visible = False
end
object adsMasterRECORDSTATE: TStringField
FieldName = 'RECORDSTATE'
Visible = False
Size = 12
end
object adsMasterDSDesigner: TStringField
FieldName = #32534#21495
end
object adsMasterDSDesigner2: TDateTimeField
FieldName = #26085#26399
end
object adsMasterDSDesigner3: TStringField
FieldName = #19994#21153#31867#21035
Size = 16
end
object adsMasterDSDesigner4: TStringField
FieldName = #35843#20986#20179#24211
Size = 30
end
object adsMasterDSDesigner5: TBCDField
FieldName = #35843#25320#37329#39069
ReadOnly = True
Precision = 32
Size = 5
end
object adsMasterDSDesigner6: TStringField
FieldName = #35843#20837#20179#24211
Size = 30
end
object adsMasterDSDesigner7: TStringField
FieldName = #32463#25163#20154
Size = 30
end
object adsMasterDSDesigner8: TDateTimeField
FieldName = #20445#36136#26085#26399
end
object adsMasterDSDesigner9: TStringField
FieldName = #22791#27880
Size = 60
end
object adsMasterDSDesigner10: TStringField
FieldName = #20973#21333#29366#24577
Size = 12
end
end
object PopupMenu1: TPopupMenu
Left = 320
Top = 136
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -