complaint.dfm

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

          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 8
          OnClick = btn_deleteClick
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #23458#25143#25237#35785#35843#26597'_'#26597#30475'  '
      ImageIndex = 1
      OnEnter = TabSheet2Enter
      object Panel2: TPanel
        Left = 344
        Top = 9
        Width = 425
        Height = 42
        TabOrder = 0
        object btn_brs: TButton
          Left = 55
          Top = 7
          Width = 75
          Height = 28
          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 = 130
          Top = 7
          Width = 75
          Height = 28
          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 = 205
          Top = 7
          Width = 75
          Height = 28
          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 = 280
          Top = 7
          Width = 75
          Height = 28
          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
      object GroupBox2: TGroupBox
        Left = 0
        Top = 56
        Width = 773
        Height = 381
        Align = alBottom
        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 = 1
        object DBGrid1: TDBGrid
          Left = 2
          Top = 15
          Width = 769
          Height = 364
          Align = alClient
          Color = clInfoBk
          Ctl3D = False
          DataSource = dscomplaint
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clBlack
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = #23458#25143#21495
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25152#23646#21150#20107#22788
              Visible = True
            end
            item
              Expanded = False
              FieldName = #23458#25143#21517#31216
              Visible = True
            end
            item
              Expanded = False
              FieldName = #23458#25143#22320#22336
              Visible = True
            end
            item
              Expanded = False
              FieldName = #36127#36131#20154
              Visible = True
            end
            item
              Expanded = False
              FieldName = #30005#35805#21495#30721
              Visible = True
            end
            item
              Expanded = False
              FieldName = #31614#21457#26102#38388
              Visible = True
            end
            item
              Expanded = False
              FieldName = #35760#24405#20154
              Visible = True
            end
            item
              Expanded = False
              FieldName = #25237#35785#26102#38388
              Visible = True
            end
            item
              Expanded = False
              FieldName = #26159#21542#35843#26597
              Visible = True
            end
            item
              Expanded = False
              FieldName = #35843#26597#26102#38388
              Visible = True
            end
            item
              Expanded = False
              FieldName = #35843#26597#20154
              Visible = True
            end
            item
              Expanded = False
              FieldName = #24847#35265#31614#21457#20154
              Visible = True
            end
            item
              Expanded = False
              FieldName = #22788#29702#20154
              Visible = True
            end
            item
              Expanded = False
              FieldName = #22788#29702#26102#38388
              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 GroupBox4: TGroupBox
        Left = 179
        Top = 3
        Width = 161
        Height = 50
        Caption = #25353#23458#25143#21517#31216
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object cbcstmname: TComboBox
          Left = 7
          Top = 21
          Width = 145
          Height = 21
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ItemHeight = 13
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
        end
      end
      object GroupBox3: TGroupBox
        Left = 3
        Top = 3
        Width = 161
        Height = 50
        Caption = #25353#21150#20107#22788#21517#31216
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        object cbbsc: TComboBox
          Left = 9
          Top = 22
          Width = 145
          Height = 21
          Color = clInfoBk
          Ctl3D = False
          ItemHeight = 13
          ParentCtl3D = False
          TabOrder = 0
        end
      end
    end
  end
  object qcomplaint: TQuery
    CachedUpdates = True
    AfterScroll = qcomplaintAfterScroll
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    RequestLive = True
    SQL.Strings = (
      
        'select pub_z_complaint.*,pub_z_client.'#23458#25143#22320#22336',pub_z_client.'#36127#36131#20154',pub_' +
        'z_client.'#30005#35805#21495#30721',pub_z_client.'#21150#20107#22788' '#25152#23646#21150#20107#22788
      'from pub_z_complaint,pub_z_client'
      'where'
      'pub_z_complaint.'#23458#25143#21495'=pub_z_client.'#23458#25143#21495)
    UpdateObject = Udcomplaint
    Left = 588
    Top = 2
    object qcomplaintBDEDesigner: TAutoIncField
      FieldName = #24207#21495
      Origin = 'ZXJX_JXW.pub_z_complaint.'#24207#21495
    end
    object qcomplaintBDEDesigner2: TStringField
      FieldName = #23458#25143#21495
      Origin = 'ZXJX_JXW.pub_z_complaint.'#23458#25143#21495
      FixedChar = True
    end
    object qcomplaintBDEDesigner3: TDateTimeField
      FieldName = #31614#21457#26102#38388
      Origin = 'ZXJX_JXW.pub_z_complaint.'#31614#21457#26102#38388
      EditMask = '!0000/99/99;1;_'
    end
    object qcomplaintBDEDesigner4: TMemoField
      FieldName = #25237#35785#38382#39064
      Origin = 'ZXJX_JXW.pub_z_complaint.'#25237#35785#38382#39064
      BlobType = ftMemo
    end
    object qcomplaintBDEDesigner5: TStringField
      FieldName = #35760#24405#20154
      Origin = 'ZXJX_JXW.pub_z_complaint.'#35760#24405#20154
      FixedChar = True
    end
    object qcomplaintBDEDesigner6: TDateTimeField
      FieldName = #25237#35785#26102#38388
      Origin = 'ZXJX_JXW.pub_z_complaint.'#25237#35785#26102#38388
      EditMask = '!0000/99/99;1;_'
    end
    object qcomplaintBDEDesigner8: TDateTimeField
      FieldName = #35843#26597#26102#38388
      Origin = 'ZXJX_JXW.pub_z_complaint.'#35843#26597#26102#38388
      EditMask = '!0000/99/99;1;_'
    end
    object qcomplaintBDEDesigner9: TMemoField
      FieldName = #35843#26597#24773#20917
      Origin = 'ZXJX_JXW.pub_z_complaint.'#35843#26597#24773#20917
      BlobType = ftMemo
    end
    object qcomplaintBDEDesigner10: TStringField
      FieldName = #35843#26597#20154
      Origin = 'ZXJX_JXW.pub_z_complaint.'#35843#26597#20154
      FixedChar = True
    end
    object qcomplaintBDEDesigner11: TMemoField
      FieldName = #22788#29702#24847#35265
      Origin = 'ZXJX_JXW.pub_z_complaint.'#22788#29702#24847#35265
      BlobType = ftMemo
    end
    object qcomplaintBDEDesigner12: TStringField
      FieldName = #24847#35265#31614#21457#20154
      Origin = 'ZXJX_JXW.pub_z_complaint.'#24847#35265#31614#21457#20154
      FixedChar = True
    end
    object qcomplaintBDEDesigner13: TMemoField
      FieldName = #22788#29702#32467#26524
      Origin = 'ZXJX_JXW.pub_z_complaint.'#22788#29702#32467#26524
      BlobType = ftMemo
    end
    object qcomplaintBDEDesigner14: TStringField
      FieldName = #22788#29702#20154
      Origin = 'ZXJX_JXW.pub_z_complaint.'#22788#29702#20154
      FixedChar = True
    end
    object qcomplaintBDEDesigner15: TDateTimeField
      FieldName = #22788#29702#26102#38388
      Origin = 'ZXJX_JXW.pub_z_complaint.'#22788#29702#26102#38388
      EditMask = '!0000/99/99;1;_'
    end
    object qcomplaintBDEDesigner16: TStringField
      FieldName = #20027#31649
      Origin = 'ZXJX_JXW.pub_z_complaint.'#20027#31649
      FixedChar = True
    end
    object qcomplaintBDEDesigner17: TStringField
      FieldName = #23457#26680
      Origin = 'ZXJX_JXW.pub_z_complaint.'#23457#26680
      FixedChar = True
    end
    object qcomplaintBDEDesigner18: TStringField
      FieldName = #24405#20837
      Origin = 'ZXJX_JXW.pub_z_complaint.'#24405#20837
      FixedChar = True
    end
    object qcomplaintBDEDesigner19: TDateTimeField
      FieldName = #24405#20837#26085#26399
      Origin = 'ZXJX_JXW.pub_z_complaint.'#24405#20837#26085#26399
    end
    object qcomplaintBDEDesigner20: TStringField
      FieldName = #23458#25143#21517#31216
      Origin = 'ZXJX_JXW.pub_z_client.'#23458#25143#21517#31216
      FixedChar = True
      Size = 40
    end
    object qcomplaintBDEDesigner21: TStringField
      FieldName = #23458#25143#22320#22336
      Origin = 'ZXJX_JXW.pub_z_client.'#23458#25143#22320#22336
      FixedChar = True
      Size = 100
    end
    object qcomplaintBDEDesigner22: TStringField
      FieldName = #36127#36131#20154
      Origin = 'ZXJX_JXW.pub_z_client.'#36127#36131#20154
      FixedChar = True
    end
    object qcomplaintBDEDesigner23: TStringField
      FieldName = #30005#35805#21495#30721
      Origin = 'ZXJX_JXW.pub_z_client.'#30005#35805#21495#30721
      FixedChar = True
    end
    object qcomplaintBDEDesigner7: TStringField
      FieldName = #26159#21542#35843#26597
      Origin = 'ZXJX_JXW.pub_z_complaint.'#26159#21542#35843#26597
      FixedChar = True
      Size = 8
    end
    object qcomplaintBDEDesigner24: TDateTimeField
      FieldName = #19978#25253#26102#38388
      Origin = 'ZXJX_JXW.pub_z_complaint.'#19978#25253#26102#38388
    end
    object qcomplaintBDEDesigner26: TStringField
      FieldName = #21150#20107#22788
      Origin = 'ZXJX_JXW.pub_z_complaint.'#21150#20107#22788
      FixedChar = True
    end
    object qcomplaintBDEDesigner27: TStringField
      FieldName = #25152#23646#21150#20107#22788
      Origin = 'ZXJX_JXW.pub_z_client.'#21150#20107#22788
      FixedChar = True
    end
  end
  object dscomplaint: TDataSource
    DataSet = qcomplaint
    Left = 544
    Top = 2
  end
  object Udcomplaint: TUpdateSQL
    ModifySQL.Strings = (
      'update pub_z_complaint'
      'set'
      '  '#23458#25143#21517#31216' = :'#23458#25143#21517#31216','
      '  '#23458#25143#21495' = :'#23458#25143#21495','
      '  '#31614#21457#26102#38388' = :'#31614#21457#26102#38388','
      '  '#25237#35785#38382#39064' = :'#25237#35785#38382#39064','
      '  '#35760#24405#20154' = :'#35760#24405#20154','
      '  '#25237#35785#26102#38388' = :'#25237#35785#26102#38388','
      '  '#26159#21542#35843#26597' = :'#26159#21542#35843#26597','
      '  '#35843#26597#26102#38388' = :'#35843#26597#26102#38388','
      '  '#35843#26597#24773#20917' = :'#35843#26597#24773#20917','
      '  '#35843#26597#20154' = :'#35843#26597#20154','
      '  '#22788#29702#24847#35265' = :'#22788#29702#24847#35265','
      '  '#24847#35265#31614#21457#20154' = :'#24847#35265#31614#21457#20154','
      '  '#22788#29702#32467#26524' = :'#22788#29702#32467#26524','
      '  '#22788#29702#20154' = :'#22788#29702#20154','
      '  '#22788#29702#26102#38388' = :'#22788#29702#26102#38388','
      '  '#20027#31649' = :'#20027#31649','
      '  '#23457#26680' = :'#23457#26680','
      '  '#24405#20837' = :'#24405#20837','
      '  '#24405#20837#26085#26399' = :'#24405#20837#26085#26399','
      '  '#21150#20107#22788' = :'#21150#20107#22788
      'where'
      '  '#23458#25143#21495' = :OLD_'#23458#25143#21495' and'
      '  '#24405#20837#26085#26399' = :OLD_'#24405#20837#26085#26399)
    InsertSQL.Strings = (
      'insert into pub_z_complaint'
      '  ('#23458#25143#21517#31216', '#23458#25143#21495', '#31614#21457#26102#38388', '#25237#35785#38382#39064', '#35760#24405#20154', '#25237#35785#26102#38388', '#26159#21542#35843#26597', '#35843#26597#26102#38388', '
      '   '#35843#26597#24773#20917', '#35843#26597#20154', '#22788#29702#24847#35265', '#24847#35265#31614#21457#20154', '#22788#29702#32467#26524', '#22788#29702#20154', '#22788#29702#26102#38388', '
      '   '#20027#31649', '#23457#26680', '#24405#20837', '#24405#20837#26085#26399', '#21150#20107#22788')'
      'values'
      '  (:'#23458#25143#21517#31216', :'#23458#25143#21495', :'#31614#21457#26102#38388', :'#25237#35785#38382#39064', :'#35760#24405#20154', :'#25237#35785#26102#38388', :'#26159#21542#35843#26597', '
      '   :'#35843#26597#26102#38388', :'#35843#26597#24773#20917', :'#35843#26597#20154', :'#22788#29702#24847#35265', :'#24847#35265#31614#21457#20154', :'#22788#29702#32467#26524', :'#22788#29702#20154', '
      '   :'#22788#29702#26102#38388', :'#20027#31649', :'#23457#26680', :'#24405#20837', :'#24405#20837#26085#26399', :'#21150#20107#22788')')
    DeleteSQL.Strings = (
      'delete from pub_z_complaint'
      'where'
      '  '#23458#25143#21495' = :OLD_'#23458#25143#21495' and'
      '  '#24405#20837#26085#26399' = :OLD_'#24405#20837#26085#26399)
    Left = 622
    Top = 2
  end
  object Quse: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'zxjx_jxw'
    Left = 494
    Top = 3
  end
end