udwxxframe.~dfm

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

object frameDwxx: TframeDwxx
  Left = 0
  Top = 0
  Width = 555
  Height = 237
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  ParentFont = False
  TabOrder = 0
  object Label1: TLabel
    Left = 14
    Top = 38
    Width = 48
    Height = 12
    Caption = '单位代码'
  end
  object Label2: TLabel
    Left = 14
    Top = 59
    Width = 48
    Height = 12
    Caption = '单位名称'
  end
  object Label3: TLabel
    Left = 14
    Top = 105
    Width = 48
    Height = 12
    Caption = '法人代表'
  end
  object Label4: TLabel
    Left = 14
    Top = 127
    Width = 60
    Height = 12
    Caption = '单位经办人'
  end
  object Label5: TLabel
    Left = 14
    Top = 151
    Width = 48
    Height = 12
    Caption = '联系电话'
  end
  object Label6: TLabel
    Left = 14
    Top = 175
    Width = 48
    Height = 12
    Caption = '单位地址'
  end
  object Label7: TLabel
    Left = 14
    Top = 199
    Width = 84
    Height = 12
    Caption = '社会化发放时间'
  end
  object Label8: TLabel
    Left = 14
    Top = 83
    Width = 48
    Height = 12
    Caption = '上级单位'
  end
  object Label18: TLabel
    Left = 16
    Top = 8
    Width = 108
    Height = 12
    Caption = '当前有参与发放单位'
  end
  object lblCount: TLabel
    Left = 136
    Top = 8
    Width = 6
    Height = 12
  end
  object Label9: TLabel
    Left = 240
    Top = 38
    Width = 24
    Height = 12
    Caption = '行业'
  end
  object dtpSHHFFSJ: TwwDBDateTimePicker
    Left = 100
    Top = 195
    Width = 131
    Height = 20
    CalendarAttributes.Font.Charset = DEFAULT_CHARSET
    CalendarAttributes.Font.Color = clWindowText
    CalendarAttributes.Font.Height = -11
    CalendarAttributes.Font.Name = 'MS Sans Serif'
    CalendarAttributes.Font.Style = []
    DataField = 'SHHFFSJ'
    DataSource = souDWXX
    Epoch = 1950
    ShowButton = True
    TabOrder = 8
  end
  object cmbSJDWDM: TwwDBLookupCombo
    Left = 100
    Top = 80
    Width = 331
    Height = 18
    TabStop = False
    BorderStyle = bsNone
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'DWMC'#9'40'#9'单位名称'#9'F'
      'DWDM'#9'10'#9'单位代码'#9'F')
    DataField = 'SJDWDM'
    DataSource = souDWXX
    LookupTable = qrySJDW
    LookupField = 'DWID_FF'
    Options = [loColLines, loRowLines, loTitles]
    Color = clBtnFace
    Frame.FocusBorders = [efBottomBorder]
    ReadOnly = True
    TabOrder = 3
    AutoDropDown = False
    ShowButton = False
    AllowClearKey = False
  end
  object edtDWDM: TDBEdit
    Left = 100
    Top = 34
    Width = 131
    Height = 20
    DataField = 'DWDM'
    DataSource = souDWXX
    TabOrder = 0
  end
  object edtDWMC: TDBEdit
    Left = 100
    Top = 56
    Width = 331
    Height = 20
    DataField = 'DWMC'
    DataSource = souDWXX
    TabOrder = 2
  end
  object edtFRDB: TDBEdit
    Left = 100
    Top = 102
    Width = 131
    Height = 20
    DataField = 'FRDB'
    DataSource = souDWXX
    TabOrder = 4
  end
  object edtDWJBR: TDBEdit
    Left = 100
    Top = 124
    Width = 131
    Height = 20
    DataField = 'DWJBR'
    DataSource = souDWXX
    TabOrder = 5
  end
  object edtLXDH: TDBEdit
    Left = 100
    Top = 147
    Width = 131
    Height = 20
    DataField = 'LXDH'
    DataSource = souDWXX
    TabOrder = 6
  end
  object edtDWDZ: TDBEdit
    Left = 100
    Top = 171
    Width = 331
    Height = 20
    DataField = 'DWDZ'
    DataSource = souDWXX
    TabOrder = 7
  end
  object cmbSJDWDM_Edit: TwwDBLookupCombo
    Left = 274
    Top = 195
    Width = 132
    Height = 20
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'DWDM'#9'10'#9'单位代码'#9'F'
      'DWMC'#9'40'#9'单位名称'#9'F')
    DataField = 'SJDWDM'
    DataSource = souDWXX
    LookupTable = qrySJDW
    LookupField = 'DWID_FF'
    Options = [loColLines, loRowLines, loTitles]
    Enabled = False
    TabOrder = 9
    AutoDropDown = False
    ShowButton = True
    AllowClearKey = False
  end
  object DBNavigator1: TDBNavigator
    Left = 440
    Top = 8
    Width = 96
    Height = 20
    DataSource = souWTJG
    VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
    ConfirmDelete = False
    TabOrder = 10
  end
  object DBGrid1: TDBGrid
    Left = 440
    Top = 32
    Width = 97
    Height = 185
    DataSource = souWTJG
    Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 11
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
  end
  object cmbSSHY: TwwDBLookupCombo
    Left = 274
    Top = 34
    Width = 132
    Height = 20
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'DMMC'#9'20'#9'行业名称'#9'F'
      'DM'#9'10'#9'代码'#9'F')
    DataField = 'SSHY'
    DataSource = souDWXX
    LookupTable = qrySSHY
    LookupField = 'DM'
    Options = [loColLines, loRowLines, loTitles]
    Enabled = False
    TabOrder = 1
    AutoDropDown = False
    ShowButton = True
    AllowClearKey = False
  end
  object cmbSSHY_Edit: TwwDBLookupCombo
    Left = 282
    Top = 42
    Width = 132
    Height = 20
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'DM'#9'10'#9'代码'#9'F'
      'DMMC'#9'20'#9'行业名称'#9'F')
    DataField = 'SSHY'
    DataSource = souDWXX
    LookupTable = qrySSHY
    LookupField = 'DM'
    Options = [loColLines, loRowLines, loTitles]
    Enabled = False
    TabOrder = 12
    AutoDropDown = False
    ShowButton = True
    AllowClearKey = False
  end
  object souDWXX: TDataSource
    OnDataChange = souDWXXDataChange
    Left = 336
    Top = 120
  end
  object souSJDW: TDataSource
    DataSet = qrySJDW
    Left = 336
    Top = 152
  end
  object qrySJDW: TQuery
    DatabaseName = 'MainDB'
    DataSource = souDWXX
    SQL.Strings = (
      'SELECT dwid_ff,dwdm,DWMC FROM tFF_DWXX'
      'WHERE ssdwid=:ssdwid'
      'union '
      'SELECT '#39'0'#39','#39'0'#39','#39'发放单位'#39'  FROM dual'
      'order by dwid_ff')
    Left = 368
    Top = 152
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ssdwid'
        ParamType = ptInput
      end>
  end
  object souWTJG: TDataSource
    DataSet = qryWTJG
    Left = 310
    Top = 8
  end
  object qryWTJG: TQuery
    CachedUpdates = True
    AfterInsert = qryWTJGAfterInsert
    AfterPost = qryWTJGAfterPost
    DatabaseName = 'MainDB'
    DataSource = souDWXX
    SQL.Strings = (
      'SELECT *'
      'FROM tFF_DWWTFFJG'
      'where dwid_ff=:dwid_ff')
    UpdateObject = sqlWTJG
    Left = 342
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'dwid_ff'
        ParamType = ptInput
      end>
    object qryWRJGFFJGID: TStringField
      DisplayLabel = '委托发放机构'
      DisplayWidth = 17
      FieldName = 'FFJGID'
      Origin = 'MAINDB.TFF_DWWTFFJG.FFJGID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryWRJGFFJG_C: TStringField
      DisplayLabel = '委托发放机构'
      DisplayWidth = 14
      FieldKind = fkLookup
      FieldName = 'FFJG_C'
      LookupDataSet = tblFFJG
      LookupKeyFields = 'FFJGID'
      LookupResultField = 'JGMC'
      KeyFields = 'FFJGID'
      Lookup = True
    end
    object qryWTJGDWID_FF: TStringField
      FieldName = 'DWID_FF'
      Origin = 'MAINDB.TFF_DWWTFFJG.DWID_FF'
      Visible = False
      FixedChar = True
      Size = 10
    end
  end
  object sqlWTJG: TUpdateSQL
    ModifySQL.Strings = (
      'update tFF_DWWTFFJG'
      'set'
      '  DWID_FF = :DWID_FF,'
      '  FFJGID = :FFJGID'
      'where'
      '  DWID_FF = :OLD_DWID_FF and'
      '  FFJGID = :OLD_FFJGID')
    InsertSQL.Strings = (
      'insert into tFF_DWWTFFJG'
      '  (DWID_FF, FFJGID)'
      'values'
      '  (:DWID_FF, :FFJGID)')
    DeleteSQL.Strings = (
      'delete from tFF_DWWTFFJG'
      'where'
      '  DWID_FF = :OLD_DWID_FF and'
      '  FFJGID = :OLD_FFJGID')
    Left = 374
    Top = 8
  end
  object souFFJG: TDataSource
    Left = 310
    Top = 80
  end
  object tblFFJG: TTable
    DatabaseName = 'MainDB'
    TableName = 'TFF_WTFFJG'
    Left = 342
    Top = 80
  end
  object souSSHY: TDataSource
    DataSet = qrySSHY
    Left = 336
    Top = 183
  end
  object qrySSHY: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT DM,DMMC FROM tDMB'
      'WHERE ZDBZ='#39'SSHY'#39
      'ORDER BY DM')
    Left = 368
    Top = 186
  end
end