queryemployee.dfm

来自「delphi renyuanguanlixinxioxitong」· DFM 代码 · 共 300 行

inherited frmQueryEmployee: TfrmQueryEmployee
  Left = 228
  Top = 171
  Width = 590
  Caption = #26597#35810#21592#24037
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  inherited CoolBar1: TCoolBar
    Width = 582
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 578
      end>
    inherited ToolBar1: TToolBar
      Width = 565
    end
  end
  inherited Panel1: TPanel
    Width = 582
    Height = 105
    object lblDisp1: TLabel
      Left = 24
      Top = 24
      Width = 105
      Height = 16
      AutoSize = False
      Caption = #36873#25321#26597#35810#26041#24335
    end
    object lblStart: TLabel
      Left = 280
      Top = 24
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #24320#22987#26085#26399
    end
    object lblEnd: TLabel
      Left = 280
      Top = 64
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #32456#27490#26085#26399
    end
    object lblDisp: TLabel
      Left = 24
      Top = 64
      Width = 105
      Height = 16
      AutoSize = False
      Caption = #36755#20837#26597#35810#32534#21495
    end
    object dtpBegin: TDateTimePicker
      Left = 360
      Top = 21
      Width = 129
      Height = 24
      Date = 38099.997145358790000000
      Time = 38099.997145358790000000
      TabOrder = 0
    end
    object dtpEnd: TDateTimePicker
      Left = 362
      Top = 62
      Width = 130
      Height = 24
      Date = 38099.997285694440000000
      Time = 38099.997285694440000000
      TabOrder = 1
    end
    object cboxSelect: TComboBox
      Left = 128
      Top = 19
      Width = 137
      Height = 24
      ItemHeight = 16
      TabOrder = 2
      OnChange = cboxSelectChange
      Items.Strings = (
        #25353#32534#21495#26597#35810
        #25353#21517#31216#26597#35810
        #25353#23703#20301#26597#35810
        #25353#37096#38376#26597#35810
        #25353#24037#20316#26085#26399#26597#35810)
    end
    object edtCondition: TEdit
      Left = 128
      Top = 60
      Width = 136
      Height = 24
      TabOrder = 3
    end
    object dbcboxDepartment: TDBLookupComboBox
      Left = 128
      Top = 59
      Width = 138
      Height = 24
      KeyField = 'DEPARTMENTNO'
      ListField = 'DEPARTMENTNAME'
      ListSource = dsDepartment
      TabOrder = 4
    end
    object dbcboxPost: TDBLookupComboBox
      Left = 128
      Top = 60
      Width = 138
      Height = 24
      KeyField = 'POSTNO'
      ListField = 'POSTNAME'
      ListSource = dsPost
      TabOrder = 5
    end
  end
  inherited Panel2: TPanel
    Top = 105
    Width = 582
    Height = 208
    inherited dbgQuery: TDBGrid
      Width = 580
      Height = 206
      Columns = <
        item
          Expanded = False
          FieldName = 'EMPLOYEENO'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWhite
          Title.Font.Height = -13
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 67
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EMPLOYEENAME'
          Title.Alignment = taCenter
          Title.Caption = #22995#21517
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWhite
          Title.Font.Height = -13
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 89
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EMPLOYEEDATE'
          Title.Alignment = taCenter
          Title.Caption = #20986#29983#26085#26399
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWhite
          Title.Font.Height = -13
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SEX'
          Title.Alignment = taCenter
          Title.Caption = #24615#21035
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWhite
          Title.Font.Height = -13
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DEPARTMENTNAME'
          Title.Alignment = taCenter
          Title.Caption = #25152#23646#37096#38376
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWhite
          Title.Font.Height = -13
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 89
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'POSTNAME'
          Title.Alignment = taCenter
          Title.Caption = #23703#20301
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWhite
          Title.Font.Height = -13
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 102
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'WORKDATE'
          Title.Alignment = taCenter
          Title.Caption = #24037#20316#26085#26399
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWhite
          Title.Font.Height = -13
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 78
          Visible = True
        end>
    end
  end
  inherited aqryQuery: TADOQuery
    SQL.Strings = (
      'select EmployeeNo,EmployeeName,DepartmentName,Sex,PostName,'
      '          EmployeeDate,WorkDate'
      '     from Employee a, Department b, DCPost c'
      
        '     where a.DepartmentNo=b.DepartmentNo and  a.PostNo=c.PostNo ' +
        '(+)')
    Left = 16
    Top = 257
    object aqryQueryEMPLOYEENO: TWideStringField
      FieldName = 'EMPLOYEENO'
      FixedChar = True
      Size = 8
    end
    object aqryQueryEMPLOYEENAME: TWideStringField
      FieldName = 'EMPLOYEENAME'
      Size = 30
    end
    object aqryQueryEMPLOYEEDATE: TDateTimeField
      FieldName = 'EMPLOYEEDATE'
    end
    object aqryQuerySEX: TWideStringField
      FieldName = 'SEX'
      Size = 2
    end
    object aqryQueryDEPARTMENTNAME: TWideStringField
      FieldName = 'DEPARTMENTNAME'
      Size = 30
    end
    object aqryQueryPOSTNAME: TWideStringField
      FieldName = 'POSTNAME'
      Size = 30
    end
    object aqryQueryWORKDATE: TDateTimeField
      FieldName = 'WORKDATE'
    end
  end
  inherited dsQuery: TDataSource
    Left = 56
    Top = 257
  end
  object aqryDepartment: TADOQuery
    Connection = DataModule1.connOracle
    Parameters = <>
    SQL.Strings = (
      'select DepartmentNo,DepartmentName'
      'from Department')
    Left = 280
    Top = 177
  end
  object aqryPost: TADOQuery
    Connection = DataModule1.connOracle
    Parameters = <>
    SQL.Strings = (
      'select PostNo,PostName'
      'from DCPost')
    Left = 280
    Top = 217
  end
  object dsDepartment: TDataSource
    DataSet = aqryDepartment
    Left = 312
    Top = 177
  end
  object dsPost: TDataSource
    DataSet = aqryPost
    Left = 312
    Top = 217
  end
  object rvpEmployee: TRvProject
    ProjectFile = 'repEmployee.rav'
    Left = 16
    Top = 161
  end
  object RvDataSetConnection1: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = aqryQuery
    Left = 64
    Top = 161
  end
end