upartinfo.dfm

来自「天涯進銷存系統」· DFM 代码 · 共 1,416 行 · 第 1/3 页

object frmPartinfo: TfrmPartinfo
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #21830#21697#20449#24687
  Color = clGray
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 2
    Top = 30
    Width = 215
    Height = 520
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object DataDBGrid: TLBDBGrid
      Left = 1
      Top = 22
      Width = 196
      Height = 497
      Align = alClient
      BorderStyle = bsNone
      Color = 16251903
      DataSource = dmData.dsPartinfo
      Enabled = False
      GridlineColor = clBackground
      Options = [dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ShowScrollBars = False
      SelectRowColor = 16774127
      SelectRowFontColor = clHighlight
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = Action2Execute
      OnKeyDown = DataDBGridKeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'NAME'
          Width = 196
          Visible = True
        end>
    end
    object Panel5: TPanel
      Left = 0
      Top = 0
      Width = 215
      Height = 22
      Align = alTop
      Alignment = taLeftJustify
      BevelOuter = bvNone
      Caption = ' '#21517#31216#35268#26684
      Color = 14581072
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object Panel9: TPanel
      Left = 0
      Top = 22
      Width = 1
      Height = 497
      Align = alLeft
      BevelOuter = bvNone
      Color = clBackground
      TabOrder = 2
    end
    object Panel11: TPanel
      Left = 0
      Top = 519
      Width = 215
      Height = 1
      Align = alBottom
      BevelOuter = bvNone
      Color = clBackground
      TabOrder = 3
    end
    object LBDBScrollBar1: TLBDBScrollBar
      Left = 197
      Top = 22
      Width = 18
      Height = 497
      Align = alRight
      Color = 16774127
      LineColor = clBackground
      DownFontColor = clBlack
      Font.Charset = SYMBOL_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Marlett'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      DataSource = dmData.sdsPartinfo
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 550
    Width = 800
    Height = 3
    Align = alBottom
    BevelOuter = bvNone
    Color = 16251903
    TabOrder = 1
  end
  object Panel4: TPanel
    Left = 0
    Top = 30
    Width = 2
    Height = 520
    Align = alLeft
    BevelOuter = bvNone
    Color = 16251903
    TabOrder = 2
  end
  object Panel8: TPanel
    Left = 632
    Top = 30
    Width = 168
    Height = 520
    Align = alRight
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 3
    object Shape1: TShape
      Left = 0
      Top = 0
      Width = 1
      Height = 520
      Align = alLeft
      Pen.Color = 14282231
    end
    object Label7: TLabel
      Left = 16
      Top = 8
      Width = 72
      Height = 12
      Caption = #24320#31080#24211#23384#25968#65306
      Color = 10630144
      Font.Charset = GB2312_CHARSET
      Font.Color = 4210752
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label25: TLabel
      Left = 16
      Top = 56
      Width = 72
      Height = 12
      Caption = #26368#36817#36827#36135#20215#65306
      Color = 10630144
      Font.Charset = GB2312_CHARSET
      Font.Color = 4210752
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label26: TLabel
      Left = 16
      Top = 80
      Width = 72
      Height = 12
      Caption = #26368#36817#38144#21806#20215#65306
      Color = 10630144
      Font.Charset = GB2312_CHARSET
      Font.Color = 4210752
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label27: TLabel
      Left = 4
      Top = 104
      Width = 84
      Height = 12
      Caption = #26368#21518#36827#36135#26085#26399#65306
      Color = 10630144
      Font.Charset = GB2312_CHARSET
      Font.Color = 4210752
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Label28: TLabel
      Left = 4
      Top = 128
      Width = 84
      Height = 12
      Caption = #26368#21518#38144#21806#26085#26399#65306
      Color = 10630144
      Font.Charset = GB2312_CHARSET
      Font.Color = 4210752
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object DBText1: TDBText
      Left = 86
      Top = 7
      Width = 65
      Height = 17
      DataField = 'BILLQUANTITY'
      DataSource = dmData.dsPartinfo
      Font.Charset = GB2312_CHARSET
      Font.Color = 4210752
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 86
      Top = 55
      Width = 65
      Height = 17
      DataField = 'STOCKPRICE'
      DataSource = dmData.dsPartinfo
      Font.Charset = GB2312_CHARSET
      Font.Color = 4210752
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText3: TDBText
      Left = 86
      Top = 79
      Width = 65
      Height = 17
      DataField = 'SALEPRICE'
      DataSource = dmData.dsPartinfo
      Font.Charset = GB2312_CHARSET
      Font.Color = 4210752
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText4: TDBText
      Left = 86
      Top = 103
      Width = 65
      Height = 17
      DataField = 'STOCKDATE'
      DataSource = dmData.dsPartinfo
      Font.Charset = GB2312_CHARSET
      Font.Color = 4210752
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText5: TDBText
      Left = 86
      Top = 127
      Width = 65
      Height = 17
      DataField = 'SALEDATE'
      DataSource = dmData.dsPartinfo
      Font.Charset = GB2312_CHARSET
      Font.Color = 4210752
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 16
      Top = 32
      Width = 72
      Height = 12
      Caption = #23454#38469#24211#23384#25968#65306
      Color = 10630144
      Font.Charset = GB2312_CHARSET
      Font.Color = 4210752
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object DBText6: TDBText
      Left = 86
      Top = 31
      Width = 65
      Height = 17
      DataField = 'STOCKQUANTITY'
      DataSource = dmData.dsPartinfo
      Font.Charset = GB2312_CHARSET
      Font.Color = 4210752
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
  end
  object plData: TPanel
    Left = 217
    Top = 30
    Width = 415
    Height = 520
    Align = alClient
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 4
    object Shape18: TShape
      Left = 8
      Top = 284
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape17: TShape
      Left = 8
      Top = 267
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape16: TShape
      Left = 8
      Top = 250
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape15: TShape
      Left = 8
      Top = 231
      Width = 137
      Height = 20
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape2: TShape
      Left = 8
      Top = 0
      Width = 398
      Height = 21
      Brush.Color = 14581072
      Pen.Color = 14581072
    end
    object Label1: TLabel
      Left = 13
      Top = 5
      Width = 52
      Height = 12
      Caption = #21830#21697#20449#24687
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object Shape3: TShape
      Left = 8
      Top = 21
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape4: TShape
      Left = 8
      Top = 38
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape5: TShape
      Left = 8
      Top = 55
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape6: TShape
      Left = 8
      Top = 89
      Width = 137
      Height = 20
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape7: TShape
      Left = 8
      Top = 108
      Width = 137
      Height = 20
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape9: TShape
      Left = 8
      Top = 127
      Width = 137
      Height = 20
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape10: TShape
      Left = 8
      Top = 146
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape11: TShape
      Left = 8
      Top = 163
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground
    end
    object Shape12: TShape
      Left = 8
      Top = 180
      Width = 137
      Height = 18
      Brush.Color = 16251903
      Pen.Color = clBackground