pnmanage.dfm

实用的毛织生产管理系统

object pnmanagefm: Tpnmanagefm
  Left = 1
  Top = 61
  Width = 785
  Height = 527
  Caption = #25209#34399#31649#29702#31383#21475
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 777
    Height = 70
    Align = alTop
    Caption = #26597#35426#27396
    TabOrder = 0
    object Label4: TLabel
      Left = 3
      Top = 25
      Width = 24
      Height = 13
      Caption = #25209#34399
    end
    object Label9: TLabel
      Left = 157
      Top = 22
      Width = 24
      Height = 13
      Caption = #27454#34399
    end
    object Label1: TLabel
      Left = 277
      Top = 19
      Width = 48
      Height = 13
      Caption = #23458#25142#31777#31281
    end
    object Label2: TLabel
      Left = 4
      Top = 46
      Width = 48
      Height = 13
      Caption = #20986#36008#26085#26399
    end
    object Label3: TLabel
      Left = 237
      Top = 46
      Width = 48
      Height = 13
      Caption = #23436#24037#26085#26399
    end
    object Edit1: TEdit
      Left = 30
      Top = 17
      Width = 123
      Height = 21
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 185
      Top = 17
      Width = 90
      Height = 21
      TabOrder = 1
    end
    object Button1: TButton
      Left = 441
      Top = 12
      Width = 57
      Height = 30
      Caption = #26597#35426
      TabOrder = 6
      OnClick = Button1Click
    end
    object ComboBox1: TComboBox
      Left = 329
      Top = 14
      Width = 105
      Height = 21
      ItemHeight = 13
      TabOrder = 2
    end
    object RadioButton1: TRadioButton
      Left = 470
      Top = 48
      Width = 49
      Height = 17
      Caption = #20840#37096
      Checked = True
      TabOrder = 3
      TabStop = True
    end
    object RadioButton2: TRadioButton
      Left = 526
      Top = 47
      Width = 61
      Height = 17
      Caption = #24050#23436#24037
      TabOrder = 4
    end
    object RadioButton3: TRadioButton
      Left = 587
      Top = 47
      Width = 61
      Height = 17
      Caption = #26410#23436#24037
      TabOrder = 5
    end
    object Button2: TButton
      Left = 497
      Top = 12
      Width = 57
      Height = 30
      Caption = #26032#22686
      TabOrder = 7
      OnClick = N1Click
    end
    object Button3: TButton
      Left = 614
      Top = 12
      Width = 57
      Height = 30
      Caption = #20445#23384
      TabOrder = 8
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 729
      Top = 12
      Width = 57
      Height = 30
      Caption = #36864#20986
      TabOrder = 9
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 555
      Top = 12
      Width = 57
      Height = 30
      Caption = #21034#38500
      TabOrder = 10
      OnClick = N3Click
    end
    object Button6: TButton
      Left = 671
      Top = 12
      Width = 57
      Height = 30
      Caption = #21462#28040
      TabOrder = 11
      OnClick = Button6Click
    end
    object DateTimePicker1: TDateTimePicker
      Left = 64
      Top = 40
      Width = 81
      Height = 21
      Date = 38786.793002430550000000
      Time = 38786.793002430550000000
      TabOrder = 12
    end
    object DateTimePicker2: TDateTimePicker
      Left = 149
      Top = 40
      Width = 85
      Height = 21
      Date = 38786.793277592600000000
      Time = 38786.793277592600000000
      TabOrder = 13
    end
    object DateTimePicker3: TDateTimePicker
      Left = 295
      Top = 42
      Width = 83
      Height = 21
      Date = 38786.796089039350000000
      Time = 38786.796089039350000000
      TabOrder = 14
    end
    object DateTimePicker4: TDateTimePicker
      Left = 383
      Top = 43
      Width = 83
      Height = 21
      Date = 38786.796342997690000000
      Time = 38786.796342997690000000
      TabOrder = 15
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 70
    Width = 777
    Height = 430
    Align = alClient
    Caption = #25976#25818#21312
    PopupMenu = PopupMenu1
    TabOrder = 1
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 15
      Width = 773
      Height = 413
      Align = alClient
      Color = clWhite
      DataSource = pnodb
      FixedColor = clInfoBk
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = 'Arial'
      FooterFont.Style = []
      FooterRowCount = 1
      ParentFont = False
      SumList.Active = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      OnDblClick = DBGridEh1DblClick
      OnEditButtonClick = DBGridEh1EditButtonClick
      OnKeyPress = DBGridEh1KeyPress
      OnKeyUp = DBGridEh1KeyUp
      Columns = <
        item
          EditButtons = <>
          FieldName = 'pno'
          Footer.Color = clInfoBk
          Footer.Value = #26371#35336
          Footer.ValueType = fvtStaticText
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #25209#34399
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'kno'
          Footer.Color = clInfoBk
          Footer.ValueType = fvtCount
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #27454#34399
          Width = 92
        end
        item
          ButtonStyle = cbsEllipsis
          EditButtons = <>
          FieldName = 'kfjz'
          Footer.Color = clInfoBk
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23458#25142#31777#31281
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'eddate'
          Footer.Color = clInfoBk
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #36008#26399
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'pnonum'
          Footer.Color = clInfoBk
          Footer.ValueType = fvtSum
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #33853#21934#25976
          Width = 52
        end
        item
          EditButtons = <>
          FieldName = 'outdate'
          Footer.Alignment = taCenter
          Footer.Color = clInfoBk
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #20986#36008
          Width = 68
        end
        item
          EditButtons = <>
          FieldName = 'ldfs'
          Footer.Color = clInfoBk
          Footers = <>
          Title.Caption = #26041#24335' '
          Width = 36
        end
        item
          EditButtons = <>
          FieldName = 'spnum'
          Footer.Color = clInfoBk
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #25910#29255#25976
          Width = 50
        end
        item
          EditButtons = <>
          FieldName = 'zxnum'
          Footer.Color = clInfoBk
          Footer.ValueType = fvtSum
          Footers = <>
          Title.Caption = #20986#36008#25976
          Width = 41
        end
        item
          EditButtons = <>
          FieldName = 'finishdate'
          Footer.Color = clInfoBk
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23436#24037#26085#26399
          Width = 75
        end
        item
          Checkboxes = True
          EditButtons = <>
          FieldName = 'finishflg'
          Footer.Color = clInfoBk
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23436#24037#27161#24535
          Width = 75
        end>
    end
  end
  object pnoqy: TQuery
    CachedUpdates = True
    BeforeEdit = pnoqyBeforeEdit
    BeforePost = pnoqyBeforePost
    AfterDelete = pnoqyAfterDelete
    OnPostError = pnoqyPostError
    DatabaseName = 're_data'
    Left = 28
    Top = 126
  end
  object pnodb: TDataSource
    DataSet = pnoqy
    Left = 76
    Top = 134
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 136
    Top = 280
    object N1: TMenuItem
      Caption = #26032#22686
      OnClick = N1Click
    end
    object N3: TMenuItem
      Caption = #21034#38500
      OnClick = N3Click
    end
  end
  object pnomemqy: TQuery
    CachedUpdates = True
    DatabaseName = 're_data'
    Left = 292
    Top = 142
  end
end