tas470_01.dfm.svn-base

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

inherited Tas470_01Form: TTas470_01Form
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #21729#24037#32318#25928#20998#26512
  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 = 429
      Top = 12
      Width = 48
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #36215#27490#26085#26399
      Transparent = True
    end
    object sbSearch: TSpeedButton
      Left = 722
      Top = 8
      Width = 57
      Height = 22
      Anchors = [akTop, akRight]
      Caption = #26597#35810
      OnClick = sbSearchClick
    end
    object edtFromDate: TwwDBDateTimePicker
      Left = 485
      Top = 8
      Width = 105
      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 = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 0
    end
    object edtToDate: TwwDBDateTimePicker
      Left = 597
      Top = 8
      Width = 105
      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 = []
      Epoch = 1950
      ShowButton = True
      TabOrder = 1
    end
  end
  inherited ScrollBox2: TScrollBox
    Width = 800
    Height = 473
    inherited dxDBGrid1: TdxDBGrid
      Width = 796
      Height = 469
      Bands = <
        item
          Fixed = bfLeft
        end
        item
        end>
      DefaultLayout = False
      KeyField = 'FNo'
      ShowSummaryFooter = True
      OnDblClick = dxDBGrid1DblClick
      Filter.Criteria = {00000000}
      FixedBandLineWidth = 1
      OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      object dxDBGrid1FEmpID: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FEmpID'
      end
      object dxDBGrid1FEmpName: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 88
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FEmpName'
      end
      object dxDBGrid1FEngName: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 91
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FEngName'
      end
      object dxDBGrid1FDept: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 117
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FDept'
      end
      object dxDBGrid1FPost: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 94
        BandIndex = 0
        RowIndex = 0
        FieldName = 'FPost'
      end
      object dxDBGrid1FTotal: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FTotal'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0.00'
      end
      object dxDBGrid1FFinish: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FFinish'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0.00'
      end
      object dxDBGrid1FReturn: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FReturn'
        SummaryFooterType = cstSum
        SummaryFooterFormat = '0.00'
      end
      object dxDBGrid1FPercent: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 71
        BandIndex = 1
        RowIndex = 0
        FieldName = 'FPercent'
        SummaryFooterType = cstAvg
        SummaryFooterFormat = '0.00%'
      end
    end
  end
  inherited ActionList1: TActionList
    object ActOpen: TAction
      Caption = #26597#30475'(&N)'
      ShortCut = 16397
      OnExecute = ActOpenExecute
    end
  end
  inherited ADODataSet1: TADODataSet
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'FNo'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FEmpID'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FEmpName'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FEngName'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FDept'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'FPost'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'FTotal'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FFinish'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FReturn'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'FPercent'
        Attributes = [faFixed]
        DataType = ftFloat
      end>
    StoreDefs = True
    object ADODataSet1FNo: TIntegerField
      FieldName = 'FNo'
      Visible = False
    end
    object ADODataSet1FEmpID: TStringField
      DisplayLabel = #21592#24037#32534#21495
      FieldName = 'FEmpID'
    end
    object ADODataSet1FEmpName: TStringField
      DisplayLabel = #21592#24037#22995#21517
      FieldName = 'FEmpName'
    end
    object ADODataSet1FEngName: TStringField
      DisplayLabel = #33521#25991#22995#21517
      FieldName = 'FEngName'
    end
    object ADODataSet1FDept: TStringField
      DisplayLabel = #37096#38376#21517#31216
      FieldName = 'FDept'
      Size = 40
    end
    object ADODataSet1FPost: TStringField
      DisplayLabel = #32844#21153#21517#31216
      FieldName = 'FPost'
      Size = 30
    end
    object ADODataSet1FTotal: TIntegerField
      DisplayLabel = #20219#21153#24635#25968
      FieldName = 'FTotal'
    end
    object ADODataSet1FFinish: TIntegerField
      DisplayLabel = #24050#23436#25104#25968
      FieldName = 'FFinish'
    end
    object ADODataSet1FReturn: TIntegerField
      DisplayLabel = #36820#24037#25968#37327
      FieldName = 'FReturn'
    end
    object ADODataSet1FPercent: TFloatField
      DisplayLabel = #32489#25928#27604#29575
      FieldName = 'FPercent'
    end
  end
  object ADOQuery1: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select count(T510_001) as FTotal,T100_001,T100_002,T100_003,T510' +
        '_013 as FDays'
      'from TAS510,TAS100'
      'where T510_004=T100_001'
      '  and T510_003=3 group by T100_001,T100_002,T100_003,T510_013')
    Left = 336
    Top = 144
  end
  object PopupMenu1: TPopupMenu
    Left = 72
    Top = 216
    object N1: TMenuItem
      Action = ActOpen
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Action = ActLocate
    end
    object N5: TMenuItem
      Action = ActSearch
    end
  end
end