unit2.dfm

一个DEPHI设备保养系统全套,不错的设计参考

object form2: Tform2
  Left = 129
  Top = 98
  Width = 799
  Height = 542
  Caption = #36164#26009#31649#29702
  Color = clMoneyGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000088888888888888888000000000000000
    00000000000000008000000000000000FFFFFFFFFFFFFFF08000000000000000
    F8888F888F8888F08000000000000000FFFFFFFFFFFFFFF08000000000000000
    F8888F888F8888F08000000000000000FFFFFFFFFFFFFFF08888888888000000
    F8888F888F8888F08000000008000000FFFFFFFFFFFFFFF08FFFFFFF08000000
    F8888F888F8888F0888F888F08000000FFFFFFFFFFFFFFF08FFFFFFF08000000
    CCCCCCCCCCCCCCC0888F888F08000000CFCCFCCFCCFCCFC08FFFFFFF08000000
    0000000000000000CCCCCCCC0800000000000000000FFF0CFCCFCCFC08000000
    00008800000F8800000000000800000000088880000FFFFFFFFF080000000000
    00888888000F888F888F08000000000000888888000FFFFFFFFF080000000000
    00088880000CCCCCCCCC08000000000000088880000CFCCFCCFC080000000000
    0008888000000000000008000000000000808888000000800000000000000000
    0000888808000800000000000000000000000777708080000000000000000000
    0000088888000000000000000000000000000088888800008000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000F00007FFE00007FFE00007FFE00007FFE000
    07FFE00007FFE0000003E0000003E0000003E0000003E0000003E0000003E000
    0003E0000003FF3C0003FE1C0003FC0C003FF804003FF000003FFC0C003FFC0C
    003FFC0C003FFC07C0FFFE0380FFFF0101FFFF8003FFFFC007FFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000777
    77777777000000000000000700000FFFFFFFFF0700000F0F0F0F0F0700000FFF
    FFFFFF0777770F0F0000000000070FFF0FFFFF0FFF070F0F0F0F0F0F0F070FFF
    0FFFFF0FFF07CCCC0CCCCCCF0F07CCCC0CCCCCCFFF0700000F0F0F0F0F070000
    0FFFFFFFFF070000CCCCCCCCCCC70000CCCCCCCCCCC0FFFF0000800F0000000F
    0000000F0000000F000000000000000000000000000000000000000000000000
    000000000000F0000000F0000000F0000000F0010000}
  OldCreateOrder = False
  Position = poOwnerFormCenter
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 428
    Top = 143
    Width = 39
    Height = 16
    Caption = #21306#22495#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 531
    Top = 142
    Width = 39
    Height = 16
    Caption = #31867#21035#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 327
    Top = 142
    Width = 39
    Height = 16
    Caption = #21333#20301#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object dbnav: TDBNavigator
    Left = 7
    Top = 139
    Width = 310
    Height = 25
    DataSource = adods
    Hints.Strings = (
      #26368#21069
      #19978#19968#26465
      #19979#19968#26465
      #26368#21518
      #25554#20837#26032#35760#24405
      #21024#38500#35760#24405
      #32534#36753#25968#25454
      #30830#35748#26356#25913
      #25764#28040#26356#25913
      #21047#26032#25968#25454)
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
  end
  object cbotype: TComboBox
    Left = 565
    Top = 139
    Width = 55
    Height = 21
    Enabled = False
    ItemHeight = 13
    TabOrder = 1
    Text = '0'
    OnChange = cbotypeChange
    Items.Strings = (
      '0'
      '1'
      '2'
      '3'
      '4'
      '7'
      '8')
  end
  object cboarea: TComboBox
    Left = 461
    Top = 139
    Width = 67
    Height = 21
    Enabled = False
    ItemHeight = 13
    TabOrder = 2
    Text = 'ALL'
    OnChange = cboareaChange
    Items.Strings = (
      'ALL'
      'PM#3'
      'PW#3'
      'RES#3'
      'DAG#3'
      'GREEN#3'
      'BULE#3'
      'RED#3'
      'FILM#3'
      'AL#3'
      'PM#4'
      'PW#4'
      'RES#4'
      'DAG#4'
      'GREEN#4'
      'BULE#4'
      'RED#4'
      'FILM#4'
      'AL#4')
  end
  object btnprint: TBitBtn
    Left = 710
    Top = 134
    Width = 78
    Height = 30
    Caption = #25253#34920#25171#21360
    Enabled = False
    TabOrder = 3
    OnClick = btnprintClick
    Glyph.Data = {
      36050000424D3605000000000000360400002800000010000000100000000100
      080000000000000100000000000000000000000100000001000000000000A686
      86009E8B8B0073676700554F4F00C4BBBB00817B7B00B6B3B300CEBAB9007A63
      6100E6D8D700FFD2C700FBD7CE00D5BFB900B0A19D00CBABA100FFD4C500EFDC
      D500DFC3B700DBC1B500E5E1DF00FFD6B300FFD4AF00F9DDC400FFDCB800FFE5
      CB00FFEDDC00FFF7EE007AAA8A0067847100FAFAFA00F2F2F200F1F1F100F0F0
      F000EEEEEE00EDEDED00ECECEC00EAEAEA00E9E9E900E8E8E800E7E7E700E5E5
      E500E1E1E100E0E0E000D9D9D900D8D8D800D5D5D500D4D4D400D2D2D200CFCF
      CF00CECECE00CCCCCC00C9C9C900C2C2C200C0C0C000BFBFBF00BEBEBE00BDBD
      BD00BCBCBC00BABABA00B6B6B600B5B5B500B4B4B400B3B3B300B2B2B200B1B1
      B100AEAEAE00ACACAC00ABABAB00AAAAAA00A6A6A600A5A5A500A0A0A0009F9F
      9F009E9E9E009D9D9D009B9B9B00979797009595950094949400939393009292
      92008E8E8E008D8D8D008C8C8C00898989008888880086868600858585008383
      830082828200808080007E7E7E007C7C7C007A7A7A0076767600737373007171
      71006D6D6D0064646400606060005F5F5F005858580057575700555555005050
      50004E4E4E004545450043434300000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000343434343457
      57575757575734343434343434344F646B6C04066A6860573434343434634620
      40020107293E67695E3434344C22202743506562543A26416134343D1E1F2D4E
      5C4D40464F5255635E34343D2D484C3444535B5949371C665D34345F462C2D2D
      2D2B31384B551D675A34344A2A2D30342E323536332F33615734343D2E354547
      312123252C373856343434343D3424403B423C39393F5734343434343405100B
      0C1114285857343434343434340D1818181516095734343434343434340F1919
      19191703343434343434343434121A1A1A1A13513434343434343434081B1B1B
      1B1B0E3434343434343434340A0A0A0A0A0A0A34343434343434}
  end
  object btnreoprtcreate: TBitBtn
    Left = 625
    Top = 134
    Width = 81
    Height = 30
    Caption = '   '#25968#25454#20027#34920
    TabOrder = 4
    OnClick = btnreoprtcreateClick
    Glyph.Data = {
      36020000424D3602000000000000360100002800000010000000100000000100
      08000000000000010000000000000000000040000000400000004C463C000CA2
      D4000CD2FC0074E6FC007476740044DAF4006CF2FC007CB2CC001C7EAC004CE6
      FC00148EBC0004BAEC00A4F2FC003C5E740024D6FC00ACDEEC003486AC005CBA
      DC0024526C003CE2FC0064EEFC005C524C008CFAFC005CEAFC00549ABC0004CE
      FC0094FEFC005C4A44003CAECC001CD6FC0084E6F4003CDEFC007CF6FC00CCCA
      CC002C7AAC0054EAFC003496BC0034DEFC00B4EAF4004486AC003C42440024A6
      CC0014D2FC005472840074F2FC008CC6DC0054E6FC001C8EBC000CBEEC00B4F2
      FC000C6A9C002CDAFC00C4E2EC003C8AAC003CCEEC0044E2FC000CCEFC00ACFE
      FC008CEAFC0044DEFC00347EAC00000000000000000000000000212121040404
      212121212104040421212121322F0D150421212110273C042121212132263010
      000404240C293C04212121212132380E2228183A381010212121212121320338
      3B11393B0B1504212121212121042D19332C16172F00042121212121042B1C2A
      2A2E162C08281B0421212104100B131D191F2C1A2E2F1200042132011F1A141F
      191D23162C330B103204321E0F0F0F073B380507340F261E3204213232323232
      011901323232323221212121212121322F380A32212121212121212121212132
      1033103221212121212121212121212132363221212121212121212121212121
      3232322121212121212121212121212121322121212121212121}
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 780
    Height = 121
    Color = clMoneyGreen
    ParentColor = False
    TabOrder = 5
    object PageControl1: TPageControl
      Left = 11
      Top = 15
      Width = 460
      Height = 99
      ActivePage = TabSheet3
      Style = tsFlatButtons
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #36873#25321#29983#25104#25253#34920#30340#31867#22411
        object rdoreport: TRadioGroup
          Left = 2
          Top = -4
          Width = 440
          Height = 71
          Columns = 3
          ItemIndex = 0
          Items.Strings = (
            #21608#20445#20859#25253#34920'(1)'
            #26376#20445#20859#25253#34920'(2)'
            #23395#24230#20445#20859#25253#34920'(3)'
            #24180#20013#20445#20859#25253#34920'(4)'
            #24180#24213#20445#20859#25253#34920'(5)'
            #24320#26426#28857#26816#25253#34920'(7)'
            #20851#26426#28857#26816#25253#34920'(8)'
            #21608'+'#26376#20445#20859#25253#34920'(1/2)'
            #21608'+'#26376'+'#24320#20851#26426#20445#20859#25253#34920
            #24320'/'#20851#26426#28857#26816#25253#34920'(7/8)'
            #21608'+'#26376'+'#23395#24230#20445#20859#25253#34920
            #21608'+'#26376'+'#23395#24230'+'#24180#20013#20445#20859#25253#34920)
          TabOrder = 0
        end
      end
      object TabSheet2: TTabSheet
        Caption = #36755#20837#27442#29983#25104#25253#34920#30340#21517#31216
        ImageIndex = 1
        OnShow = TabSheet2Show
        object GroupBox2: TGroupBox
          Left = 0
          Top = -3
          Width = 440
          Height = 71
          TabOrder = 0
          object lblreportcreate: TLabel
            Left = 22
            Top = 27
            Width = 143
            Height = 16
            Caption = #35831#36755#20837#35201#21019#24314#25253#34920#21517#31216#65306
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label3: TLabel
            Left = 24
            Top = 52
            Width = 210
            Height = 13
            Caption = #27880#65306#25253#34920#30340#21517#31216#35831#20197#26085#26399#21629#21517#65288#24180'+'#26376'+'#26085#65289
          end
          object edtreportname: TEdit
            Left = 168
            Top = 24
            Width = 137
            Height = 21
            TabOrder = 0
          end
          object btnreportcreate: TBitBtn
            Left = 328
            Top = 23
            Width = 89
            Height = 25
            Caption = #21019#24314
            TabOrder = 1
            OnClick = btnreportcreateClick
            Glyph.Data = {
              36020000424D3602000000000000360100002800000010000000100000000100
              0800000000000001000000000000000000004000000040000000FC0204008482
              840064CEFC00FCAA8C001C82B400349ACC0084E6FC00248EBC00646664000466
              9C000C76AC00CCCACC00FCFEFC003496CC00248ABC008CF6FC002C96C4001C86
              BC00248EC400046EA4007CE2FC0044AADC00147EB400DCDADC009CFEFC002C92
              C4006CD6FC00B4B6B4001C86B4003CA2D40084EAFC00046A9C00147AAC00CCCE
              CC0094F6FC002486BC002C8EC4000C72A4000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              00000000000000000000000000000000000000000000000000000B0B0B0B0B0B
              0B0B0B0B0B0B0B0B0B0B0B0B080808080808080808080808080B0B200420200A
              2525131F1F0909090808110211181A1A1A1A1A1A1A1A051809080E020E181414