tas300_01.dfm.svn-base

一个用Delphi开发的ERP软件

  end
  object Panel3: TPanel [3]
    Left = 0
    Top = 43
    Width = 800
    Height = 37
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    DesignSize = (
      800
      37)
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 796
      Height = 33
      Align = alClient
      Stretch = True
    end
    object sbSearch: TSpeedButton
      Left = 727
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object lblStatus: TLabel
      Left = 551
      Top = 12
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #39033#30446#29366#24577
      Transparent = True
    end
    object cbStatus: TComboBox
      Left = 607
      Top = 8
      Width = 105
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      TabOrder = 0
      Items.Strings = (
        #25152#26377#29366#24577
        #35745#21010
        #25191#34892
        #23436#25104)
    end
  end
  object CoolBar1: TCoolBar [4]
    Left = 0
    Top = 0
    Width = 800
    Height = 43
    AutoSize = True
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 796
      end>
    object ToolBar2: TToolBar
      Left = 9
      Top = 0
      Width = 783
      Height = 39
      AutoSize = True
      ButtonHeight = 39
      ButtonWidth = 31
      Caption = 'ToolBar2'
      EdgeBorders = []
      Flat = True
      Images = SYSDM.imgBtn
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      object tlbFirst: TToolButton
        Left = 0
        Top = 0
        Action = ActFirst
        AutoSize = True
      end
      object tlbPrior: TToolButton
        Left = 35
        Top = 0
        Action = ActPrior
        AutoSize = True
      end
      object tlbNext: TToolButton
        Left = 70
        Top = 0
        Action = ActNext
        AutoSize = True
      end
      object tlbLast: TToolButton
        Left = 105
        Top = 0
        Action = ActLast
        AutoSize = True
      end
      object ToolButton1: TToolButton
        Left = 140
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tlbRefresh: TToolButton
        Left = 148
        Top = 0
        Action = ActRefresh
        AutoSize = True
      end
      object tlbLocate: TToolButton
        Left = 183
        Top = 0
        Action = ActLocate
        AutoSize = True
      end
      object tlbSearch: TToolButton
        Left = 218
        Top = 0
        Action = ActSearch
        AutoSize = True
      end
      object tlbPrint: TToolButton
        Left = 253
        Top = 0
        Action = ActPrint
        AutoSize = True
      end
      object ToolButton6: TToolButton
        Left = 288
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 16
        Style = tbsSeparator
      end
      object tlbExit: TToolButton
        Left = 296
        Top = 0
        Action = ActExit
        AutoSize = True
      end
    end
  end
  inherited pmUISet: TPopupMenu
    Left = 432
    Top = 16
  end
  object ActionList1: TActionList
    Images = SYSDM.imgBtn
    Left = 392
    Top = 16
    object ActFirst: TAction
      Caption = #26368#21069
      Hint = #31227#21040#31532#19968#26465#35760#24405
      ImageIndex = 0
      ShortCut = 32838
      OnExecute = ActFirstExecute
    end
    object ActPrior: TAction
      Caption = #19978#31227
      Hint = #31227#21040#19978#19968#26465#35760#24405
      ImageIndex = 1
      ShortCut = 32834
      OnExecute = ActPriorExecute
    end
    object ActNext: TAction
      Caption = #19979#31227
      Hint = #31227#21040#19979#19968#26465#35760#24405
      ImageIndex = 2
      ShortCut = 32846
      OnExecute = ActNextExecute
    end
    object ActLast: TAction
      Caption = #26368#21518
      Hint = #31227#21040#26368#21518#19968#26465#35760#24405
      ImageIndex = 3
      ShortCut = 32844
      OnExecute = ActLastExecute
    end
    object ActRefresh: TAction
      Caption = #21047#26032
      Hint = #21462#24471#26368#26032#30340#25968#25454
      ImageIndex = 9
      ShortCut = 32850
      OnExecute = ActRefreshExecute
    end
    object ActLocate: TAction
      Caption = #26597#25214
      Hint = #24555#36895#23450#20301#35760#24405
      ImageIndex = 10
      ShortCut = 32847
      OnExecute = ActLocateExecute
    end
    object ActSearch: TAction
      Caption = #26597#35810
      Hint = #25353#26465#20214#26597#35810#25968#25454
      ImageIndex = 11
      ShortCut = 32849
      OnExecute = ActSearchExecute
    end
    object ActPrint: TAction
      Caption = #25171#21360
      Hint = #23558#25968#25454#25171#21360#20986#26469
      ImageIndex = 12
      ShortCut = 32848
      OnExecute = ActPrintExecute
    end
    object ActExit: TAction
      Caption = #36864#20986
      Hint = #20851#38381#24403#21069#31383#21475
      ImageIndex = 15
      ShortCut = 32856
      OnExecute = ActExitExecute
    end
    object ActOpen: TAction
      Caption = #26597#30475'(&N)'
      Hint = #26597#30475#20219#21153#35745#21010#21333#26126#32454
      ShortCut = 16397
      OnExecute = ActOpenExecute
    end
    object ActFirst2: TAction
      Caption = #26368#21069
      Hint = #31227#21040#31532#19968#26465#35760#24405
      ImageIndex = 0
      OnExecute = ActFirst2Execute
    end
    object ActPrior2: TAction
      Caption = #19978#31227
      Hint = #31227#21040#19978#19968#26465#35760#24405
      ImageIndex = 1
      OnExecute = ActPrior2Execute
    end
    object ActNext2: TAction
      Caption = #19979#31227
      Hint = #31227#21040#19979#19968#26465#35760#24405
      ImageIndex = 2
      OnExecute = ActNext2Execute
    end
    object ActLast2: TAction
      Caption = #26368#21518
      Hint = #31227#21040#26368#21518#19968#26465#35760#24405
      ImageIndex = 3
      OnExecute = ActLast2Execute
    end
    object ActLocate2: TAction
      Caption = #26597#25214
      Hint = #24555#36895#23450#20301#35760#24405
      ImageIndex = 10
      OnExecute = ActLocate2Execute
    end
    object ActFirst3: TAction
      Caption = #26368#21069
      Hint = #31227#21040#31532#19968#26465#35760#24405
      ImageIndex = 0
      OnExecute = ActFirst3Execute
    end
    object ActPrior3: TAction
      Caption = #19978#31227
      Hint = #31227#21040#19978#19968#26465#35760#24405
      ImageIndex = 1
      OnExecute = ActPrior3Execute
    end
    object ActNext3: TAction
      Caption = #19979#31227
      Hint = #31227#21040#19979#19968#26465#35760#24405
      ImageIndex = 2
      OnExecute = ActNext3Execute
    end
    object ActLast3: TAction
      Caption = #26368#21518
      Hint = #31227#21040#26368#21518#19968#26465#35760#24405
      ImageIndex = 3
      OnExecute = ActLast3Execute
    end
    object ActLocate3: TAction
      Caption = #26597#25214
      Hint = #24555#36895#23450#20301#35760#24405
      ImageIndex = 10
      OnExecute = ActLocate3Execute
    end
  end
  object dsTas530: TDataSource
    DataSet = qryTas530
    Left = 408
    Top = 320
  end
  object qryTas530: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    DataSource = dsTas520
    Parameters = <
      item
        Name = 'T520_001'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      'select * from TAS530 where T530_002=:T520_001 order by T530_001')
    Left = 440
    Top = 320
    object qryTas530T530_001: TWideStringField
      DisplayLabel = #27719#25253#32534#21495
      FieldName = 'T530_001'
      Size = 30
    end
    object qryTas530T530_003: TBCDField
      DisplayLabel = #23436#24037#27604#29575
      FieldName = 'T530_003'
      Precision = 5
      Size = 2
    end
    object qryTas530T530_004: TBCDField
      DisplayLabel = #27719#25253#24037#26102
      FieldName = 'T530_004'
      Precision = 8
      Size = 2
    end
    object qryTas530T530_007: TWideStringField
      DisplayLabel = #26102#38388#21333#20301
      FieldName = 'T530_007'
      OnGetText = qryTas530T530_007GetText
      FixedChar = True
      Size = 1
    end
    object qryTas530T530_005: TDateTimeField
      DisplayLabel = #24320#22987#26085#26399
      FieldName = 'T530_005'
    end
    object qryTas530T530_006: TDateTimeField
      DisplayLabel = #32467#26463#26085#26399
      FieldName = 'T530_006'
    end
    object qryTas530T530_010: TIntegerField
      DisplayLabel = #21518#32493#22788#29702
      FieldName = 'T530_010'
      Visible = False
    end
    object qryTas530T530_008: TMemoField
      FieldName = 'T530_008'
      Visible = False
      BlobType = ftMemo
    end
    object qryTas530T530_009: TWideStringField
      FieldName = 'T530_009'
      Visible = False
      Size = 100
    end
    object qryTas530T530_016: TIntegerField
      FieldName = 'T530_016'
      Visible = False
    end
    object qryTas530T530_017: TWideStringField
      FieldName = 'T530_017'
      Visible = False
      Size = 50
    end
    object qryTas530T530_018: TBCDField
      FieldName = 'T530_018'
      Visible = False
      Precision = 8
      Size = 2
    end
    object qryTas530W150_002: TStringField
      FieldKind = fkLookup
      FieldName = 'W150_002'
      LookupDataSet = qryOrd150
      LookupKeyFields = 'O150_001'
      LookupResultField = 'O150_002'
      KeyFields = 'T530_016'
      Visible = False
      Lookup = True
    end
    object qryTas530W150_003: TStringField
      FieldKind = fkLookup
      FieldName = 'W150_003'
      LookupDataSet = qryOrd150
      LookupKeyFields = 'O150_001'
      LookupResultField = 'O150_003'
      KeyFields = 'T530_016'
      Visible = False
      Size = 60
      Lookup = True
    end
    object qryTas530T120_003: TStringField
      DisplayLabel = #21518#32493#22788#29702
      FieldKind = fkLookup
      FieldName = 'T120_003'
      LookupDataSet = qryTas120
      LookupKeyFields = 'T120_001'
      LookupResultField = 'T120_003'
      KeyFields = 'T530_010'
      Size = 30
      Lookup = True
    end
    object qryTas530T530_002: TWideStringField
      FieldName = 'T530_002'
      Visible = False
      Size = 30
    end
  end
  object qryTas520: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    DataSource = dsTas510
    Parameters = <
      item
        Name = 'T510_001'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = Null
      end>
    SQL.Strings = (
      'select * from TAS520 where T520_002=:T510_001 order by T520_001')
    Left = 440
    Top = 144
    object qryTas520T520_001: TWideStringField
      DisplayLabel = #24037#21333#32534#21495
      FieldName = 'T520_001'
      Size = 30
    end
    object qryTas520T520_003: TWideStringField
      DisplayLabel = #25191#34892#20154#21592
      FieldName = 'T520_003'
      OnGetText = qryTas520T520_003GetText
      Size = 50
    end
    object qryTas520T520_004: TWideStringField
      DisplayLabel = #26102#38388#21333#20301
      FieldName = 'T520_004'
      OnGetText = qryTas520T520_004GetText
      FixedChar = True
      Size = 1
    end
    object qryTas520T520_005: TBCDField
      DisplayLabel = #39044#35745#24037#26102
      FieldName = 'T520_005'
      Precision = 8
      Size = 2
    end
    object qryTas520T520_006: TDateTimeField
      DisplayLabel = #39044#35745#24320#22987#26085#26399
      FieldName = 'T520_006'
    end