csh510_02.dfm.svn-base

来自「一个用Delphi开发的ERP软件」· SVN-BASE 代码 · 共 939 行 · 第 1/2 页

        TabOrder = 2
      end
      object edtCode: TEdit
        Left = 256
        Top = 24
        Width = 113
        Height = 20
        TabOrder = 1
      end
      object edtRemark: TEdit
        Left = 72
        Top = 144
        Width = 297
        Height = 20
        TabOrder = 8
      end
      object edtBillNo: TEdit
        Left = 440
        Top = 24
        Width = 89
        Height = 20
        TabOrder = 9
      end
      object edtCust: TEdit
        Left = 72
        Top = 96
        Width = 89
        Height = 20
        Color = clBtnFace
        Enabled = False
        TabOrder = 5
        OnExit = edtCustExit
      end
      object edtCustName: TEdit
        Left = 192
        Top = 96
        Width = 177
        Height = 20
        Color = clBtnFace
        Enabled = False
        TabOrder = 6
      end
      object edtWork: TEdit
        Left = 256
        Top = 72
        Width = 89
        Height = 20
        TabOrder = 14
        Visible = False
        OnExit = edtWorkExit
      end
      object cbObj: TComboBox
        Left = 256
        Top = 72
        Width = 113
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        ItemIndex = 2
        TabOrder = 4
        Text = #31354#30333
        OnChange = cbObjChange
        Items.Strings = (
          #23458#25143
          #21592#24037
          #31354#30333)
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
      TabVisible = False
      object Shape3: TShape
        Left = 4
        Top = 2
        Width = 537
        Height = 217
        Brush.Color = 15726583
        Pen.Color = 9344158
      end
      object lblCust: TLabel
        Left = 16
        Top = 28
        Width = 48
        Height = 12
        Caption = #23545#35937#32534#21495
        Transparent = True
      end
      object dxDBGrid1: TdxDBGrid
        Left = 16
        Top = 48
        Width = 513
        Height = 153
        Bands = <
          item
          end>
        DefaultLayout = False
        HeaderPanelRowCount = 1
        KeyField = 'FCode'
        ShowSummaryFooter = True
        SummaryGroups = <>
        SummarySeparator = ', '
        TabOrder = 0
        DataSource = dsCsh510
        Filter.Criteria = {00000000}
        FixedBandLineWidth = 1
        HeaderColor = 15262169
        LookAndFeel = lfUltraFlat
        OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoEnterThrough, edgoHorzThrough, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
        OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
        OnColumnMoved = dxDBGrid1ColumnMoved
        object dxDBGrid1FCode: TdxDBGridMaskColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 80
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FCode'
          SummaryFooterType = cstCount
          SummaryFooterFormat = #24635#35760#24405#25968#65306'0'
        end
        object dxDBGrid1FOrder: TdxDBGridMaskColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 80
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FOrder'
        end
        object dxDBGrid1FItemID: TdxDBGridMaskColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 120
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FItemID'
        end
        object dxDBGrid1FItemName: TdxDBGridMaskColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 240
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FItemName'
        end
        object dxDBGrid1FUnitName: TdxDBGridMaskColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 80
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FUnitName'
        end
        object dxDBGrid1FTotAmt: TdxDBGridMaskColumn
          DisableEditor = True
          HeaderAlignment = taCenter
          Width = 80
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FTotAmt'
          SummaryFooterType = cstSum
          SummaryFooterFormat = ',0.00'
        end
        object dxDBGrid1FFactAmt: TdxDBGridMaskColumn
          HeaderAlignment = taCenter
          Width = 80
          BandIndex = 0
          RowIndex = 0
          FieldName = 'FFactAmt'
          SummaryFooterType = cstSum
          SummaryFooterFormat = ',0.00'
        end
      end
      object edtCust1: TEdit
        Left = 72
        Top = 24
        Width = 137
        Height = 20
        Color = clBtnFace
        Enabled = False
        TabOrder = 1
      end
      object edtCustName1: TEdit
        Left = 216
        Top = 24
        Width = 313
        Height = 20
        Color = clBtnFace
        Enabled = False
        TabOrder = 2
      end
    end
  end
  inherited bbtnExit: TBitBtn
    Left = 464
    Top = 232
  end
  object bbtnBack: TBitBtn [5]
    Left = 304
    Top = 232
    Width = 75
    Height = 25
    Caption = #19978#19968#27493'(&B)'
    Enabled = False
    TabOrder = 3
    Visible = False
    OnClick = bbtnBackClick
  end
  object qryCsh150: TADOQuery [6]
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from CSH150')
    Left = 80
    Top = 192
  end
  object dsCsh150: TDataSource [7]
    DataSet = qryCsh150
    Left = 112
    Top = 192
  end
  object qryHrm100: TADOQuery [8]
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from HRM100')
    Left = 272
    Top = 192
  end
  object dsHrm100: TDataSource [9]
    DataSet = qryHrm100
    Left = 304
    Top = 192
  end
  object qryQuery: TADOQuery [10]
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 232
    Top = 232
  end
  inherited pmUISet: TPopupMenu
    Left = 16
    Top = 232
  end
  object qryCsh140: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      'select * from CSH140 where C140_003=0')
    Left = 376
    Top = 128
  end
  object dsCsh140: TDataSource
    DataSet = qryCsh140
    Left = 408
    Top = 128
  end
  object dsCsh510: TDataSource
    DataSet = adsCsh510
    Left = 192
    Top = 232
  end
  object adsCsh510: TADODataSet
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FCode'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FLineNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FOrder'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FOrderLine'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FItemID'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FItemName'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FItemSpec'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'FUnitName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FTotAmt'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FFactAmt'
        Attributes = [faFixed]
        DataType = ftFloat
      end>
    Parameters = <>
    StoreDefs = True
    Left = 160
    Top = 232
    object adsCsh510FCode: TStringField
      DisplayLabel = #21457#31080#32534#21495
      FieldName = 'FCode'
      Size = 30
    end
    object adsCsh510FLineNo: TIntegerField
      DisplayLabel = #21457#31080#34892#21495
      FieldName = 'FLineNo'
    end
    object adsCsh510FOrder: TStringField
      DisplayLabel = #23450#21333#32534#21495
      FieldName = 'FOrder'
      Size = 30
    end
    object adsCsh510FOrderLine: TIntegerField
      DisplayLabel = #23450#21333#34892#21495
      FieldName = 'FOrderLine'
    end
    object adsCsh510FItemID: TStringField
      DisplayLabel = #20135#21697#32534#21495
      FieldName = 'FItemID'
      Size = 30
    end
    object adsCsh510FItemName: TStringField
      DisplayLabel = #20135#21697#21517#31216
      FieldName = 'FItemName'
      Size = 60
    end
    object adsCsh510FItemSpec: TStringField
      DisplayLabel = #35268#26684#22411#21495
      FieldName = 'FItemSpec'
      Size = 60
    end
    object adsCsh510FUnitName: TStringField
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'FUnitName'
      Size = 50
    end
    object adsCsh510FTotAmt: TFloatField
      DisplayLabel = #25910#25903#24635#39069
      FieldName = 'FTotAmt'
    end
    object adsCsh510FFactAmt: TFloatField
      DisplayLabel = #23454#25910#25903#39069
      FieldName = 'FFactAmt'
    end
  end
  object qryOrd150: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select O150_001 as FNo,O150_002 as FCode,O150_003 as FName from ' +
        'ORD150 order by O150_002')
    Left = 136
    Top = 104
    object qryOrd150FNo: TAutoIncField
      FieldName = 'FNo'
      ReadOnly = True
      Visible = False
    end
    object qryOrd150FCode: TWideStringField
      DisplayLabel = #32534#21495
      FieldName = 'FCode'
    end
    object qryOrd150FName: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'FName'
      Size = 60
    end
  end
  object qryCsh500: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    AfterScroll = qryCsh500AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from CSH500')
    Left = 64
    Top = 232
  end
  object qryTas520: TADOQuery
    CacheSize = 1000
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select T520_001,T520_002,T520_003,T520_019,T510_002,T510_004,T51' +
        '0_005,T510_016,T510_017,T510_018 from TAS520,TAS510 where T520_0' +
        '02=T510_001')
    Left = 360
    Top = 88
    object qryTas520T520_001: TWideStringField
      DisplayLabel = #24037#21333#32534#21495
      FieldName = 'T520_001'
      Size = 30
    end
    object qryTas520T520_002: TWideStringField
      DisplayLabel = #20219#21153#32534#21495
      FieldName = 'T520_002'
      Size = 30
    end
    object qryTas520T510_002: TWideStringField
      DisplayLabel = #20219#21153#21517#31216
      FieldName = 'T510_002'
      Size = 50
    end
    object qryTas520T510_004: TIntegerField
      FieldName = 'T510_004'
      Visible = False
    end
    object qryTas520T510_016: TIntegerField
      FieldName = 'T510_016'
      Visible = False
    end
    object qryTas520T510_017: TIntegerField
      FieldName = 'T510_017'
      Visible = False
    end
    object qryTas520T510_005: TSmallintField
      FieldName = 'T510_005'
      Visible = False
    end
    object qryTas520T510_018: TWideStringField
      FieldName = 'T510_018'
      Visible = False
      Size = 30
    end
    object qryTas520T520_003: TWideStringField
      FieldName = 'T520_003'
      Visible = False
      Size = 50
    end
    object qryTas520T520_019: TWideStringField
      FieldName = 'T520_019'
      Visible = False
      Size = 200
    end
  end
end