csh510_02.dfm.svn-base

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

      Width = 188
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 8
    end
    object edtDate: TwwDBDateTimePicker
      Left = 444
      Top = 49
      Width = 114
      Height = 20
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ShowButton = True
      TabOrder = 9
    end
    object edtOrgCode: TEdit
      Left = 444
      Top = 18
      Width = 113
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 10
    end
    object edtAmount: TEdit
      Left = 628
      Top = 78
      Width = 116
      Height = 20
      Color = clBtnFace
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ReadOnly = True
      TabOrder = 11
      Text = '0.00'
    end
    object edtBillNo: TEdit
      Left = 626
      Top = 18
      Width = 119
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      TabOrder = 12
    end
    object memRemark: TMemo
      Left = 80
      Top = 112
      Width = 665
      Height = 89
      Align = alCustom
      ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
      ScrollBars = ssVertical
      TabOrder = 13
    end
  end
  object PageControl1: TPageControl [3]
    Left = 8
    Top = 288
    Width = 765
    Height = 177
    ActivePage = tsItem
    Style = tsFlatButtons
    TabIndex = 0
    TabOrder = 3
    object tsItem: TTabSheet
      Caption = #21457#31080#20449#24687
      object wwDBGrid1: TwwDBGrid
        Tag = 99
        Left = 0
        Top = 0
        Width = 757
        Height = 147
        ControlType.Strings = (
          'FPerson;CustomEdit;edtEmpolyee;F'
          'FItemID;CustomEdit;edtItem;F'
          'FUnitID;CustomEdit;edtUnit;F'
          'FCode;CustomEdit;edtItem;F'
          'FClass;CustomEdit;cbClass;F'
          'FProject;CustomEdit;cbProject;F'
          'FDept;CustomEdit;cbDept;F'
          'FInvCode;CustomEdit;edtItem;F'
          'FTasCode;CustomEdit;edtItem;F'
          'FClassNo;CustomEdit;cbClass;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}#:{0,1,2,3,4,5}#'#9'T'#9'T'
          'FToTime'#9'{0,1,2}#:{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 = (
          'FInvCode'#9'20'#9#21457#31080#32534#21495#9#9
          'FTasCode'#9'20'#9#20219#21153#24037#21333#9#9
          'FLineNo'#9'10'#9#25910#25903#34892#21495#9'F'#9
          'FClass'#9'10'#9#19994#21153#20998#31867#9#9
          'FClassNo'#9'10'#9'FClassNo'#9'F'#9
          'FRecAmount'#9'10'#9#24212#25910#37329#39069#9'T'#9
          'FAmount'#9'10'#9#23454#25910#37329#39069#9#9
          'FProject'#9'10'#9#39033#30446#32534#21495#9#9
          'FDept'#9'10'#9#37096#38376#32534#21495#9#9
          'FRemark'#9'20'#9#22791#27880#35828#26126#9#9
          'FInvLineNo'#9'10'#9#21457#31080#34892#21495#9#9
          'FCode'#9'20'#9#25910#25903#21333#21495#9'F'#9
          'FProjectNo'#9'10'#9'FProjectNo'#9'F'#9
          'FDeptNo'#9'10'#9'FDeptNo'#9'F'#9)
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        EditControlOptions = [ecoSearchOwnerForm, ecoDisableEditorIfReadOnly]
        Align = alClient
        DataSource = dsCsh510B
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        KeyOptions = [dgEnterToTab, dgAllowInsert]
        Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgShowFooter]
        ReadOnly = True
        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
        OnColExit = wwDBGrid1ColExit
        OnEnter = wwDBGrid1Enter
        OnExit = wwDBGrid1Exit
        OnUpdateFooter = wwDBGrid1UpdateFooter
        FooterColor = clWindow
        FooterCellColor = clWindow
      end
      object edtItem: TwwDBComboDlg
        Left = 24
        Top = 24
        Width = 121
        Height = 20
        OnCustomDlg = edtItemCustomDlg
        ShowButton = True
        Style = csDropDown
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        TabOrder = 0
        WordWrap = False
        UnboundDataType = wwDefault
      end
      object cbClass: TDBLookupComboBox
        Left = 256
        Top = 32
        Width = 145
        Height = 20
        DataField = 'FClassNo'
        DataSource = dsCsh510B
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        KeyField = 'C140_001'
        ListField = 'C140_002'
        ListSource = dsClass
        TabOrder = 2
        Visible = False
      end
      object cbProject: TDBLookupComboBox
        Left = 432
        Top = 32
        Width = 145
        Height = 20
        DataField = 'FProjectNo'
        DataSource = dsCsh510B
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        KeyField = 'C150_001'
        ListField = 'C150_002'
        ListSource = dsProject
        TabOrder = 3
        Visible = False
      end
      object cbDept: TDBLookupComboBox
        Left = 616
        Top = 32
        Width = 145
        Height = 20
        DataField = 'FDeptNo'
        DataSource = dsCsh510B
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        KeyField = 'H100_001'
        ListField = 'H100_002'
        ListSource = dsDept
        TabOrder = 4
        Visible = False
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      'Select A.*,B.C550_002,C.H150_002,C.H150_003 '
      ' from CSH510A A,CSH550 B,HRM150 C'
      ' where C510A_003=C550_001 and A.C510A_012=C.H150_001'
      ' Order By C510A_001')
    Left = 56
    Top = 104
    object ADOQuery1C510A_001: TWideStringField
      FieldName = 'C510A_001'
      Size = 30
    end
    object ADOQuery1C510A_002: TIntegerField
      FieldName = 'C510A_002'
    end
    object ADOQuery1C510A_003: TIntegerField
      FieldName = 'C510A_003'
    end
    object ADOQuery1C510A_004: TSmallintField
      FieldName = 'C510A_004'
    end
    object ADOQuery1C510A_005: TSmallintField
      FieldName = 'C510A_005'
    end
    object ADOQuery1C510A_006: TSmallintField
      FieldName = 'C510A_006'
    end
    object ADOQuery1C510A_007: TSmallintField
      FieldName = 'C510A_007'
    end
    object ADOQuery1C510A_008: TIntegerField
      FieldName = 'C510A_008'
    end
    object ADOQuery1C510A_009: TFloatField
      FieldName = 'C510A_009'
    end
    object ADOQuery1C510A_010: TDateTimeField
      FieldName = 'C510A_010'
    end
    object ADOQuery1C510A_011: TWideStringField
      FieldName = 'C510A_011'
    end
    object ADOQuery1C510A_012: TIntegerField
      FieldName = 'C510A_012'
    end
    object ADOQuery1C510A_013: TFloatField
      FieldName = 'C510A_013'
    end
    object ADOQuery1C510A_014: TWideStringField
      FieldName = 'C510A_014'
    end
    object ADOQuery1C510A_015: TWideStringField
      FieldName = 'C510A_015'
      Size = 60
    end
    object ADOQuery1C510A_016: TDateTimeField
      FieldName = 'C510A_016'
    end
    object ADOQuery1C510A_017: TWideStringField
      FieldName = 'C510A_017'
    end
    object ADOQuery1C510A_018: TDateTimeField
      FieldName = 'C510A_018'
    end
    object ADOQuery1C510A_019: TWideStringField
      FieldName = 'C510A_019'
    end
    object ADOQuery1C550_002: TWideStringField
      FieldName = 'C550_002'
      Size = 50
    end
    object ADOQuery1H150_002: TWideStringField
      FieldName = 'H150_002'
    end
    object ADOQuery1H150_003: TWideStringField
      FieldName = 'H150_003'
    end
  end
  object dsCsh510B: TDataSource
    DataSet = adsCsh510B
    Left = 184
    Top = 392
  end
  object adsCsh510B: TADODataSet
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adsCsh510BBeforePost
    AfterScroll = adsCsh510BAfterScroll
    OnNewRecord = adsCsh510BNewRecord
    FieldDefs = <
      item
        Name = 'FCode'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FLineNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FInvCode'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FInvLineNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FRecAmount'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FAmount'
        Attributes = [faFixed]
        DataType = ftFloat
      end
      item
        Name = 'FClass'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FClassNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FProject'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FProjectNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FDept'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FDeptNo'