gl_enter_accountparam.dfm

一个MRPII系统源代码版本

inherited Frm_Gl_Enter_AccountParam: TFrm_Gl_Enter_AccountParam
  Left = 209
  Top = 172
  Caption = #24080#22871#21442#25968
  ClientHeight = 335
  ClientWidth = 525
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited btn_ok: TButton
    Left = 272
    Top = 305
  end
  inherited btn_Cancel: TButton
    Left = 365
    Top = 305
    OnClick = btn_CancelClick
  end
  object PageControl1: TPageControl [2]
    Left = 8
    Top = 8
    Width = 489
    Height = 297
    ActivePage = TabSheet1
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = #35774#32622'1'
      object Label9: TLabel
        Left = 8
        Top = 226
        Width = 108
        Height = 12
        Caption = #20845#32423#20250#35745#31185#30446#38271#24230#65306
      end
      object Label7: TLabel
        Left = 8
        Top = 201
        Width = 108
        Height = 12
        Caption = #22235#32423#20250#35745#31185#30446#38271#24230#65306
      end
      object Label10: TLabel
        Left = 8
        Top = 174
        Width = 108
        Height = 12
        Caption = #20108#32423#20250#35745#31185#30446#38271#24230#65306
      end
      object Label4: TLabel
        Left = 32
        Top = 148
        Width = 84
        Height = 12
        Caption = #20250#35745#31185#30446#32423#25968#65306
      end
      object Label3: TLabel
        Left = 8
        Top = 122
        Width = 108
        Height = 12
        Caption = #24080#22871#21551#29992#20250#35745#26399#38388#65306
      end
      object Label2: TLabel
        Left = 8
        Top = 95
        Width = 108
        Height = 12
        Caption = #20250#35745#24180#24230#36215#22987#26085#26399#65306
      end
      object Label13: TLabel
        Left = 176
        Top = 95
        Width = 12
        Height = 12
        Caption = #26376
      end
      object Label12: TLabel
        Left = 248
        Top = 122
        Width = 12
        Height = 12
        Caption = #26376
      end
      object Label14: TLabel
        Left = 248
        Top = 95
        Width = 12
        Height = 12
        Caption = #26085
      end
      object Label11: TLabel
        Left = 176
        Top = 122
        Width = 12
        Height = 12
        Caption = #24180
      end
      object Label5: TLabel
        Left = 179
        Top = 148
        Width = 108
        Height = 12
        Caption = #19968#32423#20250#35745#31185#30446#38271#24230#65306
      end
      object Label6: TLabel
        Left = 179
        Top = 175
        Width = 108
        Height = 12
        Caption = #19977#32423#20250#35745#31185#30446#38271#24230#65306
      end
      object Label8: TLabel
        Left = 179
        Top = 201
        Width = 108
        Height = 12
        Caption = #20116#32423#20250#35745#31185#30446#38271#24230#65306
      end
      object Label1: TLabel
        Left = 272
        Top = 15
        Width = 60
        Height = 12
        Caption = #35760#24080#36135#24065#65306
      end
      object Label16: TLabel
        Left = 56
        Top = 42
        Width = 60
        Height = 12
        Caption = #20973#35777#31867#22411#65306
      end
      object Label15: TLabel
        Left = 32
        Top = 16
        Width = 84
        Height = 12
        Caption = #20225#19994#25152#23646#34892#19994#65306
      end
      object Label18: TLabel
        Left = 44
        Top = 64
        Width = 72
        Height = 12
        Caption = #20973#35777#21495#32534#27861#65306
      end
      object Label19: TLabel
        Left = 252
        Top = 64
        Width = 96
        Height = 12
        Caption = #31995#32479#20973#35777#21495#32534#27861#65306
      end
      object Edt_KmLength6: TEdit
        Left = 120
        Top = 223
        Width = 50
        Height = 20
        TabOrder = 16
        OnChange = Edt_AccountCurrecyCodeChange
        OnExit = IntegerCheck
      end
      object Edt_KmLength4: TEdit
        Left = 120
        Top = 197
        Width = 50
        Height = 20
        TabOrder = 14
        OnChange = Edt_AccountCurrecyCodeChange
        OnExit = IntegerCheck
      end
      object Edt_KmLength2: TEdit
        Left = 120
        Top = 170
        Width = 50
        Height = 20
        TabOrder = 12
        OnChange = Edt_AccountCurrecyCodeChange
        OnExit = IntegerCheck
      end
      object Edt_AccountKmLength: TEdit
        Left = 120
        Top = 144
        Width = 50
        Height = 20
        TabOrder = 10
        OnChange = Edt_AccountCurrecyCodeChange
        OnExit = IntegerCheck
      end
      object Edt_AccountUseYear: TEdit
        Left = 120
        Top = 118
        Width = 50
        Height = 20
        TabOrder = 8
        OnChange = Edt_AccountCurrecyCodeChange
        OnExit = IntegerCheck
      end
      object Edt_AccountYearStArMonth: TEdit
        Left = 120
        Top = 91
        Width = 50
        Height = 20
        TabOrder = 6
        OnChange = Edt_AccountCurrecyCodeChange
        OnExit = IntegerCheck
      end
      object Edt_AccountYearStArDate: TEdit
        Left = 194
        Top = 91
        Width = 50
        Height = 20
        TabOrder = 7
        OnChange = Edt_AccountCurrecyCodeChange
        OnExit = IntegerCheck
      end
      object Edt_AccountUseMonth: TEdit
        Left = 194
        Top = 118
        Width = 50
        Height = 20
        TabOrder = 9
        OnChange = Edt_AccountCurrecyCodeChange
        OnExit = IntegerCheck
      end
      object Edt_KmLength5: TEdit
        Left = 290
        Top = 197
        Width = 50
        Height = 20
        TabOrder = 15
        OnChange = Edt_AccountCurrecyCodeChange
        OnExit = IntegerCheck
      end
      object Edt_KmLength3: TEdit
        Left = 290
        Top = 171
        Width = 50
        Height = 20
        TabOrder = 13
        OnChange = Edt_AccountCurrecyCodeChange
        OnExit = IntegerCheck
      end
      object Edt_KmLength1: TEdit
        Left = 290
        Top = 144
        Width = 50
        Height = 20
        TabOrder = 11
        OnChange = Edt_AccountCurrecyCodeChange
        OnExit = IntegerCheck
      end
      object Edt_AccountCurrecyCode: TLinkEdit
        Left = 336
        Top = 11
        Width = 50
        Height = 20
        LinkStyle = lsEllipsis
        TabOrder = 1
        OnButtonClick = CurrencyHint1
        OnChange = Edt_AccountCurrecyCodeChange
        OnExit = Edt_AccountCurrecyCodeExit
        OnKeyDown = CurrencyHint
      end
      object Edt_AccountCurrecyName: TEdit
        Left = 390
        Top = 11
        Width = 72
        Height = 20
        Enabled = False
        TabOrder = 2
      end
      object Cmb_EnterpriseType: TComboBox
        Left = 120
        Top = 12
        Width = 141
        Height = 20
        ItemHeight = 12
        TabOrder = 0
        OnChange = Cmb_EnterpriseTypeChange
        Items.Strings = (
          ''
          '1 '#24037#19994#20225#19994
          '2 '#32929#20221#26377#38480#20844#21496
          '3 '#22806#21830#25237#36164#20225#19994
          '4 '#23545#22806#32463#27982#21512#20316#20225#19994)
      end
      object Cmb_CredenceType: TComboBox
        Left = 120
        Top = 38
        Width = 311
        Height = 20
        ItemHeight = 12
        TabOrder = 3
        OnChange = Cmb_CredenceTypeChange
        Items.Strings = (
          ''
          '1 '#35760#36134#20973#35777
          '2 '#25910#27454#12289#20184#27454#12289#36716#36134#20973#35777
          '3 '#29616#37329#12289#38134#34892#12289#36716#36134#20973#35777
          '4 '#29616#37329#25910#27454#12289#29616#37329#20184#27454#12289#38134#34892#25910#27454#12289#38134#34892#20184#27454#12289#36716#36134#20973#35777
          '5 '#33258#23450#20041#20973#35777#31867#21035)
      end
      object Cmb_ProduceCrendentNoWay: TComboBox
        Left = 120
        Top = 60
        Width = 130
        Height = 20
        ItemHeight = 12
        TabOrder = 4
        Items.Strings = (
          ''
          '1 '#24207#21495
          '2 '#24180#20221'+'#24207#21495
          '3 '#24180#20221'+'#26376#20221'+'#24207#21495
          '4 '#25805#20316#21592'+'#24207#21495
          '5 '#20973#35777#23383'+'#24207#21495)
      end
      object Cmb_SysProduceCrendentNoWay: TComboBox
        Left = 344
        Top = 60
        Width = 119
        Height = 20
        ItemHeight = 12
        TabOrder = 5
        Items.Strings = (
          ''
          '1 '#24207#21495
          '2 '#24180#20221'+'#24207#21495
          '3 '#24180#20221'+'#26376#20221'+'#24207#21495'   ')
      end
    end
    object TabSheet2: TTabSheet
      Caption = #35774#32622'2'
      ImageIndex = 1
      object Label17: TLabel
        Left = 40
        Top = 32
        Width = 72
        Height = 12
        Caption = #20250#35745#26399#38388#25968#65306
      end
      object medt_PeriodCounts: TMaskEdit
        Left = 112
        Top = 24
        Width = 41
        Height = 20
        EditMask = '99;1;_'
        MaxLength = 2
        TabOrder = 0
        Text = '  '
        OnChange = medt_PeriodCountSChange
      end
      object DBGridEh1: TDBGridEh
        Left = 40
        Top = 56
        Width = 320
        Height = 169
        DataSource = DataSource1
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'AccountPeriodYear'
            Footers = <>
            Width = 38
          end
          item
            EditButtons = <>
            FieldName = 'AccountPeriodMonth'
            Footers = <>
            Width = 32
          end
          item
            EditButtons = <>
            FieldName = 'CurrentPeriod'
            Footers = <>
            KeyList.Strings = (
              '0'
              '1')
            PickList.Strings = (
              '0 '#21542
              '1 '#26159)
            Width = 101
          end
          item
            EditButtons = <>
            FieldName = 'FreezeMonth'
            Footers = <>
            KeyList.Strings = (
              '0'
              '1')
            PickList.Strings = (
              '0 '#21542
              '1 '#26159)
          end>
      end
    end
  end
  inherited AdoQry_Tmp: TADOQuery
    Left = 216
    Top = 248
  end
  object AdoQry_tmp2: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdysjmrm;Data Source=192.168.0.1' +
      '51'
    Parameters = <>
    SQL.Strings = (
      'select * from Gl_Accountperiod')
    Left = 380
    Top = 135
    object AdoQry_tmp2AccountPeriodYear: TIntegerField
      DisplayLabel = #24180#20221
      FieldName = 'AccountPeriodYear'
    end
    object AdoQry_tmp2AccountPeriodMonth: TIntegerField
      DisplayLabel = #26376#20221
      FieldName = 'AccountPeriodMonth'
    end
    object AdoQry_tmp2CurrentPeriod: TIntegerField
      DisplayLabel = #26159#21542#24403#21069#20250#35745#26399#38388
      FieldName = 'CurrentPeriod'
    end
    object AdoQry_tmp2FreezeMonth: TIntegerField
      DisplayLabel = #26159#21542#26376#32467
      FieldName = 'FreezeMonth'
    end
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_tmp2
    Left = 292
    Top = 127
  end
end