unit_dinginput.~dfm

此代码为企业原料管理代码

    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Xuhao'
        Title.Alignment = taCenter
        Title.Caption = '编 号'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 40
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Kehumi'
        Title.Alignment = taCenter
        Title.Caption = '客户名称'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 150
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Chpimi'
        Title.Alignment = taCenter
        Title.Caption = '产品名称'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 112
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Tuhao'
        Title.Alignment = taCenter
        Title.Caption = '图 号'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 96
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Shuli'
        Title.Alignment = taCenter
        Title.Caption = '订购数量'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 51
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Dajia'
        Title.Alignment = taCenter
        Title.Caption = '单 价'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 37
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Dijin'
        Title.Alignment = taCenter
        Title.Caption = '订金（元）'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 65
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Diqi'
        Title.Alignment = taCenter
        Title.Caption = '订货日期'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 79
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Jiaohuriqi'
        Title.Alignment = taCenter
        Title.Caption = '交货日期'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 78
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Jihufash'
        Title.Alignment = taCenter
        Title.Caption = '交货方式'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 78
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Lixiren'
        Title.Alignment = taCenter
        Title.Caption = '联系人'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 46
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Touru'
        Title.Alignment = taCenter
        Title.Caption = '投入金额'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 56
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Gujia'
        Title.Alignment = taCenter
        Title.Caption = '骨架/个'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 48
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Tanhuang'
        Title.Alignment = taCenter
        Title.Caption = '弹簧/个'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 43
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Note'
        Title.Alignment = taCenter
        Title.Caption = '备 注'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 42
    Top = 360
    Width = 75
    Height = 25
    Caption = '添加新订单'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 137
    Top = 360
    Width = 75
    Height = 25
    Caption = '修  改'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 232
    Top = 360
    Width = 75
    Height = 25
    Caption = '保 存'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 328
    Top = 360
    Width = 75
    Height = 25
    Caption = '删  除'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = Button4Click
  end
  object Button7: TButton
    Left = 424
    Top = 360
    Width = 75
    Height = 25
    Caption = ' 返 回'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = Button7Click
  end
  object Panel17: TPanel
    Left = 531
    Top = 20
    Width = 110
    Height = 135
    TabOrder = 7
    object Label1: TLabel
      Left = 11
      Top = 8
      Width = 90
      Height = 15
      Caption = '查询时间设定'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 12
      Top = 32
      Width = 78
      Height = 13
      Caption = '定货日期从：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 13
      Top = 79
      Width = 26
      Height = 13
      Caption = '到：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object DateTimePicker3: TDateTimePicker
      Left = 6
      Top = 49
      Width = 98
      Height = 22
      CalAlignment = dtaLeft
      Date = 37483.8924902778
      Time = 37483.8924902778
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 0
    end
    object DateTimePicker4: TDateTimePicker
      Left = 6
      Top = 95
      Width = 98
      Height = 22
      CalAlignment = dtaLeft
      Date = 37483.8926027778
      Time = 37483.8926027778
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 1
    end
  end
  object Button8: TButton
    Left = 517
    Top = 360
    Width = 75
    Height = 25
    Caption = '查 询'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = Button8Click
  end
  object DBEdit12: TDBEdit
    Left = 304
    Top = 264
    Width = 121
    Height = 21
    DataField = 'Diqi'
    DataSource = DataSource1
    TabOrder = 9
    Visible = False
  end
  object DBEdit13: TDBEdit
    Left = 440
    Top = 264
    Width = 121
    Height = 21
    DataField = 'Jiaohuriqi'
    DataSource = DataSource1
    TabOrder = 10
    Visible = False
  end
  object Table1: TTable
    DatabaseName = 'JL2000'
    OnFilterRecord = Table1FilterRecord
    TableName = 'dinghuodan.db'
    Left = 32
    object Table1Xuhao: TStringField
      FieldName = 'Xuhao'
      Size = 4
    end
    object Table1ProdID: TStringField
      FieldName = 'ProdID'
      Size = 5
    end
    object Table1Kehumi: TStringField
      FieldName = 'Kehumi'
      Size = 30
    end
    object Table1Chpimi: TStringField
      FieldName = 'Chpimi'
    end
    object Table1Tuhao: TStringField
      FieldName = 'Tuhao'
      Size = 16
    end
    object Table1Shuli: TIntegerField
      FieldName = 'Shuli'
    end
    object Table1Dajia: TFloatField
      FieldName = 'Dajia'
    end
    object Table1Diqi: TDateField
      FieldName = 'Diqi'
    end
    object Table1Jiaohuriqi: TDateField
      FieldName = 'Jiaohuriqi'
    end
    object Table1Jihufash: TStringField
      FieldName = 'Jihufash'
    end
    object Table1Lixiren: TStringField
      FieldName = 'Lixiren'
      Size = 8
    end
    object Table1Dijin: TFloatField
      FieldName = 'Dijin'
    end
    object Table1Touru: TFloatField
      FieldName = 'Touru'
    end
    object Table1Tanhuang: TIntegerField
      FieldName = 'Tanhuang'
    end
    object Table1Gujia: TIntegerField
      FieldName = 'Gujia'
    end
    object Table1Note: TStringField
      FieldName = 'Note'
      Size = 30
    end
    object Table1Flag: TStringField
      FieldName = 'Flag'
      Size = 1
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 64
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    Left = 392
    Top = 8
  end
end