addrecord.dfm

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

inherited AddRecord_frm: TAddRecord_frm
  Left = 282
  Top = 330
  BorderStyle = bsDialog
  Caption = #22686#21152#32564#36153#35760#24405
  ClientHeight = 225
  ClientWidth = 380
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 380
    Height = 225
    BevelInner = bvNone
    BevelOuter = bvNone
    inherited Image1: TImage
      Left = 90
      Top = 106
      Width = 71
      Height = 31
      Align = alNone
      Visible = False
    end
    object ComboBox1: TComboBox
      Left = 128
      Top = 104
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Visible = False
    end
    object DBGrid1: TDBGrid
      Left = 32
      Top = 16
      Width = 321
      Height = 145
      DataSource = DataSource1
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnKeyPress = DBGrid1KeyPress
      Columns = <
        item
          Expanded = False
          FieldName = 'yearno'
          Title.Caption = #24180'  '#20221
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cpsum'
          Title.Caption = '    '#26412#24180#32564#36153#24635#39069
          Width = 127
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cymonths'
          Title.Caption = '  '#26412#24180#32564#36153#24635#26376#25968
          Width = 104
          Visible = True
        end>
    end
    object FlatButton1: TFlatButton
      Left = 149
      Top = 184
      Width = 80
      Height = 27
      Caption = #30830'  '#23450
      TabStop = True
      TabOrder = 1
      OnClick = FlatButton1Click
    end
    object FlatButton2: TFlatButton
      Left = 261
      Top = 184
      Width = 80
      Height = 27
      Caption = #21462'  '#28040
      TabStop = True
      TabOrder = 2
      OnClick = FlatButton2Click
    end
    object FlatButton3: TFlatButton
      Left = 42
      Top = 184
      Width = 80
      Height = 27
      Caption = #21024#38500#24403#21069#35760#24405
      TabStop = True
      TabOrder = 0
      OnClick = FlatButton3Click
    end
  end
  object RMD: TRxMemoryData
    FieldDefs = <>
    OnNewRecord = RMDNewRecord
    Left = 304
    Top = 104
    object RMDiscode: TStringField
      FieldName = 'iscode'
    end
    object RMDpsname: TStringField
      FieldName = 'psname'
    end
    object RMDpsseno: TIntegerField
      FieldName = 'psseno'
    end
    object RMDyearno: TIntegerField
      FieldName = 'yearno'
    end
    object RMDcpsum: TFloatField
      FieldName = 'cpsum'
    end
    object RMDcymonths: TIntegerField
      FieldName = 'cymonths'
    end
    object RMDcypj: TFloatField
      FieldName = 'cypj'
    end
  end
  object DataSource1: TDataSource
    DataSet = RMD
    Left = 328
    Top = 104
  end
end