modihuiyuanfrm.dfm

该系统实现了对DVD租赁过程的管理,功能完善,方便实用.

object FrmModiHuiyuan: TFrmModiHuiyuan
  Left = 677
  Top = 116
  Width = 388
  Height = 317
  Caption = 'FrmModiHuiyuan'
  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 GroupBox1: TGroupBox
    Left = 4
    Top = 4
    Width = 372
    Height = 229
    Align = alCustom
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 60
      Height = 12
      Caption = #20250#21592#32534#21495#65306
    end
    object Label2: TLabel
      Left = 24
      Top = 52
      Width = 60
      Height = 12
      Caption = #20250#21592#22995#21517#65306
    end
    object Label3: TLabel
      Left = 48
      Top = 83
      Width = 36
      Height = 12
      Caption = #24615#21035#65306
    end
    object Label4: TLabel
      Left = 24
      Top = 113
      Width = 60
      Height = 12
      Caption = #23478#24237#22320#22336#65306
    end
    object Label5: TLabel
      Left = 24
      Top = 140
      Width = 60
      Height = 12
      Caption = #32852#31995#30005#35805#65306
    end
    object Label6: TLabel
      Left = 24
      Top = 171
      Width = 60
      Height = 12
      Caption = #20250#21592#31867#21035#65306
    end
    object Label7: TLabel
      Left = 12
      Top = 200
      Width = 72
      Height = 12
      Caption = #20250#21592#26377#25928#26399#65306
    end
    object edMem_ID: TEdit
      Left = 96
      Top = 20
      Width = 265
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxLength = 6
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      OnExit = edMem_IDExit
      OnKeyPress = edMem_IDKeyPress
    end
    object edMen_Name: TEdit
      Left = 96
      Top = 48
      Width = 265
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxLength = 8
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      OnKeyPress = edMen_NameKeyPress
    end
    object edAddress: TEdit
      Left = 96
      Top = 108
      Width = 265
      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 = 2
      OnKeyPress = edAddressKeyPress
    end
    object edTelephone: TEdit
      Left = 96
      Top = 136
      Width = 265
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      MaxLength = 20
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      OnKeyPress = edTelephoneKeyPress
    end
    object edDeadline: TEdit
      Left = 96
      Top = 196
      Width = 265
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 4
    end
    object Panel1: TPanel
      Left = 96
      Top = 76
      Width = 265
      Height = 25
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Color = clWindow
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 5
      object rbNan: TRadioButton
        Left = 8
        Top = 4
        Width = 37
        Height = 17
        Caption = #30007
        TabOrder = 0
      end
      object rbNv: TRadioButton
        Left = 96
        Top = 4
        Width = 41
        Height = 17
        Caption = #22899
        TabOrder = 1
      end
    end
    object edMem_Class: TEdit
      Left = 96
      Top = 166
      Width = 265
      Height = 22
      AutoSize = False
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 6
    end
  end
  object bbtnSave: TBitBtn
    Left = 80
    Top = 244
    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 bbtnQuit: TBitBtn
    Left = 204
    Top = 244
    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 ADOQuery1: TADOQuery
    Connection = FrmMain.ADOConnection1
    Parameters = <>
    Left = 16
    Top = 244
  end
end