workgroupconfirm_unt.dfm

煤矿行业采掘接替计划自动生成系统

object WorkGroupConfirm_Frm: TWorkGroupConfirm_Frm
  Left = 298
  Top = 191
  Width = 353
  Height = 167
  Caption = #36873#25321#21442#25968
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 16
    Width = 193
    Height = 16
    AutoSize = False
    Caption = #35831#36873#25321#35201#26597#30475#30340#37319#29028#38431#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #40657#20307
    Font.Style = []
    ParentFont = False
  end
  object BitBtn1: TBitBtn
    Left = 144
    Top = 96
    Width = 75
    Height = 33
    Caption = #30830#23450
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
      DDDDDDDDDDDD4FDDDDDDDDDDDDD444FDDDDDDDDDDD4444FDDDDD00000444F44F
      DDDD0FFF444F0D44FDDD0F8884FF0DD4FDDD0FFFFFFF0DDD4FDD0F88888F0DDD
      D4FD0FFFFFFF0DDDDD4F0F88777F0DDDDDD40FFFF0000DDDDDDD0F887070DDDD
      DDDD0FFFF00DDDDDDDDD000000DDDDDDDDDDDDDDDDDDDDDDDDDD}
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 120
    Top = 56
    Width = 145
    Height = 21
    Color = clMoneyGreen
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clFuchsia
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    KeyField = 'WorkGroup_Id'
    ListField = 'WorkGroup_Name'
    ListSource = DataSource1
    ParentFont = False
    TabOrder = 1
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 184
    Top = 32
  end
  object ADOQuery1: TADOQuery
    Connection = Data_Frm.MD_Connection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#26045#24037#38431'f'
      'where WorkGroup_Type='#39#37319#29028#39)
    Left = 152
    Top = 32
  end
end