⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unt_gra.dfm

📁 煤矿行业采掘接替计划自动生成系统
💻 DFM
字号:
inherited Frm_Gra: TFrm_Gra
  Left = 89
  Top = 102
  Width = 672
  Height = 422
  Align = alNone
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSizeable
  Caption = #22270#32440#35835#21462
  WindowState = wsNormal
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel3: TPanel
    Top = 355
    Width = 664
    inherited Btn_Exit: TBitBtn
      Left = 448
    end
  end
  inherited Panel4: TPanel
    Width = 664
    Height = 355
    inherited GroupBox2: TGroupBox
      Width = 664
      Caption = #22270#24418#21442#25968
      object Panel8: TPanel
        Left = 2
        Top = 18
        Width = 292
        Height = 92
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        object Label6: TLabel
          Left = 68
          Top = 14
          Width = 64
          Height = 16
          Caption = #22270#32440#21517#31216
        end
        object Label1: TLabel
          Left = 12
          Top = 44
          Width = 120
          Height = 16
          Caption = 'AutoCAD'#25991#20214#21517#31216
        end
        object OpenCADfile: TSpeedButton
          Left = 250
          Top = 34
          Width = 33
          Height = 24
          Caption = '...'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          OnClick = OpenCADfileClick
        end
        object Label14: TLabel
          Left = 84
          Top = 70
          Width = 48
          Height = 16
          Caption = #27604#20363#23610
        end
        object DBEdtGraphName: TDBEdit
          Left = 136
          Top = 5
          Width = 121
          Height = 24
          DataField = 'Graphic_Name'
          DataSource = Ds_Ado
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 0
        end
        object EdtCADfilename: TEdit
          Left = 136
          Top = 34
          Width = 111
          Height = 24
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 1
        end
        object CBoxScale: TDBComboBox
          Left = 136
          Top = 64
          Width = 121
          Height = 24
          DataField = 'Scale'
          DataSource = Ds_Ado
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          ItemHeight = 16
          Items.Strings = (
            '1:10000'
            '1:5000'
            '1:1000'
            '1:500'
            '1:100'
            '1:50'
            '1:10'
            '1:1'
            '10:1'
            '50:1'
            '100:1'
            '500:1'
            '1000:1'
            '5000:1'
            '10000:1')
          TabOrder = 2
        end
      end
      object RGup_G: TDBRadioGroup
        Left = 294
        Top = 18
        Width = 368
        Height = 92
        Align = alClient
        Caption = #35831#36873#25321#33719#21462#22270#24418#25968#25454#26041#24335
        DataField = 'IsSimple'
        DataSource = Ds_Ado
        Items.Strings = (
          #31616#21333#33719#21462'('#24037#20316#38754#12289#24055#36947#21644#26029#23618')'
          #22797#26434#33719#21462'('#25152#26377#25968#25454')'
          #20854#20182#25968#25454)
        TabOrder = 1
      end
    end
    inherited Panel5: TPanel
      Width = 664
      Height = 75
      inherited Btn_Del: TBitBtn [0]
        Left = 172
      end
      inherited Btn_Con: TBitBtn [1]
        Left = 94
      end
      object Btn_Graphic: TBitBtn [2]
        Left = 549
        Top = 5
        Width = 97
        Height = 30
        Caption = #37325#26032#32472#21046
        TabOrder = 9
        OnClick = Btn_GraphicClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
          555557777F777555F55500000000555055557777777755F75555005500055055
          555577F5777F57555555005550055555555577FF577F5FF55555500550050055
          5555577FF77577FF555555005050110555555577F757777FF555555505099910
          555555FF75777777FF555005550999910555577F5F77777775F5500505509990
          3055577F75F77777575F55005055090B030555775755777575755555555550B0
          B03055555F555757575755550555550B0B335555755555757555555555555550
          BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
          50BB555555555555575F555555555555550B5555555555555575}
        NumGlyphs = 2
      end
      object BtnGetCADData: TBitBtn [3]
        Left = 312
        Top = 5
        Width = 89
        Height = 30
        Caption = #33719#21462
        TabOrder = 8
        OnClick = BtnGetCADDataClick
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888800008888888888888888888800008888887777887777888800008888
          8444478444478888000088888444488444488888000088888844788844788888
          0000888888447888447888880000888888447888447888880000888888447888
          4478888800008888774478884478888800008884444478884478888800008844
          7844788844788888000088447844788844788888000088447744777744777888
          0000888444444444444478880000888844444444444488880000888888888888
          8888888800008888888888888888888800008888888888888888888800008888
          88888888888888880000}
      end
      object Btn_DealGra: TBitBtn [4]
        Left = 432
        Top = 5
        Width = 89
        Height = 30
        Caption = #22788#29702
        TabOrder = 7
        OnClick = Btn_DealGraClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
          555557777F777555F55500000000555055557777777755F75555005500055055
          555577F5777F57555555005550055555555577FF577F5FF55555500550050055
          5555577FF77577FF555555005050110555555577F757777FF555555505099910
          555555FF75777777FF555005550999910555577F5F77777775F5500505509990
          3055577F75F77777575F55005055090B030555775755777575755555555550B0
          B03055555F555757575755550555550B0B335555755555757555555555555550
          BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
          50BB555555555555575F555555555555550B5555555555555575}
        NumGlyphs = 2
      end
      inherited Btn_Prior: TBitBtn [5]
        Left = 173
        Top = 40
      end
      inherited Btn_Next: TBitBtn [6]
        Left = 330
        Top = 40
      end
      inherited Btn_First: TBitBtn [7]
        Left = 32
        Top = 40
      end
      inherited Btn_Last: TBitBtn [8]
        Left = 487
        Top = 40
      end
      inherited Btn_Add: TBitBtn [9]
        Left = 16
        OnClick = Btn_AddClick
      end
    end
    inherited DBGrid1: TDBGrid
      Top = 187
      Width = 664
      Height = 168
      Columns = <
        item
          Expanded = False
          FieldName = 'Graphic_Id'
          Title.Caption = #32534#21495
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 43
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Graphic_Name'
          Title.Caption = #22270#32440#21517
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IsSimple'
          Title.Caption = #33719#21462#22270#24418#25968#25454#26041#24335
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 160
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Entity'
          Title.Caption = #23454#20307#20010#25968
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Scale'
          Title.Caption = #27604#20363
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IsDeal'
          Title.Caption = #26159#21542#24050#22788#29702
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 100
          Visible = True
        end>
    end
  end
  inherited GroupBox1: TGroupBox
    Left = 664
    Width = 0
    Height = 355
  end
  inherited Ds_Ado: TDataSource
    DataSet = Frm_data.ADOT_Graph
    Left = 552
  end
  object OpenDialog1: TOpenDialog
    Filter = 'AutoCAD'#22270#24418#25991#20214'|*.dwg'
    Left = 264
    Top = 16
  end
end

⌨️ 快捷键说明

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