mrpcal.dfm

C++Builder6下的一个生产管理系统

object fmMrpCal: TfmMrpCal
  Left = 192
  Top = 107
  Width = 696
  Height = 501
  Caption = 'MRP'#35745#31639
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 688
    Height = 57
    Align = alTop
    Caption = #35745#31639#21442#25968
    TabOrder = 0
    object CheckBox1: TCheckBox
      Left = 40
      Top = 24
      Width = 169
      Height = 17
      Caption = #32771#34385#24211#23384'/'#29983#20135#21644#37319#36141#35746#21333
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
    object CheckBox2: TCheckBox
      Left = 216
      Top = 24
      Width = 97
      Height = 17
      Caption = #32771#34385#25552#21069#26399
      TabOrder = 1
    end
    object CheckBox3: TCheckBox
      Left = 312
      Top = 24
      Width = 97
      Height = 17
      Caption = #32771#34385#25439#32791
      TabOrder = 2
    end
    object btCal: TBitBtn
      Left = 407
      Top = 18
      Width = 75
      Height = 25
      Caption = #35745#31639
      TabOrder = 3
      OnClick = btCalClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00887000000000
        7888880888888888088888080808999808888808888888880888880808080808
        0888880888888888088888080808080808888808888888880888880808080808
        0888880888888888088888080000000808888808000E0E080888880800000008
        0888880888888888088888088888888808888870000000007888}
    end
    object BitBtn1: TBitBtn
      Left = 495
      Top = 18
      Width = 75
      Height = 25
      Caption = #32467#26524#21457#24067
      TabOrder = 4
      OnClick = BitBtn1Click
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00887000000000
        7888880888888888088888080808999808888808888888880888880808080808
        0888880888888888088888080808080808888808888888880888880808080808
        0888880888888888088888080000000808888808000E0E080888880800000008
        0888880888888888088888088888888808888870000000007888}
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 57
    Width = 688
    Height = 152
    Align = alTop
    Caption = #20027#29983#20135#35745#21010
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 684
      Height = 135
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #29289#26009#32534#21495
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = #29289#26009#21517#31216
          Title.Caption = #29289#26009'('#20135#21697')'#21517#31216
          Width = 87
          Visible = True
        end
        item
          Expanded = False
          FieldName = #32534#21495
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24180#20221
          Width = 44
          Visible = True
        end
        item
          Expanded = False
          FieldName = #35745#21010#26399
          Width = 46
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24320#22987#26085#26399
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = #32467#26463#26085#26399
          Width = 63
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MPS'#25968#37327
          Visible = True
        end>
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 209
    Width = 688
    Height = 265
    Align = alClient
    Caption = 'MRP'#35745#31639#32467#26524'('#29289#26009#38656#27714')'
    TabOrder = 2
    object DBGrid2: TDBGrid
      Left = 2
      Top = 15
      Width = 684
      Height = 248
      Align = alClient
      DataSource = DataSource2
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #29289#26009#32534#21495
          Width = 63
          Visible = True
        end
        item
          Expanded = False
          FieldName = #29289#26009#21517#31216
          Width = 81
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24180#20221
          Width = 53
          Visible = True
        end
        item
          Expanded = False
          FieldName = #35745#21010#26399
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26399#21021#24211#23384
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = #27611#38656#27714
          Width = 56
          Visible = True
        end
        item
          Expanded = False
          FieldName = #39044#35745#24211#23384
          Width = 56
          Visible = True
        end
        item
          Expanded = False
          FieldName = #20928#38656#27714
          Width = 49
          Visible = True
        end
        item
          Expanded = False
          FieldName = #39044#35745#20837#24211
          Width = 56
          Visible = True
        end
        item
          Expanded = False
          FieldName = #39044#35745#20986#24211
          Visible = True
        end
        item
          Expanded = False
          FieldName = #35745#21010#20135#20986
          Visible = True
        end
        item
          Expanded = False
          FieldName = #35745#21010#25237#20837
          Visible = True
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 592
    Top = 200
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'db'
    SQL.Strings = (
      
        'select a.*,b.'#29289#26009#21517#31216' from '#20027#29983#20135#35745#21010' as a, '#29289#26009#20027#25991#20214' as b where a.'#29289#26009#32534#21495'=b.'#29289#26009#32534 +
        #21495)
    Left = 560
    Top = 200
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'db'
    SQL.Strings = (
      
        'select a.*,b.'#29289#26009#21517#31216' from mrp'#29289#26009#38656#27714#35745#31639' as a, '#29289#26009#20027#25991#20214' as b where a.'#29289#26009#32534#21495'=b' +
        '.'#29289#26009#32534#21495)
    Left = 584
    Top = 416
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 616
    Top = 416
  end
end