📄 dgsdm.dfm

📁 有需要的同仁载回去慢慢研究
💻 DFM
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
object DM_GSGL: TDM_GSGL
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 68
  Top = 133
  Height = 354
  Width = 652
  object DsBmGzxm: TDataSource
    DataSet = QryBmGzxm
    OnDataChange = DsBmGzxmDataChange
    Left = 480
    Top = 128
  end
  object GsDb: TDatabase
    AliasName = 'GsGl'
    Connected = True
    DatabaseName = 'DbGsgl'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='#24037#26102#31649#29702
      'SERVER NAME=172.18.115.119'
      'USER NAME=sa'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'BLOB EDIT LOGGING='
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'DATE MODE=0'
      'SCHEMA CACHE TIME=-1'
      'MAX QUERY TIME=300'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'HOST NAME='
      'APPLICATION NAME='
      'NATIONAL LANG NAME='
      'ENABLE BCD=FALSE'
      'TDS PACKET SIZE=4096'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=sapass')
    SessionName = 'Default'
    Left = 32
    Top = 8
  end
  object QryTemp: TQuery
    DatabaseName = 'DbGsgl'
    Left = 80
    Top = 8
  end
  object DsGsDay: TDataSource
    DataSet = QryGsDay
    OnDataChange = DsGsDayDataChange
    Left = 16
    Top = 248
  end
  object QryGzxmTj: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select '#27599#26085#24037#26102'.'#24037#21495','#22995#21517','#20154#21592#31867#21035',sum('#24037#26102') '#24635#24037#26102
      'from '#27599#26085#24037#26102', '#21592#24037#20449#24687
      
        'where '#27599#26085#24037#26102'.'#24037#21495'='#21592#24037#20449#24687'.'#24037#21495' and '#37096#38376#24037#20316#39033#30446#32534#21495'=:mygzxm and '#26085#26399' between :mydat' +
        'e1 and :mydate2'
      'group by '#27599#26085#24037#26102'.'#24037#21495','#22995#21517','#20154#21592#31867#21035
      ' order by '#27599#26085#24037#26102'.'#24037#21495
      ' '
      ' '
      ' '
      ' '
      ' '
      ' ')
    Left = 528
    Top = 192
    ParamData = <
      item
        DataType = ftInteger
        Name = 'mygzxm'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydate1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydate2'
        ParamType = ptInput
      end>
    object QryGzxmTjBDEDesigner: TStringField
      FieldName = #24037#21495
      Origin = 'DBGSGL.'#27599#26085#24037#26102'.'#24037#21495
      FixedChar = True
      Size = 4
    end
    object QryGzxmTjBDEDesigner2: TStringField
      FieldName = #22995#21517
      Origin = 'DBGSGL.'#21592#24037#20449#24687'.'#22995#21517
      FixedChar = True
      Size = 10
    end
    object QryGzxmTjBDEDesigner3: 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 QryGzxmTjBDEDesigner4: TFloatField
      FieldName = #24635#24037#26102
      Origin = 'DBGSGL.'#27599#26085#24037#26102'.'#24037#26102
    end
  end
  object DsGzxmTj: TDataSource
    DataSet = QryGzxmTj
    Left = 528
    Top = 248
  end
  object QryZxTj: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select '#27599#26085#24037#26102'.'#24037#21495','#22995#21517','#20154#21592#31867#21035',sum('#24037#26102') '#24635#24037#26102
      'from '#27599#26085#24037#26102','#21592#24037#20449#24687
      'where '#27599#26085#24037#26102'.'#24037#21495'='#21592#24037#20449#24687'.'#24037#21495
      'and '#27599#26085#24037#26102'.'#24037#21495' in (select '#24037#21495' from '#21592#24037#20449#24687' where '#37096#38376#32534#21495' like :mydepno)'
      'and '#26085#26399' between :mydate1 and :mydate2'
      'and '#37096#38376#24037#20316#39033#30446#32534#21495' in (select '#37096#38376#24037#20316#39033#30446#32534#21495' from '#37096#38376#24037#20316#39033#30446' where'
      #20844#21496#24037#20316#39033#30446#32534#21495' in (select '#20844#21496#24037#20316#39033#30446#32534#21495' from '#20844#21496#24037#20316#39033#30446' where '#26159#21542#22312#32447'=:myzxflag))'
      'group by '#27599#26085#24037#26102'.'#24037#21495','#22995#21517','#20154#21592#31867#21035
      'order by '#27599#26085#24037#26102'.'#24037#21495)
    Left = 584
    Top = 192
    ParamData = <
      item
        DataType = ftString
        Name = 'mydepno'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydate1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'mydate2'
        ParamType = ptInput
      end
      item
        DataType = ftBoolean
        Name = 'myzxflag'
        ParamType = ptInput
      end>
    object QryZxTjBDEDesigner: TStringField
      FieldName = #24037#21495
      FixedChar = True
      Size = 4
    end
    object QryZxTjBDEDesigner2: TStringField
      FieldName = #22995#21517
      FixedChar = True
      Size = 10
    end
    object QryZxTjBDEDesigner3: TBooleanField
      FieldName = #20154#21592#31867#21035
      DisplayValues = #27491#24335#24037';'#22806#21253#24037
    end
    object QryZxTjBDEDesigner4: TFloatField
      FieldName = #24635#24037#26102
    end
  end
  object DsZxtj: TDataSource
    DataSet = QryZxTj
    Left = 584
    Top = 248
  end
  object DsGsgzxm: TDataSource
    DataSet = TableGsgzxm
    OnDataChange = DsGsgzxmDataChange
    Left = 416
    Top = 128
  end
  object TableGsgzxm: TTable
    DatabaseName = 'DbGsgl'
    TableName = 'dbo.'#20844#21496#24037#20316#39033#30446
    Left = 416
    Top = 72
    object TableGsgzxmBDEDesigner: TSmallintField
      FieldName = #20844#21496#24037#20316#39033#30446#32534#21495
    end
    object TableGsgzxmBDEDesigner2: TStringField
      FieldName = #20844#21496#24037#20316#39033#30446#21517#31216
      Required = True
      Size = 30
    end
    object TableGsgzxmBDEDesigner3: TBooleanField
      FieldName = #26159#21542#22312#32447
      Required = True
      DisplayValues = #26159';'#21542
    end
  end
  object QryBmGzxm: TQuery
    CachedUpdates = True
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select '#37096#38376#24037#20316#39033#30446'.*,'#20844#21496#24037#20316#39033#30446'.'#20844#21496#24037#20316#39033#30446#21517#31216
      'from '#37096#38376#24037#20316#39033#30446','#20844#21496#24037#20316#39033#30446
      'where '#37096#38376#32534#21495'=:pBmbh '
      'and '#37096#38376#24037#20316#39033#30446'.'#20844#21496#24037#20316#39033#30446#32534#21495'='#20844#21496#24037#20316#39033#30446'.'#20844#21496#24037#20316#39033#30446#32534#21495)
    UpdateObject = UpdateSQLBmGzxm
    Left = 480
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'pBmbh'
        ParamType = ptInput
      end>
    object QryBmGzxmBDEDesigner: TAutoIncField
      FieldName = #37096#38376#24037#20316#39033#30446#32534#21495
      Origin = 'DBGSGL.'#37096#38376#24037#20316#39033#30446'.'#37096#38376#24037#20316#39033#30446#32534#21495
    end
    object QryBmGzxmBDEDesigner2: TStringField
      FieldName = #37096#38376#32534#21495
      Origin = 'DBGSGL.'#37096#38376#24037#20316#39033#30446'.'#37096#38376#32534#21495
      FixedChar = True
      Size = 30
    end
    object QryBmGzxmBDEDesigner3: TStringField
      FieldName = #37096#38376#24037#20316#39033#30446#21517#31216
      Origin = 'DBGSGL.'#37096#38376#24037#20316#39033#30446'.'#37096#38376#24037#20316#39033#30446#21517#31216
      FixedChar = True
      Size = 30
    end
    object QryBmGzxmBDEDesigner4: TSmallintField
      FieldName = #20844#21496#24037#20316#39033#30446#32534#21495
      Origin = 'DBGSGL.'#37096#38376#24037#20316#39033#30446'.'#20844#21496#24037#20316#39033#30446#32534#21495
    end
    object QryBmGzxmBDEDesigner5: TStringField
      FieldName = #20844#21496#24037#20316#39033#30446#21517#31216
      Origin = 'DBGSGL.'#20844#21496#24037#20316#39033#30446'.'#20844#21496#24037#20316#39033#30446#21517#31216
      FixedChar = True
      Size = 30
    end
  end
  object QryGzxmByBm: TQuery
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select * from '#37096#38376#24037#20316#39033#30446
      'where '#37096#38376#32534#21495'=:pbmbh'
      'order by '#37096#38376#24037#20316#39033#30446#21517#31216)
    Left = 272
    Top = 8
    ParamData = <
      item
        DataType = ftString
        Name = 'pbmbh'
        ParamType = ptInput
      end>
  end
  object QryGsDay: TQuery
    CachedUpdates = True
    OnCalcFields = QryGsDayCalcFields
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'SELECT '#27599#26085#24037#26102'.*,'#37096#38376#24037#20316#39033#30446'.'#37096#38376#24037#20316#39033#30446#21517#31216' '#24037#20316#39033#30446
      'FROM '#27599#26085#24037#26102','#37096#38376#24037#20316#39033#30446
      'WHERE '#24037#21495'=:pGh and '#26085#26399'=:prq and '#27599#26085#24037#26102'.'#37096#38376#24037#20316#39033#30446#32534#21495'='#37096#38376#24037#20316#39033#30446'.'#37096#38376#24037#20316#39033#30446#32534#21495
      '')
    UpdateObject = UpdateSQLGsDay
    Left = 16
    Top = 192
    ParamData = <
      item
        DataType = ftString
        Name = 'pGh'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'prq'
        ParamType = ptInput
      end>
    object QryGsDayBDEDesigner: TAutoIncField
      FieldName = #24207#21495
      Origin = 'DBGSGL.'#27599#26085#24037#26102'.'#24207#21495
    end
    object QryGsDayBDEDesigner2: TStringField
      FieldName = #26085#26399
      Origin = 'DBGSGL.'#27599#26085#24037#26102'.'#26085#26399
      FixedChar = True
      Size = 8
    end
    object QryGsDayBDEDesigner3: TStringField
      FieldName = #24037#21495
      Origin = 'DBGSGL.'#27599#26085#24037#26102'.'#24037#21495
      FixedChar = True
      Size = 4
    end
    object QryGsDayBDEDesigner4: TIntegerField
      FieldName = #37096#38376#24037#20316#39033#30446#32534#21495
      Origin = 'DBGSGL.'#27599#26085#24037#26102'.'#37096#38376#24037#20316#39033#30446#32534#21495
    end
    object QryGsDayBDEDesigner5: TFloatField
      FieldName = #24037#26102
      Origin = 'DBGSGL.'#27599#26085#24037#26102'.'#24037#26102
    end
    object QryGsDayBDEDesigner6: TSmallintField
      FieldName = #19978#29677#31867#22411
      Origin = 'DBGSGL.'#27599#26085#24037#26102'.'#19978#29677#31867#22411
    end
    object QryGsDayBDEDesigner7: TStringField
      FieldName = #22791#27880
      Origin = 'DBGSGL.'#27599#26085#24037#26102'.'#22791#27880
      FixedChar = True
      Size = 50
    end
    object QryGsDayBDEDesigner8: TStringField
      FieldName = #24037#20316#39033#30446
      Origin = 'DBGSGL.'#37096#38376#24037#20316#39033#30446'.'#37096#38376#24037#20316#39033#30446#21517#31216
      FixedChar = True
      Size = 30
    end
    object QryGsDayField: TStringField
      FieldKind = fkCalculated
      FieldName = #31867#22411
      Size = 12
      Calculated = True
    end
  end
  object QryTodayByBm: TQuery
    OnCalcFields = QryTodayByBmCalcFields
    DatabaseName = 'DbGsgl'
    SQL.Strings = (
      'select '#27599#26085#24037#26102'.'#24037#21495','#21592#24037#20449#24687'.'#22995#21517','#26085#26399','#24037#26102','#37096#38376#24037#20316#39033#30446#21517#31216','#19978#29677#31867#22411' from '#27599#26085#24037#26102','#21592#24037#20449#24687','#37096#38376#24037#20316#39033#30446
      
        'where  '#27599#26085#24037#26102'.'#24037#21495'='#21592#24037#20449#24687'.'#24037#21495' and '#21592#24037#20449#24687'.'#37096#38376#32534#21495' like :pbmbh and '#26085#26399'=:prq and' +
        '  '#37096#38376#24037#20316#39033#30446'.'#37096#38376#24037#20316#39033#30446#32534#21495'='#27599#26085#24037#26102'.'#37096#38376#24037#20316#39033#30446#32534#21495
      'order by '#27599#26085#24037#26102'.'#24037#21495','#27599#26085#24037#26102'.'#37096#38376#24037#20316#39033#30446#32534#21495)
    Left = 176
    Top = 192
    ParamData = <
      item
        DataType = ftString
        Name = 'pbmbh'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'prq'
        ParamType = ptInput
      end>
    object QryTodayByBmBDEDesigner: TStringField
      FieldName = #24037#21495
      Origin = 'DBGSGL.'#27599#26085#24037#26102'.'#24037#21495
      FixedChar = True
      Size = 4
    end
    object QryTodayByBmBDEDesigner2: TStringField
      FieldName = #26085#26399
      Origin = 'DBGSGL.'#27599#26085#24037#26102'.'#26085#26399
      FixedChar = True
      Size = 8
    end
    object QryTodayByBmBDEDesigner3: TFloatField
      FieldName = #24037#26102
      Origin = 'DBGSGL.'#27599#26085#24037#26102'.'#24037#26102
    end
    object QryTodayByBmBDEDesigner4: TStringField
      FieldName = #37096#38376#24037#20316#39033#30446#21517#31216
      Origin = 'DBGSGL.'#37096#38376#24037#20316#39033#30446'.'#37096#38376#24037#20316#39033#30446#21517#31216
      FixedChar = True
      Size = 30
    end
    object QryTodayByBmBDEDesigner5: TSmallintField
      FieldName = #19978#29677#31867#22411
      Origin = 'DBGSGL.'#27599#26085#24037#26102'.'#19978#29677#31867#22411
12 3 下一页
⌨️ 快捷键说明

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