tas530_02.dfm.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

        end
        object lblUpdateBy: TLabel
          Left = 560
          Top = 144
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #20462#25913#20154#21592
        end
        object memDetails: TMemo
          Left = 80
          Top = 16
          Width = 497
          Height = 89
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          ScrollBars = ssVertical
          TabOrder = 0
        end
        object edtDelay: TEdit
          Left = 80
          Top = 112
          Width = 473
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 2
        end
        object dbgReason: TdxDBGrid
          Left = 584
          Top = 16
          Width = 145
          Height = 89
          Bands = <
            item
            end>
          DefaultLayout = True
          HeaderPanelRowCount = 1
          KeyField = 'T110_001'
          SummaryGroups = <>
          SummarySeparator = ', '
          TabOrder = 1
          OnKeyPress = dbgReasonKeyPress
          OnMouseUp = dbgReasonMouseUp
          DataSource = dsTas110
          Filter.Criteria = {00000000}
          HideFocusRect = True
          OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
          ShowGrid = False
          ShowHeader = False
          object dbgReasonFSelected: TdxDBGridCheckColumn
            DisableEditor = True
            Width = 16
            BandIndex = 0
            RowIndex = 0
            FieldName = 'FSelected'
            ValueChecked = 'True'
            ValueUnchecked = 'False'
          end
          object dbgReasonT110_003: TdxDBGridMaskColumn
            DisableEditor = True
            Width = 104
            BandIndex = 0
            RowIndex = 0
            FieldName = 'T110_003'
          end
        end
        object cbContinue: TComboBox
          Left = 616
          Top = 112
          Width = 113
          Height = 20
          Style = csDropDownList
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          ItemHeight = 12
          TabOrder = 3
        end
        object edtCreateDate: TEdit
          Left = 80
          Top = 136
          Width = 121
          Height = 20
          Color = clBtnFace
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          ReadOnly = True
          TabOrder = 4
        end
        object edtCreateBy: TEdit
          Left = 264
          Top = 136
          Width = 105
          Height = 20
          Color = clBtnFace
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          ReadOnly = True
          TabOrder = 5
        end
        object edtUpdateDate: TEdit
          Left = 432
          Top = 136
          Width = 121
          Height = 20
          Color = clBtnFace
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          ReadOnly = True
          TabOrder = 6
        end
        object edtUpdateBy: TEdit
          Left = 616
          Top = 136
          Width = 113
          Height = 20
          Color = clBtnFace
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          ReadOnly = True
          TabOrder = 7
        end
      end
    end
    object tsHours: TTabSheet
      Caption = #24037#26102#20449#24687
      ImageIndex = 1
      object wwDBGrid1: TwwDBGrid
        Tag = 99
        Left = 0
        Top = 0
        Width = 745
        Height = 169
        ControlType.Strings = (
          'FPerson;CustomEdit;edtEmpolyee;F')
        PictureMasks.Strings = (
          'T531_004'#9'{0,1,2}[#]:{0,1,2,3,4,5}[#]'#9'T'#9'T'
          'T531_005'#9'{0,1,2}[#]:{0,1,2,3,4,5}[#]'#9'T'#9'T'
          'T531_006'#9'0.00'#9'T'#9'T'
          'T531_007'#9'0.00'#9'T'#9'T'
          'FFromTime'#9'{0,1,2,3,4,5,6,6,8,9}#:{0,1,2,3,4,5}#'#9'T'#9'T'
          'FToTime'#9'{0,1,2,3,4,5,6,6,8,9}#:{0,1,2,3,4,5}#'#9'T'#9'T'
          'FStartTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T'
          'FEndTime'#9'{0,1,2}#:{0,1,2,3,4,5}#'#9'T'#9'T')
        Selected.Strings = (
          'FPerson'#9'24'#9#25191#34892#20154#21592#9#9
          'FDate'#9'18'#9#27719#25253#26085#26399#9#9
          'FFromTime'#9'8'#9#24320#22987#26102#38388#9#9
          'FToTime'#9'8'#9#23436#25104#26102#38388#9#9
          'FHours'#9'11'#9#24037#20316#26102#25968'(H)'#9#9
          'FOT'#9'11'#9#21152#29677#26102#25968'(H)'#9#9
          'FEndTime'#9'5'#9#19979#36710#26102#38388#9#9
          'FStartTime'#9'5'#9#20056#36710#26102#38388#9#9
          'FTripHour'#9'10'#9#36710#31243#26102#38388'(H)'#9#9
          'FRemark'#9'32'#9#22791#27880#35828#26126#9#9)
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        EditControlOptions = [ecoSearchOwnerForm, ecoDisableEditorIfReadOnly]
        DataSource = dsTas531
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        KeyOptions = [dgEnterToTab, dgAllowInsert]
        Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter]
        PopupMenu = pmTas531
        TabOrder = 1
        TitleAlignment = taCenter
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Pitch = fpFixed
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
        OnEnter = wwDBGrid1Enter
        OnExit = wwDBGrid1Exit
        OnFieldChanged = wwDBGrid1FieldChanged
        OnUpdateFooter = wwDBGrid1UpdateFooter
        FooterColor = clWindow
        FooterCellColor = clWindow
      end
      object edtEmpolyee: TwwDBComboDlg
        Left = 32
        Top = 24
        Width = 121
        Height = 20
        OnCustomDlg = edtEmpolyeeCustomDlg
        ShowButton = True
        Style = csDropDown
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        TabOrder = 0
        WordWrap = False
        UnboundDataType = wwDefault
        OnEnter = edtEmpolyeeEnter
        OnExit = edtEmpolyeeExit
      end
    end
    object tsItems: TTabSheet
      Caption = #38646#20214#20449#24687
      ImageIndex = 2
      object wwDBGrid2: TwwDBGrid
        Tag = 99
        Left = 0
        Top = 0
        Width = 745
        Height = 169
        ControlType.Strings = (
          'I150_002;CustomEdit;edtItemID;F'
          'T532_004;CustomEdit;cbStatus;F')
        Selected.Strings = (
          'I150_002'#9'22'#9#38646#20214#32534#21495#9#9
          'I150_003'#9'31'#9#38646#20214#21517#31216#9'T'#9
          'I150_004'#9'32'#9#35268#26684#22411#21495#9'T'#9
          'T532_003'#9'10'#9#25968#37327#9#9
          'T532_004'#9'10'#9#29366#24577#9#9
          'T532_005'#9'38'#9#22791#27880#9#9)
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        EditControlOptions = [ecoSearchOwnerForm, ecoDisableEditorIfReadOnly]
        DataSource = dsTas532
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        KeyOptions = [dgEnterToTab, dgAllowInsert]
        Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter]
        PopupMenu = pmTas532
        TabOrder = 1
        TitleAlignment = taCenter
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Pitch = fpFixed
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
        OnEnter = wwDBGrid1Enter
        OnExit = wwDBGrid1Exit
        OnUpdateFooter = wwDBGrid2UpdateFooter
        FooterColor = clWindow
        FooterCellColor = clWindow
      end
      object edtItemID: TwwDBComboDlg
        Left = 24
        Top = 24
        Width = 121
        Height = 20
        OnCustomDlg = edtItemIDCustomDlg
        ShowButton = True
        Style = csDropDown
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        TabOrder = 0
        WordWrap = False
        UnboundDataType = wwDefault
        OnExit = edtItemIDExit
      end
      object cbStatus: TDBLookupComboBox
        Left = 464
        Top = 48
        Width = 65
        Height = 20
        DropDownRows = 8
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        KeyField = 'FNo'
        ListField = 'FStatus'
        ListSource = dsStatus
        TabOrder = 2
      end
    end
    object tsQty: TTabSheet
      Caption = #35745#36153#20449#24687
      ImageIndex = 3
      object wwDBGrid3: TwwDBGrid
        Tag = 99
        Left = 0
        Top = 0
        Width = 745
        Height = 169
        Selected.Strings = (
          'FItemID'#9'20'#9#20135#21697#32534#21495#9'T'#9
          'FItemName'#9'40'#9#20135#21697#21517#31216#9'T'#9
          'FUnitName'#9'15'#9#35745#37327#21333#20301#9'T'#9
          'FQty'#9'15'#9#21457#36135#25968#37327#9#9
          'FItemPrice'#9'10'#9#38144#21806#21333#20215#9'T'#9
          'FTotal'#9'10'#9#38144#21806#24635#39069#9'T'#9
          'FRemark'#9'50'#9#22791#27880#35828#26126#9#9)
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        EditControlOptions = [ecoSearchOwnerForm, ecoDisableEditorIfReadOnly]
        DataSource = dsTas533
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        KeyOptions = [dgEnterToTab]
        Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
        PopupMenu = pmTas532
        TabOrder = 0
        TitleAlignment = taCenter
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Pitch = fpFixed
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
        OnColExit = wwDBGrid3ColExit
        OnEnter = wwDBGrid1Enter
        OnExit = wwDBGrid1Exit
        OnUpdateFooter = wwDBGrid2UpdateFooter
        FooterColor = clWindow
        FooterCellColor = clWindow
      end
    end
  end
  object qryTas530: TADOQuery
    Connection = SYSDM.ADOC
    AfterScroll = qryTas530AfterScroll
    OnCalcFields = qryTas530CalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select A.*,B.T520_003,B.T520_019,C.T510_001,C.T510_002,C.T510_00' +
        '5,C.T510_018,D.T100_002,E.T120_003,'
      
        '       H.O150_001,H.O150_002,H.O150_003,H.O150_005,H.O150_007,H.' +
        'O150_012,'
      
        '       B.T520_005,B.T520_006,B.T520_007,C.T510_016,C.T510_017,C.' +
        'T510_019'
      'from TAS530 A,TAS520 B,TAS510 C,TAS100 D,TAS120 E,ORD150 H'
      'where A.T530_002=B.T520_001 and B.T520_002=C.T510_001 and '
      '      C.T510_004=D.T100_001 and C.T510_003=E.T120_001 and'
      '      C.T510_016=H.O150_001'
      'order by T530_001')
    Left = 16
    Top = 80
    object qryTas530T530_001: TWideStringField
      DisplayLabel = #27719#25253#32534#21495
      FieldName = 'T530_001'
      Size = 30
    end
    object qryTas530T530_002: TWideStringField
      DisplayLabel = #24037#21333#32534#21495
      FieldName = 'T530_002'
      Size = 30
    end
    object qryTas530T510_001: TWideStringField
      DisplayLabel = #20219#21153#32534#21495
      FieldName = 'T510_001'
      Size = 50
    end
    object qryTas530T510_005: TSmallintField
      DisplayLabel = #20248#20808#32423#21035
      FieldName = 'T510_005'
    end
    object qryTas530T510_002: TWideStringField
      DisplayLabel = #20219#21153#21517#31216
      FieldName = 'T510_002'
      Size = 50
    end
    object qryTas530T100_002: TWideStringField
      DisplayLabel = #20219#21153#31867#21035
      FieldName = 'T100_002'
      Size = 50
    end
    object qryTas530T530_003: TBCDField
      DisplayLabel = #23436#24037#27604#29575
      FieldName = 'T530_003'
      Precision = 5
      Size = 2
    end
    object qryTas530T520_003: TWideStringField
      DisplayLabel = #25191#34892#20154#21592
      FieldName = 'T520_003'
      Visible = False
      Size = 50
    end
    object qryTas530T520_019: TWideStringField
      DisplayLabel = #25191#34892#20154#21592
      FieldName = 'T520_019'
      Size = 200
    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 qryTas530W150_002: TWideStringField
      DisplayLabel = #21327#21161#20844#21496#32534#21495
      FieldKind = fkLookup
      FieldName = 'W150_002'
      LookupDataSet = qryOrd150
      LookupKeyFields = 'O150_001'
      LookupResultField = 'O150_002'
      KeyFields = 'T530_016'
      Lookup = True
    end
    object qryTas530W150_003: TWideStringField
      DisplayLabel = #21327#21161#20844#21496#21517#31216
      FieldKind = fkLookup
      FieldName = 'W150_003'
      LookupDataSet = qryOrd150
      LookupKeyFields = 'O150_001'
      LookupResultField = 'O150_003'
      KeyFields = 'T530_016'
      Size = 60
      Lookup = True
    end
    object qryTas530T530_017: TWideStringField
      DisplayLabel = #21327#21161#20154#21592
      FieldName = 'T530_017'
      Size = 50
    end
    object qryTas530T530_018: TBCDField
      DisplayLabel = #21327#21161#24037#26102
      FieldName = 'T530_018'
      Precision = 8
      Size = 2
    end
    object qryTas530O150_002: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'O150_002'
    end
    object qryTas530O150_003: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'O150_003'
      Size = 60
    end