dispensarymanage.dfm

校园刷卡系统

object DispensaryManageForm: TDispensaryManageForm
  Left = 296
  Top = 170
  Width = 886
  Height = 559
  BorderIcons = [biHelp]
  Caption = #26657#22253#21047#21345#28040#36153#31995#32479#20179#24211#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 = 56
    Top = 463
    Width = 75
    Height = 13
    Caption = #24403#21069#25805#20316#21592'     '
  end
  object showname: TLabel
    Left = 139
    Top = 463
    Width = 99
    Height = 13
    Caption = '                                 '
  end
  object showtime: TLabel
    Left = 240
    Top = 463
    Width = 126
    Height = 13
    Caption = '                                          '
  end
  object Button1: TButton
    Left = 760
    Top = 456
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 1
    OnClick = N4Click
  end
  object PageControl1: TPageControl
    Left = 13
    Top = 16
    Width = 849
    Height = 417
    ActivePage = TabSheet2
    TabIndex = 1
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #21830#21697#26597#35810
      ImageIndex = 1
      object WarningLabel: TLabel
        Left = 8
        Top = 8
        Width = 147
        Height = 13
        Caption = #24211#23384#37327#24050#22788#20110#35686#25106#32447#65306'         '
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 24
        Width = 817
        Height = 249
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ID'
            Title.Caption = #21830#21697#32534#21495
            Width = 97
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Name'
            Title.Caption = #21830#21697#21517
            Width = 101
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Unit'
            Title.Caption = #21333#20301
            Width = 80
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Amount'
            Title.Caption = #24211#23384#37327
            Width = 89
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Price'
            Title.Caption = #21333#20215
            Width = 106
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Least'
            Title.Caption = #26368#23569#24211#23384#37327
            Width = 90
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Factory'
            Title.Caption = #29983#20135#21830
            Width = 287
            Visible = True
          end>
      end
      object RadioGroup1: TRadioGroup
        Left = 32
        Top = 280
        Width = 241
        Height = 89
        Caption = #26597#35810
        Items.Strings = (
          #24211#23384#35686#31034
          #24403#21069#29983#20135#21830#30340#21830#21697
          #20840#37096#24211#23384)
        TabOrder = 1
        OnClick = RadioGroup1Click
      end
      object DBNavigator2: TDBNavigator
        Left = 456
        Top = 304
        Width = 224
        Height = 25
        DataSource = DataSource1
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
        TabOrder = 2
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21830#21697#31649#29702
      ImageIndex = 2
      object Label3: TLabel
        Left = 312
        Top = 288
        Width = 3
        Height = 13
      end
      object DBGrid2: TDBGrid
        Left = 8
        Top = 16
        Width = 817
        Height = 249
        DataSource = DataSource2
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid2CellClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ID'
            Title.Caption = #21830#21697#32534#21495
            Width = 108
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Name'
            Title.Caption = #21830#21697#21517
            Width = 101
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Unit'
            Title.Caption = #21333#20301
            Width = 80
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Amount'
            Title.Caption = #24211#23384#37327
            Width = 92
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Price'
            Title.Caption = #21333#20215
            Width = 106
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Least'
            Title.Caption = #26368#23569#24211#23384#37327
            Width = 90
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Factory'
            Title.Caption = #29983#20135#21830
            Width = 287
            Visible = True
          end>
      end
      object DBNavigator1: TDBNavigator
        Left = 456
        Top = 304
        Width = 224
        Height = 25
        DataSource = DataSource2
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
        TabOrder = 1
        OnClick = DBNavigator1Click
      end
      object Edit1: TEdit
        Left = 312
        Top = 328
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
        TabOrder = 2
        OnKeyDown = Edit1KeyDown
      end
      object RadioGroup2: TRadioGroup
        Left = 16
        Top = 288
        Width = 257
        Height = 81
        Caption = #21830#21697#31649#29702
        Columns = 2
        Items.Strings = (
          #26032#22686#21830#21697
          #20462#25913#24403#21069#21830#21697
          #21024#38500#24403#21069#21830#21697
          #24403#21069#21830#21697#20986#24211
          #24403#21069#21830#21697#20837#24211
          #28165#38500#36873#25321)
        TabOrder = 3
        OnClick = RadioGroup2Click
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 816
    object N1: TMenuItem
      Caption = #25991#20214'(&X)'
      object N4: TMenuItem
        Caption = #20851#38381'(&Y)'
        OnClick = N4Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object N6: TMenuItem
        Caption = #36864#20986'(&Z)'
        OnClick = N6Click
      end
    end
    object N2: TMenuItem
      Caption = #26597#35810'(&Y)'
      object N7: TMenuItem
        Caption = #20648#23384#37327#35686#31034'(&A)'
        ShortCut = 16449
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object N9: TMenuItem
        Caption = #21830#21697#24211#30424#28857'(&B)'
        ShortCut = 16450
        OnClick = N9Click
      end
      object N10: TMenuItem
        Caption = #21830#21697#35843#20215'(&C)'
        ShortCut = 16451
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object N12: TMenuItem
        Caption = #24320#22987#24037#20316#26102#38388'(&T)'
        OnClick = N12Click
      end
    end
    object N3: TMenuItem
      Caption = #24110#21161'(&Z)'
      object N13: TMenuItem
        Caption = #20851#20110#23398#29983#20179#24211#31649#29702#23376#31995#32479'(&H)'
        OnClick = N13Click
      end
      object N19: TMenuItem
        Caption = '-'
      end
      object N20: TMenuItem
        Caption = #20851#20110'...(&G)'
        OnClick = N20Click
      end
    end
  end
  object Query1: TQuery
    DatabaseName = 'SK'
    RequestLive = True
    Left = 784
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 752
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'SK'
    TableName = 'StorageGoods.db'
    Left = 720
  end
  object Query2: TQuery
    DatabaseName = 'SK'
    Left = 656
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 688
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 24
    Top = 448
  end
end