query.dfm

车辆保险管理系统主要是针对车辆保险业务管理流程而开发的一套先进的计算机管理系统。车辆保险管理系统是专为车辆保险业务员开发的一套应用软件

object queryfrm: Tqueryfrm
  Left = -4
  Top = 0
  Align = alClient
  AutoScroll = False
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '查询与统计分析'
  ClientHeight = 553
  ClientWidth = 800
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clNavy
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 800
    Height = 553
    ActivePage = TabSheet3
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -29
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    Style = tsFlatButtons
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Tag = 1
      Caption = '保 单 查 询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      object Bevel1: TBevel
        Left = 0
        Top = 8
        Width = 641
        Height = 217
        Shape = bsFrame
      end
      object Label1: TLabel
        Left = 80
        Top = 40
        Width = 87
        Height = 19
        Caption = '保   单：'
      end
      object Label5: TLabel
        Left = 24
        Top = 128
        Width = 95
        Height = 19
        Caption = '所选条件：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -19
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 232
        Width = 792
        Height = 255
        Align = alBottom
        DataSource = dm.ds_yewu
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clNavy
        TitleFont.Height = -19
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Baodanno'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 129
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Carno'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Carnum'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 120
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Carcharge_total'
            Title.Alignment = taCenter
            Title.Caption = '保险总额（元）'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 110
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Carname'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'Carcharacter'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'Carcharge_bad'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'Carcharge_steal'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'Carcharge_windows'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Carcharge_three'
            Title.Alignment = taCenter
            Title.Caption = '三者险'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Carcharge_duty'
            Title.Alignment = taCenter
            Title.Caption = '责任险'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'Carcharge_else'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'Carelse'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Cartype'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 78
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Pidanno'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'Carcharge_profit'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'OldCarnum'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'Baodanno_1'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Name'
            Title.Alignment = taCenter
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Beginyear'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'Beginmonth'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'Begindate'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Endyear'
            Title.Alignment = taCenter
            Title.Caption = '到期年份'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 99
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Endmonth'
            Title.Alignment = taCenter
            Title.Caption = '到期月份'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clNavy
            Title.Font.Height = -14
            Title.Font.Name = '宋体'
            Title.Font.Style = []