ywgl_lldform.dfm

这是用Delphi编写的维修管理系统。主要功能包括业务管理

object YWGL_LLD: TYWGL_LLD
  Left = 65
  Top = 324
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #39046#26009#21333#20449#24687#20837#24211
  ClientHeight = 446
  ClientWidth = 782
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = -16
    Top = 34
    Width = 821
    Height = 3
  end
  object Label1: TLabel
    Left = 187
    Top = 11
    Width = 30
    Height = 12
    Caption = #21333#21495':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 6
    Top = 11
    Width = 54
    Height = 12
    Caption = #30003#35831#26085#26399':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 370
    Top = 10
    Width = 42
    Height = 12
    Caption = #24211#20449#24687':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 71
    Width = 782
    Height = 375
    ActivePage = TabSheet1
    Align = alBottom
    Style = tsFlatButtons
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      TabVisible = False
      object Splitter1: TSplitter
        Left = 0
        Top = 100
        Width = 774
        Height = 4
        Cursor = crVSplit
        Align = alTop
      end
      object DBGrid2: TDBGrid
        Left = 0
        Top = 104
        Width = 774
        Height = 261
        Align = alClient
        DataSource = DataSource2
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #21517#31216
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 95
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #29289#26009#32534#30721
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 98
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #35268#26684#22411#21495
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 107
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #21333#20301
            ReadOnly = True
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #25968#37327
            ReadOnly = True
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #26426#22411
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 92
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #20301#21495
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 82
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #22791#27880
            ReadOnly = True
            Title.Alignment = taCenter
            Visible = True
          end>
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 774
        Height = 100
        Hint = #30003#35831#21333#20449#24687
        Align = alTop
        DataSource = DataSource1
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        OnDblClick = DBGrid1DblClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #26085#26399
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 129
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #21333#21495
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 129
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #30003#35831#20154
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 135
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #21457#26009#21333#20301
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 286
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #26159#21542#20837#24211
            ReadOnly = True
            Title.Alignment = taCenter
            Visible = True
          end>
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 586
    Top = 4
    Width = 90
    Height = 25
    Hint = #30003#35831#21333#20837#24211#30331#35760
    Caption = #20837'  '#24211'[&R]'
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000C40E0000C40E00000000000000000000CCCCCCCCCCCC
      CCCCCCCCCCCCCCCCCCCCCCCC000000999999999999CCCCCCCCCCCCCCCCCCCCCC
      CCCCCCCCCCCCCCCCCCCCCCCCCC00000000000000000099CCFF336699FFFFFF66
      99CC000000999999CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCFFFFFF
      99CCFF336699FFFFFF99CCFF3366993366996699CC000000999999CCCCCCCCCC
      CCCCCCCCCCCCCCCCCCCC99CCFF336699FFFFFF00000033669933669933669900
      00003366996699CC000000999999CCCCCCCCCCCCCCCCCCCCCCCC000000000000
      FF9999FF99996633330000006666CC6666CC0000AA3366996699CC0000009999
      99CCCCCCCCCCCCCCCCCCCCCCCC000000FF9999FF99996633330000006666CC66
      66CC0000AA0000AA3366996699CC000000999999CCCCCCCCCCCCCCCCCC000000
      FF9999FF99996633330000006666CC6666CC0000AA0000AA33669999CCFF6699
      CC000000999999CCCCCCCCCCCC000000FFFFFFFFCCCC00000000CCFF00000066
      66CC9999FF0000996699CC99CCFF99CCFF6699CC000000999999CCCCCCCCCCCC
      00000000000000CCFF00CCFF0099FF0000006666CC00000099CCFFFFFFFF99CC
      FF99CCFF6699CC999999CCCCCCCCCCCCCCCCCC00000000CCFF00CCFF0099FF00
      99FF99CCFF99CCFF99CCFF99CCFF99CCFF99CCFF336699999999CCCCCCCCCCCC
      00000000000000CCFF00FFFF0099FF0099FF6699CC6699CCFFFFFF99CCFFFFFF
      FF336699336699000000CCCCCCCCCCCCFFFFFF99CCFF00FFFF00FFFF00FFFF00
      99FF99CCFF99CCFFFFFFFF33669999CCFF99CCFF99CCFF000000CCCCCCCCCCCC
      00000000000000000000FFFF000000000000000000000000CCCCCCFFFFFF99CC
      FF000000CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC}
  end
  object BitBtn3: TBitBtn
    Left = 685
    Top = 4
    Width = 90
    Height = 25
    Hint = #31163#24320#30003#35831#21333#20837#24211#31649#29702
    Caption = #31163'  '#24320'[&E]'
    TabOrder = 2
    OnClick = BitBtn3Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
      F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
      000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
      338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
      45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
      3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
      F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
      000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
      338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
      4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
      8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
      333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
      0000}
    NumGlyphs = 2
  end
  object Edit1: TEdit
    Left = 221
    Top = 7
    Width = 113
    Height = 20
    Hint = #30003#35831#21333#21333#21495
    Color = clInfoBk