addrecordform.~dfm

某车友管理系统的源码

object RecordFormWin: TRecordFormWin
  Left = 244
  Top = 118
  BorderStyle = bsDialog
  ClientHeight = 513
  ClientWidth = 825
  Color = clGray
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 9
    Top = 17
    Width = 72
    Height = 24
    Caption = '会员号'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label2: TLabel
    Left = 9
    Top = 57
    Width = 72
    Height = 24
    Caption = '车牌号'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label3: TLabel
    Left = 9
    Top = 97
    Width = 48
    Height = 24
    Caption = '车主'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label4: TLabel
    Left = 9
    Top = 137
    Width = 48
    Height = 24
    Caption = '住址'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label5: TLabel
    Left = 9
    Top = 177
    Width = 96
    Height = 24
    Caption = '联系电话'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label6: TLabel
    Left = 9
    Top = 217
    Width = 120
    Height = 24
    Caption = '驾驶员姓名'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label7: TLabel
    Left = 9
    Top = 257
    Width = 96
    Height = 24
    Caption = '驾驶证号'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label8: TLabel
    Left = 9
    Top = 297
    Width = 96
    Height = 24
    Caption = '准驾车型'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label9: TLabel
    Left = 9
    Top = 337
    Width = 96
    Height = 24
    Caption = '驾驶年限'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label10: TLabel
    Left = 9
    Top = 377
    Width = 96
    Height = 24
    Caption = '年审时间'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label11: TLabel
    Left = 9
    Top = 417
    Width = 120
    Height = 24
    Caption = '养路费机号'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label12: TLabel
    Left = 249
    Top = 17
    Width = 96
    Height = 24
    Caption = '购买期限'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label13: TLabel
    Left = 249
    Top = 57
    Width = 96
    Height = 24
    Caption = '车辆类型'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label14: TLabel
    Left = 249
    Top = 97
    Width = 96
    Height = 24
    Caption = '厂牌型号'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label15: TLabel
    Left = 249
    Top = 137
    Width = 96
    Height = 24
    Caption = '发动机号'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label16: TLabel
    Left = 249
    Top = 177
    Width = 72
    Height = 24
    Caption = '底盘号'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label17: TLabel
    Left = 249
    Top = 217
    Width = 96
    Height = 24
    Caption = '车身颜色'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label18: TLabel
    Left = 249
    Top = 257
    Width = 96
    Height = 24
    Caption = '驱动方式'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label19: TLabel
    Left = 249
    Top = 297
    Width = 96
    Height = 24
    Caption = '购买日期'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label20: TLabel
    Left = 249
    Top = 337
    Width = 120
    Height = 24
    Caption = '行驶公里数'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Bevel1: TBevel
    Left = -8
    Top = 448
    Width = 833
    Height = 3
  end
  object Label21: TLabel
    Left = 249
    Top = 377
    Width = 96
    Height = 24
    Caption = '年审时间'
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Button1: TButton
    Left = 192
    Top = 464
    Width = 97
    Height = 41
    Caption = '确认'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 488
    Top = 464
    Width = 105
    Height = 38
    Caption = '退出'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button2Click
  end
  object DBEdit1: TDBEdit
    Left = 96
    Top = 16
    Width = 137
    Height = 21
    DataField = 'Member_ID'
    DataSource = CheyouDataSource
    TabOrder = 2
  end
  object DBEdit2: TDBEdit
    Left = 96
    Top = 56
    Width = 137
    Height = 21
    DataField = 'Carcard_ID'
    DataSource = CheyouDataSource
    TabOrder = 3
  end
  object DBEdit3: TDBEdit
    Left = 96
    Top = 96
    Width = 137
    Height = 21
    DataField = 'Car_Owner'
    DataSource = CheyouDataSource
    TabOrder = 4
  end
  object DBEdit4: TDBEdit
    Left = 96
    Top = 136
    Width = 137
    Height = 21
    DataField = 'Address'
    DataSource = CheyouDataSource
    TabOrder = 5
  end
  object DBEdit5: TDBEdit
    Left = 112
    Top = 176
    Width = 121
    Height = 21
    DataField = 'Phone'
    DataSource = CheyouDataSource
    TabOrder = 6
  end
  object DBEdit6: TDBEdit
    Left = 136
    Top = 216
    Width = 97
    Height = 21
    DataField = 'Driver_Name'
    DataSource = CheyouDataSource
    TabOrder = 7
  end
  object DBEdit7: TDBEdit
    Left = 112
    Top = 256
    Width = 121
    Height = 21
    DataField = 'Driver_License'
    DataSource = CheyouDataSource
    TabOrder = 8
  end
  object DBEdit8: TDBEdit
    Left = 112
    Top = 296
    Width = 121
    Height = 21
    DataField = 'Driverlicense_Type'
    DataSource = CheyouDataSource
    TabOrder = 9
  end
  object DBEdit9: TDBEdit
    Left = 112
    Top = 336
    Width = 121
    Height = 21
    DataField = 'Drive_Years'
    DataSource = CheyouDataSource
    TabOrder = 10
  end
  object DBEdit10: TDBEdit
    Left = 112
    Top = 376
    Width = 121
    Height = 21
    DataField = 'DriveExamine_Time'
    DataSource = CheyouDataSource
    TabOrder = 11
  end
  object DBEdit11: TDBEdit
    Left = 136
    Top = 416
    Width = 97
    Height = 21
    DataField = 'RoadFee_ID'
    DataSource = CheyouDataSource
    TabOrder = 12
  end
  object DBEdit12: TDBEdit
    Left = 360
    Top = 16
    Width = 121
    Height = 21
    DataField = 'Buy_Period'
    DataSource = CheyouDataSource
    TabOrder = 13
  end
  object DBEdit13: TDBEdit
    Left = 360
    Top = 56
    Width = 121
    Height = 21
    DataField = 'Car_Type'
    DataSource = CheyouDataSource
    TabOrder = 14
  end
  object DBEdit14: TDBEdit
    Left = 360
    Top = 96
    Width = 121
    Height = 21
    DataField = 'Producer_Type'
    DataSource = CheyouDataSource
    TabOrder = 15
  end
  object DBEdit15: TDBEdit
    Left = 360
    Top = 136
    Width = 121
    Height = 21
    DataField = 'Enginee_ID'
    DataSource = CheyouDataSource
    TabOrder = 16
  end
  object DBEdit16: TDBEdit
    Left = 328
    Top = 176
    Width = 153
    Height = 21
    DataField = 'Bottom_ID'
    DataSource = CheyouDataSource
    TabOrder = 17
  end
  object DBEdit17: TDBEdit
    Left = 352
    Top = 216
    Width = 129
    Height = 21
    DataField = 'CarBody_Color'
    DataSource = CheyouDataSource
    TabOrder = 18
  end
  object DBEdit18: TDBEdit
    Left = 352
    Top = 256
    Width = 129
    Height = 21
    DataField = 'Drive_Mode'
    DataSource = CheyouDataSource
    TabOrder = 19
  end
  object DBEdit19: TDBEdit
    Left = 352
    Top = 296
    Width = 129
    Height = 21
    DataField = 'Buy_Time'
    DataSource = CheyouDataSource
    TabOrder = 20
  end
  object DBEdit20: TDBEdit
    Left = 376
    Top = 336
    Width = 105
    Height = 21
    DataField = 'Drive_Kilometer'
    DataSource = CheyouDataSource
    TabOrder = 21
  end
  object MemoPanel: TPageControl
    Left = 496
    Top = 16
    Width = 329
    Height = 425
    ActivePage = Maintain_TabSheet
    TabOrder = 22
    object Maintain_TabSheet: TTabSheet
      Caption = '保养记录'
      object Maintain_memo: TMemo
        Left = 0
        Top = 0
        Width = 321
        Height = 397
        Align = alClient
        TabOrder = 0
      end
    end
    object TabSheet2: TTabSheet
      Caption = '维修记录'
      ImageIndex = 1
      object Repair_memo: TMemo
        Left = 0
        Top = 0
        Width = 321
        Height = 397
        Align = alClient
        TabOrder = 0
      end
    end
    object TabSheet3: TTabSheet
      Caption = '违章记录'
      ImageIndex = 2
      object Violate_memo: TMemo
        Left = 0
        Top = 0
        Width = 321
        Height = 397
        Align = alClient
        TabOrder = 0
      end
    end
    object TabSheet4: TTabSheet
      Caption = '事故记录'
      ImageIndex = 3
      object Accident_memo: TMemo
        Left = 0
        Top = 0
        Width = 321
        Height = 397
        Align = alClient
        TabOrder = 0
      end
    end
  end
  object DBEdit21: TDBEdit
    Left = 352
    Top = 376
    Width = 129
    Height = 21
    DataField = 'CarExamine_Time'
    DataSource = CheyouDataSource
    TabOrder = 23
  end
  object CheyouDataSource: TDataSource
    AutoEdit = False
    DataSet = CheyouTable
    Enabled = False
    Left = 136
    Top = 128
  end
  object CheyouTable: TTable
    Active = True
    DatabaseName = 'CHEYOUDATABASE'
    TableName = '车友.DB'
    Left = 88
    Top = 136
  end
end