jsyjf.dfm

这是用Delphi编写的车辆管理系统。主要功能有档案管理

object DriverJF: TDriverJF
  Left = 174
  Top = 101
  Width = 625
  Height = 422
  Caption = #39550#39542#21592#22870#32602
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 617
    Height = 37
    Align = alTop
    Alignment = taCenter
    Caption = #39550#39542#21592#22870#32602
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -37
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 315
    Width = 617
    Height = 73
    Align = alBottom
    Caption = #22870#32602#32467#26524
    Color = clSkyBlue
    ParentColor = False
    TabOrder = 0
    object Label8: TLabel
      Left = 128
      Top = 24
      Width = 48
      Height = 15
      Caption = #22995#21517#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 264
      Top = 24
      Width = 48
      Height = 15
      Caption = #20998#25968#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 424
      Top = 24
      Width = 48
      Height = 15
      Caption = #22870#37329#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 392
      Top = 24
      Width = 16
      Height = 15
      Caption = #20998
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 552
      Top = 24
      Width = 16
      Height = 15
      Caption = #20803
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object ComboBox1: TComboBox
      Left = 32
      Top = 24
      Width = 89
      Height = 21
      BevelInner = bvSpace
      BevelKind = bkTile
      Color = clInfoBk
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = #31995#32479#35780#20998
      OnChange = ComboBox1Change
      OnKeyPress = ComboBox1KeyPress
      Items.Strings = (
        #31995#32479#35780#20998
        #20154#24037#35780#20998)
    end
    object ComboBox2: TComboBox
      Left = 168
      Top = 24
      Width = 89
      Height = 21
      BevelInner = bvSpace
      BevelKind = bkTile
      Color = clInfoBk
      ItemHeight = 13
      MaxLength = 8
      TabOrder = 1
      OnChange = ComboBox2Change
    end
    object Edit1: TEdit
      Left = 304
      Top = 24
      Width = 81
      Height = 21
      Color = clInfoBk
      Enabled = False
      TabOrder = 2
      OnChange = Edit1Change
      OnKeyPress = Edit1KeyPress
    end
    object Edit2: TEdit
      Left = 464
      Top = 24
      Width = 81
      Height = 21
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 3
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 37
    Width = 617
    Height = 278
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel1'
    Color = clSkyBlue
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 153
      Height = 278
      Align = alLeft
      Caption = #35780#20998#26631#20934
      TabOrder = 0
      object Label2: TLabel
        Left = 2
        Top = 15
        Width = 149
        Height = 261
        Align = alClient
        Caption = 
          '                 '#28385#20998#26159'10'#20998#65292#27599#36829#31456#19968#27425#25187'2'#20998#65292#27599#27425#20107#25925#25187'10'#20998#65292#27599#27425#32500#20462#25187#25481#32500#20462#36153#29992#30340'40%'#65292#22914#26524#36816#33829#27425#25968#23569 +
          #20110'30'#27425#65292#27599#27425#25187'0.3'#20998#65292#39550#39542#21592#30340#24037#36164#26159#36816#33829#25910#20837#30340'20%'#12290
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
    end
    object GroupBox2: TGroupBox
      Left = 464
      Top = 0
      Width = 153
      Height = 278
      Align = alRight
      Caption = #35814#32454#36164#26009
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object Label3: TLabel
        Left = 8
        Top = 16
        Width = 80
        Height = 15
        Caption = #36816#33829#27425#25968#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 8
        Top = 52
        Width = 80
        Height = 15
        Caption = #36816#33829#25910#20837#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 8
        Top = 88
        Width = 80
        Height = 15
        Caption = #20107#25925#27425#25968#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 8
        Top = 124
        Width = 80
        Height = 15
        Caption = #36829#31456#27425#25968#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 8
        Top = 160
        Width = 80
        Height = 15
        Caption = #32500#20462#36153#29992#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Panel8: TPanel
        Left = 47
        Top = 247
        Width = 50
        Height = 25
        Caption = #25171#21360
        Color = clMoneyGreen
        TabOrder = 0
        OnClick = Panel8Click
        OnMouseDown = Panel8MouseDown
        OnMouseUp = Panel8MouseUp
      end
    end
    object Panel2: TPanel
      Left = 153
      Top = 0
      Width = 311
      Height = 278
      Align = alClient
      BevelOuter = bvNone
      BorderWidth = 3
      Caption = 'Panel2'
      Color = clSkyBlue
      TabOrder = 2
      object DBGrid1: TDBGrid
        Left = 3
        Top = 3
        Width = 305
        Height = 231
        Align = alClient
        DataSource = DataModule2.DataSource2
        FixedColor = clMoneyGreen
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid1CellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'name'
            Title.Caption = #22995#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'xingbie'
            Title.Caption = #24615#21035
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'borndt'
            Title.Caption = #20986#29983#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'drivernum'
            Title.Caption = #39550#39542#35777#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'lingzhengd'
            Title.Caption = #39046#35777#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'zhengjianny'
            Title.Caption = #35777#20214#26377#25928#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'jialing'
            Title.Caption = #39550#40836
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'zhunjiacar'
            Title.Caption = #20934#39550#36710#22411
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'joinworkdt'
            Title.Caption = #20309#26102#21442#21152#24037#20316
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'phone'
            Title.Caption = #32852#31995#30005#35805
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'nianjianme'
            Title.Caption = #24180#26816#35760#24405
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'meimo'
            Title.Caption = #22791#27880
            Visible = True
          end>
      end
      object Panel3: TPanel
        Left = 3
        Top = 234
        Width = 305
        Height = 41
        Align = alBottom
        Caption = 'Panel3'
        Color = clSkyBlue
        TabOrder = 1
        object Label13: TLabel
          Left = 4
          Top = 14
          Width = 112
          Height = 15
          Caption = #36873#25321#26102#38388#27573#65306#20174
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 202
          Top = 14
          Width = 16
          Height = 15
          Caption = #21040
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #26999#20307'_GB2312'
          Font.Style = []
          ParentFont = False
        end
        object DateTimePicker1: TDateTimePicker
          Left = 115
          Top = 8
          Width = 84
          Height = 25
          BevelInner = bvLowered
          BevelOuter = bvRaised
          BevelKind = bkTile
          Date = 36526.368699166670000000
          Time = 36526.368699166670000000
          Color = clInfoBk
          TabOrder = 0
          OnChange = ComboBox2Change
        end
        object DateTimePicker2: TDateTimePicker
          Left = 219
          Top = 8
          Width = 84
          Height = 25
          BevelInner = bvLowered
          BevelOuter = bvRaised
          BevelKind = bkTile
          Date = 36526.368699166670000000
          Time = 36526.368699166670000000
          Color = clInfoBk
          TabOrder = 1
          OnChange = ComboBox2Change
        end
      end
    end
  end
end