mainpay.dfm

大型分布式销售管理系统,DELPHI编写,商业源代码,现在已经商用,下载者严禁出售该代码,只可以自己学习,包含数据库文件

          Height = 21
          Color = clInfoBk
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ItemHeight = 13
          ParentFont = False
          TabOrder = 0
        end
      end
      object GroupBox3: TGroupBox
        Left = 28
        Top = 4
        Width = 185
        Height = 59
        Caption = #25353#21150#20107#22788
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object cbbsc: TComboBox
          Left = 15
          Top = 25
          Width = 154
          Height = 21
          Color = clInfoBk
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ItemHeight = 13
          ParentFont = False
          TabOrder = 0
        end
      end
      object GroupBox4: TGroupBox
        Left = 1
        Top = 109
        Width = 757
        Height = 256
        Caption = #25968#25454#26597#30475#31383#21475
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object DBGrid1: TDBGrid
          Left = 7
          Top = 17
          Width = 746
          Height = 231
          Color = clInfoBk
          DataSource = dsmainvw
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clBlack
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = #21512#21516#21495
              Width = 65
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25152#23646#21150#20107#22788
              Width = 81
              Visible = True
            end
            item
              Expanded = False
              FieldName = #19994#21153#21592
              Width = 75
              Visible = True
            end
            item
              Expanded = False
              FieldName = #26426#22411
              Width = 68
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21488#25968
              Visible = True
            end
            item
              Expanded = False
              FieldName = #21333#20215
              Visible = True
            end
            item
              Expanded = False
              FieldName = #20215#27454
              Visible = True
            end
            item
              Expanded = False
              FieldName = #29305#21035#24037#31243#20215#27454
              Visible = True
            end
            item
              Expanded = False
              FieldName = #36816#36755#21450#20445#38505#36153
              Visible = True
            end
            item
              Expanded = False
              FieldName = #38468#21152#35013#32622#36153
              Visible = True
            end
            item
              Expanded = False
              FieldName = #20171#32461#36153
              Visible = True
            end
            item
              Expanded = False
              FieldName = #20854#20182
              Visible = True
            end
            item
              Expanded = False
              FieldName = #20027#31649
              Visible = True
            end
            item
              Expanded = False
              FieldName = #23457#26680
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24405#20837
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24405#20837#26085#26399
              Visible = True
            end>
        end
      end
      object GroupBox5: TGroupBox
        Left = 557
        Top = 4
        Width = 185
        Height = 59
        Caption = #25353#19994#21153#21592
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        object cbywy: TComboBox
          Left = 15
          Top = 24
          Width = 152
          Height = 21
          Color = clInfoBk
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ItemHeight = 13
          ParentFont = False
          TabOrder = 0
        end
      end
      object Panel2: TPanel
        Left = 25
        Top = 64
        Width = 731
        Height = 42
        TabOrder = 4
        object btn_brs: TButton
          Left = 215
          Top = 6
          Width = 74
          Height = 29
          Caption = #20840#35272
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = btn_brsClick
        end
        object btn_qry: TButton
          Left = 288
          Top = 6
          Width = 74
          Height = 29
          Caption = #26597#35810
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = btn_qryClick
        end
        object btn_clr: TButton
          Left = 361
          Top = 6
          Width = 74
          Height = 29
          Caption = #28165#31354
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = btn_clrClick
        end
        object btn_prt: TButton
          Left = 434
          Top = 6
          Width = 74
          Height = 29
          Caption = #25171#21360#32467#26524
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = btn_prtClick
        end
      end
    end
  end
  object dsmainvw: TDataSource
    DataSet = qmainvw
    Left = 674
    Top = 178
  end
  object qmainvw: TQuery
    CachedUpdates = True
    AfterOpen = qmainvwAfterOpen
    OnCalcFields = qmainvwCalcFields
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    SQL.Strings = (
      'select * from view_mainpay')
    Left = 615
    Top = 178
    object qmainvwBDEDesigner: TStringField
      FieldName = #21512#21516#21495
      Origin = 'ZXJX_JXW.view_mainpay.'#21512#21516#21495
      FixedChar = True
    end
    object qmainvwBDEDesigner2: TStringField
      FieldName = #25152#23646#21150#20107#22788
      Origin = 'ZXJX_JXW.view_mainpay.'#25152#23646#21150#20107#22788
      FixedChar = True
      Size = 40
    end
    object qmainvwBDEDesigner3: TStringField
      FieldName = #19994#21153#21592
      Origin = 'ZXJX_JXW.view_mainpay.'#19994#21153#21592
      FixedChar = True
    end
    object qmainvwBDEDesigner4: TStringField
      FieldName = #26426#22411
      Origin = 'ZXJX_JXW.view_mainpay.'#26426#22411
      FixedChar = True
    end
    object qmainvwBDEDesigner5: TIntegerField
      FieldName = #21488#25968
      Origin = 'ZXJX_JXW.view_mainpay.'#21488#25968
    end
    object qmainvwBDEDesigner6: TCurrencyField
      FieldName = #21333#20215
      Origin = 'ZXJX_JXW.view_mainpay.'#21333#20215
    end
    object qmainvwBDEDesigner7: TCurrencyField
      FieldName = #20215#27454
      Origin = 'ZXJX_JXW.view_mainpay.'#20215#27454
    end
    object qmainvwField: TFloatField
      FieldKind = fkCalculated
      FieldName = #29305#21035#24037#31243#20215#27454
      Calculated = True
    end
    object qmainvwBDEDesigner8: TCurrencyField
      FieldName = #36816#36755#21450#20445#38505#36153
      Origin = 'ZXJX_JXW.view_mainpay.'#36816#36755#21450#20445#38505#36153
    end
    object qmainvwBDEDesigner9: TCurrencyField
      FieldName = #38468#21152#35013#32622#36153
      Origin = 'ZXJX_JXW.view_mainpay.'#38468#21152#35013#32622#36153
    end
    object qmainvwBDEDesigner10: TCurrencyField
      FieldName = #20171#32461#36153
      Origin = 'ZXJX_JXW.view_mainpay.'#20171#32461#36153
    end
    object qmainvwBDEDesigner11: TCurrencyField
      FieldName = #20854#20182
      Origin = 'ZXJX_JXW.view_mainpay.'#20854#20182
    end
    object qmainvwBDEDesigner12: TStringField
      FieldName = #20027#31649
      Origin = 'ZXJX_JXW.view_mainpay.'#20027#31649
      FixedChar = True
    end
    object qmainvwBDEDesigner13: TStringField
      FieldName = #23457#26680
      Origin = 'ZXJX_JXW.view_mainpay.'#23457#26680
      FixedChar = True
    end
    object qmainvwBDEDesigner14: TStringField
      FieldName = #24405#20837
      Origin = 'ZXJX_JXW.view_mainpay.'#24405#20837
      FixedChar = True
    end
    object qmainvwBDEDesigner15: TDateTimeField
      FieldName = #24405#20837#26085#26399
      Origin = 'ZXJX_JXW.view_mainpay.'#24405#20837#26085#26399
    end
  end
  object Queryuse: TQuery
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    Left = 666
    Top = 8
  end
  object dsmaintb: TDataSource
    DataSet = tbmaintb
    Left = 87
    Top = 206
  end
  object tbmaintb: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    SQL.Strings = (
      'select * from pub_z_mainpay')
    UpdateObject = uptbmaintb
    Left = 200
    Top = 208
    object tbmaintbBDEDesigner2: TStringField
      FieldName = #21512#21516#32534#21495
      Origin = 'ZXJX_JXW.pub_z_mainpay.'#21512#21516#32534#21495
    end
    object tbmaintbBDEDesigner3: TFloatField
      FieldName = #38468#21152#35013#32622#36153
      Origin = 'ZXJX_JXW.pub_z_mainpay.'#38468#21152#35013#32622#36153
    end
    object tbmaintbBDEDesigner4: TFloatField
      FieldName = #20171#32461#36153
      Origin = 'ZXJX_JXW.pub_z_mainpay.'#20171#32461#36153
    end
    object tbmaintbBDEDesigner5: TFloatField
      FieldName = #20854#20182
      Origin = 'ZXJX_JXW.pub_z_mainpay.'#20854#20182
    end
    object tbmaintbBDEDesigner6: TStringField
      FieldName = #20027#31649
      Origin = 'ZXJX_JXW.pub_z_mainpay.'#20027#31649
    end
    object tbmaintbBDEDesigner7: TStringField
      FieldName = #23457#26680
      Origin = 'ZXJX_JXW.pub_z_mainpay.'#23457#26680
    end
    object tbmaintbBDEDesigner8: TStringField
      FieldName = #24405#20837
      Origin = 'ZXJX_JXW.pub_z_mainpay.'#24405#20837
    end
    object tbmaintbBDEDesigner9: TDateTimeField
      FieldName = #24405#20837#26085#26399
      Origin = 'ZXJX_JXW.pub_z_mainpay.'#24405#20837#26085#26399
    end
  end
  object uptbmaintb: TUpdateSQL
    ModifySQL.Strings = (
      'update pub_z_mainpay'
      'set'
      '  '#21512#21516#32534#21495' = :'#21512#21516#32534#21495','
      '  '#38468#21152#35013#32622#36153' = :'#38468#21152#35013#32622#36153','
      '  '#20171#32461#36153' = :'#20171#32461#36153','
      '  '#20854#20182' = :'#20854#20182','
      '  '#20027#31649' = :'#20027#31649','
      '  '#23457#26680' = :'#23457#26680','
      '  '#24405#20837' = :'#24405#20837','
      '  '#24405#20837#26085#26399' = :'#24405#20837#26085#26399
      'where'
      '  '#21512#21516#32534#21495' = :OLD_'#21512#21516#32534#21495' and'
      '  '#24405#20837#26085#26399' = :OLD_'#24405#20837#26085#26399)
    InsertSQL.Strings = (
      'insert into pub_z_mainpay'
      '  ('#21512#21516#32534#21495', '#38468#21152#35013#32622#36153', '#20171#32461#36153', '#20854#20182', '#20027#31649', '#23457#26680', '#24405#20837', '#24405#20837#26085#26399')'
      'values'
      '  (:'#21512#21516#32534#21495', :'#38468#21152#35013#32622#36153', :'#20171#32461#36153', :'#20854#20182', :'#20027#31649', :'#23457#26680', :'#24405#20837', :'#24405#20837#26085#26399')')
    DeleteSQL.Strings = (
      'delete from pub_z_mainpay'
      'where'
      '  '#21512#21516#32534#21495' = :OLD_'#21512#21516#32534#21495' and'
      '  '#24405#20837#26085#26399' = :OLD_'#24405#20837#26085#26399)
    Left = 240
    Top = 208
  end
end