📄 dgsdm.dfm

📁 有需要的同仁载回去慢慢研究
💻 DFM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
    end
    object QryUserBDEDesigner2: TStringField
      FieldName = #22995#21517
      Origin = 'DBGSGL.'#25805#20316#29992#25143#20449#24687'.'#22995#21517
      FixedChar = True
      Size = 16
    end
    object QryUserBDEDesigner3: TBooleanField
      DisplayLabel = #31649#29702#21592
      FieldName = #31995#32479#31649#29702#21592
      Origin = 'DBGSGL.'#25805#20316#29992#25143#20449#24687'.'#31995#32479#31649#29702#21592
      DisplayValues = #26159';'#21542
    end
    object QryUserBDEDesigner4: TStringField
      FieldName = #23494#30721
      Origin = 'DBGSGL.'#25805#20316#29992#25143#20449#24687'.'#23494#30721
      FixedChar = True
      Size = 50
    end
    object QryUserBDEDesigner5: TStringField
      FieldName = #26435#38480
      Origin = 'DBGSGL.'#25805#20316#29992#25143#20449#24687'.'#26435#38480
      FixedChar = True
      Size = 50
    end
  end
  object DsUser: TDataSource
    DataSet = QryUser
    OnDataChange = DsUserDataChange
    Left = 16
    Top = 128
  end
  object tbUser: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select * from '#25805#20316#29992#25143#20449#24687
      'where '#29992#25143#24037#21495'=:pyhgh and '#23494#30721'=:pmm')
    Left = 336
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pyhgh'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'pmm'
        ParamType = ptInput
      end>
  end
  object DsYg: TDataSource
    DataSet = QryYg
    Left = 56
    Top = 128
  end
  object QryMeber: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select '#37096#38376#21517#31216','#22995#21517','#24037#21495','#21592#24037#20449#24687'.'#37096#38376#32534#21495
      'from '#21592#24037#20449#24687','#37096#38376#20449#24687
      'where ('#20998#32452#32534#21495'=:pfzbh) and ('#21592#24037#20449#24687'.'#37096#38376#32534#21495'='#37096#38376#20449#24687'.'#37096#38376#32534#21495')')
    Left = 400
    Top = 8
    ParamData = <
      item
        DataType = ftInteger
        Name = 'pfzbh'
        ParamType = ptInput
      end>
    object QryMeberBDEDesigner: TStringField
      FieldName = #37096#38376#21517#31216
      Origin = 'DBGSGL.'#37096#38376#20449#24687'.'#37096#38376#21517#31216
      FixedChar = True
      Size = 30
    end
    object QryMeberBDEDesigner2: TStringField
      FieldName = #22995#21517
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#22995#21517
      FixedChar = True
      Size = 10
    end
    object QryMeberBDEDesigner3: TStringField
      FieldName = #24037#21495
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#24037#21495
      FixedChar = True
      Size = 4
    end
    object QryMeberBDEDesigner4: TStringField
      FieldName = #37096#38376#32534#21495
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#37096#38376#32534#21495
      FixedChar = True
      Size = 30
    end
  end
  object QryYgxx: TQuery
    CachedUpdates = True
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select '#21592#24037#20449#24687'.*,'#37096#38376#20449#24687'.'#37096#38376#21517#31216
      'from '#21592#24037#20449#24687','#37096#38376#20449#24687
      'where '#21592#24037#20449#24687'.'#37096#38376#32534#21495'='#37096#38376#20449#24687'.'#37096#38376#32534#21495
      '')
    UpdateObject = UpdateSQLYgxx
    Left = 104
    Top = 72
    object QryYgxxBDEDesigner: TStringField
      FieldName = #24037#21495
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#24037#21495
      FixedChar = True
      Size = 4
    end
    object QryYgxxBDEDesigner2: TStringField
      FieldName = #22995#21517
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#22995#21517
      FixedChar = True
      Size = 10
    end
    object QryYgxxBDEDesigner3: TStringField
      FieldName = #37096#38376#32534#21495
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#37096#38376#32534#21495
      FixedChar = True
      Size = 30
    end
    object QryYgxxBDEDesigner4: TBooleanField
      FieldName = #24615#21035
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#24615#21035
      DisplayValues = #30007';'#22899
    end
    object QryYgxxBDEDesigner5: TBooleanField
      FieldName = #20154#21592#31867#21035
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#20154#21592#31867#21035
      DisplayValues = #27491#24335#24037';'#22806#21253#24037
    end
    object QryYgxxBDEDesigner6: TIntegerField
      FieldName = #20998#32452#32534#21495
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#20998#32452#32534#21495
    end
    object QryYgxxBDEDesigner7: TStringField
      FieldName = #37096#38376#21517#31216
      Origin = 'DBGSGL.'#37096#38376#20449#24687'.'#37096#38376#21517#31216
      FixedChar = True
      Size = 30
    end
  end
  object DsYgxx: TDataSource
    DataSet = QryYgxx
    OnDataChange = DsYgxxDataChange
    Left = 104
    Top = 128
  end
  object UpdateSQLYgxx: TUpdateSQL
    ModifySQL.Strings = (
      'update '#21592#24037#20449#24687
      'set'
      '  '#24037#21495' = :'#24037#21495','
      '  '#22995#21517' = :'#22995#21517','
      '  '#37096#38376#32534#21495' = :'#37096#38376#32534#21495','
      '  '#24615#21035' = :'#24615#21035','
      '  '#20154#21592#31867#21035' = :'#20154#21592#31867#21035
      'where'
      '  '#24037#21495' = :OLD_'#24037#21495)
    InsertSQL.Strings = (
      'insert into '#21592#24037#20449#24687
      '  ('#24037#21495', '#22995#21517', '#37096#38376#32534#21495', '#24615#21035', '#20154#21592#31867#21035')'
      'values'
      '  (:'#24037#21495', :'#22995#21517', :'#37096#38376#32534#21495', :'#24615#21035', :'#20154#21592#31867#21035')')
    DeleteSQL.Strings = (
      'delete from '#21592#24037#20449#24687
      'where'
      '  '#24037#21495' = :OLD_'#24037#21495)
    Left = 168
    Top = 72
  end
  object DsLbxx: TDataSource
    DataSet = QryLbxx
    Left = 232
    Top = 128
  end
  object QryLbxx: TQuery
    CachedUpdates = True
    AfterPost = QryLbxxAfterPost
    BeforeDelete = QryLbxxBeforeDelete
    AfterDelete = QryLbxxAfterDelete
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select *'
      'from '#36718#29677#20449#24687
      'order by '#36718#29677#32534#21495)
    UpdateObject = UpdateSQLLbxx
    Left = 232
    Top = 72
  end
  object UpdateSQLLbxx: TUpdateSQL
    ModifySQL.Strings = (
      'update '#36718#29677#20449#24687
      'set'
      '  '#36718#29677#21517#31216' = :'#36718#29677#21517#31216
      'where'
      '  '#36718#29677#32534#21495' = :OLD_'#36718#29677#32534#21495)
    InsertSQL.Strings = (
      'insert into '#36718#29677#20449#24687
      '  ('#36718#29677#21517#31216')'
      'values'
      '  (:'#36718#29677#21517#31216')')
    DeleteSQL.Strings = (
      'delete from '#36718#29677#20449#24687
      'where'
      '  '#36718#29677#32534#21495' = :OLD_'#36718#29677#32534#21495)
    Left = 296
    Top = 72
  end
  object QryFzry: TQuery
    CachedUpdates = True
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select *'
      'from '#21592#24037#20449#24687#35270#22270
      'where '#20998#32452#32534#21495'=:pfzbh'
      'order by '#24037#21495)
    Left = 360
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'pfzbh'
        ParamType = ptInput
      end>
    object QryFzryBDEDesigner5: TStringField
      FieldName = #37096#38376#21517#31216
      Origin = 'DBGSGL.'#21592#24037#20449#24687#35270#22270'.'#37096#38376#21517#31216
      FixedChar = True
      Size = 30
    end
    object QryFzryBDEDesigner2: TStringField
      FieldName = #24037#21495
      Origin = 'DBGSGL.'#21592#24037#20449#24687#35270#22270'.'#24037#21495
      FixedChar = True
      Size = 4
    end
    object QryFzryBDEDesigner3: TStringField
      FieldName = #22995#21517
      Origin = 'DBGSGL.'#21592#24037#20449#24687#35270#22270'.'#22995#21517
      FixedChar = True
      Size = 10
    end
    object QryFzryBDEDesigner7: TBooleanField
      FieldName = #24615#21035
      Origin = 'DBGSGL.'#21592#24037#20449#24687#35270#22270'.'#24615#21035
      DisplayValues = #30007';'#22899
    end
    object QryFzryBDEDesigner8: TBooleanField
      FieldName = #20154#21592#31867#21035
      Origin = 'DBGSGL.'#21592#24037#20449#24687#35270#22270'.'#20154#21592#31867#21035
      DisplayValues = #27491#24335#24037';'#22806#21253#24037
    end
  end
  object DsFzry: TDataSource
    DataSet = QryFzry
    Left = 360
    Top = 128
  end
  object QryBmLb: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'SELECT *'
      'FROM '#21592#24037#20449#24687#35270#22270
      'WHERE ('#37096#38376#32534#21495' like :pbmbh) AND ('#36718#29677#32534#21495'=:plbbh)'
      '')
    Left = 592
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'pbmbh'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'plbbh'
        ParamType = ptInput
      end>
  end
  object QryNoLbbh: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'SELECT *'
      'FROM '#21592#24037#20449#24687#35270#22270
      'WHERE ('#37096#38376#32534#21495' like :pbmbh) AND (('#20998#32452#32534#21495'<>:pfzbh) OR'
      '      ('#20998#32452#32534#21495' IS NULL))'
      'order by '#22995#21517)
    Left = 464
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'pbmbh'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pfzbh'
        ParamType = ptInput
      end>
  end
  object QryLbbh: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'SELECT *'
      'FROM '#21592#24037#20449#24687#35270#22270
      'WHERE ('#37096#38376#32534#21495' like :pbmbh) AND ('#20998#32452#32534#21495'=:pfzbh)'
      'order by '#22995#21517)
    Left = 536
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'pbmbh'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pfzbh'
        ParamType = ptInput
      end>
  end
  object UpdateSQLBmGzxm: TUpdateSQL
    ModifySQL.Strings = (
      'update '#37096#38376#24037#20316#39033#30446
      'set'
      '  '#37096#38376#32534#21495' = :'#37096#38376#32534#21495','
      '  '#37096#38376#24037#20316#39033#30446#21517#31216' = :'#37096#38376#24037#20316#39033#30446#21517#31216','
      '  '#20844#21496#24037#20316#39033#30446#32534#21495' = :'#20844#21496#24037#20316#39033#30446#32534#21495
      'where'
      '  '#37096#38376#32534#21495' = :OLD_'#37096#38376#32534#21495' and'
      '  '#37096#38376#24037#20316#39033#30446#21517#31216' = :OLD_'#37096#38376#24037#20316#39033#30446#21517#31216' and'
      '  '#20844#21496#24037#20316#39033#30446#32534#21495' = :OLD_'#20844#21496#24037#20316#39033#30446#32534#21495)
    InsertSQL.Strings = (
      'insert into '#37096#38376#24037#20316#39033#30446
      '  ('#37096#38376#32534#21495', '#37096#38376#24037#20316#39033#30446#21517#31216', '#20844#21496#24037#20316#39033#30446#32534#21495')'
      'values'
      '  (:'#37096#38376#32534#21495', :'#37096#38376#24037#20316#39033#30446#21517#31216', :'#20844#21496#24037#20316#39033#30446#32534#21495')')
    DeleteSQL.Strings = (
      'delete from '#37096#38376#24037#20316#39033#30446
      'where'
      '  '#37096#38376#32534#21495' = :OLD_'#37096#38376#32534#21495' and'
      '  '#37096#38376#24037#20316#39033#30446#21517#31216' = :OLD_'#37096#38376#24037#20316#39033#30446#21517#31216' and'
      '  '#20844#21496#24037#20316#39033#30446#32534#21495' = :OLD_'#20844#21496#24037#20316#39033#30446#32534#21495)
    Left = 560
    Top = 72
  end
  object UpdateSQLGsDay: TUpdateSQL
    ModifySQL.Strings = (
      'update '#27599#26085#24037#26102
      'set'
      '  '#26085#26399' = :'#26085#26399','
      '  '#24037#21495' = :'#24037#21495','
      '  '#37096#38376#24037#20316#39033#30446#32534#21495' = :'#37096#38376#24037#20316#39033#30446#32534#21495','
      '  '#24037#26102' = :'#24037#26102','
      '  '#19978#29677#31867#22411' = :'#19978#29677#31867#22411','
      '  '#22791#27880' = :'#22791#27880
      'where'
      '  '#24207#21495' = :OLD_'#24207#21495)
    InsertSQL.Strings = (
      'insert into '#27599#26085#24037#26102
      '  ('#26085#26399', '#24037#21495', '#37096#38376#24037#20316#39033#30446#32534#21495', '#24037#26102', '#19978#29677#31867#22411', '#22791#27880')'
      'values'
      '  (:'#26085#26399', :'#24037#21495', :'#37096#38376#24037#20316#39033#30446#32534#21495', :'#24037#26102', :'#19978#29677#31867#22411', :'#22791#27880')')
    DeleteSQL.Strings = (
      'delete from '#27599#26085#24037#26102
      'where'
      '  '#24207#21495' = :OLD_'#24207#21495)
    Left = 88
    Top = 192
  end
end
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -