gl_enter_accountsubject.dfm

一个MRPII系统源代码版本

                '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 TabSheet4: TTabSheet
        Caption = #26435#30410
        ImageIndex = 3
        object DBGridEh4: 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 TabSheet5: TTabSheet
        Caption = #25104#26412
        ImageIndex = 4
        object DBGridEh5: 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 TabSheet6: TTabSheet
        Caption = #25439#30410
        ImageIndex = 5
        object DBGridEh6: 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
    end
  end
  inherited AdoQry_Tmp: TADOQuery
    Left = 389
    Top = 283
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 240
  end
  inherited AdoQry_Main: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdysjmrm;Data Source=192.168.0.1' +
      '51;Use procedure for Prepare=1;Auto Translate=True;Packet Size=4' +
      '096;Workstation ID=XYB'
    CursorType = ctStatic
    SQL.Strings = (
      'Select * From Gl_AccountSubject')
    Left = 480
    Top = 265
    object AdoQry_MainKmID: TAutoIncField
      FieldName = 'KmID'
      Origin = 'Gl_AccountSubject'
      ReadOnly = True
    end
    object AdoQry_MainKmLevel: TIntegerField
      FieldName = 'KmLevel'
      Origin = 'Gl_AccountSubject'
    end
    object AdoQry_MainKmCode: TStringField
      FieldName = 'KmCode'
      Origin = 'Gl_AccountSubject'
      Size = 15
    end
    object AdoQry_MainKmHelpCode: TStringField
      FieldName = 'KmHelpCode'
      Origin = 'Gl_AccountSubject'
      Size = 10
    end
    object AdoQry_MainKmName: TStringField
      FieldName = 'KmName'
      Origin = 'Gl_AccountSubject'
      OnGetText = AdoQry_MainKmNameGetText
      Size = 40
    end
    object AdoQry_MainKmType: TIntegerField
      FieldName = 'KmType'
      Origin = 'Gl_AccountSubject'
    end
    object AdoQry_MainKmProperty: TIntegerField
      FieldName = 'KmProperty'
      Origin = 'Gl_AccountSubject'
    end
    object AdoQry_MainPageType: TIntegerField
      FieldName = 'PageType'
      Origin = 'Gl_AccountSubject'
    end
    object AdoQry_MainFCurrecy: TStringField
      FieldName = 'FCurrecy'
      Size = 2
    end
    object AdoQry_MainAmountCalculate: TIntegerField
      FieldName = 'AmountCalculate'
    end
    object AdoQry_MainUomCode: TStringField
      FieldName = 'UomCode'
      Size = 4
    end
    object AdoQry_MainCashControl: TIntegerField
      FieldName = 'CashControl'
    end
    object AdoQry_MainKmFreeze: TIntegerField
      FieldName = 'KmFreeze'
    end
    object AdoQry_MainDepArtCalculate: TIntegerField
      FieldName = 'DepArtCalculate'
    end
    object AdoQry_MainPersonCalculate: TIntegerField
      FieldName = 'PersonCalculate'
    end
    object AdoQry_MainCustomerCalculate: TIntegerField
      FieldName = 'CustomerCalculate'
    end
    object AdoQry_MaInvendorCalculate: TIntegerField
      FieldName = 'VendorCalculate'
    end
    object AdoQry_MainProjectCalculate: TIntegerField
      FieldName = 'ProjectCalculate'
    end
  end
  inherited DataSource: TDataSource
    Left = 400
    Top = 217
  end
end