mainform.~dfm

某车友管理系统的源码

object MainFormWin: TMainFormWin
  Left = 182
  Top = 106
  BorderStyle = bsSingle
  Caption = '科学城车友俱乐部会员档案管理系统'
  ClientHeight = 535
  ClientWidth = 801
  Color = clGray
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Menu = MainMenu
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object DataBasePanel: TPanel
    Left = 0
    Top = 0
    Width = 801
    Height = 535
    Align = alClient
    BevelOuter = bvLowered
    Color = clGray
    TabOrder = 0
    object MemoPanel: TPanel
      Left = 665
      Top = 1
      Width = 135
      Height = 533
      Align = alClient
      BevelOuter = bvLowered
      Color = clGray
      TabOrder = 0
      object Panel1: TPanel
        Left = 1
        Top = 1
        Width = 133
        Height = 56
        Align = alTop
        BevelOuter = bvLowered
        Color = clGray
        TabOrder = 0
        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 Button1: TButton
          Left = 288
          Top = 16
          Width = 65
          Height = 25
          Caption = '查询'
          TabOrder = 0
          OnClick = Button1Click
        end
        object MemberEdit: TEdit
          Left = 96
          Top = 16
          Width = 185
          Height = 21
          TabOrder = 1
        end
      end
      object Panel2: TPanel
        Left = 1
        Top = 57
        Width = 133
        Height = 475
        Align = alClient
        BevelOuter = bvLowered
        Color = clGray
        TabOrder = 1
        object PageControl1: TPageControl
          Left = 1
          Top = 1
          Width = 131
          Height = 473
          ActivePage = TabSheet1
          Align = alClient
          TabOrder = 0
          object TabSheet1: TTabSheet
            Caption = '保养记录'
            object Maintain_memo: TMemo
              Left = 0
              Top = 0
              Width = 123
              Height = 445
              Align = alClient
              TabOrder = 0
            end
          end
          object TabSheet2: TTabSheet
            Caption = '维修记录'
            ImageIndex = 1
            object Repair_memo: TMemo
              Left = 0
              Top = 0
              Width = 123
              Height = 445
              Align = alClient
              TabOrder = 0
            end
          end
          object TabSheet3: TTabSheet
            Caption = '违章记录'
            ImageIndex = 2
            object Violate_memo: TMemo
              Left = 0
              Top = 0
              Width = 123
              Height = 445
              Align = alClient
              TabOrder = 0
            end
          end
          object TabSheet4: TTabSheet
            Caption = '事故记录'
            ImageIndex = 3
            object Accident_memo: TMemo
              Left = 0
              Top = 0
              Width = 123
              Height = 445
              Align = alClient
              TabOrder = 0
            end
          end
        end
      end
    end
    object CheyouDBGrid: TDBGrid
      Left = 1
      Top = 1
      Width = 664
      Height = 533
      Align = alLeft
      DataSource = CheyouDataSource
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Member_ID'
          Title.Caption = '    会员号'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Carcard_ID'
          Title.Caption = '      车牌号'
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Car_Owner'
          Title.Caption = '   车主'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Address'
          Title.Caption = '                         地址'
          Width = 200
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Phone'
          Title.Caption = '      联系电话'
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Driver_Name'
          Title.Caption = '    驾驶员姓名'
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Driver_License'
          Title.Caption = '  驾驶证号'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Driverlicense_Type'
          Title.Caption = '    准驾车型'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Drive_Years'
          Title.Caption = ' 驾驶年限'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DriveExamine_Time'
          Title.Caption = '       年审时间'
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'RoadFee_ID'
          Title.Caption = '   养路费机号'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Buy_Period'
          Title.Caption = '   购买期限'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Car_Type'
          Title.Caption = ' 车辆类型'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Producer_Type'
          Title.Caption = '厂牌型号'
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Enginee_ID'
          Title.Caption = '  发动机号'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Bottom_ID'
          Title.Caption = '      底盘号'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CarBody_Color'
          Title.Caption = ' 车身颜色'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Drive_Mode'
          Title.Caption = '    驱动方式'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Buy_Time'
          Title.Caption = '    购买日期'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Drive_Kilometer'
          Title.Caption = '  行驶公里数'
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CarExamine_Time'
          Title.Caption = '    年审时间'
          Width = 80
          Visible = True
        end>
    end
  end
  object MainMenu: TMainMenu
    Left = 80
    Top = 248
    object N1: TMenuItem
      Caption = '&操作'
      object N3: TMenuItem
        Caption = '&录入'
        ShortCut = 16460
        OnClick = N3Click
      end
      object N2: TMenuItem
        Caption = '删除'
        ShortCut = 16452
        OnClick = N2Click
      end
      object N5: TMenuItem
        Caption = '修改'
        ShortCut = 16451
        OnClick = N5Click
      end
    end
    object N4: TMenuItem
      Caption = '&说明'
    end
  end
  object CheyouDataSource: TDataSource
    AutoEdit = False
    DataSet = CheyouTable
    Enabled = False
    Left = 240
    Top = 160
  end
  object CheyouTable: TTable
    DatabaseName = 'CHEYOUDATABASE'
    TableName = '车友.DB'
    Left = 136
    Top = 144
  end
end