modidvdfrm.dfm

来自「该系统实现了对DVD租赁过程的管理,功能完善,方便实用.」· DFM 代码 · 共 518 行

DFM
518 行
字号 
object FrmModiDVD: TFrmModiDVD
  Left = 814
  Top = 187
  Width = 560
  Height = 431
  Caption = 'FrmModiDVD'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object bbtnQuit: TBitBtn
    Left = 312
    Top = 356
    Width = 107
    Height = 25
    Caption = #36864' '#20986'(&Q)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ModalResult = 4
    ParentFont = False
    TabOrder = 2
    OnClick = bbtnQuitClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000750A0000750A00001000000000000000000000000000
      0000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF00000000000000FFFF0000FFFFFF001FFFFFFFFFFF
      FFF1F89393933339399FF99999399999993FF39998FFFF89939FF9998F9999F8
      999FF998F999999F899FF99F999FF999F93FF99F999FF999F93FF99F999FF999
      F99FF99F999FF999F93FF998F999999F899FF9998F9999F8999FF99998FFFF89
      993FF99999999999939FF99999999999398F1FFFFFFFFFFFFFF1}
    Spacing = 8
  end
  object bbtnSave: TBitBtn
    Left = 176
    Top = 356
    Width = 107
    Height = 25
    Caption = #20445' '#23384'(&S)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = bbtnSaveClick
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000750A0000750A00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000541700
      541700D5986C541700FFFFFFFFD0A4FFD0A4FFD0A4FFD0A4FFD0A4541700B77A
      4E541700AE7145000000000000AE7145D6996DE9AC80541700FFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFD0A4541700C6895D541700AE7145000000000000AE7145
      E9AC80E9AC80541700642700642700642700642700642700642700541700C689
      5D541700AE7145000000000000AE7145FCBF93FCBF93D6996DD6996DD6996DD6
      996DD6996DD6996DD6996DD6996DD6996D541700AE7145000000000000AE7145
      F7BA8EFCBF93FCBF93FCBF93FCBF93FCBF93FCBF93FCBF93FCBF93FCBF93F7BA
      8E541700AE7145000000000000AE7145F7BA8E8E51258E51258E51258E51258E
      51258E51258E51258E51258E512596592D541700AE7145000000000000AE7145
      FFCB9F541700FFFFFFFFD7ABFFD7ABFFD7ABFFD7ABFFD7ABFFD7ABFFD7AB9659
      2D541700AE7145000000000000AE7145FFDAAE541700FFFFFFFFFFF7FFFFF7FF
      FFF7FFFFF7FFFFF7FFFFF7FFD7AB8C4F23541700AE7145000000000000AE7145
      FFEABE541700FFFFFFFFFFF7FFFFF7FFFFF7FFFFF7FFFFF7FFFFF7FFD7AB8C4F
      23541700AE7145000000000000AE7145FFF3C7541700FFFFFFFFFFF7FFFFF7FF
      FFF7FFFFF7FFFFF7FFFFF7FFD7AB85481C541700AE7145000000000000AE7145
      FFFFF0541700FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCCA08548
      1CAE7145AE714500000000000000000054170054170054170054170054170054
      1700541700541700541700541700541700541700AE7145000000000000000000
      AE7145AE7145AE7145AE7145AE7145AE7145AE7145AE7145AE7145AE7145AE71
      45AE7145AE714500000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000}
    Spacing = 8
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 4
    Width = 545
    Height = 341
    TabOrder = 0
    object Label1: TLabel
      Left = 176
      Top = 16
      Width = 48
      Height = 12
      Caption = #20809#30424#21495#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 164
      Top = 48
      Width = 60
      Height = 12
      Caption = #20013#25991#29255#21517#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 164
      Top = 84
      Width = 60
      Height = 12
      Caption = #33521#25991#29255#21517#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 188
      Top = 112
      Width = 36
      Height = 12
      Caption = #23450#20215#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 296
      Top = 112
      Width = 66
      Height = 12
      Caption = #20809#30424#25968'/'#22871#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 436
      Top = 112
      Width = 36
      Height = 12
      Caption = #29255#38271#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 162
      Top = 176
      Width = 60
      Height = 12
      Caption = #20986#29256#21333#20301#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 352
      Top = 174
      Width = 60
      Height = 12
      Caption = #21457#34892#26085#26399#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 188
      Top = 144
      Width = 36
      Height = 12
      Caption = #23548#28436#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 376
      Top = 140
      Width = 36
      Height = 12
      Caption = #20027#28436#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 166
      Top = 206
      Width = 60
      Height = 12
      Caption = #36827#36135#25968#37327#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 312
      Top = 208
      Width = 48
      Height = 12
      Caption = #20027#39064#35789#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Panel1: TPanel
      Left = 4
      Top = 8
      Width = 150
      Height = 216
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clGray
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 13
      object Image1: TImage
        Left = 0
        Top = 0
        Width = 148
        Height = 214
        Align = alCustom
        Stretch = True
      end
    end
    object GroupBox2: TGroupBox
      Left = 4
      Top = 228
      Width = 533
      Height = 109
      Caption = #24773#33410#31616#20171#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      object mmIntro: TMemo
        Left = 8
        Top = 16
        Width = 517
        Height = 89
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object edCD_ID: TEdit
      Left = 228
      Top = 12
      Width = 309
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxLength = 10
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      OnExit = edCD_IDExit
    end
    object edCD_NameCn: TEdit
      Left = 228
      Top = 44
      Width = 309
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
    end
    object edCD_NameEn: TEdit
      Left = 228
      Top = 76
      Width = 309
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxLength = 100
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
    end
    object edPrice: TEdit
      Left = 228
      Top = 106
      Width = 61
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxLength = 10
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      OnKeyPress = edPriceKeyPress
    end
    object edNum_CD: TEdit
      Left = 364
      Top = 106
      Width = 61
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxLength = 10
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 4
      OnKeyPress = edNum_CDKeyPress
    end
    object edShow_Time: TEdit
      Left = 476
      Top = 106
      Width = 61
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxLength = 10
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 5
      OnKeyPress = edShow_TimeKeyPress
    end
    object dtpPublish_Date: TDateTimePicker
      Left = 420
      Top = 168
      Width = 117
      Height = 22
      Date = 38032.840728703710000000
      Format = 'yyyy '#24180' MM '#26376
      Time = 38032.840728703710000000
      DateMode = dmUpDown
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
    end
    object edDirector: TEdit
      Left = 228
      Top = 136
      Width = 117
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 6
    end
    object edRole_Leading: TEdit
      Left = 420
      Top = 136
      Width = 117
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 7
    end
    object edPublisher: TEdit
      Left = 228
      Top = 168
      Width = 117
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 8
    end
    object edNum_Buy: TEdit
      Left = 228
      Top = 202
      Width = 61
      Height = 22
      Hint = #36171#20104#24215#20869#32534#21495#26102#33258#21160#35745#31639#36827#36135#25968#37327
      AutoSize = False
      Color = clScrollBar
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxLength = 10
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 10
      OnKeyPress = edNum_BuyKeyPress
    end
    object cbCD_Key: TComboBox
      Left = 364
      Top = 204
      Width = 173
      Height = 21
      ItemHeight = 13
      TabOrder = 11
      Text = 'cbCD_Key'
      Items.Strings = (
        #29233#24773#29983#27963#29255
        #26538#25112#35686#21290#29255
        #31185#24187#29255
        #24656#24598#29255
        #21916#21095#29255
        #27494#25171#29255
        #20854#20182)
    end
  end
  object ADOQuery1: TADOQuery
    Connection = FrmMain.ADOConnection1
    Parameters = <>
    Left = 100
    Top = 352
  end
end

modidvdfrm.dfm - 源码说明

本页面展示了「该系统实现了对DVD租赁过程的管理,功能完善,方便实用.」中的 modidvdfrm.dfm 源码文件，采用 DFM 编程语言编写，共 518 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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