copymi.dfm

某公司资料管理系统

object CopyMIForm: TCopyMIForm
  Left = 166
  Top = 135
  Width = 346
  Height = 375
  Caption = #22797#21046'MI'#36164#26009
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 86
    Width = 338
    Height = 262
    Align = alClient
    DataSource = MastData.MIBaseLookupSource
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'PartNo'
        Title.Caption = #20135#21697#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CustomerNo'
        Title.Caption = #23458#25143#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CustPartNo'
        Title.Caption = #23458#25143#20135#21697#32534#21495
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 338
    Height = 86
    Align = alTop
    TabOrder = 1
    object Bevel1: TBevel
      Left = 4
      Top = 9
      Width = 237
      Height = 67
      Shape = bsFrame
    end
    object Label1: TLabel
      Left = 20
      Top = 24
      Width = 48
      Height = 12
      Caption = #23383#27573#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 25
      Top = 49
      Width = 36
      Height = 12
      Caption = #23383#27573#20540
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object SearchButton: TSpeedButton
      Left = 198
      Top = 43
      Width = 23
      Height = 23
      Hint = 'Search'
      Enabled = False
      Glyph.Data = {
        CA010000424DCA01000000000000760000002800000022000000110000000100
        04000000000054010000CE0E0000D80E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FBFFF
        FFFFF3333333333333333300000033333333FBBFFFFBF3333333333333333300
        00003333333FBFFFFBFFF333333333333333330000003333333FBFFFFBFBF333
        3333333333333300000033333333FBBFFFFFF333333333333333330000003333
        333444FBFFFBF3333333888333333300000033333344834FBFFFF33333388738
        333333000000333334847F84BFFFF33333878737833333000000333334484F84
        FBBFB333338878378333330000003333348F74483FF3F3333387338873333300
        0000333344FFF743333333333883333833333300000033448F84443333333338
        873388873333330000003448F74333333333338873387773333333000000348F
        77333333333333873337333333333300000034F7743333333333338333873333
        3333330000003444433333333333338888733333333333000000333333333333
        3333333333333333333333000000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SearchButtonClick
    end
    object Button1: TButton
      Left = 254
      Top = 11
      Width = 75
      Height = 25
      Caption = #30830#23450
      Default = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ModalResult = 1
      ParentFont = False
      TabOrder = 0
    end
    object Button2: TButton
      Left = 254
      Top = 46
      Width = 75
      Height = 25
      Cancel = True
      Caption = #21462#28040
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ModalResult = 2
      ParentFont = False
      TabOrder = 1
    end
    object SearchEdit: TEdit
      Left = 75
      Top = 46
      Width = 116
      Height = 20
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnChange = SearchEditChange
      OnKeyPress = SearchEditKeyPress
    end
    object OrderCombox: TComboBox
      Left = 75
      Top = 16
      Width = 143
      Height = 20
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ItemIndex = 0
      ParentFont = False
      TabOrder = 3
      Text = #20135#21697#32534#21495
      OnChange = OrderComboxChange
      Items.Strings = (
        #20135#21697#32534#21495
        #23458#25143#20135#21697#32534#21495
        #23458#25143#32534#21495)
    end
  end
  object DataSource: TDataSource
    DataSet = MastData.MIBaseLookup
    Left = 105
    Top = 190
  end
end