ufrmusermanage.dfm

delphi的一个图书管理系统..结合数据库的.不错

object frmReaderManage: TfrmReaderManage
  Left = 192
  Top = 114
  Width = 696
  Height = 480
  BorderIcons = [biSystemMenu, biHelp]
  Caption = #29992#25143#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 405
    Width = 688
    Height = 41
    Align = alBottom
    TabOrder = 0
    object btnNewReader: TButton
      Left = 40
      Top = 8
      Width = 97
      Height = 25
      Caption = #26032#22686#35835#32773'(&N)'
      TabOrder = 0
      OnClick = btnNewReaderClick
    end
    object btnModifyReader: TButton
      Left = 192
      Top = 8
      Width = 113
      Height = 25
      Caption = #20462#25913#35835#32773'(&E)'
      TabOrder = 1
      OnClick = btnModifyReaderClick
    end
    object btnDeleteReader: TButton
      Left = 360
      Top = 8
      Width = 97
      Height = 25
      Caption = #27880#38144#35835#32773'(&D)'
      TabOrder = 2
      OnClick = btnDeleteReaderClick
    end
    object btnQuit: TButton
      Left = 576
      Top = 8
      Width = 75
      Height = 25
      Caption = #36864#20986'(&Q)'
      TabOrder = 3
      OnClick = btnQuitClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 405
    Align = alClient
    TabOrder = 1
    object Panel3: TPanel
      Left = 416
      Top = 1
      Width = 271
      Height = 403
      Align = alRight
      BevelOuter = bvLowered
      TabOrder = 0
      object Label2: TLabel
        Left = 24
        Top = 48
        Width = 49
        Height = 13
        Caption = #20195#21495
      end
      object Label3: TLabel
        Left = 32
        Top = 80
        Width = 24
        Height = 13
        Caption = #22995#21517
      end
      object Label4: TLabel
        Left = 24
        Top = 120
        Width = 24
        Height = 13
        Caption = #24615#21035
      end
      object Label5: TLabel
        Left = 24
        Top = 176
        Width = 57
        Height = 13
        Caption = #20986#29983#26085#26399
      end
      object edReaderID: TDBEdit
        Left = 88
        Top = 40
        Width = 121
        Height = 21
        DataField = 'UserID'
        DataSource = dsReader
        TabOrder = 0
      end
      object edName: TDBEdit
        Left = 88
        Top = 72
        Width = 121
        Height = 21
        DataField = 'Name'
        DataSource = dsReader
        TabOrder = 1
      end
      object edGender: TDBEdit
        Left = 88
        Top = 112
        Width = 121
        Height = 21
        DataField = 'Gender'
        DataSource = dsReader
        TabOrder = 2
      end
      object edBirthday: TDBEdit
        Left = 88
        Top = 168
        Width = 121
        Height = 21
        DataField = 'Birthday'
        DataSource = dsReader
        TabOrder = 3
      end
      object radioStatus: TDBRadioGroup
        Left = 24
        Top = 224
        Width = 185
        Height = 105
        Caption = #29992#25143#29366#24577
        DataField = 'Status'
        DataSource = dsReader
        Items.Strings = (
          #27491#24120#20351#29992
          #24050#34987#20923#32467)
        TabOrder = 4
        Values.Strings = (
          '1'
          '2')
      end
      object btnOK: TButton
        Left = 32
        Top = 368
        Width = 75
        Height = 25
        Caption = #30830#23450
        TabOrder = 5
        OnClick = btnOKClick
      end
      object btnCancel: TButton
        Left = 152
        Top = 368
        Width = 75
        Height = 25
        Caption = #21462#28040
        TabOrder = 6
        OnClick = btnCancelClick
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 415
      Height = 403
      Align = alClient
      BevelOuter = bvLowered
      TabOrder = 1
      object Panel5: TPanel
        Left = 1
        Top = 1
        Width = 413
        Height = 41
        Align = alTop
        TabOrder = 0
        object Label1: TLabel
          Left = 16
          Top = 16
          Width = 65
          Height = 13
          Caption = #29992#25143#20449#24687
        end
      end
      object DBGrid1: TDBGrid
        Left = 1
        Top = 42
        Width = 413
        Height = 360
        Align = alClient
        DataSource = dsReader
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'UserID'
            Title.Caption = #20195#21495
            Width = 56
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Name'
            Title.Caption = #22995#21517
            Width = 110
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Gender'
            Width = 46
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Birthday'
            Width = 81
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Status'
            Width = 79
            Visible = True
          end>
      end
    end
  end
  object dsReader: TDataSource
    DataSet = tblReader
    Left = 208
    Top = 72
  end
  object tblReader: TADOTable
    Active = True
    Connection = dmData.ADOConnection1
    CursorType = ctStatic
    TableName = 'Reader'
    Left = 136
    Top = 72
  end
end