gl_enter_accountsubject.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 823 行 · 第 1/2 页

DFM
823 行
字号
12
inherited Frm_Gl_Enter_AccountSubject: TFrm_Gl_Enter_AccountSubject
  Left = 90
  Top = 159
  Caption = #20250#35745#31185#30446
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #20250#35745#31185#30446
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Left = 81
      Width = 24
      Caption = #20840#37096
      Visible = False
    end
    inherited Lbl_ConditionTitle: TLabel
      Visible = False
    end
    inherited Lbl_OrderTitle: TLabel
      Visible = False
    end
    inherited Lbl_Order: TLabel
      Left = 81
      Width = 78
      Caption = #31185#30446#20195#30721'/'#32423#27425
      Visible = False
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        item
          EditButtons = <>
          FieldName = 'KmLevel'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #32423#27425
          Width = 32
        end
        item
          EditButtons = <>
          FieldName = 'KmCode'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #31185#30446#20195#30721
          Width = 66
        end
        item
          EditButtons = <>
          FieldName = 'KmName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #31185#30446#21517#31216
          Width = 206
        end
        item
          EditButtons = <>
          FieldName = 'KmType'
          Footers = <>
          KeyList.Strings = (
            '1'
            '2'
            '3'
            '4'
            '5')
          PickList.Strings = (
            '1 '#36164#20135
            '2 '#36127#20538
            '3 '#26435#30410
            '4 '#25104#26412
            '5 '#25439#30410)
          Title.Alignment = taCenter
          Title.Caption = #31185#30446#31867#22411
          Width = 54
        end
        item
          EditButtons = <>
          FieldName = 'KmProperty'
          Footers = <>
          KeyList.Strings = (
            '1'
            '2')
          PickList.Strings = (
            '1 '#20511#26041
            '2 '#36151#26041)
          Title.Alignment = taCenter
          Title.Caption = #31185#30446#24615#36136
          Width = 55
        end
        item
          EditButtons = <>
          FieldName = 'PageType'
          Footers = <>
          KeyList.Strings = (
            '1'
            '2')
          PickList.Strings = (
            '1 '#37329#39069#24335
            '2 '#25968#37327#37329#39069#24335' ')
          Title.Alignment = taCenter
          Title.Caption = #36134#39029#26684#24335
          Width = 80
        end>
    end
    object PageControl1: TPageControl
      Left = 0
      Top = 0
      Width = 792
      Height = 455
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 1
      OnChange = PageControl1Change
      object TabSheet1: TTabSheet
        Caption = #20840#37096
        object DBGridEh1: TDBGridEh
          Left = 0
          Top = 0
          Width = 784
          Height = 428
          Align = alClient
          DataSource = DataSource
          FooterColor = clWindow
          FooterFont.Charset = GB2312_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -12
          FooterFont.Name = #23435#20307
          FooterFont.Style = []
          PopupMenu = PopuPmenu
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnDblClick = DBGridEhDblClick
          OnDrawDataCell = DBGridEhDrawDataCell
          OnGetCellParams = DBGridEhGetCellParams
          Columns = <
            item
              EditButtons = <>
              FieldName = 'KmLevel'
              Footers = <>
              Title.Alignment = taCenter
              Title.Caption = #32423#27425
              Width = 32
            end
            item
              EditButtons = <>
              FieldName = 'KmCode'
              Footers = <>
              Title.Alignment = taCenter
              Title.Caption = #31185#30446#20195#30721
              Width = 66
            end
            item
              EditButtons = <>
              FieldName = 'KmName'
              Footers = <>
              Title.Alignment = taCenter
              Title.Caption = #31185#30446#21517#31216
              Width = 206
            end
            item
              EditButtons = <>
              FieldName = 'KmType'
              Footers = <>
              KeyList.Strings = (
                '1'
                '2'
                '3'
                '4'
                '5')
              PickList.Strings = (
                '1 '#36164#20135
                '2 '#36127#20538
                '3 '#26435#30410
                '4 '#25104#26412
                '5 '#25439#30410)
              Title.Alignment = taCenter
              Title.Caption = #31185#30446#31867#22411
              Width = 54
            end
            item
              EditButtons = <>
              FieldName = 'KmProperty'
              Footers = <>
              KeyList.Strings = (
                '1'
                '2')
              PickList.Strings = (
                '1 '#20511#26041
                '2 '#36151#26041)
              Title.Alignment = taCenter
              Title.Caption = #31185#30446#24615#36136
              Width = 55
            end
            item
              EditButtons = <>
              FieldName = 'PageType'
              Footers = <>
              KeyList.Strings = (
                '1'
                '2')
              PickList.Strings = (
                '1 '#37329#39069#24335
                '2 '#25968#37327#37329#39069#24335' ')
              Title.Alignment = taCenter
              Title.Caption = #36134#39029#26684#24335
              Width = 80
            end>
        end
      end
      object TabSheet2: TTabSheet
        Caption = #36164#20135
        ImageIndex = 1
        object DBGridEh2: TDBGridEh
          Left = 0
          Top = 0
          Width = 686
          Height = 279
          Align = alClient
          DataSource = DataSource
          FooterColor = clWindow
          FooterFont.Charset = GB2312_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -12
          FooterFont.Name = #23435#20307
          FooterFont.Style = []
          PopupMenu = PopuPmenu
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnDblClick = DBGridEhDblClick
          OnDrawDataCell = DBGridEhDrawDataCell
          OnGetCellParams = DBGridEhGetCellParams
          Columns = <
            item
              EditButtons = <>
              FieldName = 'KmLevel'
              Footers = <>
              Title.Alignment = taCenter
              Title.Caption = #32423#27425
              Width = 32
            end
            item
              EditButtons = <>
              FieldName = 'KmCode'
              Footers = <>
              Title.Alignment = taCenter
              Title.Caption = #31185#30446#20195#30721
              Width = 66
            end
            item
              EditButtons = <>
              FieldName = 'KmName'
              Footers = <>
              Title.Alignment = taCenter
              Title.Caption = #31185#30446#21517#31216
              Width = 206
            end
            item
              EditButtons = <>
              FieldName = 'KmType'
              Footers = <>
              KeyList.Strings = (
                '1'
                '2'
                '3'
                '4'
                '5')
              PickList.Strings = (
                '1 '#36164#20135
                '2 '#36127#20538
                '3 '#26435#30410
                '4 '#25104#26412
                '5 '#25439#30410)
              Title.Alignment = taCenter
              Title.Caption = #31185#30446#31867#22411
              Width = 54
            end
            item
              EditButtons = <>
              FieldName = 'KmProperty'
              Footers = <>
              KeyList.Strings = (
                '1'
                '2')
              PickList.Strings = (
                '1 '#20511#26041
                '2 '#36151#26041)
              Title.Alignment = taCenter
              Title.Caption = #31185#30446#24615#36136
              Width = 55
            end
            item
              EditButtons = <>
              FieldName = 'PageType'
              Footers = <>
              KeyList.Strings = (
                '1'
                '2')
              PickList.Strings = (
                '1 '#37329#39069#24335
                '2 '#25968#37327#37329#39069#24335' ')
              Title.Alignment = taCenter
              Title.Caption = #36134#39029#26684#24335
              Width = 80
            end>
        end
      end
      object TabSheet3: TTabSheet
        Caption = #36127#20538
        ImageIndex = 2
        object DBGridEh3: TDBGridEh
          Left = 0
          Top = 0
          Width = 686
          Height = 279
          Align = alClient
          DataSource = DataSource
          FooterColor = clWindow
          FooterFont.Charset = GB2312_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -12
          FooterFont.Name = #23435#20307
          FooterFont.Style = []
          PopupMenu = PopuPmenu
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnDblClick = DBGridEhDblClick
          OnDrawDataCell = DBGridEhDrawDataCell
          OnGetCellParams = DBGridEhGetCellParams
          Columns = <
            item
              EditButtons = <>
              FieldName = 'KmLevel'
              Footers = <>
              Title.Alignment = taCenter
              Title.Caption = #32423#27425
              Width = 32
            end
            item
              EditButtons = <>
              FieldName = 'KmCode'
              Footers = <>
              Title.Alignment = taCenter
              Title.Caption = #31185#30446#20195#30721
              Width = 66
            end
            item
              EditButtons = <>
              FieldName = 'KmName'
              Footers = <>
              Title.Alignment = taCenter
              Title.Caption = #31185#30446#21517#31216
              Width = 206
            end
            item
              EditButtons = <>
              FieldName = 'KmType'
              Footers = <>
              KeyList.Strings = (
                '1'
                '2'
                '3'
                '4'
                '5')
              PickList.Strings = (
                '1 '#36164#20135
                '2 '#36127#20538
                '3 '#26435#30410
                '4 '#25104#26412
                '5 '#25439#30410)
              Title.Alignment = taCenter
              Title.Caption = #31185#30446#31867#22411
              Width = 54
            end
            item
              EditButtons = <>
              FieldName = 'KmProperty'
              Footers = <>
              KeyList.Strings = (
                '1'
                '2')
              PickList.Strings = (
                '1 '#20511#26041
                '2 '#36151#26041)
              Title.Alignment = taCenter
              Title.Caption = #31185#30446#24615#36136
              Width = 55
            end
            item
              EditButtons = <>
              FieldName = 'PageType'
              Footers = <>
              KeyList.Strings = (
                '1'
                '2')
              PickList.Strings = (
12

gl_enter_accountsubject.dfm - 源码说明

本页面展示了「一个MRPII系统源代码版本」中的 gl_enter_accountsubject.dfm 源码文件，采用 DFM 编程语言编写，共 823 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与MRPII相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?