pyitcode.~dfm

企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务

object pyitcode_form: Tpyitcode_form
  Left = 185
  Top = 144
  Width = 800
  Height = 600
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = #34917#32564#26723#27425
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 149
    Width = 792
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 792
    Height = 149
    Align = alTop
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 0
    object DBGrid2: TDBGrid
      Left = 0
      Top = 0
      Width = 792
      Height = 149
      Align = alClient
      DataSource = DataSource2
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taLeftJustify
          Expanded = False
          FieldName = 'itcode'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #26723#27425#32534#30721
          Width = 71
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'itname'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #26723#27425#21517#31216
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'itflag'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #26723#27425#31867#21035
          Width = 82
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'identity'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #36866#29992#20154#21592#36523#20221
          Width = 133
          Visible = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 152
    Width = 792
    Height = 421
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 0
      Top = 0
      Width = 792
      Height = 421
      Align = alClient
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'itcodename'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #34917#32564#26723#27425
          Width = 134
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pdname'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #38505#31181
          Width = 97
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'yearno'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #24180#24230
          Width = 48
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'smonth'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #24320#22987#26376#20221
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'emonth'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #32467#26463#26376#20221
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'rewage'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #32564#36153#22522#25968
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cprate'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #21333#20301#27604#20363
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'psrate'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #20010#20154#27604#20363
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cpinrate'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #21333#20301#20837#20010#20154#24080#25143#27604#20363
          Width = 103
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'psinrate'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Title.Alignment = taCenter
          Title.Caption = #20010#20154#20837#20010#20154#24080#25143#27604#20363
          Width = 103
          Visible = True
        end>
    end
  end
  object Query1: TQuery
    DatabaseName = 'Esiis'
    Filtered = True
    SQL.Strings = (
      
        'select a.*,b.itname,c.name pdname,a.itcode||'#39' | '#39'||b.itname itco' +
        'dename  '
      'from pyitcode a,pycode b,sbcode c '
      'where a.itcode=b.itcode and a.pdcode=c.code and c.type='#39'pdcode'#39
      'order by a.itcode,a.pdcode,a.yearno,a.smonth,a.emonth')
    Left = 48
    Top = 176
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 88
    Top = 176
  end
  object DataSource2: TDataSource
    DataSet = Query2
    OnDataChange = DataSource2DataChange
    Left = 80
    Top = 72
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'Esiis'
    SQL.Strings = (
      'select a.itcode,a.itname,b.name itflag,c.name identity '
      'from pycode a,sbcode b,sbcode c'
      'where a.itflag=b.code and b.type='#39'itflag'#39' '
      'and a.identity=c.code and c.type='#39'itidentity'#39
      'order by a.itcode')
    Left = 48
    Top = 72
    object Query2itcode: TFloatField
      FieldName = 'itcode'
      Origin = 'ESIIS.pycode.itcode'
      ReadOnly = True
    end
    object Query2itname: TStringField
      FieldName = 'itname'
      Origin = 'ESIIS.pycode.itname'
      ReadOnly = True
      Size = 40
    end
    object Query2itflag: TStringField
      FieldName = 'itflag'
      Origin = 'ESIIS.pycode.itflag'
      ReadOnly = True
      Size = 1
    end
    object Query2identity: TStringField
      FieldName = 'identity'
      Origin = 'ESIIS.pycode.identity'
      ReadOnly = True
      Size = 1
    end
  end
end