ywgl_bjrkform.~dfm

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

object ywgl_BJRK: Tywgl_BJRK
  Left = 142
  Top = 176
  Width = 718
  Height = 383
  Caption = #20837#24211#21333
  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
  OnKeyPress = DBGrid1KeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 320
    Top = 3
    Width = 137
    Height = 24
    AutoSize = False
    Caption = #20837#24211#21333
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 24
    Width = 689
    Height = 65
    Caption = #20986#24211#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 20
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #20379#24212#21830
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 43
      Width = 65
      Height = 17
      AutoSize = False
      Caption = #32463#25163#20154
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 416
      Top = 16
      Width = 65
      Height = 20
      AutoSize = False
      Caption = #20837#24211#26085#26399#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 480
      Top = 15
      Width = 177
      Height = 17
      AutoSize = False
    end
    object Label8: TLabel
      Left = 480
      Top = 39
      Width = 177
      Height = 17
      AutoSize = False
    end
    object Label9: TLabel
      Left = 416
      Top = 40
      Width = 65
      Height = 20
      AutoSize = False
      Caption = #20837#24211#21333#21495#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 80
      Top = 16
      Width = 185
      Height = 21
      KeyField = #21830#23478#21517#31216
      ListField = #21830#23478#21517#31216
      ListSource = DataSource1
      TabOrder = 0
      OnKeyDown = DBLookupComboBox1KeyDown
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 80
      Top = 40
      Width = 185
      Height = 21
      KeyField = #32844#21592#21517#31216
      ListField = #32844#21592#21517#31216
      ListSource = DataSource2
      TabOrder = 1
      OnKeyDown = DBLookupComboBox2KeyDown
    end
  end
  object StringGrid1: TStringGrid
    Left = 8
    Top = 96
    Width = 689
    Height = 209
    Hint = #22791#20214#39046#26009#20020#26102#34920
    ColCount = 10
    DefaultColWidth = 20
    DefaultRowHeight = 15
    FixedCols = 0
    RowCount = 50
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor]
    ScrollBars = ssVertical
    TabOrder = 3
    OnClick = StringGrid1Click
    OnKeyDown = StringGrid1KeyDown
    OnKeyPress = StringGrid1KeyPress
    OnKeyUp = StringGrid1KeyUp
    ColWidths = (
      72
      55
      50
      56
      49
      49
      46
      55
      52
      159)
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 312
    Width = 681
    Height = 41
    TabOrder = 1
    object Label4: TLabel
      Left = 16
      Top = 16
      Width = 48
      Height = 13
      Caption = #35760#24405#25968#65306
    end
    object Label5: TLabel
      Left = 152
      Top = 16
      Width = 36
      Height = 13
      Caption = #37329#39069#65306
    end
    object Bevel1: TBevel
      Left = 384
      Top = 5
      Width = 3
      Height = 33
    end
    object Label10: TLabel
      Left = 72
      Top = 16
      Width = 38
      Height = 13
      Caption = 'Label10'
    end
    object Label11: TLabel
      Left = 192
      Top = 16
      Width = 38
      Height = 13
      Caption = 'Label11'
    end
    object Button2: TButton
      Left = 480
      Top = 11
      Width = 65
      Height = 25
      Caption = #20445#23384
      Enabled = False
      TabOrder = 0
      OnClick = Button2Click
    end
    object Button1: TButton
      Left = 400
      Top = 11
      Width = 81
      Height = 25
      Caption = #28155#21152
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 544
      Top = 11
      Width = 57
      Height = 25
      Caption = #21462#28040
      Enabled = False
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 600
      Top = 11
      Width = 73
      Height = 25
      Caption = #36864#20986
      TabOrder = 3
      OnClick = Button4Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 120
    Top = 128
    Width = 433
    Height = 153
    Color = clInactiveCaptionText
    DataSource = DataSource3
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
    OnKeyPress = DBGrid1KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = #32534#21495
        Width = 49
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29289#21697#21517#31216
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22411#21495
        Width = 72
        Visible = True
      end
      item
        Expanded = False
        FieldName = #35268#26684
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21333#20301
        Width = 41
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25968#37327
        Width = 88
        Visible = True
      end>
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 560
    Top = 8
  end
  object ADOQuery3: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
      ';Data Source=mr_wx'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#22791#20214#24211#23384)
    Left = 600
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 208
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
      ';Data Source=mr_wx'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#21830#23478#22522#26412#20449#24687)
    Left = 168
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
      ';Data Source=mr_wx'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#32844#21592#34920)
    Left = 240
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 280
    Top = 8
  end
  object ADOQuery4: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
      ';Data Source=mr_wx'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#22791#20214#20837#24211)
    Left = 496
    Top = 8
  end
end