tas210_01.dfm.svn-base

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

inherited Tas210_01Form: TTas210_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #24037#20316#25253#21578#26597#35810
  PixelsPerInch = 96
  TextHeight = 12
  inherited CoolBar1: TCoolBar
    Width = 800
    Bands = <
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 39
        Width = 796
      end>
    inherited ToolBar2: TToolBar
      Width = 783
    end
  end
  inherited Panel1: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 796
    end
    object lblDate: TLabel
      Left = 472
      Top = 12
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #26085#26399
      Transparent = True
    end
    object sbSearch: TSpeedButton
      Left = 732
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object lblType: TLabel
      Left = 152
      Top = 12
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #31867#22411
      Transparent = True
    end
    object lblOption: TLabel
      Left = 312
      Top = 12
      Width = 24
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #33539#22260
      Transparent = True
    end
    object edtFromDate: TwwDBDateTimePicker
      Left = 504
      Top = 8
      Width = 105
      Height = 20
      Anchors = [akTop, akRight]
      AutoSize = False
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 0
    end
    object edtToDate: TwwDBDateTimePicker
      Left = 612
      Top = 8
      Width = 105
      Height = 20
      Anchors = [akTop, akRight]
      AutoSize = False
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
    end
    object cbType: TComboBox
      Left = 184
      Top = 8
      Width = 114
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 2
      Text = #25353#21592#24037
      Items.Strings = (
        #25353#21592#24037
        #25353#23458#25143)
    end
    object cbOption: TComboBox
      Left = 344
      Top = 8
      Width = 114
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 3
      Text = #20165#24050#20998#37197#30340#20219#21153
      Items.Strings = (
        #20165#24050#20998#37197#30340#20219#21153
        #20165#24050#27719#25253#30340#20219#21153
        #20165#26410#27719#25253#30340#20219#21153)
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      DefaultLayout = False
      KeyField = 'FCode'
      Filter.Criteria = {00000000}
      FixedBandLineWidth = 1
      OptionsCustomize = [edgoBandMoving, edgoBandSizing, edgoColumnMoving, edgoColumnSizing, edgoRowSizing]
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowAutoHeight, edgoUseBitmap]
      object dxDBGrid1FCode: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FCode'
      end
      object dxDBGrid1FName: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 88
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FName'
      end
      object dxDBGrid1FType: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 86
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FType'
      end
      object dxDBGrid1FStartDate: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 96
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FStartDate'
      end
      object dxDBGrid1FEndDate: TdxDBGridDateColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 92
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FEndDate'
      end
      object dxDBGrid1FTaskCode: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 99
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FTaskCode'
      end
      object dxDBGrid1FTaskName: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 233
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FTaskName'
      end
    end
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FCode'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'FType'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FStartDate'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'FEndDate'
        Attributes = [faFixed]
        DataType = ftDateTime
      end
      item
        Name = 'FTaskCode'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FTaskName'
        DataType = ftString
        Size = 50
      end>
    IndexFieldNames = 'FCode'
    StoreDefs = True
    object ADODataSet1FCode: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'FCode'
    end
    object ADODataSet1FName: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'FName'
      Size = 50
    end
    object ADODataSet1FType: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'FType'
      Size = 30
    end
    object ADODataSet1FStartDate: TDateTimeField
      DisplayLabel = #24320#22987#26085#26399
      FieldName = 'FStartDate'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADODataSet1FEndDate: TDateTimeField
      DisplayLabel = #23436#25104#26085#26399
      FieldName = 'FEndDate'
      DisplayFormat = 'yyyy-mm-dd'
    end
    object ADODataSet1FTaskCode: TStringField
      DisplayLabel = #20219#21153#32534#21495
      FieldName = 'FTaskCode'
      Size = 30
    end
    object ADODataSet1FTaskName: TStringField
      DisplayLabel = #20219#21153#21517#31216
      FieldName = 'FTaskName'
      Size = 50
    end
  end
  object qryTas510: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 144
    Top = 152
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    SQL.Strings = (
      
        'select H150_001,H150_002,H150_003,H100_002 from HRM150,HRM100 wh' +
        'ere H150_005=H100_001')
    Left = 352
    Top = 136
  end
end