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

📄 drive_card.~dfm

📁 软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/2000/XP 一套车辆管理系统,此版本为商业版,大家一定用的着。
💻 ~DFM
字号:
object frm_Drive_Card: Tfrm_Drive_Card
  Left = 78
  Top = 190
  Width = 728
  Height = 480
  Caption = #39550#29031#31649#29702
  Color = clSkyBlue
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 720
    Height = 28
    Align = alTop
    BevelOuter = bvNone
    Color = clCream
    TabOrder = 0
    object Label2: TLabel
      Left = 20
      Top = 6
      Width = 96
      Height = 15
      Alignment = taCenter
      Caption = #9670#39550#29031#31649#29702#9670
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 28
    Width = 720
    Height = 143
    Align = alTop
    TabOrder = 1
    object Edit1: TLabeledEdit
      Left = 87
      Top = 16
      Width = 121
      Height = 21
      EditLabel.Width = 65
      EditLabel.Height = 13
      EditLabel.Caption = #39550#39542#35777#21495#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 0
      OnMouseUp = Edit1MouseUp
    end
    object Edit7: TLabeledEdit
      Left = 87
      Top = 66
      Width = 121
      Height = 21
      EditLabel.Width = 39
      EditLabel.Height = 13
      EditLabel.Caption = #31821#36143#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 1
    end
    object Edit3: TLabeledEdit
      Left = 572
      Top = 16
      Width = 121
      Height = 21
      EditLabel.Width = 65
      EditLabel.Height = 13
      EditLabel.Caption = #36523#20221#35777#21495#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 2
    end
    object labeleditsex: TLabeledEdit
      Left = 87
      Top = 41
      Width = 58
      Height = 21
      EditLabel.Width = 39
      EditLabel.Height = 13
      EditLabel.Caption = #24615#21035#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 3
    end
    object Edit9: TLabeledEdit
      Left = 87
      Top = 91
      Width = 606
      Height = 21
      EditLabel.Width = 65
      EditLabel.Height = 13
      EditLabel.Caption = #23478#24237#22320#22336#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 4
    end
    object Edit10: TLabeledEdit
      Left = 87
      Top = 116
      Width = 121
      Height = 21
      EditLabel.Width = 65
      EditLabel.Height = 13
      EditLabel.Caption = #21457#35777#21333#20301#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 5
    end
    object Edit8: TLabeledEdit
      Left = 329
      Top = 66
      Width = 121
      Height = 21
      EditLabel.Width = 65
      EditLabel.Height = 13
      EditLabel.Caption = #32852#31995#30005#35805#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 6
    end
    object Edit2: TLabeledEdit
      Left = 329
      Top = 16
      Width = 121
      Height = 21
      EditLabel.Width = 78
      EditLabel.Height = 13
      EditLabel.Caption = #39550#39542#21592#21517#31216#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 7
    end
    object Edit5: TLabeledEdit
      Left = 329
      Top = 41
      Width = 121
      Height = 21
      EditLabel.Width = 65
      EditLabel.Height = 13
      EditLabel.Caption = #20986#29983#26085#26399#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 8
    end
    object Edit6: TLabeledEdit
      Left = 572
      Top = 41
      Width = 121
      Height = 21
      EditLabel.Width = 65
      EditLabel.Height = 13
      EditLabel.Caption = #39550#29031#31867#22411#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 9
    end
    object Edit11: TLabeledEdit
      Left = 329
      Top = 116
      Width = 121
      Height = 21
      EditLabel.Width = 65
      EditLabel.Height = 13
      EditLabel.Caption = #21457#35777#26085#26399#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 10
    end
    object Edit12: TLabeledEdit
      Left = 572
      Top = 116
      Width = 121
      Height = 21
      EditLabel.Width = 65
      EditLabel.Height = 13
      EditLabel.Caption = #26377#25928#26085#26399#65306
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 11
    end
    object Edit13: TLabeledEdit
      Left = 572
      Top = 65
      Width = 121
      Height = 21
      EditLabel.Width = 65
      EditLabel.Height = 13
      EditLabel.Caption = #30331#35760#26085#26399#65306
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      LabelSpacing = 3
      TabOrder = 12
    end
    object DateTimePicker1: TDateTimePicker
      Left = 434
      Top = 41
      Width = 17
      Height = 21
      CalAlignment = dtaLeft
      Date = 38096.4218780208
      Time = 38096.4218780208
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Kind = dtkDate
      ParseInput = False
      TabOrder = 13
      OnChange = DateTimePicker1Change
    end
    object DateTimePicker2: TDateTimePicker
      Left = 676
      Top = 116
      Width = 17
      Height = 21
      CalAlignment = dtaLeft
      Date = 38096.4218780208
      Time = 38096.4218780208
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Kind = dtkDate
      ParseInput = False
      TabOrder = 14
      OnChange = DateTimePicker2Change
    end
    object DateTimePicker3: TDateTimePicker
      Left = 435
      Top = 116
      Width = 17
      Height = 21
      CalAlignment = dtaLeft
      Date = 38096.4218780208
      Time = 38096.4218780208
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Kind = dtkDate
      ParseInput = False
      TabOrder = 15
      OnChange = DateTimePicker3Change
    end
    object Edit4: TComboBox
      Left = 88
      Top = 41
      Width = 120
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 16
      Items.Strings = (
        #30007
        #22899)
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 171
    Width = 720
    Height = 29
    ButtonHeight = 21
    Caption = 'ToolBar1'
    Color = clCream
    ParentColor = False
    TabOrder = 2
    object Cmd_Add: TSpeedButton
      Left = 0
      Top = 2
      Width = 66
      Height = 21
      Caption = #22686#21152
      OnClick = Cmd_AddClick
    end
    object Cmd_Delete: TSpeedButton
      Left = 66
      Top = 2
      Width = 66
      Height = 21
      Caption = #21024#38500
      OnClick = Cmd_DeleteClick
    end
    object Cmd_Edit: TSpeedButton
      Left = 132
      Top = 2
      Width = 66
      Height = 21
      Caption = #20462#25913
      OnClick = Cmd_EditClick
    end
    object Cmd_Save: TSpeedButton
      Left = 198
      Top = 2
      Width = 66
      Height = 21
      Caption = #20445#23384
      Enabled = False
      OnClick = Cmd_SaveClick
    end
    object Cmd_Rush: TSpeedButton
      Left = 264
      Top = 2
      Width = 66
      Height = 21
      Caption = #21047#26032
      OnClick = Cmd_RushClick
    end
    object Cmd_Report: TSpeedButton
      Left = 330
      Top = 2
      Width = 66
      Height = 21
      Caption = #25253#34920
      OnClick = Cmd_ReportClick
    end
    object Edit_ID: TEdit
      Left = 396
      Top = 2
      Width = 62
      Height = 21
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
    end
    object SpeedButton5: TSpeedButton
      Left = 458
      Top = 2
      Width = 66
      Height = 21
      Visible = False
    end
    object SpeedButton2: TSpeedButton
      Left = 524
      Top = 2
      Width = 66
      Height = 21
      Visible = False
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 200
    Width = 720
    Height = 253
    Align = alClient
    DataSource = frm_Data.Data_Pro_Drive_Card
    FixedColor = clSkyBlue
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'Drive_ID'
        Title.Caption = #39550#39542#35777#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Drive_Man'
        Title.Caption = #39550#39542#21592#21517#31216
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SH_Card'
        Title.Caption = #36523#20221#35777#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Old_Date'
        Title.Caption = #20986#29983#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SEX'
        Title.Caption = #24615#21035
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Drive_Card_Type'
        Title.Caption = #39550#29031#31867#22411
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JG'
        Title.Caption = #31821#36143
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Telphone'
        Title.Caption = #32852#31995#30005#35805
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Address'
        Title.Caption = #23478#24237#22320#22336
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Send_Mond'
        Title.Caption = #21457#35777#21333#20301
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Send_Date'
        Title.Caption = #21457#35777#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Value_Date'
        Title.Caption = #26377#25928#26085#26399
        Visible = True
      end>
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = True
    Active = True
    ControlUseTrueXPStyle = True
    BtnRoundArc = 5
    BtnOutLineBorderColor = 7552000
    BtnInnerBorderMoveColor = 3257087
    BtnInnerBorderFocusColor = 15183500
    BtnSurfaceNormalColor = 16251903
    BtnSurfaceDownColor = 14608359
    BtnSurfaceBottomLineColor = 14608359
    BtnSurfaceDownBottomLineColor = 15199215
    RdoChkControlChkColor = 41472
    ComboBoxChkColor = 9201994
    ComboboxSurfaceMoveColor = 16771030
    ControlDisabledBorderColor = 11913158
    Left = 232
    Top = 280
  end
end

⌨️ 快捷键说明

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