mps.~dfm

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

inherited fmMPS: TfmMPS
  Width = 767
  Height = 512
  Caption = #20027#29983#20135#35745#21010#32500#25252
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    Width = 759
  end
  inherited CoolBar1: TCoolBar
    Width = 759
    Bands = <
      item
        Control = Panel1
        ImageIndex = -1
        MinHeight = 33
        Width = 755
      end>
    inherited Panel1: TPanel
      Width = 742
      inherited Label1: TLabel
        Left = 104
        Width = 52
        Caption = #29289#26009#32534#21495
      end
      inherited Label2: TLabel
        Left = 263
        Width = 26
        Caption = #24180#20221
      end
      inherited Label3: TLabel
        Left = 393
        Width = 39
        Caption = #35745#21010#26399
      end
      inherited BitBtn1: TBitBtn
        OnClick = BitBtn1Click
      end
      inherited Edit1: TEdit
        OnKeyUp = Edit1KeyUp
      end
      inherited Edit2: TEdit
        OnKeyUp = Edit1KeyUp
      end
      inherited Edit3: TEdit
        OnKeyUp = Edit1KeyUp
      end
    end
  end
  inherited DBGrid1: TDBGrid
    Width = 241
    Height = 410
    Columns = <
      item
        Expanded = False
        FieldName = #29289#26009#32534#21495
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24180#20221
        Width = 37
        Visible = True
      end
      item
        Expanded = False
        FieldName = #35745#21010#26399
        Width = 44
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MPS'#25968#37327
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = #38656#27714#25968#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26399#21021#24211#23384
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29983#20135#21333#25968#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = #39044#35745#24211#23384
        Visible = True
      end
      item
        Expanded = False
        FieldName = #35760#24080#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20462#25913#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23457#26680#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23457#26680#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29366#24577
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22791#27880
        Visible = True
      end>
  end
  inherited Panel2: TPanel
    Left = 241
    Width = 518
    Height = 410
    object Label10: TLabel
      Left = 30
      Top = 108
      Width = 56
      Height = 13
      Caption = #26399#21021#24211#23384
      FocusControl = EditDBEdit7
    end
    object Label11: TLabel
      Left = 101
      Top = 108
      Width = 56
      Height = 13
      Caption = #38656#27714#25968#37327
      FocusControl = EditDBEdit8
    end
    object Label12: TLabel
      Left = 172
      Top = 108
      Width = 49
      Height = 13
      Caption = 'MPS'#25968#37327
      FocusControl = EditMPS
    end
    object Label13: TLabel
      Left = 243
      Top = 108
      Width = 70
      Height = 13
      Caption = #29983#20135#21333#25968#37327
      FocusControl = EditDBEdit9
    end
    object Label14: TLabel
      Left = 330
      Top = 108
      Width = 56
      Height = 13
      Caption = #39044#35745#24211#23384
      FocusControl = EditDBEdit10
    end
    object Label20: TLabel
      Left = 30
      Top = 152
      Width = 28
      Height = 13
      Caption = #22791#27880
      FocusControl = EditDBEdit16
    end
    object Label4: TLabel
      Left = 30
      Top = 14
      Width = 56
      Height = 13
      Caption = #20135#21697#32534#21495
      FocusControl = EditDBEdit
    end
    object Label5: TLabel
      Left = 166
      Top = 14
      Width = 56
      Height = 13
      Caption = #20135#21697#21517#31216
    end
    object Label6: TLabel
      Left = 30
      Top = 62
      Width = 28
      Height = 13
      Caption = #24180#20221
      FocusControl = EditDBEdit2
    end
    object Label7: TLabel
      Left = 91
      Top = 62
      Width = 42
      Height = 13
      Caption = #35745#21010#26399
      FocusControl = EditDBEdit3
    end
    object Label8: TLabel
      Left = 166
      Top = 62
      Width = 56
      Height = 13
      Caption = #24320#22987#26085#26399
      FocusControl = EditDBEdit4
    end
    object Label9: TLabel
      Left = 251
      Top = 62
      Width = 56
      Height = 13
      Caption = #32467#26463#26085#26399
      FocusControl = EditDBEdit5
    end
    object EditDBEdit7: TDBEdit
      Left = 30
      Top = 123
      Width = 65
      Height = 21
      DataField = #26399#21021#24211#23384
      DataSource = DataSource1
      TabOrder = 0
    end
    object EditDBEdit8: TDBEdit
      Left = 101
      Top = 123
      Width = 65
      Height = 21
      DataField = #38656#27714#25968#37327
      DataSource = DataSource1
      TabOrder = 1
    end
    object EditMPS: TDBEdit
      Left = 172
      Top = 123
      Width = 65
      Height = 21
      DataField = 'MPS'#25968#37327
      DataSource = DataSource1
      TabOrder = 2
    end
    object EditDBEdit9: TDBEdit
      Left = 243
      Top = 123
      Width = 79
      Height = 21
      DataField = #29983#20135#21333#25968#37327
      DataSource = DataSource1
      TabOrder = 3
    end
    object EditDBEdit10: TDBEdit
      Left = 330
      Top = 123
      Width = 65
      Height = 21
      DataField = #39044#35745#24211#23384
      DataSource = DataSource1
      TabOrder = 4
    end
    object EditDBEdit16: TDBEdit
      Left = 30
      Top = 167
      Width = 435
      Height = 21
      DataField = #22791#27880
      DataSource = DataSource1
      TabOrder = 5
    end
    object EditDBEdit: TDBEdit
      Left = 30
      Top = 29
      Width = 85
      Height = 21
      DataField = #29289#26009#32534#21495
      DataSource = DataSource1
      TabOrder = 6
      OnChange = EditDBEditChange
    end
    object BitBtn2: TBitBtn
      Left = 128
      Top = 27
      Width = 25
      Height = 25
      TabOrder = 7
      OnClick = BitBtn2Click
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888808888888888888800088888888888800088888888888800
        0888888800000000888888800BBB000888888800BBBBB0088888880BBBBBBB08
        8888880BBB0BBB088888880BB080BB0888888800BB0BB008888888800BBB0088
        8888888800000888888888888888888888888888888888888888}
    end
    object Edit4: TEdit
      Left = 166
      Top = 29
      Width = 299
      Height = 21
      Enabled = False
      ReadOnly = True
      TabOrder = 8
      Text = 'Edit4'
    end
    object EditDBEdit2: TDBEdit
      Left = 30
      Top = 77
      Width = 55
      Height = 21
      DataField = #24180#20221
      DataSource = DataSource1
      TabOrder = 9
    end
    object EditDBEdit3: TDBEdit
      Left = 91
      Top = 77
      Width = 55
      Height = 21
      DataField = #35745#21010#26399
      DataSource = DataSource1
      TabOrder = 10
      OnChange = EditDBEdit3Change
    end
    object EditDBEdit4: TDBEdit
      Left = 166
      Top = 77
      Width = 81
      Height = 21
      DataField = #24320#22987#26085#26399
      DataSource = DataSource1
      Enabled = False
      ReadOnly = True
      TabOrder = 11
    end
    object EditDBEdit5: TDBEdit
      Left = 251
      Top = 77
      Width = 84
      Height = 21
      DataField = #32467#26463#26085#26399
      DataSource = DataSource1
      Enabled = False
      ReadOnly = True
      TabOrder = 12
    end
    object Panel3: TPanel
      Left = 1
      Top = 208
      Width = 542
      Height = 193
      TabOrder = 13
      object Label15: TLabel
        Left = 168
        Top = 8
        Width = 168
        Height = 13
        Caption = #23558#38656#27714#35745#21010#23548#20837#21040#29983#20135#35745#21010
      end
      object Label16: TLabel
        Left = 168
        Top = 24
        Width = 182
        Height = 13
        Caption = #24182#23558#23548#20837#30340#38656#27714#35745#21010#25918#21040#21382#21490
      end
      object btCopyFormNeed: TButton
        Left = 24
        Top = 8
        Width = 129
        Height = 25
        Caption = #20174#38656#27714#35745#21010#20498#20837
        TabOrder = 0
        OnClick = btCopyFormNeedClick
      end
      object DBGrid2: TDBGrid
        Left = 1
        Top = 45
        Width = 540
        Height = 129
        DataSource = DataSource2
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #26032#23435#20307
        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 = 69
            Visible = True
          end
          item
            Expanded = False
            FieldName = #24180#20221
            Width = 44
            Visible = True
          end
          item
            Expanded = False
            FieldName = #35745#21010#26399
            Width = 53
            Visible = True
          end
          item
            Expanded = False
            FieldName = #24320#22987#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = #32467#26463#26085#26399
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = #38656#27714#25968#37327
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = #29366#24577
            Visible = True
          end
          item
            Expanded = False
            FieldName = #22791#27880
            Visible = True
          end>
      end
    end
  end
  inherited Table1: TTable
    Active = True
    TableName = 'dbo.'#20027#29983#20135#35745#21010
  end
  object DataSource2: TDataSource
    AutoEdit = False
    DataSet = Query1
    Left = 632
    Top = 280
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'db'
    SQL.Strings = (
      'select a.*,b.'#29289#26009#21517#31216' from '#20027#38656#27714#35745#21010' as a,'#29289#26009#20027#25991#20214' as b'
      '    where a.'#29289#26009#32534#21495'=b.'#29289#26009#32534#21495)
    Left = 664
    Top = 280
  end
end