📄 ybnsdeliver1.dfm

📁 主要是介绍DELPHI三层应用以及分布式数据库的应用
💻 DFM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
        end
        object Panel4: TPanel
          Left = 13
          Top = 254
          Width = 750
          Height = 53
          TabOrder = 1
          object Panel9: TPanel
            Left = 3
            Top = 2
            Width = 89
            Height = 26
            TabOrder = 0
          end
          object Panel8: TPanel
            Left = 3
            Top = 28
            Width = 89
            Height = 22
            Caption = #21512#35745
            TabOrder = 1
          end
          object Panel5: TPanel
            Left = 92
            Top = 2
            Width = 164
            Height = 26
            Caption = #22870#21169
            TabOrder = 2
          end
          object Edit1: TEdit
            Left = 92
            Top = 29
            Width = 164
            Height = 21
            Color = clInfoBk
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 3
          end
          object Panel6: TPanel
            Left = 256
            Top = 2
            Width = 164
            Height = 26
            Caption = #24212#25187
            TabOrder = 4
          end
          object Edit2: TEdit
            Left = 256
            Top = 29
            Width = 164
            Height = 21
            Color = clInfoBk
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 5
          end
          object Panel7: TPanel
            Left = 420
            Top = 2
            Width = 164
            Height = 26
            Caption = #23454#21457
            TabOrder = 6
          end
          object Edit3: TEdit
            Left = 420
            Top = 29
            Width = 164
            Height = 21
            Color = clInfoBk
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 7
          end
          object Panel10: TPanel
            Left = 584
            Top = 2
            Width = 164
            Height = 26
            Caption = #22870#37329
            TabOrder = 8
          end
          object Edit4: TEdit
            Left = 584
            Top = 29
            Width = 164
            Height = 21
            Color = clInfoBk
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 9
          end
        end
      end
    end
  end
  object qbnsdeliver1: TQuery
    CachedUpdates = True
    AfterOpen = qbnsdeliver1AfterOpen
    OnCalcFields = qbnsdeliver1CalcFields
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    SQL.Strings = (
      'select '
      'a.'#24037#21495',a.'#22870#37329#26435#37325',a.'#22870#21169',a.'#24212#25187',a.'#24180',a.'#26376',c.'#22870#37329#24635#39069','
      'b.'#22995#21517',b.'#23703#20301
      'from pub_z_bonusratio1 a,pub_z_stuff b,pub_z_ybnsdeliverall1 c'
      'where a.'#24037#21495'=b.'#24037#21495
      'and a.'#24180'=c.'#24180
      'and a.'#26376'=c.'#26376)
    Left = 717
    Top = 255
    object qbnsdeliver1BDEDesigner: TStringField
      FieldName = #24037#21495
      Origin = 'ZXJX_JXW.pub_z_bonusratio1.'#24037#21495
      FixedChar = True
    end
    object qbnsdeliver1BDEDesigner2: TFloatField
      FieldName = #22870#37329#26435#37325
      Origin = 'ZXJX_JXW.pub_z_bonusratio1.'#22870#37329#26435#37325
    end
    object qbnsdeliver1BDEDesigner3: TFloatField
      FieldName = #22870#21169
      Origin = 'ZXJX_JXW.pub_z_bonusratio1.'#22870#21169
    end
    object qbnsdeliver1BDEDesigner4: TFloatField
      FieldName = #24212#25187
      Origin = 'ZXJX_JXW.pub_z_bonusratio1.'#24212#25187
    end
    object qbnsdeliver1BDEDesigner5: TStringField
      FieldName = #24180
      Origin = 'ZXJX_JXW.pub_z_bonusratio1.'#24180
      FixedChar = True
      Size = 8
    end
    object qbnsdeliver1BDEDesigner6: TStringField
      FieldName = #26376
      Origin = 'ZXJX_JXW.pub_z_bonusratio1.'#26376
      FixedChar = True
      Size = 4
    end
    object qbnsdeliver1BDEDesigner7: TStringField
      FieldName = #22995#21517
      Origin = 'ZXJX_JXW.pub_z_stuff.'#22995#21517
      FixedChar = True
    end
    object qbnsdeliver1BDEDesigner8: TStringField
      FieldName = #23703#20301
      Origin = 'ZXJX_JXW.pub_z_stuff.'#23703#20301
      FixedChar = True
    end
    object qbnsdeliver1Field: TFloatField
      FieldKind = fkCalculated
      FieldName = #22870#37329
      Calculated = True
    end
    object qbnsdeliver1Field2: TFloatField
      FieldKind = fkCalculated
      FieldName = #23454#21457
      Calculated = True
    end
    object qbnsdeliver1BDEDesigner13: TCurrencyField
      FieldName = #22870#37329#24635#39069
      Origin = 'ZXJX_JXW.pub_z_ybnsdeliverall1.'#22870#37329#24635#39069
    end
    object qbnsdeliver1Field3: TFloatField
      FieldKind = fkCalculated
      FieldName = #32771#26680#24471#20998#27604#29575
      Calculated = True
    end
  end
  object dsbnsdeliver1: TDataSource
    DataSet = qbnsdeliver1
    Left = 713
    Top = 208
  end
  object Queryuse: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    Left = 708
    Top = 150
  end
  object qall: TQuery
    CachedUpdates = True
    AfterScroll = qallAfterScroll
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    SQL.Strings = (
      'select * from pub_z_ybnsdeliverall1')
    UpdateObject = upall
    Left = 466
    Top = 65533
  end
  object dsall: TDataSource
    DataSet = qall
    Left = 424
    Top = 65533
  end
  object qcheckmark: TQuery
    CachedUpdates = True
    OnCalcFields = qcheckmarkCalcFields
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    RequestLive = True
    SQL.Strings = (
      'select a.*,b.'#22995#21517' '
      'from pub_z_checkmark a,pub_z_stuff b'
      'where '
      'a.'#24180'=:year and a.'#26376'=:month and a.'#21150#20107#22788#21517#31216'=:office'
      'and a.'#24037#21495'=b.'#24037#21495)
    UpdateObject = updatecheckmark
    Left = 457
    Top = 222
    ParamData = <
      item
        DataType = ftString
        Name = 'year'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'month'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'office'
        ParamType = ptUnknown
      end>
    object qcheckmarkBDEDesigner: TAutoIncField
      FieldName = #24207#21495
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#24207#21495
    end
    object qcheckmarkBDEDesigner2: TStringField
      FieldName = #24037#21495
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#24037#21495
      ReadOnly = True
      FixedChar = True
    end
    object qcheckmarkBDEDesigner3: TSmallintField
      FieldName = #35745#21010#21644#20219#21153#23436#25104#24773#20917
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#35745#21010#21644#20219#21153#23436#25104#24773#20917
    end
    object qcheckmarkBDEDesigner4: TSmallintField
      FieldName = #24037#20316#36136#37327#29366#20917
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#24037#20316#36136#37327#29366#20917
    end
    object qcheckmarkBDEDesigner5: TSmallintField
      FieldName = #24037#20316#36131#20219#24515#21644#20027#21160#24515#24773#20917
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#24037#20316#36131#20219#24515#21644#20027#21160#24515#24773#20917
    end
    object qcheckmarkBDEDesigner6: TSmallintField
      FieldName = #24037#20316#37197#21512#21450#22242#38431#31934#31070
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#24037#20316#37197#21512#21450#22242#38431#31934#31070
    end
    object qcheckmarkBDEDesigner7: TSmallintField
      FieldName = #36981#31456#23432#32426#24773#20917
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#36981#31456#23432#32426#24773#20917
    end
    object qcheckmarkBDEDesigner8: TSmallintField
      FieldName = #20202#34920#39118#35980#21355#29983
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#20202#34920#12289#39118#35980#12289#21355#29983
    end
    object qcheckmarkBDEDesigner9: TSmallintField
      FieldName = #20986#21220#24773#20917
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#20986#21220#24773#20917
    end
    object qcheckmarkBDEDesigner10: TSmallintField
      FieldName = #26381#21153#24577#24230
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#26381#21153#24577#24230
    end
    object qcheckmarkBDEDesigner11: TSmallintField
      FieldName = #26381#21153#21450#26102#24615
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#26381#21153#21450#26102#24615
    end
    object qcheckmarkBDEDesigner12: TSmallintField
      FieldName = #26381#21153#21040#20301#29575
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#26381#21153#21040#20301#29575
    end
    object qcheckmarkBDEDesigner13: TSmallintField
      FieldName = #25351#23548#24037#20316#19982#26381#21153#30340#20851#31995#22788#29702
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#25351#23548#24037#20316#19982#26381#21153#30340#20851#31995#22788#29702
    end
    object qcheckmarkBDEDesigner14: TStringField
      FieldName = #24180
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#24180
      ReadOnly = True
      FixedChar = True
      Size = 4
    end
    object qcheckmarkBDEDesigner15: TStringField
      FieldName = #26376
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#26376
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
    object qcheckmarkBDEDesigner16: TStringField
      FieldName = #22995#21517
      Origin = 'ZXJX_JXW.pub_z_stuff.'#22995#21517
      ReadOnly = True
      FixedChar = True
    end
    object qcheckmarkField1: TIntegerField
      FieldKind = fkCalculated
      FieldName = #20849#20943#20998'1'
      Calculated = True
    end
    object qcheckmarkField2: TIntegerField
      FieldKind = fkCalculated
      FieldName = #20849#20943#20998'2'
      Calculated = True
    end
    object qcheckmarkField12: TFloatField
      FieldKind = fkCalculated
      FieldName = #24471#20998'%1'
      DisplayFormat = '#.###'
      Calculated = True
    end
    object qcheckmarkField22: TFloatField
      FieldKind = fkCalculated
      FieldName = #24471#20998'%2'
      DisplayFormat = '#.###'
      Calculated = True
    end
    object qcheckmarkBDEDesigner18: TStringField
      FieldName = #21150#20107#22788#21517#31216
      Origin = 'ZXJX_JXW.pub_z_checkmark.'#21150#20107#22788#21517#31216
      FixedChar = True
      Size = 40
    end
  end
  object dscheckmark: TDataSource
    DataSet = qcheckmark
    Left = 382
    Top = 223
  end
  object quse2: TQuery
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    Left = 618
    Top = 220
  end
  object quse1: TQuery
    DatabaseName = 'zxjx_jxw'
    Left = 580
    Top = 219
  end
  object updatecheckmark: TUpdateSQL
    ModifySQL.Strings = (
      'update pub_z_checkmark'
      'set'
      '  '#24037#21495' = :'#24037#21495','
      '  '#35745#21010#21644#20219#21153#23436#25104#24773#20917' = :'#35745#21010#21644#20219#21153#23436#25104#24773#20917','
      '  '#24037#20316#36136#37327#29366#20917' = :'#24037#20316#36136#37327#29366#20917','
      '  '#24037#20316#36131#20219#24515#21644#20027#21160#24515#24773#20917' = :'#24037#20316#36131#20219#24515#21644#20027#21160#24515#24773#20917','
      '  '#24037#20316#37197#21512#21450#22242#38431#31934#31070' = :'#24037#20316#37197#21512#21450#22242#38431#31934#31070','
      '  '#36981#31456#23432#32426#24773#20917' = :'#36981#31456#23432#32426#24773#20917','
      '  '#20202#34920#39118#35980#21355#29983' = :'#20202#34920#39118#35980#21355#29983','
      '  '#20986#21220#24773#20917' = :'#20986#21220#24773#20917','
      '  '#26381#21153#24577#24230' = :'#26381#21153#24577#24230','
      '  '#26381#21153#21450#26102#24615' = :'#26381#21153#21450#26102#24615','
      '  '#26381#21153#21040#20301#29575' = :'#26381#21153#21040#20301#29575','
      '  '#25351#23548#24037#20316#19982#26381#21153#30340#20851#31995#22788#29702' = :'#25351#23548#24037#20316#19982#26381#21153#30340#20851#31995#22788#29702','
      '  '#24180' = :'#24180','
      '  '#26376' = :'#26376','
      '  '#21150#20107#22788#21517#31216' = :'#21150#20107#22788#21517#31216
      'where'
      '  '#24037#21495' = :OLD_'#24037#21495' and'
      '  '#24180' = :OLD_'#24180' and'
      '  '#26376' = :OLD_'#26376' and'
      '  '#21150#20107#22788#21517#31216' = :OLD_'#21150#20107#22788#21517#31216)
    InsertSQL.Strings = (
      'insert into pub_z_checkmark'
      '  ('#24037#21495', '#35745#21010#21644#20219#21153#23436#25104#24773#20917', '#24037#20316#36136#37327#29366#20917', '#24037#20316#36131#20219#24515#21644#20027#21160#24515#24773#20917', '#24037#20316#37197#21512#21450#22242#38431#31934#31070', '
      '   '#36981#31456#23432#32426#24773#20917', '#20202#34920#39118#35980#21355#29983', '#20986#21220#24773#20917', '#26381#21153#24577#24230', '#26381#21153#21450#26102#24615', '#26381#21153#21040#20301#29575', '
      '   '#25351#23548#24037#20316#19982#26381#21153#30340#20851#31995#22788#29702', '#24180', '#26376', '#21150#20107#22788#21517#31216')'
      'values'
      '  (:'#24037#21495', :'#35745#21010#21644#20219#21153#23436#25104#24773#20917', :'#24037#20316#36136#37327#29366#20917', :'#24037#20316#36131#20219#24515#21644#20027#21160#24515#24773#20917', '
      '   :'#24037#20316#37197#21512#21450#22242#38431#31934#31070', :'#36981#31456#23432#32426#24773#20917', :'#20202#34920#39118#35980#21355#29983', :'#20986#21220#24773#20917', :'#26381#21153#24577#24230', '
      '   :'#26381#21153#21450#26102#24615', :'#26381#21153#21040#20301#29575', :'#25351#23548#24037#20316#19982#26381#21153#30340#20851#31995#22788#29702', :'#24180', :'#26376', :'#21150#20107#22788#21517#31216')')
    DeleteSQL.Strings = (
      'delete from pub_z_checkmark'
      'where'
      '  '#24037#21495' = :OLD_'#24037#21495' and'
      '  '#24180' = :OLD_'#24180' and'
      '  '#26376' = :OLD_'#26376' and'
      '  '#21150#20107#22788#21517#31216' = :OLD_'#21150#20107#22788#21517#31216)
    Left = 530
    Top = 220
  end
  object upall: TUpdateSQL
    ModifySQL.Strings = (
      'update pub_z_ybnsdeliverall1'
      'set'
      '  '#22870#37329#24635#39069' = :'#22870#37329#24635#39069','
      '  '#24180' = :'#24180','
      '  '#26376' = :'#26376','
      '  '#20027#31649' = :'#20027#31649','
      '  '#23457#26680' = :'#23457#26680','
      '  '#24405#20837' = :'#24405#20837','
      '  '#24405#20837#26085#26399' = :'#24405#20837#26085#26399
      'where'
      '  '#24180' = :OLD_'#24180' and'
      '  '#26376' = :OLD_'#26376)
    InsertSQL.Strings = (
      'insert into pub_z_ybnsdeliverall1'
      '  ('#22870#37329#24635#39069', '#24180', '#26376', '#20027#31649', '#23457#26680', '#24405#20837', '#24405#20837#26085#26399')'
      'values'
      '  (:'#22870#37329#24635#39069', :'#24180', :'#26376', :'#20027#31649', :'#23457#26680', :'#24405#20837', :'#24405#20837#26085#26399')')
    DeleteSQL.Strings = (
      'delete from pub_z_ybnsdeliverall1'
      'where'
      '  '#24180' = :OLD_'#24180' and'
      '  '#26376' = :OLD_'#26376)
    Left = 516
    Top = 65534
  end
  object quse: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Constrained = True
    RequestLive = True
    Left = 598
    Top = 7
  end
  object qforcount: TQuery
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    SQL.Strings = (
      'select count(*) count11 '
      'from pub_z_checkmark '
      'where '#24037#21495'=:gh and '#24180'=:year and '#26376'=:month')
    Left = 672
    Top = 65533
    ParamData = <
      item
        DataType = ftString
        Name = 'gh'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'year'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'month'
        ParamType = ptUnknown
      end>
  end
end
上一页 1 23
⌨️ 快捷键说明

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