czyglut.dfm

来自「本系统主要划分为11个子模块:与操作员有关的文献刊物入库、出库、库结存和文献刊物」· DFM 代码 · 共 198 行

DFM
198
字号
object czyglfm: Tczyglfm
  Left = 392
  Top = 191
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25805#20316#21592#31649#29702
  ClientHeight = 292
  ClientWidth = 498
  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 = 498
    Height = 292
    Align = alClient
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 8
      Top = 8
      Width = 257
      Height = 289
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 2
        Top = 15
        Width = 253
        Height = 272
        Align = alClient
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid1CellClick
      end
    end
    object GroupBox2: TGroupBox
      Left = 272
      Top = 8
      Width = 225
      Height = 281
      Caption = #20449#24687#36755#20837
      TabOrder = 1
      object Label1: TLabel
        Left = 8
        Top = 32
        Width = 97
        Height = 25
        AutoSize = False
        Caption = #22995#21517#65306
      end
      object Label2: TLabel
        Left = 8
        Top = 88
        Width = 65
        Height = 25
        AutoSize = False
        Caption = #23494#30721#65306
      end
      object tjbt: TSpeedButton
        Left = 8
        Top = 208
        Width = 73
        Height = 25
        Caption = #28155#21152
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888888888800000000000888880888888888088888088888888
          8088888088888888808888808888888880888880888888888088888088888888
          8088888088888888808888808888888880888880888888000088888088888808
          0888888088888800888888800000000888888888888888888888}
        OnClick = tjbtClick
      end
      object xgedit: TSpeedButton
        Left = 104
        Top = 208
        Width = 65
        Height = 25
        Caption = #20462#25913
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          888888880808080888888888888888008888888888888800088888000000000B
          708888088888880B8088880800800800B708880888888880B808880CCCCCCCCC
          0B70888C888888880B00888C800800800011888C888888888000888CCCCCCCCC
          CCC8888C8CC8CC8CC8C8888CCCCCCCCCCCC88888888888888888}
        OnClick = xgeditClick
      end
      object scedit: TSpeedButton
        Left = 8
        Top = 248
        Width = 73
        Height = 25
        Caption = #21024#38500
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888881F88881F8888888888888991F8888889F8888191F88888
          1F888888199F88891F8888888191F819F88888888819199F88888888888919F8
          888888888891911F888888888191F89F88888889191F88819F88881919F88888
          19F88891F8888888819F88888888888888888888888888888888}
        OnClick = sceditClick
      end
      object closebt: TSpeedButton
        Left = 104
        Top = 248
        Width = 65
        Height = 25
        Caption = #20851#38381
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888800888888
          8888888030888888888888033088888888888833300000000888883330880888
          88888033008808888488F033308808884488F033308808844444F03330880844
          4444803330880884444488330888088844888830888808888488880888880888
          8888880000000888888888888888888888888888888888888888}
        OnClick = closebtClick
      end
      object Label3: TLabel
        Left = 8
        Top = 144
        Width = 49
        Height = 25
        AutoSize = False
        Caption = #26435#38480#65306
      end
      object xmedit: TEdit
        Left = 8
        Top = 56
        Width = 137
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
        TabOrder = 0
      end
      object mmedit: TEdit
        Left = 8
        Top = 112
        Width = 137
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
        TabOrder = 1
      end
      object qxbox: TComboBox
        Left = 8
        Top = 168
        Width = 145
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899#36755#20837#27861' 3.0 '#29256
        ItemHeight = 13
        TabOrder = 2
        Items.Strings = (
          #35745#31639#26426#31649#29702#21592
          #25805#20316#21592)
      end
    end
  end
  object ADOQuery: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'select * from czyb')
    Left = 176
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery
    Left = 144
    Top = 64
  end
end

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?