infindut.dfm

本系统主要划分为11个子模块：与操作员有关的文献刊物入库、出库、库结存和文献刊物查询

object rkcxfm: Trkcxfm
  Left = 316
  Top = 158
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #20837#24211#26597#35810
  ClientHeight = 477
  ClientWidth = 659
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 659
    Height = 477
    Align = alClient
    Color = cl3DLight
    TabOrder = 0
    object lastbt: TSpeedButton
      Left = 144
      Top = 448
      Width = 81
      Height = 25
      Caption = #19978#19968#26465
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888888888888881888888888888881188
        8888888888811188888888888811118888888888811111888888888888111188
        8888888888811188888888888888118888888888888881888888888888888888
        8888888888888888888888888888888888888888888888888888}
      OnClick = lastbtClick
    end
    object nextbt: TSpeedButton
      Left = 288
      Top = 448
      Width = 81
      Height = 25
      Caption = #19979#19968#26465
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888888888881888888888888888118888
        8888888888111888888888888811118888888888881111188888888888111188
        8888888888111888888888888811888888888888881888888888888888888888
        8888888888888888888888888888888888888888888888888888}
      OnClick = nextbtClick
    end
    object closebt: TSpeedButton
      Left = 432
      Top = 448
      Width = 89
      Height = 25
      Caption = #20851#38381
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888800888888
        8888888030888888888888033088888888888833300000000888883330880888
        88888033008808888488F033308808884488F033308808844444F03330880844
        4444803330880884444488330888088844888830888808888488880888880888
        8888880000000888888888888888888888888888888888888888}
      OnClick = closebtClick
    end
    object GroupBox1: TGroupBox
      Left = 10
      Top = 16
      Width = 641
      Height = 129
      Caption = #26597#35810#26465#20214
      TabOrder = 0
      object Label1: TLabel
        Left = 168
        Top = 88
        Width = 33
        Height = 25
        AutoSize = False
        Caption = #20174
      end
      object Label2: TLabel
        Left = 328
        Top = 88
        Width = 25
        Height = 25
        AutoSize = False
        Caption = #21040
      end
      object cxbt: TSpeedButton
        Left = 544
        Top = 24
        Width = 81
        Height = 25
        Caption = #31934#30830#26597#35810
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888808888888888888800088888888888800088888888888800
          0888888800000000888888800BBB000888888800BBBBB0088888880BBBBBBB08
          8888880BBB0BBB088888880BB080BB0888888800BB0BB008888888800BBB0088
          8888888800000888888888888888888888888888888888888888}
        OnClick = cxbtClick
      end
      object qxbt: TSpeedButton
        Left = 544
        Top = 80
        Width = 81
        Height = 25
        Caption = #21462#28040
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888888888888888888888888888888888888888888888888888
          8888888888888888748888844444888884788884444888888848888444888888
          8848888448488888884888848884488884788888888884444788888888888888
          8888888888888888888888888888888888888888888888888888}
        OnClick = qxbtClick
      end
      object mcrb: TRadioButton
        Left = 40
        Top = 24
        Width = 113
        Height = 17
        Caption = #25353#25991#29486#21002#29289#21517#31216
        TabOrder = 0
        OnClick = mcrbClick
      end
      object bhrb: TRadioButton
        Left = 40
        Top = 56
        Width = 113
        Height = 17
        Caption = #25353#25991#29486#21002#29289#32534#21495
        TabOrder = 1
        OnClick = bhrbClick
      end
      object sjrb: TRadioButton
        Left = 40
        Top = 88
        Width = 129
        Height = 17
        Caption = #25353#25991#29486#21002#29289#36827#36135#26102#38388
        TabOrder = 2
        OnClick = sjrbClick
      end
      object clmcbox: TComboBox
        Left = 176
        Top = 24
        Width = 193
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
        ItemHeight = 13
        TabOrder = 3
        OnKeyDown = clmcboxKeyDown
      end
      object clbhedit: TEdit
        Left = 176
        Top = 56
        Width = 185
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
        TabOrder = 4
        OnKeyDown = clbheditKeyDown
      end
      object rq1box: TDateTimePicker
        Left = 192
        Top = 88
        Width = 121
        Height = 21
        Date = 39222.858918773150000000
        Time = 39222.858918773150000000
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
        TabOrder = 5
        OnKeyDown = rq1boxKeyDown
      end
      object rq2box: TDateTimePicker
        Left = 360
        Top = 88
        Width = 137
        Height = 21
        Date = 39222.858918773150000000
        Time = 39222.858918773150000000
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
        TabOrder = 6
        OnKeyDown = rq2boxKeyDown
      end
    end
    object GroupBox2: TGroupBox
      Left = 8
      Top = 152
      Width = 641
      Height = 289
      TabOrder = 1
      object DBGrid1: TDBGrid
        Left = 2
        Top = 15
        Width = 637
        Height = 272
        Align = alClient
        Color = clBtnFace
        DataSource = DataSource1
        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 = []
      end
    end
  end
  object ADOQuery: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'select * from rkb')
    Left = 136
    Top = 168
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery
    Left = 97
    Top = 168
  end
end