spdw.dfm

来自「汽车配件管理系统 采用ACCESS数据库 配件销售类公司适用 。 主要是目录树的」· DFM 代码 · 共 137 行

object spdwck: Tspdwck
  Left = 253
  Top = 112
  Width = 557
  Height = 475
  Caption = #21830#21697#21333#20301#12289#35760#24080#31185#30446#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object dxfColorButton1: TdxfColorButton
    Left = 80
    Top = 392
    Width = 100
    Height = 40
    Caption.Strings = (
      #20445#23384#21333#20301#25968#25454)
    Color = clWhite
    OnClick = dxfColorButton1Click
  end
  object DBGridEh1: TDBGridEh
    Left = 24
    Top = 16
    Width = 208
    Height = 361
    DataSource = DataSource1
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'mc'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21830#21697#21333#20301#21517#31216
        Width = 160
      end>
  end
  object DBGridEh2: TDBGridEh
    Left = 248
    Top = 16
    Width = 273
    Height = 361
    DataSource = DataSource2
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'mc'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35760#24080#31185#30446#21517#31216
        Width = 160
      end
      item
        EditButtons = <>
        FieldName = 'lx'
        Footers = <>
        KeyList.Strings = (
          #25910#20837
          #25903#20986)
        PickList.Strings = (
          #25910#20837
          #25903#20986)
        Title.Alignment = taCenter
        Title.Caption = #31185#30446#31867#22411
        Width = 56
      end>
  end
  object dxfColorButton2: TdxfColorButton
    Left = 360
    Top = 392
    Width = 100
    Height = 40
    Caption.Strings = (
      #20445#23384#31185#30446#25968#25454)
    Color = clWhite
    OnClick = dxfColorButton2Click
  end
  object Table1: TADOTable
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    TableName = 'spdw'
    Left = 80
    Top = 160
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 120
    Top = 160
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 336
    Top = 152
  end
  object Table2: TADOTable
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    OnNewRecord = Table2NewRecord
    TableName = 'jzkm'
    Left = 296
    Top = 152
  end
end