sjgl_bjxxform.~dfm

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

object SJGL_BJXX: TSJGL_BJXX
  Left = 51
  Top = 157
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #22791#20214#24211#20449#24687#31649#29702
  ClientHeight = 266
  ClientWidth = 581
  Color = clBtnFace
  Constraints.MaxHeight = 600
  Constraints.MaxWidth = 790
  Constraints.MinHeight = 200
  Constraints.MinWidth = 500
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = -21
    Top = 35
    Width = 614
    Height = 6
  end
  object Label1: TLabel
    Left = 134
    Top = 6
    Width = 60
    Height = 19
    Caption = 'sfdasf'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 6
    Width = 30
    Height = 19
    Caption = #24211':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -19
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object BitBtn1: TBitBtn
    Left = 280
    Top = 5
    Width = 104
    Height = 25
    Hint = #24211#23384#19978#19979#38480#20540#35774#32622
    Caption = #19978#19979#38480#35774#32622'&X]'
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
      33333333333F8888883F33330000324334222222443333388F3833333388F333
      000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
      F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
      223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
      3338888300003AAAAAAA33333333333888888833333333330000333333333333
      333333333333333333FFFFFF000033333333333344444433FFFF333333888888
      00003A444333333A22222438888F333338F3333800003A2243333333A2222438
      F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
      22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
      33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
      3333333333338888883333330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 384
    Top = 5
    Width = 106
    Height = 25
    Hint = #24211#20013#22791#20214#26597#35810
    Caption = #24211#20449#24687#26597#35810'[&S]'
    TabOrder = 1
    OnClick = BitBtn2Click
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000C40E0000C40E00000000000000000000C8B4C8C8B4C8
      C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4
      C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8
      B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8
      C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C80099000099
      00C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8
      B4C8C8B4C8C8B4C800000000990000FF00C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8
      C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C800990000990000FF009999
      99C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8
      B4C800000000990000FF00999999C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8
      000000999999000000000000999999999999999999999999C8B4C8C8B4C8C8B4
      C8C8B4C8C8B4C8C8B4C8C8B4C8000000999999000000C8B4C8C8B4C800000099
      9999000000C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8999999
      000000C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8999999C8B4C8C8B4C8C8B4C8C8B4
      C8C8B4C8C8B4C8C8B4C8C8B4C8000000C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8
      B4C8000000C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8000000
      C8B4C8FFFFFF000000C8B4C8C8B4C8C8B4C8000000C8B4C8C8B4C8C8B4C8C8B4
      C8C8B4C8C8B4C8C8B4C8C8B4C8000000C8B4C8000000FFFFFFC8B4C8C8B4C8C8
      B4C8000000C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8999999
      000000C8B4C8000000C8B4C8C8B4C8C8B4C8FFFFFFC8B4C8C8B4C8C8B4C8C8B4
      C8C8B4C8C8B4C8C8B4C8C8B4C8000000CCCCCC000000C8B4C8C8B4C8000000FF
      FFFF000000C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8
      C8B4C8C8B4C8000000000000999999C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4
      C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8
      B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8C8B4C8}
  end
  object BitBtn4: TBitBtn
    Left = 488
    Top = 5
    Width = 77
    Height = 25
    Hint = #31163#24320#24211#23384#34920
    Caption = #31163#24320'[&E]'
    TabOrder = 2
    OnClick = BitBtn4Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
      F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
      000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
      338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
      45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
      3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
      F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
      000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
      338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
      4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
      8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
      333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
      0000}
    NumGlyphs = 2
  end
  object ComboBox1: TComboBox
    Left = 42
    Top = 6
    Width = 79
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 3
    OnClick = ComboBox1Click
  end
  object DBGrid1: TDBGrid
    Left = 7
    Top = 48
    Width = 570
    Height = 217
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = BitBtn1Click
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #32534#21495
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 53
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #29289#21697#21517#31216
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 63
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #22411#21495
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 73
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #35268#26684
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 58
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #21333#20301
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 43
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #25968#37327
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 51
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #24179#22343#21333#20215
        PickList.Strings = (
          '')
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 67
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #24211#23384#37329#39069
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 56
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #25552#31034#19978#38480
        ReadOnly = True
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #25552#31034#19979#38480
        ReadOnly = True
        Title.Alignment = taCenter
        Visible = True
      end>
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=MSDASQL;Password=mrwxdata1;Persist Security Info=True;D' +
      'ata Source=mr_wx'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#22791#20214#24211#23384)
    Left = 140
    Top = 60
    object ADOQuery1DSDesigner: TStringField
      FieldName = #32534#21495
    end
    object ADOQuery1DSDesigner2: TStringField
      FieldName = #29289#21697#21517#31216
    end
    object ADOQuery1DSDesigner3: TStringField
      FieldName = #22411#21495
    end
    object ADOQuery1DSDesigner4: TStringField
      FieldName = #35268#26684
    end
    object ADOQuery1DSDesigner5: TStringField
      FieldName = #21333#20301
      Size = 6
    end
    object ADOQuery1DSDesigner6: TIntegerField
      FieldName = #25968#37327
    end
    object ADOQuery1DSDesigner7: TBCDField
      FieldName = #24179#22343#21333#20215
      DisplayFormat = #65509'0.00'
      EditFormat = '0.00'
      Precision = 19
    end
    object ADOQuery1DSDesigner8: TBCDField
      FieldName = #24211#23384#37329#39069
      DisplayFormat = #65509'0.00'
      EditFormat = '0.00'
      Precision = 19
    end
    object ADOQuery1DSDesigner9: TIntegerField
      FieldName = #25552#31034#19978#38480
    end
    object ADOQuery1DSDesigner10: TIntegerField
      FieldName = #25552#31034#19979#38480
    end
    object ADOQuery1DSDesigner11: TStringField
      FieldName = #37096#38376
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 252
    Top = 60
  end
  object ADOQuery3: TADOQuery
    ConnectionString = 
      'Provider=MSDASQL;Password=mrwxdata1;Persist Security Info=True;D' +
      'ata Source=mr_wx'
    Parameters = <>
    Left = 204
    Top = 60
  end
  object ADOQuery2: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=MSDASQL;Password=mrwxdata1;Persist Security Info=True;D' +
      'ata Source=mr_wx'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select '#24211#25151' from '#24211)
    Left = 172
    Top = 60
  end
end