product_quality.dfm

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

object Product_QualityFrm: TProduct_QualityFrm
  Left = -7
  Top = 120
  Width = 785
  Height = 529
  Caption = #20135#21697#36136#37327#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 777
    Height = 41
    ButtonHeight = 36
    ButtonWidth = 31
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    ShowCaptions = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Caption = #22686#21152
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 31
      Top = 0
      Caption = #32534#36753
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 62
      Top = 0
      Caption = #21024#38500
      ImageIndex = 2
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 93
      Top = 0
      Caption = #20445#23384
      ImageIndex = 3
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 124
      Top = 0
      Caption = #23457#26680
      ImageIndex = 4
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 155
      Top = 0
      Caption = #25171#21360
      ImageIndex = 5
      OnClick = ToolButton6Click
    end
    object ToolButton7: TToolButton
      Left = 186
      Top = 0
      Caption = #20851#38381
      ImageIndex = 6
      OnClick = ToolButton7Click
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 41
    Width = 777
    Height = 136
    Caption = #20135#21697#36136#37327#31649#29702#27719#24635
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 773
      Height = 119
      Align = alClient
      DataSource = DM.Product_checkDS
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'Quality_check_No'
          Title.Caption = #24453#26816#21333#21495
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Bill_Time'
          Title.Caption = #21046#21333#26085#26399
          Width = 81
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Quality_check_Time'
          Title.Caption = #21697#26816#26085#26399
          Width = 76
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Manufacture_ID'
          Title.Caption = #29983#20135#37096#38376#20195#30721
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Manufacture_Name'
          Title.Caption = #29983#20135#37096#38376#21517#31216
          Width = 142
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Handler'
          Title.Caption = #21697#26816#21592
          Width = 75
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Auditing'
          Title.Caption = #23457#26680#20154
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Constitutor'
          Title.Caption = #21046#21333#20154
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 183
    Width = 777
    Height = 316
    Caption = #20135#21697#36136#37327#31649#29702#26126#32454
    TabOrder = 2
    object Panel1: TPanel
      Left = 2
      Top = 15
      Width = 773
      Height = 50
      Align = alTop
      BevelInner = bvSpace
      BevelOuter = bvLowered
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 60
        Height = 12
        Caption = #21046#21333#26085#26399#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 165
        Top = 16
        Width = 60
        Height = 12
        Caption = #29983#20135#37096#38376#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton1: TSpeedButton
        Left = 305
        Top = 13
        Width = 23
        Height = 22
        Enabled = False
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          5555555555555555555555555555555555555555555555555555555555555555
          55555555FFFFFFFFFF5555500000000005555557777777777F55550BFBFBFBFB
          0555557F555555557F55550FBFBFBFBF0555557F555555557F55550BFBFBFBFB
          0555557F555555557F55550FBFBFBFBF0555557F555555557F55550BFBFBFBFB
          0555557F555555557F55550FBFBFBFBF0555557FFFFFFFFF7555550000000000
          555555777777777755555550FBFB0555555555575FFF75555555555700007555
          5555555577775555555555555555555555555555555555555555555555555555
          5555555555555555555555555555555555555555555555555555}
        NumGlyphs = 2
        OnClick = SpeedButton1Click
      end
      object Label4: TLabel
        Left = 344
        Top = 16
        Width = 60
        Height = 12
        Caption = #24453#26816#21333#21495#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 513
        Top = 17
        Width = 48
        Height = 12
        Caption = #21697#26816#21592#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 636
        Top = 17
        Width = 48
        Height = 12
        Caption = #21046#21333#20154#65306
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307