formsystemmanager.~dfm

用Delphi编写的生产管理系统源码

inherited FrmSysManager: TFrmSysManager
  Left = 198
  Top = 153
  Width = 763
  Caption = #31995#32113#31649#29702
  OldCreateOrder = True
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  inherited FlatSplitter1: TFlatSplitter
    Width = 755
  end
  inherited FlatTitlebar1: TFlatTitlebar
    Width = 755
  end
  inherited FlatPanel1: TFlatPanel
    Width = 755
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 753
      Height = 229
      ActivePage = TabSheet2
      Align = alClient
      TabIndex = 1
      TabOrder = 0
      OnChange = PageControl1Change
      object TabSheet1: TTabSheet
        Caption = #29992#25142#31649#29702
        object DBCtrlGrid1: TDBCtrlGrid
          Left = 0
          Top = 0
          Width = 369
          Height = 201
          Align = alLeft
          ColCount = 1
          DataSource = MainDataSource
          PanelHeight = 67
          PanelWidth = 353
          TabOrder = 0
          RowCount = 3
          SelectedColor = clLime
          object Label1: TLabel
            Left = 8
            Top = 8
            Width = 47
            Height = 13
            Caption = #20351#29992#32773'ID'
            FocusControl = DBEdit1
          end
          object Label2: TLabel
            Left = 112
            Top = 8
            Width = 60
            Height = 13
            Caption = #20351#29992#32773#21517#31281
            FocusControl = DBEdit2
          end
          object Label3: TLabel
            Left = 224
            Top = 8
            Width = 48
            Height = 13
            Caption = #24314#31435#26085#26399
          end
          object DBEdit1: TDBEdit
            Left = 8
            Top = 24
            Width = 100
            Height = 21
            DataField = #20351#29992#32773'ID'
            DataSource = MainDataSource
            TabOrder = 0
          end
          object DBEdit2: TDBEdit
            Left = 112
            Top = 24
            Width = 100
            Height = 21
            DataField = #20351#29992#32773#21517#31281
            DataSource = MainDataSource
            TabOrder = 1
          end
          object DBDateEdit1: TDBDateEdit
            Left = 224
            Top = 24
            Width = 115
            Height = 21
            CalendarHints.Strings = (
              #19978#19968#26376
              #19978#19968#26085
              #19979#19968#26085
              #19979#19968#26376)
            DataField = #24314#31435#26085#26399
            DataSource = MainDataSource
            DialogTitle = #36984#25799#26085#26399
            NumGlyphs = 2
            PopupColor = clGradientActiveCaption
            TabOrder = 2
          end
        end
        object FlatPanel3: TFlatPanel
          Left = 369
          Top = 0
          Width = 185
          Height = 201
          ParentColor = True
          Align = alLeft
          TabOrder = 1
          object FlatPanel4: TFlatPanel
            Left = 1
            Top = 1
            Width = 183
            Height = 32
            Caption = #29992#25142#25152#22312#32676#32068
            ParentColor = True
            Align = alTop
            TabOrder = 0
          end
          object FlatListBox1: TFlatListBox
            Left = 1
            Top = 33
            Width = 183
            Height = 157
            Align = alClient
            ScrollBars = True
            PopupMenu = RxPopupMenu1
          end
        end
        object FlatPanel5: TFlatPanel
          Left = 554
          Top = 0
          Width = 191
          Height = 201
          ParentColor = True
          Align = alClient
          PopupMenu = RxPopupMenu2
          TabOrder = 2
          object FlatPanel6: TFlatPanel
            Left = 1
            Top = 1
            Width = 189
            Height = 32
            Hint = #35531#38617#25802#32676#32068#32102#30070#21069#29992#25142#28155#21152#32676#32068
            Caption = #25152#26377#32676#32068
            ParentColor = True
            Align = alTop
            TabOrder = 0
            object FlatButton1: TFlatButton
              Left = 6
              Top = 6
              Width = 57
              Height = 21
              Color = clRed
              Caption = #21152#20837#32676#32068
              ParentColor = False
              TabOrder = 0
              OnClick = FlatButton1Click
            end
          end
          object DBGrid1: TDBGrid
            Left = 1
            Top = 33
            Width = 189
            Height = 167
            Hint = #35531#38617#25802#32676#32068#32102#30070#21069#29992#25142#28155#21152#32676#32068
            Align = alClient
            DataSource = DataSource1
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnDblClick = DBGrid1DblClick
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #32676#32068#31649#29702
        ImageIndex = 1
        object DBCtrlGrid2: TDBCtrlGrid
          Left = 0
          Top = 0
          Width = 313
          Height = 201
          Align = alLeft
          ColCount = 1
          DataSource = DataSource1
          PanelHeight = 67
          PanelWidth = 297
          TabOrder = 0
          RowCount = 3
          SelectedColor = clLime
          object Label4: TLabel
            Left = 16
            Top = 7
            Width = 35
            Height = 13
            Caption = #32676#32068'ID'
            FocusControl = DBEdit3
          end
          object Label5: TLabel
            Left = 121
            Top = 7
            Width = 48
            Height = 13
            Caption = #32676#32068#21517#31281
            FocusControl = DBEdit4
          end
          object DBEdit3: TDBEdit
            Left = 16
            Top = 23
            Width = 73
            Height = 21
            DataField = #32676#32068'ID'
            DataSource = DataSource1
            TabOrder = 0
          end
          object DBEdit4: TDBEdit
            Left = 120
            Top = 23
            Width = 167
            Height = 21
            DataField = #32676#32068#21517#31281
            DataSource = DataSource1
            TabOrder = 1
          end
        end
        object FlatPanel7: TFlatPanel
          Left = 313
          Top = 0
          Width = 185
          Height = 201
          ParentColor = True
          Align = alLeft
          TabOrder = 1
          object FlatPanel8: TFlatPanel
            Left = 1
            Top = 1
            Width = 183
            Height = 32
            Caption = #25152#36984#32676#32068#20839#30340#20351#29992#32773
            ParentColor = True
            Align = alTop
            TabOrder = 0
          end
          object FlatListBox2: TFlatListBox
            Left = 1
            Top = 33
            Width = 183
            Height = 157
            Align = alClient
            ScrollBars = True
            PopupMenu = RxPopupMenu3
          end
        end
        object FlatPanel9: TFlatPanel
          Left = 498
          Top = 0
          Width = 247
          Height = 201
          ParentColor = True
          Align = alClient
          TabOrder = 2
          object FlatPanel10: TFlatPanel
            Left = 1
            Top = 1
            Width = 245
            Height = 32
            Caption = #25152#26377#20351#29992#32773#21015#34920
            ParentColor = True
            Align = alTop
            TabOrder = 0
            object FlatButton2: TFlatButton
              Left = 3
              Top = 4
              Width = 109
              Height = 23
              Color = clRed
              Caption = #22686#21152#20351#29992#32773#33267#32676#32068
              ParentColor = False
              TabOrder = 0
              OnClick = FlatButton2Click
            end
          end
          object RxDBGrid1: TRxDBGrid
            Left = 1
            Top = 33
            Width = 245
            Height = 167
            Align = alClient
            DataSource = MainDataSource
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnDblClick = RxDBGrid1DblClick
          end
        end
      end
      object TabSheet3: TTabSheet
        Caption = #27402#38480#31649#29702
        ImageIndex = 2
      end
    end
  end
  inherited FlatPanel2: TFlatPanel
    Width = 755
    inherited FrameDataEdit1: TFrameDataEdit
      Width = 753
      inherited FlatSplitter1: TFlatSplitter
        Width = 753
      end
      inherited FlatPanelEnd: TFlatPanel
        Width = 753
        inherited DBGrid1: TDBGrid
          Width = 751
        end
      end
      inherited FlatPanelTop: TFlatPanel
        Width = 753
        inherited FlatTabControl1: TFlatTabControl
          Width = 751
          inherited FlatPanelBrowser: TFlatPanel
            Width = 749
          end
          inherited FlatPanelSort: TFlatPanel
            Width = 749
          end
          inherited FlatPanelSUM: TFlatPanel
            Width = 749
          end
          inherited FlatPanelLookup: TFlatPanel
            Width = 749
          end
          inherited FlatPanelEdit: TFlatPanel
            Width = 749
            inherited FlatButton9: TFlatButton
              Tag = 100000000
            end
            inherited FlatButton10: TFlatButton
              Tag = 100000000
            end
            inherited FlatButton11: TFlatButton
              Tag = 100000000
            end
            inherited FlatButton12: TFlatButton
              Tag = 1000000000
            end
            inherited FlatButton14: TFlatButton
              Tag = 100000000
            end
          end
        end
      end
      inherited MainDataSource: TDataSource
        Left = 400
        Top = 152
      end
      inherited ADODataSet1: TADODataSet
        Top = 152
      end
    end
  end
  inherited MainDataSource: TDataSource
    Left = 512
  end
  inherited MainADODataSet: TADODataSet
    Active = True
    CursorType = ctStatic
    AfterScroll = MainADODataSetAfterScroll
    CommandText = 'select * from '#20351#29992#20154#21729#34920
    Left = 544
    object MainADODataSetID: TStringField
      FieldName = #20351#29992#32773'ID'
      FixedChar = True
    end
    object MainADODataSetDSDesigner: TStringField
      FieldName = #20351#29992#32773#21517#31281
      FixedChar = True
    end
    object MainADODataSetDSDesigner4: TDateTimeField
      FieldName = #24314#31435#26085#26399
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 584
    Top = 16
  end
  object ADODataSet1: TADODataSet
    Active = True
    Connection = DataModuleAdo.ADOConnectionTS
    CursorType = ctStatic
    AfterScroll = ADODataSet1AfterScroll
    CommandText = 'select * from '#20351#29992#32773#32676#32068
    Parameters = <>
    Left = 616
    Top = 16
    object ADODataSet1ID: TStringField
      FieldName = #32676#32068'ID'
      FixedChar = True
    end
    object ADODataSet1DSDesigner: TStringField
      FieldName = #32676#32068#21517#31281
      FixedChar = True
      Size = 40
    end
    object ADODataSet1DSDesigner2: TStringField
      FieldName = #32676#32068#27402#38480
      FixedChar = True
      Size = 10
    end
    object ADODataSet1DSDesigner3: TStringField
      FieldName = #25104#21729
      Size = 200
    end
  end
  object RxPopupMenu1: TRxPopupMenu
    Left = 632
    Top = 72
    object N1: TMenuItem
      Caption = #21034#38500#32676#32068
      ShortCut = 46
      OnClick = N1Click
    end
  end
  object RxPopupMenu2: TRxPopupMenu
    Left = 672
    Top = 72
    object N2: TMenuItem
      Caption = #21152#20837#32676#32068
      OnClick = N2Click
    end
  end
  object RxPopupMenu3: TRxPopupMenu
    Left = 632
    Top = 104
    object N3: TMenuItem
      Caption = #21034#38500
      ShortCut = 46
      OnClick = N3Click
    end
  end
  object RxPopupMenu4: TRxPopupMenu
    Left = 672
    Top = 104
    object N4: TMenuItem
      Caption = #22686#21152
      OnClick = N4Click
    end
  end
end