querydepartment.dfm

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

inherited frmQueryDepartment: TfrmQueryDepartment
  Left = 352
  Top = 174
  Width = 618
  Caption = #37096#38376#26597#35810
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  inherited CoolBar1: TCoolBar
    Width = 610
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 606
      end>
    inherited ToolBar1: TToolBar
      Width = 593
      inherited tbtnQuery: TToolButton
        Visible = False
      end
      inherited tbtnSelect: TToolButton
        Visible = False
      end
    end
  end
  inherited Panel1: TPanel
    Width = 610
    object dbgDepartment: TDBGrid
      Left = 1
      Top = 1
      Width = 608
      Height = 119
      Align = alClient
      DataSource = dsDepartment
      FixedColor = clGradientActiveCaption
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'DEPARTMENTNO'
          Title.Alignment = taCenter
          Title.Caption = #37096#38376#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DEPARTMENTNAME'
          Title.Alignment = taCenter
          Title.Caption = #37096#38376#21517#31216
          Width = 141
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MANAGER'
          Title.Alignment = taCenter
          Title.Caption = #36127#36131#20154
          Width = 91
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ADDRESS'
          Title.Alignment = taCenter
          Title.Caption = #37096#38376#22320#22336
          Width = 123
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TELEPHONE'
          Title.Alignment = taCenter
          Title.Caption = #30005#35805
          Width = 99
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'UPPERDEPARTMENTNO'
          Title.Alignment = taCenter
          Title.Caption = #19978#32423#37096#38376
          Visible = True
        end>
    end
  end
  inherited Panel2: TPanel
    Width = 610
    inherited dbgQuery: TDBGrid
      Width = 608
      Columns = <
        item
          Expanded = False
          FieldName = 'EMPLOYEENO'
          Title.Alignment = taCenter
          Title.Caption = #21592#24037#32534#21495
          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 = 'EMPLOYEENAME'
          Title.Alignment = taCenter
          Title.Caption = #21592#24037#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 = 129
          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 = []
          Width = 36
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'POSTNAME'
          Title.Alignment = taCenter
          Title.Caption = #25152#23646#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 = 101
          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 = 100
          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 = 110
          Visible = True
        end>
    end
  end
  inherited aqryQuery: TADOQuery
    CursorType = ctStatic
    DataSource = dsDepartment
    Parameters = <
      item
        Name = 'DepartmentNo'
        DataType = ftWideString
        Size = 3
        Value = '001'
      end>
    SQL.Strings = (
      
        'select a.DepartmentNo,EmployeeNo,EmployeeName,Sex,PostName,Emplo' +
        'yeeDate,WorkDate'
      'from Employee a, DCPost b'
      'where a.DepartmentNo=:DepartmentNo and  a.PostNo=b.PostNo (+)')
    Left = 8
    Top = 281
    object aqryQueryEMPLOYEENO: TWideStringField
      FieldName = 'EMPLOYEENO'
      FixedChar = True
      Size = 8
    end
    object aqryQueryEMPLOYEENAME: TWideStringField
      FieldName = 'EMPLOYEENAME'
      Size = 30
    end
    object aqryQuerySEX: TWideStringField
      FieldName = 'SEX'
      Size = 2
    end
    object aqryQueryPOSTNAME: TWideStringField
      FieldName = 'POSTNAME'
      Size = 30
    end
    object aqryQueryEMPLOYEEDATE: TDateTimeField
      FieldName = 'EMPLOYEEDATE'
    end
    object aqryQueryWORKDATE: TDateTimeField
      FieldName = 'WORKDATE'
    end
    object aqryQueryDEPARTMENTNO: TWideStringField
      FieldName = 'DEPARTMENTNO'
      FixedChar = True
      Size = 3
    end
  end
  inherited dsQuery: TDataSource
    Left = 40
    Top = 281
  end
  object atbDepartment: TADOTable
    Connection = DataModule1.connOracle
    CursorType = ctStatic
    TableName = 'DEPARTMENT'
    Left = 8
    Top = 88
    object atbDepartmentDEPARTMENTNO: TWideStringField
      FieldName = 'DEPARTMENTNO'
      FixedChar = True
      Size = 3
    end
    object atbDepartmentDEPARTMENTNAME: TWideStringField
      FieldName = 'DEPARTMENTNAME'
      Size = 30
    end
    object atbDepartmentUPPERDEPARTMENTNO: TWideStringField
      FieldName = 'UPPERDEPARTMENTNO'
      FixedChar = True
      Size = 3
    end
    object atbDepartmentMANAGER: TWideStringField
      FieldName = 'MANAGER'
    end
    object atbDepartmentADDRESS: TWideStringField
      FieldName = 'ADDRESS'
      Size = 30
    end
    object atbDepartmentTELEPHONE: TWideStringField
      FieldName = 'TELEPHONE'
    end
  end
  object dsDepartment: TDataSource
    DataSet = atbDepartment
    Left = 40
    Top = 88
  end
  object rvdbDepartment: TRvDataSetConnection
    RuntimeVisibility = rtEndUser
    DataSet = atbDepartment
    Left = 72
    Top = 89
  end
  object rvdbSearch: TRvDataSetConnection
    RuntimeVisibility = rtEndUser
    DataSet = aqrySearch
    Left = 144
    Top = 184
  end
  object aqrySearch: TADOQuery
    Connection = DataModule1.connOracle
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select a.DepartmentNo,EmployeeNo,EmployeeName,Sex,PostName,Emplo' +
        'yeeDate,WorkDate'
      'from Employee a, DCPost b'
      'where  a.PostNo=b.PostNo (+)')
    Left = 112
    Top = 185
  end
  object rvpDepartment: TRvProject
    ProjectFile = 'repDepartment.rav'
    Left = 40
    Top = 185
  end
end