pprice.dfm.bak

实用的毛织生产管理系统

object ppricefm: Tppricefm
  Left = 98
  Top = 126
  Anchors = [akLeft, akTop, akBottom]
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #25209#34399#24037#20729#31649#29702#31383#21475
  ClientHeight = 441
  ClientWidth = 590
  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
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = ComboBox1Change
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 49
    Width = 590
    Height = 392
    Align = alClient
    Caption = #25976#25818#21312
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 586
      Height = 375
      Align = alClient
      DataSource = scgxdb
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ImeName = #26234#33021#38515#27211#36664#20837#24179#21488'  5.4'
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      OnKeyPress = DBGrid1KeyPress
      Columns = <
        item
          Expanded = False
          FieldName = 'dept'
          Title.Caption = #37096#38272
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pno'
          Title.Caption = #25209#34399
          Width = 103
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'gxno'
          Title.Caption = #24037#24207#20195#30908
          Width = 98
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'scgx'
          Title.Alignment = taCenter
          Title.Caption = #24037#24207
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'scprice'
          Title.Caption = #21934#20729
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 590
    Height = 49
    Align = alTop
    Caption = #26597#35426#27396
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 24
      Height = 13
      Caption = #25209#34399
    end
    object Label2: TLabel
      Left = 152
      Top = 24
      Width = 24
      Height = 13
      Caption = #37096#38272
    end
    object ComboBox1: TComboBox
      Left = 40
      Top = 16
      Width = 105
      Height = 21
      ImeName = #26234#33021#38515#27211#36664#20837#24179#21488'  5.4'
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboBox1Change
    end
    object Button1: TButton
      Left = 298
      Top = 14
      Width = 50
      Height = 30
      Caption = #26032#22686
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 350
      Top = 14
      Width = 50
      Height = 30
      Caption = #20445#23384
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 462
      Top = 14
      Width = 50
      Height = 30
      Caption = #21462#28040
      TabOrder = 3
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 402
      Top = 14
      Width = 50
      Height = 30
      Caption = #25171#21360
      TabOrder = 4
      OnClick = Button4Click
    end
    object BitBtn1: TBitBtn
      Left = 522
      Top = 15
      Width = 50
      Height = 29
      Caption = #21034#38500
      TabOrder = 5
      OnClick = BitBtn1Click
    end
    object ComboBox2: TComboBox
      Left = 192
      Top = 16
      Width = 97
      Height = 21
      ItemHeight = 13
      TabOrder = 6
    end
  end
  object scgxdb: TDataSource
    DataSet = scgxqy
    Left = 96
    Top = 96
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 72
    Top = 136
    object N1: TMenuItem
      Caption = #26032#22686
      OnClick = N1Click
    end
    object N3: TMenuItem
      Caption = #21034#38500
      OnClick = N3Click
    end
  end
  object schdeptqy: TQuery
    CachedUpdates = True
    DatabaseName = 're_data'
    Left = 192
    Top = 97
  end
  object scgxqy: TQuery
    CachedUpdates = True
    AfterOpen = scgxqyAfterDelete
    AfterInsert = scgxqyAfterInsert
    BeforeEdit = scgxqyBeforeEdit
    AfterPost = scgxqyAfterPost
    AfterDelete = scgxqyAfterDelete
    OnPostError = scgxqyPostError
    DatabaseName = 're_data'
    Left = 160
    Top = 145
  end
end