card.dfm

校园刷卡系统

object CardForm: TCardForm
  Left = 244
  Top = 142
  Width = 882
  Height = 543
  ActiveControl = Button1
  BorderIcons = [biHelp]
  Caption = #26657#22253#21047#21345#28040#36153#31995#32479'-'#23398#29983#21345#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 48
    Top = 460
    Width = 75
    Height = 13
    Caption = #24403#21069#25805#20316#21592'     '
  end
  object showname: TLabel
    Left = 123
    Top = 460
    Width = 99
    Height = 13
    Caption = '                                 '
  end
  object showtime: TLabel
    Left = 256
    Top = 460
    Width = 126
    Height = 13
    Caption = '                                          '
  end
  object PageControl1: TPageControl
    Left = 13
    Top = 24
    Width = 849
    Height = 417
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #23398#29983#21345#31649#29702
      object RadioGroup1: TRadioGroup
        Left = 32
        Top = 272
        Width = 305
        Height = 105
        Caption = #25805#20316#36873#25321
        Columns = 2
        Items.Strings = (
          #26032#22686#29992#25143
          #20462#25913#24403#21069#29992#25143
          #21024#38500#24403#21069#29992#25143
          #21462#28040#24403#21069#29992#25143#20351#29992#26435
          #24674#22797#24403#21069#29992#25143#20351#29992#26435
          #28165#38500#36873#25321)
        TabOrder = 0
        OnClick = RadioGroup1Click
      end
      object DBGrid1: TDBGrid
        Left = 16
        Top = 16
        Width = 817
        Height = 249
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'CardID'
            Title.Caption = #21345#21495
            Width = 160
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'SchoolID'
            Title.Caption = #23398#21495
            Width = 135
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'InDate'
            Title.Caption = #24314#21345#26085#26399
            Width = 73
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'DelFlag'
            Title.Caption = #25346#22833
            Width = 151
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'MoneyLeft'
            Title.Caption = #20313#39069
            Width = 277
            Visible = True
          end>
      end
      object DBNavigator1: TDBNavigator
        Left = 488
        Top = 320
        Width = 224
        Height = 25
        DataSource = DataSource1
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
        TabOrder = 2
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26032#23398#29983#24314#21345
      ImageIndex = 1
      object schoolno: TLabeledEdit
        Left = 184
        Top = 24
        Width = 121
        Height = 21
        EditLabel.Width = 90
        EditLabel.Height = 13
        EditLabel.Caption = #35831#36755#20837#23398#21495#65306'      '
        LabelPosition = lpLeft
        LabelSpacing = 3
        TabOrder = 0
        OnKeyDown = schoolnoKeyDown
      end
      object GroupBox3: TGroupBox
        Left = 88
        Top = 72
        Width = 217
        Height = 305
        Caption = #23398#29983#20449#24687#26174#31034
        TabOrder = 1
        object name: TLabeledEdit
          Left = 80
          Top = 40
          Width = 121
          Height = 21
          EditLabel.Width = 36
          EditLabel.Height = 13
          EditLabel.Caption = #22995#21517#65306
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 0
        end
        object sex: TLabeledEdit
          Left = 80
          Top = 104
          Width = 121
          Height = 21
          EditLabel.Width = 42
          EditLabel.Height = 13
          EditLabel.Caption = #24615#21035#65306'  '
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 1
        end
        object ID: TLabeledEdit
          Left = 80
          Top = 168
          Width = 121
          Height = 21
          EditLabel.Width = 66
          EditLabel.Height = 13
          EditLabel.Caption = #36523#20221#35777#21495#65306'  '
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 2
        end
        object phone: TLabeledEdit
          Left = 80
          Top = 236
          Width = 121
          Height = 21
          EditLabel.Width = 66
          EditLabel.Height = 13
          EditLabel.Caption = #32852#31995#30005#35805#65306'  '
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 3
        end
      end
      object GroupBox4: TGroupBox
        Left = 400
        Top = 72
        Width = 217
        Height = 305
        Caption = #26032#24314#23398#29983#21345
        TabOrder = 2
        object Label5: TLabel
          Left = 17
          Top = 40
          Width = 48
          Height = 13
          Caption = #20351#29992#26435#65306
        end
        object delflag: TComboBox
          Left = 80
          Top = 32
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 0
          Text = #31435#21363#25480#26435
          Items.Strings = (
            #31435#21363#25480#26435
            #26242#19981#25480#26435)
        end
        object indate: TLabeledEdit
          Left = 80
          Top = 152
          Width = 121
          Height = 21
          EditLabel.Width = 60
          EditLabel.Height = 13
          EditLabel.Caption = #24320#25143#26085#26399#65306
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 1
        end
        object cardno: TLabeledEdit
          Left = 80
          Top = 92
          Width = 121
          Height = 21
          EditLabel.Width = 45
          EditLabel.Height = 13
          EditLabel.Caption = #21345#21495#65306'   '
          LabelPosition = lpLeft
          LabelSpacing = 3
          ReadOnly = True
          TabOrder = 2
        end
        object code: TLabeledEdit
          Left = 80
          Top = 212
          Width = 121
          Height = 21
          EditLabel.Width = 66
          EditLabel.Height = 13
          EditLabel.Caption = #26412#21345#23494#30721#65306'  '
          LabelPosition = lpLeft
          LabelSpacing = 3
          TabOrder = 3
        end
        object Button2: TButton
          Left = 134
          Top = 264
          Width = 75
          Height = 25
          Caption = #25191#34892
          TabOrder = 4
          OnClick = Button2Click
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #23398#29983#21345#20805#20540
      ImageIndex = 2
      object LabeledEdit1: TLabeledEdit
        Left = 120
        Top = 40
        Width = 121
        Height = 21
        EditLabel.Width = 81
        EditLabel.Height = 13
        EditLabel.Caption = #35831#36755#20837#21345#21495#65306'   '
        LabelPosition = lpAbove
        LabelSpacing = 3
        TabOrder = 0
        OnKeyDown = LabeledEdit1KeyDown
      end
      object GroupBox5: TGroupBox
        Left = 112
        Top = 88
        Width = 209
        Height = 273
        Caption = #23398#29983#20449#24687#26174#31034
        TabOrder = 1