⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 cheliang.dfm

📁 本系统为演示Delphi的功能而开发设计
💻 DFM
字号:
object CheLiangForm: TCheLiangForm
  Left = 177
  Top = 114
  BorderStyle = bsDialog
  Caption = '车辆管理'
  ClientHeight = 287
  ClientWidth = 642
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000003888738337700000000000000000038FBFFFB788B8837700000000000
    0788FBFFFBFFF7FF8B8883700000000007FBFFFBFFFBFF7BFFFB888700000000
    007FFBFFFBFFFB7FFBFFFBF3700000000007FFFBFFFBFFF7FFFBFF7777000000
    0007FBFFFBFFFBF7FB7777FFF800000000007FFBFFFBFFF777FBFFFBF8000000
    00007BFFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
    000007FFFBFFFBFFFBFFFBFFF8000000000000000FFBFFFBFFFBFFFBF8000000
    0000066660FFFBFFFBFFFBFFF80000666000066660FBFFFBFFFBFFFBF8000666
    66000006660FFBFFFBFFFBFFF8000E6666066660660FFFFFFFFBFFFBF8000E66
    66066660660000000FFFFBFFF8000EE6660666606607777777FBFFFBF8000EE6
    660EEEE6660FFBFFFBFFFBFFF80000EEE0770E6660FBFFFBFFFBFFFBF8000000
    00000EEE60FFFBFFFBFFFBFFF8000000000000000FFBFFFBFFFBFFFBF8000000
    000007FFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
    000007FFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
    0000077777777777777777777700000000000000000000000000000000000000
    0000000000000000000000000000FFFFFFFFFFFFFFFFFFE003FFFF00007FFC00
    001FF800000FF8000007FC000003FE000001FE000001FF000001FF000001FF80
    0001FF800001FF800001C7000001830000010000000100000001000000010000
    00010000000180000001C7000001FF800001FF800001FF800001FF800001FF80
    0001FF800001FFFFFFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    00000000000000087B77088800000008FFFBF0B7880000008BFFFB0FB7800000
    8FFBFF0F0080000008FFFB80FB700000000BFFFBFF7000000660FBFFFB700660
    0060FFFBFF700E60E06000FFFB700EE00EE0FFFBFF700000000FFBFFFB700000
    08FBFFFBFF7000000888888888800000000000000000FFFF0000F00F0000E003
    0000E0010000F0000000F0000000F8000000F800000090000000000000000000
    00000000000098000000F8000000F8000000FFFF0000}
  KeyPreview = True
  OldCreateOrder = True
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 14
  object ButtonClose: TButton
    Left = 570
    Top = 256
    Width = 63
    Height = 25
    Caption = '关闭(&C)'
    ModalResult = 2
    TabOrder = 0
    OnClick = ButtonCloseClick
  end
  object DBGrid1: TDBGrid
    Left = 5
    Top = 30
    Width = 632
    Height = 217
    DataSource = DataSourceChe
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Cardnumber'
        Title.Alignment = taCenter
        Title.Caption = '车牌号'
        Width = 111
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Cartype'
        Title.Alignment = taCenter
        Title.Caption = '车型号'
        Width = 100
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Enginenumber'
        Title.Alignment = taCenter
        Title.Caption = '发动机号'
        Width = 106
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Carnumber'
        Title.Alignment = taCenter
        Title.Caption = '车架号'
        Width = 135
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Carcolor'
        PickList.Strings = (
          '黑色'
          '红色'
          '灰色')
        Title.Alignment = taCenter
        Title.Caption = '车身颜色'
        Width = 74
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 8
    Top = 256
    Width = 540
    Height = 25
    DataSource = DataSourceChe
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
    Hints.Strings = (
      '最前一条'
      '最后一条'
      '下一条'
      '上一条'
      '插入'
      '删除'
      '编辑'
      '提交修改'
      '放弃修改'
      '数据刷新')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
  end
  object ComboBoxArea: TComboBox
    Left = 192
    Top = 2
    Width = 73
    Height = 22
    ItemHeight = 14
    TabOrder = 3
    Text = '京'
    OnExit = ComboBoxAreaExit
    Items.Strings = (
      '京'
      '沪'
      '津'
      '冀'
      '鲁'
      '豫')
  end
  object CheckBoxArea: TCheckBox
    Left = 8
    Top = 8
    Width = 177
    Height = 17
    Caption = '自动添加车牌号地区代码'
    TabOrder = 4
  end
  object TableChe: TTable
    BeforePost = TableCheBeforePost
    TableName = 'carinfo'
    TableType = ttParadox
    Left = 296
    Top = 65528
    object TableCheCardnumber: TStringField
      FieldName = 'Cardnumber'
      Size = 7
    end
    object TableCheCartype: TStringField
      FieldName = 'Cartype'
      OnChange = TableCheCartypeChange
      Size = 8
    end
    object TableCheEnginenumber: TStringField
      FieldName = 'Enginenumber'
      Size = 10
    end
    object TableCheCarnumber: TStringField
      FieldName = 'Carnumber'
      Size = 10
    end
    object TableCheCarcolor: TStringField
      FieldName = 'Carcolor'
      OnChange = TableCheCarcolorChange
      Size = 8
    end
  end
  object DataSourceChe: TDataSource
    DataSet = TableChe
    Left = 352
    Top = 65528
  end
end

⌨️ 快捷键说明

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