hrm220_01.dfm.svn-base

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

inherited Hrm220_01Form: THrm220_01Form
  Left = 181
  Top = 106
  Width = 586
  Height = 426
  HelpContext = 93
  Caption = #31163#32844#21592#24037#26597#35810' '
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Width = 578
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 574
      end>
    inherited ToolBar2: TToolBar
      Width = 561
    end
  end
  inherited Panel1: TPanel
    Width = 578
    inherited Image1: TImage
      Width = 574
    end
    object lblDate: TLabel
      Left = 191
      Top = 13
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #26085#26399#33539#22260
      Transparent = True
    end
    object lblTo: TLabel
      Left = 360
      Top = 13
      Width = 12
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #33267
      Transparent = True
    end
    object sbSearch: TSpeedButton
      Left = 504
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object dtpStartDate: TwwDBDateTimePicker
      Left = 251
      Top = 10
      Width = 97
      Height = 20
      Anchors = [akTop, akRight]
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      CalendarAttributes.PopupYearOptions.ShowEditYear = True
      Epoch = 1950
      ShowButton = True
      TabOrder = 0
      UnboundDataType = wwDTEdtDate
    end
    object dtpEndDate: TwwDBDateTimePicker
      Left = 384
      Top = 10
      Width = 97
      Height = 20
      Anchors = [akTop, akRight]
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      CalendarAttributes.PopupYearOptions.ShowEditYear = True
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
      UnboundDataType = wwDTEdtDate
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 578
    Height = 319
    inherited dxDBGrid1: TdxDBGrid
      Width = 574
      Height = 315
      Bands = <
        item
          Fixed = bfLeft
        end
        item
        end>
      DefaultLayout = False
      Filter.Criteria = {00000000}
      FixedBandLineWidth = 1
      object dxDBGrid1H150_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_002'
      end
      object dxDBGrid1H150_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_003'
      end
      object dxDBGrid1H150_004: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 0
        RowIndex = 0
        FieldName = 'H150_004'
      end
      object dxDBGrid1H100_002: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 153
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H100_002'
      end
      object dxDBGrid1H150_007: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 30
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H150_007'
      end
      object dxDBGrid1H120_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 70
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H120_003'
      end
      object dxDBGrid1H150_009: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 88
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H150_009'
      end
      object dxDBGrid1H150_010: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 112
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H150_010'
      end
      object dxDBGrid1H150_011: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 76
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H150_011'
      end
      object dxDBGrid1H130_003: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 58
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H130_003'
      end
      object dxDBGrid1H150_013: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 70
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H150_013'
      end
      object dxDBGrid1H150_014: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H150_014'
      end
      object dxDBGrid1H150_015: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 184
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H150_015'
      end
      object dxDBGrid1H150_016: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H150_016'
      end
      object dxDBGrid1H150_017: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H150_017'
      end
      object dxDBGrid1H150_022: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 124
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H150_022'
      end
      object dxDBGrid1H150_023: TdxDBGridColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 184
        BandIndex = 1
        RowIndex = 0
        FieldName = 'H150_023'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Date1'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'Date2'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from HRM150 A, HRM100 B, HRM120 C, HRM130 D'
      
        'where A.H150_005=B.H100_001 and A.H150_008=C.H120_001 and A.H150' +
        '_012=D.H130_001 and'
      
        '          A.H150_012=2 and A.H150_011>=:Date1 and A.H150_011<=:D' +
        'ate2 '
      'order by H150_002')
    object ADOQuery1H150_002: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'H150_002'
    end
    object ADOQuery1H150_003: TStringField
      DisplayLabel = #21592#24037#22995#21517
      DisplayWidth = 11
      FieldName = 'H150_003'
    end
    object ADOQuery1H150_004: TStringField
      DisplayLabel = #33521#25991#21517
      DisplayWidth = 10
      FieldName = 'H150_004'
    end
    object ADOQuery1H100_002: TStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 13
      FieldName = 'H100_002'
      Size = 50
    end
    object ADOQuery1H150_007: TStringField
      DisplayLabel = #24615#21035
      DisplayWidth = 3
      FieldName = 'H150_007'
      FixedChar = True
      Size = 2
    end
    object ADOQuery1H120_003: TStringField
      DisplayLabel = #32844#21153#21517#31216
      DisplayWidth = 11
      FieldName = 'H120_003'
    end
    object ADOQuery1H150_009: TStringField
      DisplayLabel = #31821#36143
      DisplayWidth = 14
      FieldName = 'H150_009'
    end
    object ADOQuery1H150_010: TStringField
      DisplayLabel = #36523#20221#23383#21495
      DisplayWidth = 18
      FieldName = 'H150_010'
      FixedChar = True
      Size = 18
    end
    object ADOQuery1H150_011: TDateTimeField
      DisplayLabel = #21040#32844#26085#26399
      DisplayWidth = 12
      FieldName = 'H150_011'
    end
    object ADOQuery1H130_003: TStringField
      DisplayLabel = #21592#24037#29366#24577
      DisplayWidth = 9
      FieldName = 'H130_003'
    end
    object ADOQuery1H150_013: TDateTimeField
      DisplayLabel = #20986#29983#26085#26399
      DisplayWidth = 11
      FieldName = 'H150_013'
    end
    object ADOQuery1H150_014: TStringField
      DisplayLabel = #26723#26696#32534#21495
      DisplayWidth = 20
      FieldName = 'H150_014'
    end
    object ADOQuery1H150_015: TStringField
      DisplayLabel = #20303#22336
      DisplayWidth = 30
      FieldName = 'H150_015'
      Size = 30
    end
    object ADOQuery1H150_016: TStringField
      DisplayLabel = #23130#23035#29366#20917
      DisplayWidth = 10
      FieldName = 'H150_016'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1H150_017: TStringField
      DisplayLabel = #30005#35805#21495#30721
      DisplayWidth = 20
      FieldName = 'H150_017'
    end
    object ADOQuery1H150_022: TStringField
      DisplayLabel = #23398#21382
      DisplayWidth = 20
      FieldName = 'H150_022'
    end
    object ADOQuery1H150_023: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 30
      FieldName = 'H150_023'
      Size = 30
    end
    object ADOQuery1H150_001: TAutoIncField
      FieldName = 'H150_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1H150_005: TIntegerField
      FieldName = 'H150_005'
      Visible = False
    end
    object ADOQuery1H150_006: TIntegerField
      FieldName = 'H150_006'
      Visible = False
    end
    object ADOQuery1H150_008: TIntegerField
      FieldName = 'H150_008'
      Visible = False
    end
    object ADOQuery1H150_012: TIntegerField
      FieldName = 'H150_012'
      Visible = False
    end
    object ADOQuery1H150_018: TDateTimeField
      FieldName = 'H150_018'
      Visible = False
    end
    object ADOQuery1H150_019: TIntegerField
      FieldName = 'H150_019'
      Visible = False
    end
    object ADOQuery1H150_020: TBooleanField
      DisplayLabel = #21442#19982#34218#36164#35745#31639#21542
      FieldName = 'H150_020'
      Visible = False
    end
    object ADOQuery1H150_021: TStringField
      FieldName = 'H150_021'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object ADOQuery1H150_024: TIntegerField
      FieldName = 'H150_024'
      Visible = False
    end
  end
end