appealinfo.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

inherited frmAppealInfo: TfrmAppealInfo
  Left = 74
  Top = 109
  Width = 973
  Height = 583
  Caption = #23458#25143#25237#35785#20449#24687#24405#20837
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 0
    Top = 313
    Width = 965
    Height = 1
    Cursor = crVSplit
    Align = alTop
  end
  inherited DBGridEh1: TDBGridEh
    Width = 965
    Height = 275
    Align = alTop
    ColumnDefValues.DblClickNextVal = True
    ColumnDefValues.EndEllipsis = True
    EditActions = [geaCutEh, geaCopyEh, geaPasteEh, geaDeleteEh, geaSelectAllEh]
    FixedColor = clWindow
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    ParentFont = False
    SumList.Active = True
    SumList.VirtualRecords = True
    UseMultiTitle = True
    Columns = <
      item
        EditButtons = <>
        FieldName = 'ournal_No'
        Footers = <>
        Width = 93
      end
      item
        EditButtons = <>
        FieldName = 'product_line'
        Footers = <>
        PickList.Strings = (
          ''
          #21512#37329
          #20116#37329
          #30005#38208#20869#21152#24037)
        Width = 79
      end
      item
        EditButtons = <>
        FieldName = 'Appeal_Date'
        Footers = <>
        Width = 101
      end
      item
        EditButtons = <>
        FieldName = 'Plate_no'
        Footers = <>
        Visible = False
        Width = 58
      end
      item
        DropDownBox.ColumnDefValues.EndEllipsis = True
        DropDownBox.ColumnDefValues.Title.ToolTips = True
        DropDownBox.ColumnDefValues.ToolTips = True
        DropDownBox.Options = [dlgColumnResizeEh, dlgColLinesEh]
        DropDownBox.UseMultiTitle = True
        DropDownSpecRow.CellsText = '<Empty>;<Null>'
        DropDownSpecRow.Visible = True
        DropDownWidth = -1
        EditButtons = <>
        FieldName = 'splate_no'
        Footers = <>
        LookupDisplayFields = 'plate_no;plate_name'
        Title.Caption = #30005#38208#32534#21495
        ToolTips = True
        Width = 66
      end
      item
        EditButtons = <>
        FieldName = 'Plate'
        Footers = <>
        Width = 121
      end
      item
        EditButtons = <>
        FieldName = 'buyer'
        Footers = <>
        Width = 108
      end
      item
        EditButtons = <>
        FieldName = 'hth'
        Footers = <>
        Width = 101
      end
      item
        EditButtons = <>
        FieldName = 'xh'
        Footers = <>
        Width = 101
      end
      item
        EditButtons = <>
        FieldName = 'sizes'
        Footers = <>
        Width = 39
      end
      item
        EditButtons = <>
        FieldName = 'Liabler'
        Footers = <>
        Width = 67
      end
      item
        EditButtons = <>
        FieldName = 'Stresser'
        Footers = <>
        Width = 65
      end
      item
        EditButtons = <>
        FieldName = 'type'
        Footers = <>
        Width = 81
      end
      item
        EditButtons = <>
        FieldName = 'Liable_dept'
        Footers = <>
        Width = 75
      end
      item
        EditButtons = <>
        FieldName = 'remark'
        Footers = <>
        Width = 139
      end
      item
        EditButtons = <>
        FieldName = 'savedate'
        Footers = <>
        Width = 105
      end>
  end
  inherited ToolBar: TToolBar
    Width = 965
    object Button1: TButton
      Left = 528
      Top = 0
      Width = 81
      Height = 36
      Caption = #21333#39029#25171#21360
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 609
      Top = 0
      Width = 96
      Height = 36
      Caption = #20840#37096#25171#21360
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object Panel1: TPanel [3]
    Left = 0
    Top = 314
    Width = 965
    Height = 242
    Align = alClient
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 14
      Top = 4
      Width = 277
      Height = 253
      Caption = #20107#25925#22270#29255
      TabOrder = 0
      object cxDBImage1: TcxDBImage
        Left = 2
        Top = 15
        Width = 273
        Height = 236
        Align = alClient
        DataBinding.DataField = 'image'
        DataBinding.DataSource = dsBaseInfo
        Properties.GraphicClassName = 'TJPEGImage'
        Properties.Stretch = True
        Style.Color = clWhite
        TabOrder = 0
      end
    end
    object GroupBox2: TGroupBox
      Left = 296
      Top = 6
      Width = 329
      Height = 123
      Caption = #25237#35785#20869#23481
      TabOrder = 1
      object DBMemo1: TDBMemo
        Left = 2
        Top = 15
        Width = 325
        Height = 106
        Align = alClient
        Color = clWhite
        DataField = 'Appeal_text'
        DataSource = dsBaseInfo
        TabOrder = 0
      end
    end
    object GroupBox3: TGroupBox
      Left = 297
      Top = 128
      Width = 329
      Height = 129
      Caption = #35299#20915#25514#26045
      TabOrder = 2
      object DBMemo2: TDBMemo
        Left = 2
        Top = 15
        Width = 325
        Height = 112
        Align = alClient
        Color = clWhite
        DataField = 'Solve'
        DataSource = dsBaseInfo
        TabOrder = 0
      end
    end
    object GroupBox4: TGroupBox
      Left = 633
      Top = 8
      Width = 329
      Height = 121
      Caption = #26680#26597#32467#26524
      TabOrder = 3
      object DBMemo3: TDBMemo
        Left = 2
        Top = 15
        Width = 325
        Height = 104
        Align = alClient
        Color = clWhite
        DataField = 'checks'
        DataSource = dsBaseInfo
        TabOrder = 0
      end
    end
    object GroupBox5: TGroupBox
      Left = 633
      Top = 128
      Width = 329
      Height = 129
      Caption = #22788#29702#24847#35265
      TabOrder = 4
      object DBMemo4: TDBMemo
        Left = 2
        Top = 15
        Width = 325
        Height = 112
        Align = alClient
        Color = clWhite
        DataField = 'Manage'
        DataSource = dsBaseInfo
        TabOrder = 0
      end
    end
  end
  inherited ALToolbar: TActionList
    Left = 399
    Top = 208
  end
  inherited QBaseInfo: TADOQuery
    Active = True
    AfterScroll = QBaseInfoAfterScroll
    SQL.Strings = (
      'select * from  ccclientappeal where 1=0 ')
    Left = 311
    Top = 123
    object QBaseInfoid: TBCDField
      FieldName = 'id'
      ReadOnly = True
      Visible = False
      Precision = 18
      Size = 0
    end
    object QBaseInfoournal_No: TStringField
      DisplayLabel = #27969#27700#21495
      FieldName = 'ournal_No'
      Size = 30
    end
    object QBaseInfoAppeal_Date: TDateTimeField
      DisplayLabel = #25237#35785#26085#26399
      FieldName = 'Appeal_Date'
    end
    object QBaseInfobuyer: TStringField
      DisplayLabel = #21512#21516#21333#20301
      FieldName = 'buyer'
      Size = 30
    end
    object QBaseInfohth: TStringField
      DisplayLabel = #21512#21516#21495
      FieldName = 'hth'
      Size = 30
    end
    object QBaseInfosizes: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'sizes'
      Size = 30
    end
    object QBaseInfoxh: TStringField
      DisplayLabel = #22411#21495
      FieldName = 'xh'
      Size = 30
    end
    object QBaseInfoPlate: TStringField
      DisplayLabel = #30005#38208#39068#33394
      FieldName = 'Plate'
      Size = 30
    end
    object QBaseInfoPlate_no: TStringField
      DisplayLabel = #30005#38208#32534#21495
      FieldName = 'Plate_no'
      Size = 50
    end
    object QBaseInfoAppeal_text: TMemoField
      FieldName = 'Appeal_text'
      Visible = False
      BlobType = ftMemo
    end
    object QBaseInfochecks: TMemoField
      FieldName = 'checks'
      Visible = False
      BlobType = ftMemo
    end
    object QBaseInfoSolve: TMemoField
      FieldName = 'Solve'
      Visible = False
      BlobType = ftMemo
    end
    object QBaseInfoLiabler: TStringField
      DisplayLabel = #36131#20219#20154
      FieldName = 'Liabler'
      Size = 30
    end
    object QBaseInfoManage: TMemoField
      FieldName = 'Manage'
      Visible = False
      BlobType = ftMemo
    end
    object QBaseInfoStresser: TStringField
      DisplayLabel = #37325#28857#23458#25143
      FieldName = 'Stresser'
      Size = 30
    end
    object QBaseInfotype: TStringField
      DisplayLabel = #38382#39064#23646#24615
      FieldName = 'type'
      Size = 30
    end
    object QBaseInfoLiable_dept: TStringField
      DisplayLabel = #36131#20219#37096#38376
      FieldName = 'Liable_dept'
      Size = 30
    end
    object QBaseInforemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'remark'
      Size = 100
    end
    object QBaseInfoimage: TBlobField
      FieldName = 'image'
      Visible = False
    end
    object QBaseInfosavedate: TDateTimeField
      DisplayLabel = #20445#23384#26085#26399
      FieldName = 'savedate'
    end
    object QBaseInfotechnics: TStringField
      FieldName = 'technics'
      Visible = False
      Size = 30
    end
    object QBaseInfoproduct_line: TStringField
      DisplayLabel = #20135#21697#32447
      FieldName = 'product_line'
      Size = 30
    end
    object QBaseInfosplate_no: TStringField
      FieldKind = fkLookup
      FieldName = 'splate_no'
      LookupDataSet = Qplate
      LookupKeyFields = 'Plate_no;plate_name'
      LookupResultField = 'plate_no'
      KeyFields = 'Plate_no;plate'
      Size = 30
      Lookup = True
    end
    object QBaseInfosplate: TStringField
      FieldKind = fkLookup
      FieldName = 'splate'
      LookupDataSet = Qplate
      LookupKeyFields = 'Plate_no;plate_name'
      LookupResultField = 'plate_name'
      KeyFields = 'Plate_no;plate'
      Visible = False
      Size = 60
      Lookup = True
    end
  end
  inherited dsBaseInfo: TDataSource