ywgl_pxgl_bjform.~dfm

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

object YWGL_PXGL_BJ: TYWGL_PXGL_BJ
  Left = 113
  Top = 123
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #25552#21462#22791#20214
  ClientHeight = 300
  ClientWidth = 440
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 232
    Width = 36
    Height = 12
    Caption = #22791#20214#65306
  end
  object Label2: TLabel
    Left = 8
    Top = 256
    Width = 36
    Height = 12
    Caption = #37329#39069#65306
  end
  object Bevel1: TBevel
    Left = -11
    Top = 214
    Width = 456
    Height = 3
  end
  object Label4: TLabel
    Left = 148
    Top = 0
    Width = 96
    Height = 24
    Caption = #25552#21462#22791#20214
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Shape1: TShape
    Left = 112
    Top = 26
    Width = 177
    Height = 2
    Pen.Color = clBlue
    Pen.Width = 2
  end
  object BitBtn1: TBitBtn
    Left = 266
    Top = 267
    Width = 105
    Height = 25
    Caption = #30830#23450'[&Y]'
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object Edit1: TEdit
    Left = 56
    Top = 225
    Width = 360
    Height = 20
    ReadOnly = True
    TabOrder = 1
  end
  object Edit2: TEdit
    Left = 56
    Top = 253
    Width = 121
    Height = 20
    ReadOnly = True
    TabOrder = 2
  end
  object StringGrid1: TStringGrid
    Left = 5
    Top = 35
    Width = 417
    Height = 173
    ColCount = 8
    DefaultColWidth = 15
    DefaultRowHeight = 16
    RowCount = 20
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor]
    TabOrder = 3
    OnClick = StringGrid1Click
    OnDblClick = StringGrid1DblClick
    OnExit = StringGrid1Exit
    OnGetEditMask = StringGrid1GetEditMask
    OnKeyDown = StringGrid1KeyDown
    OnKeyPress = StringGrid1KeyPress
    ColWidths = (
      15
      74
      62
      36
      34
      50
      46
      41)
  end
  object DBGrid1: TDBGrid
    Left = 97
    Top = 53
    Width = 283
    Height = 124
    Color = clInfoBk
    DataSource = DataSource1
    Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Visible = False
    OnDblClick = DBGrid1DblClick
    OnKeyPress = DBGrid1KeyPress
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #29289#21697#21517#31216
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 81
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #22411#21495
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 94
        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
        Width = 39
        Visible = True
      end>
  end
  object Edit3: TEdit
    Left = 8
    Top = 280
    Width = 177
    Height = 20
    TabOrder = 5
    Visible = False
    OnChange = Edit3Change
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
      ';Data Source=mr_wx'
    CursorType = ctStatic
    TableName = #22791#20214#24211#23384
    Left = 296
    Top = 240
    object ADOTable1DSDesigner: TStringField
      FieldName = #32534#21495
    end
    object ADOTable1DSDesigner2: TStringField
      FieldName = #29289#21697#21517#31216
    end
    object ADOTable1DSDesigner3: TStringField
      FieldName = #22411#21495
    end
    object ADOTable1DSDesigner4: TStringField
      FieldName = #35268#26684
    end
    object ADOTable1DSDesigner5: TStringField
      FieldName = #21333#20301
      Size = 6
    end
    object ADOTable1DSDesigner6: TIntegerField
      FieldName = #25968#37327
    end
    object ADOTable1DSDesigner7: TBCDField
      FieldName = #24179#22343#21333#20215
      Precision = 19
    end
    object ADOTable1DSDesigner8: TBCDField
      FieldName = #24211#23384#37329#39069
      Precision = 19
    end
    object ADOTable1DSDesigner9: TIntegerField
      FieldName = #25552#31034#19978#38480
    end
    object ADOTable1DSDesigner10: TIntegerField
      FieldName = #25552#31034#19979#38480
    end
    object ADOTable1DSDesigner11: TStringField
      FieldName = #37096#38376
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 328
    Top = 240
  end
  object ADOTable2: TADOTable
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
      ';Data Source=mr_wx'
    CursorType = ctStatic
    TableName = #22791#20214#20986#24211
    Left = 248
    Top = 240
    object ADOTable2DSDesigner: TDateTimeField
      FieldName = #26085#26399
    end
    object ADOTable2DSDesigner2: TStringField
      FieldName = #36135#21697#21517#31216
    end
    object ADOTable2DSDesigner3: TStringField
      FieldName = #22411#21495
    end
    object ADOTable2DSDesigner4: TStringField
      FieldName = #35268#26684
    end
    object ADOTable2DSDesigner5: TStringField
      FieldName = #21333#20301
      Size = 6
    end
    object ADOTable2DSDesigner6: TStringField
      FieldName = #22791#20214#21435#21521
    end
    object ADOTable2DSDesigner7: TIntegerField
      FieldName = #20986#24211#25968#37327
    end
    object ADOTable2DSDesigner8: TBCDField
      FieldName = #20986#24211#21333#20215
      Precision = 19
    end
    object ADOTable2DSDesigner9: TStringField
      FieldName = #27454#39033
    end
    object ADOTable2DSDesigner10: TBCDField
      FieldName = #37329#39069
      Precision = 19
    end
    object ADOTable2DSDesigner11: TStringField
      FieldName = #25439#32791
    end
    object ADOTable2DSDesigner12: TStringField
      FieldName = #32463#25163#20154
    end
    object ADOTable2DSDesigner13: TStringField
      FieldName = #35814#32454#35828#26126
      Size = 80
    end
    object ADOTable2DSDesigner14: TStringField
      FieldName = #37096#38376
    end
  end
  object ADOTable3: TADOTable
    Active = True
    ConnectionString = 
      'Provider=MSDASQL;Password=mrwxdata1;Persist Security Info=True;D' +
      'ata Source=mr_wx'
    CursorType = ctStatic
    TableName = #22791#20214#24211#26126#32454#34920
    Left = 224
    Top = 224
    object ADOTable3DSDesigner: TDateTimeField
      FieldName = #26085#26399
    end
    object ADOTable3DSDesigner2: TStringField
      FieldName = #36135#21697#21517#31216
    end
    object ADOTable3DSDesigner3: TStringField
      FieldName = #22411#21495
    end
    object ADOTable3DSDesigner4: TStringField
      FieldName = #35268#26684
    end
    object ADOTable3DSDesigner5: TStringField
      FieldName = #21333#20301
      Size = 6
    end
    object ADOTable3DSDesigner6: TStringField
      FieldName = #22791#20214#26469#21382#12289#21435#21521
    end
    object ADOTable3DSDesigner7: TIntegerField
      FieldName = #20837#24211#25968#37327
    end
    object ADOTable3DSDesigner8: TIntegerField
      FieldName = #20986#24211#25968#37327
    end
    object ADOTable3DSDesigner9: TBCDField
      FieldName = #20837#24211#21333#20215
      Precision = 19
    end
    object ADOTable3DSDesigner10: TBCDField
      FieldName = #20986#24211#21333#20215
      Precision = 19
    end
    object ADOTable3DSDesigner11: TStringField
      FieldName = #27454#39033
    end
    object ADOTable3DSDesigner12: TBCDField
      FieldName = #37329#39069
      Precision = 19
    end
    object ADOTable3DSDesigner13: TIntegerField
      FieldName = #24211#23384#37327
    end
    object ADOTable3DSDesigner14: TStringField
      FieldName = #25439#32791
    end
    object ADOTable3DSDesigner15: TStringField
      FieldName = #32463#25163#20154
    end
    object ADOTable3DSDesigner16: TStringField
      FieldName = #35814#32454#35828#26126
      Size = 80
    end
    object ADOTable3DSDesigner17: TStringField
      FieldName = #37096#38376
    end
  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 '#22791#20214#24211#23384)
    Left = 384
    Top = 248
  end
end