jxjh.dfm

本科的毕业设计

object Frmjxjhgl: TFrmjxjhgl
  Left = 178
  Top = 91
  Width = 814
  Height = 654
  BorderIcons = []
  Caption = #25945#23398#35745#21010#31649#29702#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 806
    Height = 30
    Align = alTop
    AutoSize = True
    BorderStyle = bsSingle
    Caption = ' '
    Color = clActiveBorder
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 1
      Top = 2
      Width = 66
      Height = 16
      Caption = #20837#23398#24180#20221'::::::'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBComBox1: TComboBox
      Left = 69
      Top = 1
      Width = 92
      Height = 24
      Style = csDropDownList
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      ItemHeight = 16
      TabOrder = 0
      OnChange = DBComBox1Change
    end
  end
  object Panel3: TPanel
    Left = 169
    Top = 30
    Width = 637
    Height = 578
    Align = alClient
    AutoSize = True
    Caption = 'Panel2'
    DragMode = dmAutomatic
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 1
      Top = 438
      Width = 635
      Height = 2
      Cursor = crVSplit
      Align = alBottom
    end
    object DBG_jxjhc: TDBGrid
      Left = 1
      Top = 440
      Width = 635
      Height = 112
      Align = alBottom
      Color = clScrollBar
      DataSource = DataSource2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBG_jxjhcDblClick
      OnMouseUp = DBG_jxjhbMouseUp
      Columns = <
        item
          Expanded = False
          FieldName = 'SYS_XNXQ__XNXQWZ'
          Title.Caption = #23398#24180#23398#26399#21495
          Width = 166
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JW_JXJHC__JKZXS'
          Title.Caption = #35762#35838#24635#23398#26102
          Width = 96
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JW_JXJHC__JKOXS'
          Title.Caption = #35762#35838#21608#23398#26102
          Width = 109
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JW_JXJHC__SYZXS'
          Title.Caption = #23454#39564#24635#23398#26102
          Width = 125
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JW_JXJHC__SYOXS'
          Title.Caption = #23454#39564#21608#23398#26102
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JW_JXJHC__XF'
          Title.Caption = '   '#23398'   '#20998
          Width = 185
          Visible = True
        end>
    end
    object StatusBar1: TStatusBar
      Left = 1
      Top = 552
      Width = 635
      Height = 25
      Panels = <
        item
          Width = 230
        end
        item
          Alignment = taCenter
          Text = #36719#20214#35774#35745':'#21335#26124#33322#31354#24037#19994#23398#38498' '#22799#21033#27665
          Width = 50
        end>
    end
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 635
      Height = 437
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 2
      object TabSheet1: TTabSheet
        Caption = #25945#23398#35745#21010#23433#25490
        object DBG_jxjhb: TDBGrid
          Left = 0
          Top = 0
          Width = 627
          Height = 409
          Align = alClient
          Color = clScrollBar
          DataSource = DM.DataSource1
          ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = DBG_jxjhbCellClick
          OnDblClick = DBG_jxjhbDblClick
          OnKeyUp = DBG_jxjhbKeyUp
          OnMouseUp = DBG_jxjhbMouseUp
          Columns = <
            item
              Expanded = False
              FieldName = 'SYS_KC__KCM'
              Title.Caption = #35838#31243
              Width = 114
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'sykcm'
              Title.Caption = #23454#39564#35838#31243#21517
              Width = 123
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SYS_KCXX__XXLBM'
              Title.Caption = #35838#31243#20462#20064#31867#21035#21517
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ksfs'
              Title.Caption = #32771#35797#26041#24335
              Width = 85
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'kslb'
              Title.Caption = #32771#35797#31867#21035
              Width = 75
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'JW_JXJHB__KCH1'
              Visible = False
            end
            item
              Expanded = False
              FieldName = 'JW_JXJHB__ZXS'
              Title.Caption = #24635#23398#26102
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'JW_JXJHB__ZXF'
              Title.Caption = #24635#23398#20998
              Visible = True
            end>
        end
      end
      object TabSheet2: TTabSheet
        Caption = #25171#21360#25945#23398#35745#21010
        ImageIndex = 1
        object DBGrid2: TDBGrid
          Left = 0
          Top = 0
          Width = 627
          Height = 409
          Hint = #25353#21015#21517#25490#24207#21518','#25171#21360#25928#26524#19981#21516
          Align = alClient
          Color = clScrollBar
          DataSource = DS_Pjxjh
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = DBGrid2CellClick
          OnKeyUp = DBGrid2KeyUp
          Columns = <
            item
              Expanded = False
              FieldName = 'SYS_XNXQ__XNXQWZ'
              Title.Caption = #23398#24180#23398#26399
              Width = 119
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SYS_KCXX__XXLBM'
              Title.Caption = #35838#31243#31867#21035
              Width = 83
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SYS_KC__KCM'
              Title.Caption = #35838#31243#21517#31216
              Width = 121
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ksfs'
              Title.Caption = #32771#35797#26041#24335
              Width = 56
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'JW_JXJHB__ZXS'
              Title.Caption = #35838#31243#24635#23398#26102
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'JW_JXJHB__ZXF'
              Title.Caption = #35838#31243#24635#23398#20998
              Width = 71
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'JW_JXJHC__JKZXS'
              Title.Caption = #35762#35838#24635#23398#26102
              Width = 68
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'JW_JXJHC__SYZXS'
              Title.Caption = #23454#39564#24635#23398#26102
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'JW_JXJHB__KYY'
              Visible = False
            end>
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 30
    Width = 169
    Height = 578
    Align = alLeft
    Caption = 'Panel2'
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 167
      Height = 576
      Align = alClient
      Color = clScrollBar
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'SYS_ZY__ZYM'
          Title.Caption = #19987#19994#21517#31216
          Width = 150
          Visible = True
        end>
    end
  end
  object MainMenu1: TMainMenu
    Left = 408
    object N1: TMenuItem
      Caption = #25968#25454#32534#36753'(&E)'
      object N2: TMenuItem
        Caption = #22522#30784#34920'(&B)'
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #23398#26399#35838#26102#20998#24067#34920'(&E)'
        OnClick = DBG_jxjhcDblClick
      end
      object N25: TMenuItem
        Caption = '-'
      end
      object N6: TMenuItem
        Caption = #22797#21046#24180#24230#25945#23398#35745#21010'(&C)'
        OnClick = N6Click
      end
      object N7: TMenuItem
        Caption = #22797#21046#19987#19994#25945#23398#35745#21010'(&Z)'
        OnClick = N7Click
      end
      object N26: TMenuItem
        Caption = '-'
      end
      object N23: TMenuItem
        Caption = #25945#23398#35745#21010#25253#34920'(&G)'
        OnClick = N23Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object N9: TMenuItem
        Caption = #36864#20986'(&Q)'
        OnClick = N9Click
      end
    end
    object N10: TMenuItem
      Caption = #25945#23398#35745#21010#26597#35810'(&Q)'
      object N11: TMenuItem
        Caption = #25353#19987#19994#26597#35810
        OnClick = N11Click
      end
    end
    object N19: TMenuItem
      Caption = #23457#26680#25968#25454'(&V)'
      object N20: TMenuItem
        Caption = #23457#26680#23398#26399#35838#26102#20998#24067#34920'(&E)'
        OnClick = N20Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object N17: TMenuItem
        Caption = #23457#26680#25945#23398#35745#21010#20174#34920'(&G)'
        OnClick = N17Click
      end
    end
  end
  object DataSource2: TDataSource
    DataSet = DM.Q_jxjhc
    Left = 352
    Top = 89
  end
  object Q_sh1: TQuery
    DatabaseName = 'kjxy'
    SQL.Strings = (
      'SELECT SUM(JW_JXJHC__JKZXS)AS SUM1,SUM(JW_JXJHC__SYZXS) AS sum2,'
      '      SUM(JW_JXJHC__XF) AS sum3'
      'FROM dbo.JW_JXJHC'
      'WHERE JW_JXJHC__KYY =:kyy')
    Left = 480
    ParamData = <
      item
        DataType = ftString
        Name = 'kyy'
        ParamType = ptUnknown
      end>
  end
  object Q_sh2: TQuery
    DatabaseName = 'kjxy'
    SQL.Strings = (
      'SELECT JW_JXJHB__KYY'
      'FROM dbo.JW_JXJHB'
      'WHERE JW_JXJHB__KYY =:kyy')
    Left = 520
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'kyy'
        ParamType = ptUnknown
      end>
  end
  object DataSource1: TDataSource
    DataSet = DM.Q_rxnf_zy
    Left = 32
    Top = 70
  end
  object DS_Pjxjh: TDataSource
    DataSet = DM.PQ_jxjh
    Left = 557
    Top = 143
  end
  object PopupMenu1: TPopupMenu
    Left = 310
    Top = 175
    object N8: TMenuItem
      Caption = #21019#24314#25945#23398#35745#21010#20027#34920
      OnClick = N2Click
    end
    object N12: TMenuItem
      Caption = '-'
    end
    object N13: TMenuItem
      Caption = #21019#24314#25945#23398#35745#21010#20174#34920
      OnClick = DBG_jxjhcDblClick
    end
  end
end