colorsetup.dfm

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

object FrmColorSetup: TFrmColorSetup
  Left = 257
  Top = 186
  BorderStyle = bsDialog
  Caption = #24067#26009#39068#33394#31649#29702
  ClientHeight = 249
  ClientWidth = 344
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 344
    Height = 209
    Align = alTop
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'id'
        Title.Alignment = taCenter
        Title.Caption = 'ID'#21495
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -15
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Width = 43
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'color'
        Title.Alignment = taCenter
        Title.Caption = #39068#33394
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -15
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Width = 252
        Visible = True
      end>
  end
  object AddBtn: TBitBtn
    Left = 11
    Top = 218
    Width = 50
    Height = 25
    Cursor = crHandPoint
    Hint = #22686#21152'|'#22686#21152
    Caption = #22686#21152'&A'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = AddBtnClick
  end
  object DelBtn: TBitBtn
    Left = 79
    Top = 218
    Width = 50
    Height = 25
    Cursor = crHandPoint
    Hint = #21024#38500'|'#21024#38500
    Caption = #21024#38500'&D'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = DelBtnClick
    NumGlyphs = 2
  end
  object SaveBtn: TBitBtn
    Left = 147
    Top = 218
    Width = 50
    Height = 25
    Cursor = crHandPoint
    Caption = #20445#23384'&S'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = SaveBtnClick
  end
  object CancelBtn: TBitBtn
    Left = 215
    Top = 218
    Width = 50
    Height = 25
    Cursor = crHandPoint
    Caption = #21462#28040'&C'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = CancelBtnClick
  end
  object ExtBtn: TBitBtn
    Left = 283
    Top = 218
    Width = 50
    Height = 25
    Cursor = crHandPoint
    Cancel = True
    Caption = #36864#20986'&X'
    Default = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ModalResult = 7
    ParentFont = False
    TabOrder = 5
    OnClick = ExtBtnClick
  end
  object ADOQuery1: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    AfterInsert = ADOQuery1AfterInsert
    BeforePost = ADOQuery1BeforePost
    Parameters = <>
    SQL.Strings = (
      'select * from color order by id')
    Left = 72
    Top = 120
    object ADOQuery1id: TIntegerField
      DisplayWidth = 10
      FieldName = 'id'
    end
    object ADOQuery1color: TStringField
      DisplayWidth = 12
      FieldName = 'color'
      Size = 10
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    OnStateChange = DataSource1StateChange
    Left = 160
    Top = 120
  end
end