baseinfo.dfm

一款不错的商务程序商品管理系统,有简易的窗体皮肤

object Frm_Base: TFrm_Base
  Left = 264
  Top = 208
  Width = 575
  Height = 425
  Caption = #22522#30784#20449#24687#31649#29702
  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
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 567
    Height = 49
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 41
        Width = 563
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 550
      Height = 41
      ButtonHeight = 21
      ButtonWidth = 31
      Caption = 'ToolBar1'
      Flat = True
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Caption = #28155#21152
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
      object ToolButton3: TToolButton
        Left = 31
        Top = 0
        Caption = #21024#38500
        ImageIndex = 2
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 62
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 70
        Top = 0
        Caption = #20445#23384
        ImageIndex = 3
        OnClick = ToolButton5Click
      end
      object ToolButton6: TToolButton
        Left = 101
        Top = 0
        Caption = #36864#20986
        ImageIndex = 4
        OnClick = ToolButton6Click
      end
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 49
    Width = 567
    Height = 349
    ActivePage = TabProduct
    Align = alClient
    MultiLine = True
    ParentShowHint = False
    ShowHint = False
    TabOrder = 1
    TabPosition = tpBottom
    OnChange = PageControl1Change
    object TabProduct: TTabSheet
      Caption = #20135#21697#36164#26009
      object GridProduct: TDBGrid
        Left = 0
        Top = 0
        Width = 559
        Height = 323
        Align = alClient
        DataSource = DSBase
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'MR_Code'
            Title.Caption = #20135#21697#32534#21495
            Width = 112
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Name'
            Title.Caption = #20135#21697#21517#31216
            Width = 115
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Pice'
            Title.Caption = #20135#21697#20171#26684
            Width = 110
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Memo'
            Title.Caption = #20135#21697#22791#27880
            Width = 114
            Visible = True
          end>
      end
    end
    object TabSheet1: TTabSheet
      Caption = #31867#22411#20449#24687
      ImageIndex = 1
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 559
        Height = 323
        Align = alClient
        DataSource = DSBase
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'MR_Name'
            Title.Caption = #31867#22411#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Memo'
            Title.Caption = #31867#22411#22791#27880
            Width = 182
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26469#28304#35774#32622
      ImageIndex = 2
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 559
        Height = 323
        Align = alClient
        DataSource = DSBase
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'MR_Name'
            Title.Caption = #26469#28304#21517#31216
            Width = 104
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Memo'
            Title.Caption = #26469#28304#22791#27880
            Width = 121
            Visible = True
          end>
      end
    end
    object TabSheet3: TTabSheet
      Caption = #37096#38376#35774#32622
      ImageIndex = 3
      object DBGrid3: TDBGrid
        Left = 0
        Top = 0
        Width = 559
        Height = 323
        Align = alClient
        DataSource = DSBase
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'MR_Name'
            Title.Caption = #37096#38376#21517#31216
            Width = 116
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Memo'
            Title.Caption = #37096#38376#22791#27880
            Width = 140
            Visible = True
          end>
      end
    end
    object TabSheet4: TTabSheet
      Caption = #21306#22495#35774#32622
      ImageIndex = 4
      object DBGrid4: TDBGrid
        Left = 0
        Top = 0
        Width = 559
        Height = 323
        Align = alClient
        DataSource = DSBase
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'MR_Name'
            Title.Caption = #21306#22495#21517
            Width = 124
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Memo'
            Title.Caption = #21306#22495#22791#27880
            Width = 134
            Visible = True
          end>
      end
    end
    object TabSheet5: TTabSheet
      Caption = #32852#31995#26041#24335
      ImageIndex = 5
      object DBGrid5: TDBGrid
        Left = 0
        Top = 0
        Width = 559
        Height = 323
        Align = alClient
        DataSource = DSBase
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'MR_Name'
            Title.Caption = #32852#31995#26041#24335
            Width = 114
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Memo'
            Title.Caption = #32852#31995#22791#27880
            Width = 136
            Visible = True
          end>
      end
    end
    object TabSheet6: TTabSheet
      Caption = #32844#21153#35774#32622
      ImageIndex = 6
      object DBGrid6: TDBGrid
        Left = 0
        Top = 0
        Width = 559
        Height = 323
        Align = alClient
        DataSource = DSBase
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'MR_Name'
            Title.Caption = #32844#21153#21517#31216
            Width = 122
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MR_Memo'
            Title.Caption = #22791#27880
            Width = 168
            Visible = True
          end>
      end
    end
  end
  object ADOBase: TADODataSet
    Connection = FDM.ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    Left = 100
    Top = 293
  end
  object DSBase: TDataSource
    DataSet = ADOBase
    Left = 132
    Top = 293
  end
end