unit_jihuasql.~dfm

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

        Title.Caption = '客户单位'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 154
        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 = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 135
        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 = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 101
        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 = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 62
        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 = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 36
        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 = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 70
        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 = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 59
        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 = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 68
        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 = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 105
        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 = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 52
        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 = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 175
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 12
    Top = 291
    Width = 711
    Height = 120
    DataSource = DataSource2
    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
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '主表标识号'
        Title.Alignment = taCenter
        Title.Caption = '订单编号'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '配方编号'
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 77
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '材料名称'
        Title.Alignment = taCenter
        Title.Caption = '材 料 名 称'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 163
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '用料数量'
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '单价'
        Title.Alignment = taCenter
        Title.Caption = '单价（元）'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 78
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = '金额'
        Title.Alignment = taCenter
        Title.Caption = '金额（元）'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 78
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'Riqi'
        Title.Alignment = taCenter
        Title.Caption = '定货日期'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -15
        Title.Font.Name = '宋体'
        Title.Font.Style = []
        Width = 78
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 609
    Top = 145
    Width = 55
    Height = 25
    Caption = '上一条'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 547
    Top = 145
    Width = 55
    Height = 25
    Caption = '下一条'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = BitBtn2Click
  end
  object Button11: TButton
    Left = 572
    Top = 109
    Width = 87
    Height = 25
    Caption = '打印计划单'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = Button11Click
  end
  object DateTimePicker7: TDateTimePicker
    Left = 599
    Top = 56
    Width = 81
    Height = 22
    CalAlignment = dtaLeft
    Date = 37545.8613232639
    Time = 37545.8613232639
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 7
  end
  object Edit6: TEdit
    Left = 599
    Top = 82
    Width = 80
    Height = 21
    TabOrder = 8
    Text = 'Edit6'
  end
  object Panel2: TPanel
    Left = 526
    Top = 56
    Width = 73
    Height = 24
    Caption = '编制日期'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
  end
  object Panel3: TPanel
    Left = 527
    Top = 83
    Width = 73
    Height = 23
    Caption = '编制人'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 337
    Top = 219
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'SELECT * from dinghuodan')
    Left = 393
    Top = 219
    object Query1Xuhao: TStringField
      FieldName = 'Xuhao'
      Origin = 'JL2000."dinghuodan.DB".Xuhao'
      Size = 4
    end
    object Query1Kehumi: TStringField
      FieldName = 'Kehumi'
      Origin = 'JL2000."dinghuodan.DB".Kehumi'
      Size = 30
    end
    object Query1Chpimi: TStringField
      FieldName = 'Chpimi'
      Origin = 'JL2000."dinghuodan.DB".Chpimi'
    end
    object Query1Tuhao: TStringField
      FieldName = 'Tuhao'
      Origin = 'JL2000."dinghuodan.DB".Tuhao'
      Size = 16
    end
    object Query1Shuli: TIntegerField
      FieldName = 'Shuli'
      Origin = 'JL2000."dinghuodan.DB".Shuli'
    end
    object Query1Dajia: TFloatField
      FieldName = 'Dajia'
      Origin = 'JL2000."dinghuodan.DB".Dajia'
    end
    object Query1Diqi: TDateField
      FieldName = 'Diqi'
      Origin = 'JL2000."dinghuodan.DB".Diqi'
    end
    object Query1Dijin: TFloatField
      FieldName = 'Dijin'
      Origin = 'JL2000."dinghuodan.DB".Dijin'
    end
    object Query1Jiaohuriqi: TDateField
      FieldName = 'Jiaohuriqi'
      Origin = 'JL2000."dinghuodan.DB".Jiaohuriqi'
    end
    object Query1Jihufash: TStringField
      FieldName = 'Jihufash'
      Origin = 'JL2000."dinghuodan.DB".Jihufash'
    end
    object Query1Lixiren: TStringField
      FieldName = 'Lixiren'
      Origin = 'JL2000."dinghuodan.DB".Lixiren'
      Size = 8
    end
    object Query1Note: TStringField
      FieldName = 'Note'
      Origin = 'JL2000."dinghuodan.DB".Note'
      Size = 30
    end
    object Query1Touru: TFloatField
      FieldName = 'Touru'
      Origin = 'JL2000."dinghuodan.DB".Touru'
    end
    object Query1Tanhuang: TIntegerField
      FieldName = 'Tanhuang'
      Origin = 'JL2000."dinghuodan.DB".Tanhuang'
    end
    object Query1Gujia: TIntegerField
      FieldName = 'Gujia'
      Origin = 'JL2000."dinghuodan.DB".Gujia'
    end
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 323
    Top = 328
  end
  object Query2: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'SELECT*from jihuadan')
    Left = 379
    Top = 328
    object Query2BDEDesigner: TStringField
      FieldName = '主表标识号'
      Origin = 'JL2000."jihuadan.DB".主表标识号'
      Size = 4
    end
    object Query2BDEDesigner2: TStringField
      FieldName = '配方编号'
      Origin = 'JL2000."jihuadan.DB".配方编号'
      Size = 10
    end
    object Query2BDEDesigner3: TStringField
      FieldName = '材料名称'
      Origin = 'JL2000."jihuadan.DB".材料名称'
    end
    object Query2BDEDesigner4: TFloatField
      FieldName = '用料数量'
      Origin = 'JL2000."jihuadan.DB".用料数量'
    end
    object Query2BDEDesigner5: TFloatField
      FieldName = '单价'
      Origin = 'JL2000."jihuadan.DB".单价'
    end
    object Query2BDEDesigner6: TFloatField
      FieldName = '金额'
      Origin = 'JL2000."jihuadan.DB".金额'
    end
    object Query2Riqi: TDateField
      FieldName = 'Riqi'
      Origin = 'JL2000."jihuadan.DB".Riqi'
    end
    object Query2Jiaomi: TStringField
      FieldName = 'Jiaomi'
      Origin = 'JL2000."jihuadan.DB".Jiaomi'
      Size = 16
    end
    object Query2Gjgg: TStringField
      FieldName = 'Gjgg'
      Origin = 'JL2000."jihuadan.DB".Gjgg'
      Size = 10
    end
    object Query2Thgg: TStringField
      FieldName = 'Thgg'
      Origin = 'JL2000."jihuadan.DB".Thgg'
      Size = 10
    end
  end
end