📄 uquery.~dfm

📁 在公司做的一个小的系统源代码
💻 ~DFM
字号:
object frmquery: Tfrmquery
  Left = -88
  Top = 145
  AutoScroll = False
  Caption = #32508#21512#26597#35810
  ClientHeight = 476
  ClientWidth = 807
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1009
    Height = 105
    BevelInner = bvLowered
    Color = clInfoBk
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 63
      Height = 13
      Caption = #29983#20135#20225#19994#65306' '
    end
    object Label2: TLabel
      Left = 328
      Top = 16
      Width = 87
      Height = 13
      Caption = #33647'   '#21697'  '#21517'   '#31216#65306' '
    end
    object Label3: TLabel
      Left = 328
      Top = 48
      Width = 78
      Height = 13
      Caption = #21830'  '#21697'  '#21517'  '#31216#65306
    end
    object Label4: TLabel
      Left = 8
      Top = 40
      Width = 66
      Height = 13
      Caption = #25991'        '#21495#65306'  '
    end
    object Label6: TLabel
      Left = 8
      Top = 72
      Width = 102
      Height = 13
      Caption = #20013#26631#38646#21806#20215#33539#22260#65306'  '
    end
    object Label7: TLabel
      Left = 208
      Top = 72
      Width = 21
      Height = 13
      Caption = #33267'   '
    end
    object Label8: TLabel
      Left = 328
      Top = 72
      Width = 90
      Height = 13
      Caption = #20013#26631#26085#26399#33539#22260#65306'  '
    end
    object Label9: TLabel
      Left = 528
      Top = 72
      Width = 21
      Height = 13
      Caption = #33267'   '
    end
    object Label5: TLabel
      Left = 672
      Top = 16
      Width = 171
      Height = 21
      Caption = #21457#25991#21333#20301#65306'      '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object edtscqy: TEdit
      Left = 72
      Top = 8
      Width = 249
      Height = 21
      TabOrder = 0
      OnKeyPress = edtscqyKeyPress
    end
    object edtypmc: TEdit
      Left = 416
      Top = 8
      Width = 249
      Height = 21
      TabOrder = 1
      OnKeyPress = edtypmcKeyPress
    end
    object edtspm: TEdit
      Left = 416
      Top = 40
      Width = 249
      Height = 21
      TabOrder = 3
      OnKeyPress = edtspmKeyPress
    end
    object edtwh: TEdit
      Left = 72
      Top = 32
      Width = 249
      Height = 21
      TabOrder = 2
      OnKeyPress = edtwhKeyPress
    end
    object edtzblsj1: TEdit
      Left = 120
      Top = 64
      Width = 81
      Height = 21
      TabOrder = 4
      OnKeyPress = edtzblsj1KeyPress
    end
    object edtzblsj2: TEdit
      Left = 232
      Top = 64
      Width = 89
      Height = 21
      TabOrder = 5
      OnKeyPress = edtzblsj2KeyPress
    end
    object dtzbrq1: TDateTimePicker
      Left = 416
      Top = 64
      Width = 105
      Height = 25
      CalAlignment = dtaLeft
      Date = 37824.6769815046
      Time = 37824.6769815046
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 6
      OnKeyPress = dtzbrq1KeyPress
    end
    object dtzbrq2: TDateTimePicker
      Left = 552
      Top = 64
      Width = 113
      Height = 25
      CalAlignment = dtaLeft
      Date = 37824.677366088
      Time = 37824.677366088
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 7
    end
    object edtfwdw: TEdit
      Left = 680
      Top = 48
      Width = 121
      Height = 21
      TabOrder = 8
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 96
    Width = 1009
    Height = 33
    Color = clInfoBk
    ParentColor = False
    TabOrder = 1
    object GroupBox2: TGroupBox
      Left = 40
      Top = 0
      Width = 81
      Height = 33
      TabOrder = 0
      object sptnquery: TSpeedButton
        Left = 0
        Top = 8
        Width = 81
        Height = 25
        Caption = #26597#35810'(&Q)'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000CE0E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
          2222222222222222422222222222222244222224242424444442222222222222
          4422222222222222422222222222222222220002220002222222000222000222
          2222080020800222222207002070022222220000000002222222208000802222
          2222220020022222222222002002222222222222222222222222}
        OnClick = SptnqueryClick
      end
    end
    object GroupBox3: TGroupBox
      Left = 184
      Top = 0
      Width = 89
      Height = 33
      TabOrder = 1
      object Sptnxiugai: TSpeedButton
        Left = 0
        Top = 8
        Width = 89
        Height = 22
        Caption = #20462#25913'(&G)'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
          0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
          FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF773333303300000003333337337777777333}
        NumGlyphs = 2
        OnClick = SptnxiugaiClick
      end
    end
    object GroupBox4: TGroupBox
      Left = 344
      Top = 0
      Width = 89
      Height = 33
      TabOrder = 2
      object sptndelete: TSpeedButton
        Left = 0
        Top = 8
        Width = 89
        Height = 22
        Caption = #21024#38500'(&D)'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000CE0E0000D80E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777777777777777777777777777770F77770F7777777777777000F777777
          0F7777000F777770F777777000F77700F7777777000F700F77777777700000F7
          7777777777000F7777777777700000F777777777000F70F77777770000F77700
          F77770000F7777700F77700F7777777700F77777777777777777}
        OnClick = sptndeleteClick
      end
    end
    object GroupBox5: TGroupBox
      Left = 504
      Top = 0
      Width = 81
      Height = 33
      TabOrder = 3
      object Sptnbrowse: TSpeedButton
        Left = 0
        Top = 8
        Width = 81
        Height = 22
        Caption = #39044#35272'(&P)'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000120B0000120B00001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
          DADA000000000DADADAD0FFFFFFF0ADADA000F88888F0DADA0000F88888F0ADA
          000A0F88870007A000AD0F8800FFF0000ADA0F807FFFF070ADAD0F70E000F080
          7ADA0F0EFEFEF0880DAD0F0F0000F0880ADA000EFEFFF0880DADDA7000000080
          7ADAADA008888870ADADDADA0088800ADADAADADA70007ADADAD}
        OnClick = SptnbrowseClick
      end
    end
    object GroupBox6: TGroupBox
      Left = 664
      Top = 0
      Width = 89
      Height = 33
      TabOrder = 4
      object Sptnclose: TSpeedButton
        Left = 0
        Top = 8
        Width = 89
        Height = 22
        Caption = #20851#38381'(&E)'
        Flat = True
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000FF00FF00FF00
          FF00FFFFFF00FFFFFF000000000000000000FFFFFF000000000000000000FFFF
          FF000000000000000000FF00FF00FF00FF0000000000FF00FF00FF00FF00FF00
          FF000000000000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000
          0000000000008080800000000000000000008080800000000000FF00FF00FF00
          FF000000000000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000
          0000FF00FF008080800000000000000000008080800000000000FF00FF00FF00
          FF0000000000000000000000000000000000000000000000000000000000FF00
          FF00FF00FF008080800080808000000000000000000000000000FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00FF00FF00FF000000
          0000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000000000000000
          0000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000808080008080
          8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF000000000000000000000000000000000000000000000000008080
          8000FF00FF00000000008080800080808000FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00000000000000FF000000FF000000FF000000FF00000000008080
          8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
          FF00000000000000FF000000FF000000FF000000FF0000000000808080008080
          8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
          FF000000000000000000000000000000FF000000000080808000808080008080
          8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF0000000000000000000000000080808000808080008080
          800000000000FF00FF008080800080808000FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000808080008080
          80008080800000000000FF00FF0080808000FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000808080008080
          8000808080008080800000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
          FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
        OnClick = SptncloseClick
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 128
    Width = 937
    Height = 321
    Hint = #21452#20987#20462#25913#35760#24405#65292#21333#20987#25490#24207
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawColumnCell = DBGrid1DrawColumnCell
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'id'
        Title.Caption = #24207#21495
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'scqy'
        Title.Caption = #29983#20135#20225#19994
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ypmc'
        Title.Caption = #33647#21697#21517#31216
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jx'
        Title.Caption = #21058#22411
        Width = 45
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'spm'
        Title.Caption = #21830#21697#21517#31216
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gg'
        Title.Caption = #35268#26684
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dw'
        Title.Caption = #21333#20301
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jg'
        Title.Caption = #20013#26631#38646#21806#20215
        Width = 73
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zlcc'
        Title.Caption = #36136#37327#23618#27425
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'glfs'
        Title.Caption = #31649#29702#26041#24335
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'wh'
        Title.Caption = #25991#21495
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zbrq'
        Title.Caption = #20013#26631#26085#26399
        Width = 71
        Visible = True
      end>
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 449
    Width = 807
    Height = 27
    Color = clActiveBorder
    Panels = <
      item
        Width = 350
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ADOQzbcgb: TADOQuery
    Connection = dm.ADOConnection1
    Parameters = <>
    Left = 184
    Top = 176
  end
  object DataSource1: TDataSource
    DataSet = ADOQzbcgb
    OnDataChange = DataSource1DataChange
    Left = 264
    Top = 168
  end
  object ADOQuery1: TADOQuery
    Connection = dm.ADOConnection1
    Parameters = <>
    Left = 848
  end
end
⌨️ 快捷键说明

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