u_frmmain.~dfm

该程序是用Delphi开发的斑马打印机支持系统

object frmMain: TfrmMain
  Left = 149
  Top = 138
  Width = 919
  Height = 590
  Caption = #25972#29702#37096#36873#21253#22788#20196#26631#31614#25171#21360#25903#25345#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 130
    Top = 0
    Width = 781
    Height = 517
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 781
      Height = 49
      Align = alTop
      Caption = #36873#25321#30331#24405#20449#24687
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 13
        Top = 20
        Width = 36
        Height = 13
        AutoSize = False
        Caption = #26085#26399#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 146
        Top = 20
        Width = 36
        Height = 13
        AutoSize = False
        Caption = #26426#21488#65306
      end
      object Label11: TLabel
        Left = 249
        Top = 21
        Width = 36
        Height = 13
        AutoSize = False
        Caption = #32452#21035#65306
      end
      object Label12: TLabel
        Left = 336
        Top = 21
        Width = 36
        Height = 13
        AutoSize = False
        Caption = #29677#21035#65306
      end
      object Label3: TLabel
        Left = 433
        Top = 21
        Width = 36
        Height = 13
        AutoSize = False
        Caption = #32440#31181#65306
      end
      object dtpTime: TDateTimePicker
        Left = 50
        Top = 16
        Width = 87
        Height = 21
        CalAlignment = dtaLeft
        Date = 39171.7118959606
        Time = 39171.7118959606
        DateFormat = dfShort
        DateMode = dmComboBox
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        Kind = dtkDate
        ParseInput = False
        ParentFont = False
        TabOrder = 0
      end
      object cmbMachine: TComboBox
        Left = 185
        Top = 16
        Width = 56
        Height = 21
        Style = csDropDownList
        DropDownCount = 12
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 1
        Text = 'TH01'
        Items.Strings = (
          'TH01'
          'TH02'
          'TH03'
          'TH04'
          'TH05'
          'TH06'
          'TH07'
          'TH08'
          'TH09'
          'TH10'
          'TH11'
          'TH12')
      end
      object cmbClass: TComboBox
        Left = 289
        Top = 16
        Width = 41
        Height = 21
        Style = csDropDownList
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 2
        Text = 'A'
        Items.Strings = (
          'A'
          'B'
          'C'
          'D')
      end
      object cmbShift: TComboBox
        Left = 376
        Top = 16
        Width = 49
        Height = 21
        Style = csDropDownList
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 3
        Text = #22812
        Items.Strings = (
          #22812
          #26089
          #20013)
      end
      object cmbPaperkind: TComboBox
        Left = 473
        Top = 16
        Width = 63
        Height = 21
        Style = csDropDownList
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ItemHeight = 13
        TabOrder = 4
        Items.Strings = (
          #21452#38108
          #20122#38108
          #21333#38108
          '')
      end
      object cmdSend: TBitBtn
        Left = 621
        Top = 14
        Width = 70
        Height = 25
        Caption = #21457#36865
        TabOrder = 5
        OnClick = cmdSendClick
        Glyph.Data = {
          76020000424D760200000000000036000000280000000C0000000C0000000100
          2000000000004002000000000000000000000000000000000000000000000000
          00000000000000000000FBEEDF20EEC8AD60E6B39C80E8C8B650F9F2EF100000
          000000000000000000000000000000000000FFFFFF70E6CAB9BFC86232FFA663
          43FFBF593AFFCC664DFFC7674AEFE1BAAB600000000000000000000000000000
          0000FFF1D9AF5073FFFFB76A40FF595D18FF864302FF9F3900FFAB4518FFBB5B
          3CFFDFB9AA600000000000000000FFF4DF30DBAC87FF0033FFFF7B8EEFFF5979
          20FF0B6D00FF9F5400FFAC4600FF855525FFA2664BEFF9F2EF10DFE6FFAF8099
          FFFF8099FFFF0033FFFF0033FFFF80A7CFFF1E8910FFBB7100FF6B6500FF3364
          0EFF706638FFE3C7B450BFCCFFBF0033FFFF0033FFFF0033FFFF0033FFFF1040
          FFFFE6BD8FFFAF8500FF007E00FF007000FF266613FFC6AD8C80BFCCFFBF0033
          FFFF0033FFFF0033FFFF0033FFFF3059FFFFFFD489FFFC9B0AFF688800FF007B
          00FF036902FFCEBB9570EFF2FF80C0CCFCCFAEBEE1FF0033FFFF1040FFFFABE3
          CBFFC6DB84FFFFB639FF609902FF008500FF0E6F00FFF7E4CF3000000000FFFF
          FC10DDE4BBEF0033FFFFB9D6ECFF9FF0AEFF9CE9A3FF6CC150FF9E980DFF4681
          00FF7DA040BF000000000000000000000000FFFFFF808BAEEFFF99E9A3FFABF4
          B6FF78DE89FF28C150FFC58F0AFFDB8D16EFFFF2DF2000000000000000000000
          0000FFFFFF40FFFFF660C6ECB6AFA6DE8AFF8ED170FF66C55CEFDBC5779FFFFA
          F310000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000}
      end
      object cmdSendX: TBitBtn
        Left = 701
        Top = 14
        Width = 70
        Height = 25
        Caption = #31665#21457#36865
        TabOrder = 6
        OnClick = cmdSendXClick
        Glyph.Data = {
          76020000424D760200000000000036000000280000000C0000000C0000000100
          2000000000004002000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          000000000000000000000000000000000000EFF2FF80FFFFFF30000000000000
          0000000000000000000000000000000000000000000000000000000000009C36
          00FFA99CBFFF99A6EFFFA94910FFA64000FFA64000FFA64000FFA64000FFA640
          00FFA33D00FFCC997F8000000000A64000FFBFCCFAFF0033FFFFBFCCF9FFFFF2
          C3FFFFECB7FFFFF2BCFFFFECB1FFFFFCCBFFE6CC99FFCC997F80EFF2FF8FA99C
          BFFF8FA6FEFF0033FFFF1040FFFFDFC6ADFFFFC671FFFFD989FFFFC66FFFFFF5
          C7FFE6CC9BFFCC997F80BFCCFFBF0033FFFF0033FFFF0033FFFF0033FFFF3059
          FFFFFFDCB3FFFFCC70FFFFB34DFFFFF2C7FFE6CC9EFFCC997F80BFCCFFBF0033
          FFFF0033FFFF0033FFFF0033FFFF3059FFFFE9E9E2FFE6E6D7FFE6E6D5FFE6E6
          D3FFE6CCA1FFCC997F80EFF2FF8FA99CBFFF8FA6FFFF0033FFFF204DFFFFEFD2
          ADFFFFC673FFFFD990FFFFC672FFFFF5D1FFE6CCA4FFCC997F8000000000A640
          00FFBFCCFFFF1040FFFFCFD9FCFFFFF2D4FFFFECC6FFFFF2CDFFFFECC0FFFFFC
          DEFFE6CCA7FFCC997F8000000000B54F00FFB3A7BFFF9797CFFFD27310FFCF69
          00FFCF6900FFCF6900FFF4B473FFF4B473FF313EBFFFD3A07F8000000000DCA9
          7F80F1DECF80EACAAF80E2AF7F80E2AF7F80E2AF7F80E2AF7F80E2AF7F80E2AF
          7F80E2AF7F80EBD1BF4000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000}
      end
      object cmdQuery: TBitBtn
        Left = 542
        Top = 14
        Width = 70
        Height = 25
        Caption = #26597#35810'(&Q)'
        TabOrder = 7
        OnClick = cmdQueryClick
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888888888888888888800000888880000080F000888880F00080F000888880F
          0008000000080000000800F000000F00000800F000800F00000800F000800F00
          00088000000000000088880F00080F0008888800000800000888888000888000
          88888880F08880F0888888800088800088888888888888888888}
      end
    end
    object DBGrid1: TDBGrid
      Left = 0
      Top = 49
      Width = 233
      Height = 468
      Align = alLeft
      Ctl3D = True
      DataSource = DM.DS_QWrapping
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ParentCtl3D = False
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'PLANNO'
          Title.Caption = #26632#26495#21495
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'STATUS'
          Title.Caption = #21253#35013#65311
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRINT_F'
          Title.Caption = #25171#21360#65311
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ISLOAD'
          Title.Caption = #20256#36865#65311
          Width = 64
          Visible = True
        end>
    end
    object dxDBInspector2: TdxDBInspector
      Left = 233
      Top = 49
      Width = 548
      Height = 468
      Align = alClient
      Ctl3D = True
      DataSource = DM.DS_QWrapping
      DefaultFields = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      BandWidth = 269
      DividerPos = 140
      Flat = True
      GridColor = clBackground
      Options = [dioAutoBandCount, dioAutoWidth, dioBandSizing, dioCancelOnExit, dioColumnSizing, dioDynamicColumnSizing, dioEditing]
      Data = {
        9C0500002D00000008000000000000001400000064784442496E73706563746F
        7232504C414E4E4F08000000000000001300000064784442496E73706563746F
        72324D41544E5208000000000000001300000064784442496E73706563746F72
        32434841524708000000000000001300000064784442496E73706563746F7232
        526F77333808000000000000001200000064784442496E73706563746F723246
        4C414708000000000000001200000064784442496E73706563746F723252554B
        5508000000000000001300000064784442496E73706563746F723258424C4E52
        08000000000000001400000064784442496E73706563746F7232555345524E4F
        08000000000000001500000064784442496E73706563746F7232434C4153534E
        4F08000000000000001500000064784442496E73706563746F72325348494654
        4E4F08000000000000001900000064784442496E73706563746F72324D414348
        494E454E4F5F5708000000000000001100000064784442496E73706563746F72
        32504D4E08000000000000001700000064784442496E73706563746F72325041
        5045524B494E4408000000000000001500000064784442496E73706563746F72
        324757454947485408000000000000001300000064784442496E73706563746F
        7232475241444508000000000000001B00000064784442496E73706563746F72
        3253504543494649434154494F4E08000000000000001300000064784442496E
        73706563746F72324E5447455708000000000000001300000064784442496E73
        706563746F7232526F77333608000000000000001300000064784442496E7370
        6563746F7232526F77333708000000000000001300000064784442496E737065
        63746F7232526F77343508000000000000001200000064784442496E73706563
        746F72324152454108000000000000001400000064784442496E73706563746F
        723253544154555308000000000000001200000064784442496E73706563746F
        72324D454D4F08000000000000001900000064784442496E73706563746F7232
        4A49414E59414E4441544508000000000000001200000064784442496E737065
        63746F72325346494408000000000000001000000064784442496E7370656374
        6F7232464608000000000000001400000064784442496E73706563746F723249
        534C4F414408000000000000001500000064784442496E73706563746F723250
        52494E545F4608000000000000001400000064784442496E73706563746F7232
        4C41594F555408000000000000001300000064784442496E73706563746F7232
        414441544508000000000000001100000064784442496E73706563746F723253
        4B5508000000000000001900000064784442496E73706563746F72324D414348
        494E454E4F5F4C08000000000000001700000064784442496E73706563746F72
        324A49414E59414E494408000000000000001200000064784442496E73706563
        746F72324350494408000000000000001200000064784442496E73706563746F
        72324D50494408000000000000001300000064784442496E73706563746F7232
        526F77333208000000000000001300000064784442496E73706563746F723252
        6F77333308000000000000001300000064784442496E73706563746F7232526F
        77333408000000000000001300000064784442496E73706563746F7232526F77
        333508000000000000001300000064784442496E73706563746F7232526F7733
        3908000000000000001300000064784442496E73706563746F7232526F773430
        08000000000000001300000064784442496E73706563746F7232526F77343108
        000000000000001300000064784442496E73706563746F7232526F7734320800
        0000000000001300000064784442496E73706563746F7232526F773433080000
        00000000001300000064784442496E73706563746F7232526F77343400000000}
      object dxDBInspector2PLANNO: TdxInspectorDBMaskRow
        Caption = #26632#26495#21495
        ReadOnly = True
        FieldName = 'PLANNO'
      end