order_info.dfm

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

          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 9
          OnKeyPress = DBE_SKeyPress
        end
        object DBE_costume: TDBEdit
          Left = 95
          Top = 49
          Width = 150
          Height = 23
          DataField = 'costume_name'
          DataSource = DS_order_msg
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object DBE_order_date: TDBEdit
          Left = 95
          Top = 79
          Width = 150
          Height = 23
          DataField = 'order_date'
          DataSource = DS_order_msg
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 4
        end
        object DBE_expect_date: TDBEdit
          Left = 389
          Top = 78
          Width = 150
          Height = 23
          DataField = 'expect_date'
          DataSource = DS_order_msg
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 5
        end
        object DBE_complete_date: TDBEdit
          Left = 389
          Top = 108
          Width = 150
          Height = 23
          DataField = 'complete_date'
          DataSource = DS_order_msg
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 7
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 209
        Width = 639
        Height = 144
        Align = alTop
        Caption = #21508#22823#23567#22411#21495#26381#35013#23458#25143#35201#27714#29983#20135#25968#37327#26126#32454
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Label8: TLabel
          Left = 32
          Top = 61
          Width = 34
          Height = 16
          Caption = 'M/8'
          FocusControl = DBE_S
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = '@Batang'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label9: TLabel
          Left = 32
          Top = 27
          Width = 27
          Height = 16
          Caption = 'S/6'
          FocusControl = DBE_XL
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label4: TLabel
          Left = 32
          Top = 96
          Width = 36
          Height = 16
          Caption = 'L/10'
          FocusControl = DBE_M
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label5: TLabel
          Left = 290
          Top = 27
          Width = 45
          Height = 16
          Caption = 'XL/12'
          FocusControl = DBE_L
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label2: TLabel
          Left = 290
          Top = 61
          Width = 54
          Height = 16
          Caption = 'XXL/14'
          FocusControl = DBE_L
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object Label10: TLabel
          Left = 290
          Top = 96
          Width = 63
          Height = 16
          Caption = 'XXXL/16'
          FocusControl = DBE_L
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object DBE_S: TDBEdit
          Left = 96
          Top = 23
          Width = 150
          Height = 24
          DataField = 'size_1'
          DataSource = DS_order_msg
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          OnKeyPress = DBE_SKeyPress
        end
        object DBE_XL: TDBEdit
          Left = 389
          Top = 23
          Width = 150
          Height = 24
          DataField = 'size_4'
          DataSource = DS_order_msg
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 3
          OnKeyPress = DBE_SKeyPress
        end
        object DBE_M: TDBEdit
          Left = 96
          Top = 57
          Width = 150
          Height = 24
          DataField = 'size_2'
          DataSource = DS_order_msg
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          OnKeyPress = DBE_SKeyPress
        end
        object DBE_L: TDBEdit
          Left = 96
          Top = 92
          Width = 150
          Height = 24
          DataField = 'size_3'
          DataSource = DS_order_msg
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
          OnKeyPress = DBE_SKeyPress
        end
        object DBE_XXL: TDBEdit
          Left = 389
          Top = 57
          Width = 150
          Height = 24
          DataField = 'size_5'
          DataSource = DS_order_msg
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 4
          OnKeyPress = DBE_SKeyPress
        end
        object DBE_XXXL: TDBEdit
          Left = 389
          Top = 92
          Width = 150
          Height = 24
          DataField = 'size_6'
          DataSource = DS_order_msg
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 5
          OnKeyPress = DBE_SKeyPress
        end
      end
    end
  end
  object DS_order_msg: TDataSource
    DataSet = ADOQ_order_msg
    Left = 168
    Top = 96
  end
  object ADOQ_order_msg: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    AfterInsert = ADOQ_order_msgAfterInsert
    Parameters = <>
    SQL.Strings = (
      'select * from order_msg '
      ''
      'order by clo_id,cust_id,order_date,num desc')
    Left = 216
    Top = 168
    object ADOQ_order_msgord_id: TStringField
      DisplayLabel = #35746#21333#25209#21495
      FieldName = 'ord_id'
      Size = 10
    end
    object ADOQ_order_msgcostume_name: TStringField
      DisplayLabel = #26381#35013#21517#31216
      FieldName = 'costume_name'
      Size = 12
    end
    object ADOQ_order_msgclo_id: TIntegerField
      DisplayLabel = #26381#35013#31867#21035#32534#21495
      FieldName = 'clo_id'
    end
    object ADOQ_order_msgclo_name: TStringField
      DisplayLabel = #26381#35013#31867#21035
      FieldKind = fkLookup
      FieldName = 'clo_name'
      LookupDataSet = ADOT_clothing
      LookupKeyFields = 'clo_id'
      LookupResultField = 'clo_name'
      KeyFields = 'clo_id'
      Lookup = True
    end
    object ADOQ_order_msgcust_id: TIntegerField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'cust_id'
    end
    object ADOQ_order_msgcust_name: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldKind = fkLookup
      FieldName = 'cust_name'
      LookupDataSet = ADOT_customer
      LookupKeyFields = 'cust_id'
      LookupResultField = 'cust_name'
      KeyFields = 'cust_id'
      Lookup = True
    end
    object ADOQ_order_msgorder_date: TDateTimeField
      DisplayLabel = #19979#21333#26085#26399
      FieldName = 'order_date'
    end
    object ADOQ_order_msgexpect_date: TDateTimeField
      DisplayLabel = #39044#35745#23436#25104#26085#26399
      FieldName = 'expect_date'
    end
    object ADOQ_order_msgcomplete_date: TDateTimeField
      DisplayLabel = #23454#38469#23436#25104#26085#26399
      FieldName = 'complete_date'
    end
    object ADOQ_order_msgnum: TIntegerField
      DisplayLabel = #35746#21333#24635#25968
      FieldName = 'num'
    end
    object ADOQ_order_msgunit: TStringField
      DisplayLabel = #25968#37327#21333#20301
      FieldName = 'unit'
      Size = 4
    end
    object ADOQ_order_msgunit_price: TFloatField
      DisplayLabel = #23458#20379#24037#20215'/'#21333#20301
      FieldName = 'unit_price'
      DisplayFormat = #65509',0.00'
      EditFormat = '0.00'
    end
    object ADOQ_order_msgmoney: TFloatField
      DisplayLabel = #21512#35745#37329#39069
      FieldName = 'money'
      DisplayFormat = #65509',0.00'
      EditFormat = '0.00'
    end
    object ADOQ_order_msgsize_1: TIntegerField
      DisplayLabel = 'S/6'
      FieldName = 'size_1'
    end
    object ADOQ_order_msgsize_2: TIntegerField
      DisplayLabel = 'M/8'
      FieldName = 'size_2'
    end
    object ADOQ_order_msgsize_3: TIntegerField
      DisplayLabel = 'L/10'
      FieldName = 'size_3'
    end
    object ADOQ_order_msgsize_4: TIntegerField
      DisplayLabel = 'XL/12'
      FieldName = 'size_4'
    end
    object ADOQ_order_msgsize_5: TIntegerField
      DisplayLabel = 'XXL/14'
      FieldName = 'size_5'
    end
    object ADOQ_order_msgsize_6: TIntegerField
      DisplayLabel = 'XXXL/16'
      FieldName = 'size_6'
    end
  end
  object ADOT_customer: TADOTable
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    TableName = 'customer'
    Left = 216
    Top = 112
    object ADOT_customercust_id: TAutoIncField
      FieldName = 'cust_id'
      ReadOnly = True
    end
    object ADOT_customercust_name: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'cust_name'
      Size = 50
    end
  end
  object ADOT_clothing: TADOTable
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    TableName = 'clothing'
    Left = 216
    Top = 200
    object ADOT_clothingclo_id: TAutoIncField
      FieldName = 'clo_id'
      ReadOnly = True
    end
    object ADOT_clothingclo_name: TStringField
      DisplayLabel = #26381#35013#31867#21035#21517#31216
      FieldName = 'clo_name'
    end
  end
  object ADOQtmp: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 220
    Top = 321
  end
end