ywgl_lldform.dfm

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

    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 3
  end
  object Edit2: TEdit
    Left = 67
    Top = 7
    Width = 112
    Height = 20
    Hint = #30003#35831#21333#26085#26399
    Color = clInfoBk
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
  end
  object ComboBox1: TComboBox
    Left = 416
    Top = 6
    Width = 129
    Height = 20
    Style = csDropDownList
    Color = clInfoBk
    ItemHeight = 12
    TabOrder = 5
    OnClick = ComboBox1Click
  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#39046#26009#24207#21495
    Left = 32
    Top = 80
    object ADOTable1DSDesigner: TDateTimeField
      FieldName = #26085#26399
    end
    object ADOTable1DSDesigner2: TStringField
      FieldName = #21333#21495
    end
    object ADOTable1DSDesigner3: TStringField
      FieldName = #30003#35831#20154
    end
    object ADOTable1DSDesigner4: TStringField
      FieldName = #21457#26009#21333#20301
      Size = 30
    end
    object ADOTable1DSDesigner5: TStringField
      FieldName = #26159#21542#20837#24211
      Size = 8
    end
    object ADOTable1ru: TBooleanField
      FieldName = 'ru'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    OnDataChange = DataSource1DataChange
    Left = 72
    Top = 80
  end
  object ADOTable2: TADOTable
    ConnectionString = 
      'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
      ';Data Source=mr_wx'
    CursorType = ctStatic
    Filtered = True
    TableName = #22791#20214#39046#26009#21333
    Left = 40
    Top = 216
    object ADOTable2DSDesigner: TStringField
      FieldName = #21333#21495
    end
    object ADOTable2DSDesigner2: TStringField
      FieldName = #21517#31216
    end
    object ADOTable2DSDesigner3: TStringField
      FieldName = #29289#26009#32534#30721
    end
    object ADOTable2DSDesigner4: TStringField
      FieldName = #35268#26684#22411#21495
    end
    object ADOTable2DSDesigner5: TStringField
      FieldName = #21333#20301
      Size = 6
    end
    object ADOTable2DSDesigner6: TIntegerField
      FieldName = #25968#37327
    end
    object ADOTable2DSDesigner7: TStringField
      FieldName = #26426#22411
    end
    object ADOTable2DSDesigner8: TStringField
      FieldName = #20301#21495
    end
    object ADOTable2DSDesigner9: TStringField
      FieldName = #22791#27880
      Size = 50
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 80
    Top = 216
  end
  object ADOTable3: TADOTable
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
      ';Data Source=mr_wx'
    CursorType = ctStatic
    Filtered = True
    TableName = #22791#20214#24211#23384
    Left = 220
    Top = 221
    object ADOTable3DSDesigner: TStringField
      FieldName = #32534#21495
    end
    object ADOTable3DSDesigner2: TStringField
      FieldName = #29289#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: TIntegerField
      FieldName = #25968#37327
    end
    object ADOTable3DSDesigner7: TBCDField
      FieldName = #24179#22343#21333#20215
      Precision = 19
    end
    object ADOTable3DSDesigner8: TBCDField
      FieldName = #24211#23384#37329#39069
      Precision = 19
    end
    object ADOTable3DSDesigner9: TIntegerField
      FieldName = #25552#31034#19978#38480
    end
    object ADOTable3DSDesigner10: TIntegerField
      FieldName = #25552#31034#19979#38480
    end
    object ADOTable3DSDesigner11: TStringField
      FieldName = #37096#38376
    end
  end
  object ADOTable4: TADOTable
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
      ';Data Source=mr_wx'
    CursorType = ctStatic
    Filtered = True
    TableName = #22791#20214#20837#24211
    Left = 284
    Top = 229
    object ADOTable4DSDesigner: TDateTimeField
      FieldName = #26085#26399
    end
    object ADOTable4DSDesigner2: TStringField
      FieldName = #29289#21697#21517#31216
    end
    object ADOTable4DSDesigner3: TStringField
      FieldName = #22411#21495
    end
    object ADOTable4DSDesigner4: TStringField
      FieldName = #35268#26684
    end
    object ADOTable4DSDesigner5: TStringField
      FieldName = #21333#20301
      Size = 6
    end
    object ADOTable4DSDesigner6: TStringField
      FieldName = #22791#20214#26469#21382
      Size = 30
    end
    object ADOTable4DSDesigner7: TStringField
      FieldName = #20837#24211#26041#24335
    end
    object ADOTable4DSDesigner8: TIntegerField
      FieldName = #20837#24211#25968#37327
    end
    object ADOTable4DSDesigner9: TBCDField
      FieldName = #20837#24211#21333#20215
      Precision = 19
    end
    object ADOTable4DSDesigner10: TStringField
      FieldName = #27454#39033
    end
    object ADOTable4DSDesigner11: TBCDField
      FieldName = #37329#39069
      Precision = 19
    end
    object ADOTable4DSDesigner12: TStringField
      FieldName = #25439#32791
    end
    object ADOTable4DSDesigner13: TStringField
      FieldName = #32463#25163#20154
    end
    object ADOTable4DSDesigner14: TStringField
      FieldName = #35814#32454#35828#26126
      Size = 80
    end
    object ADOTable4DSDesigner15: TStringField
      FieldName = #37096#38376
    end
  end
  object ADOTable5: TADOTable
    Active = True
    ConnectionString = 
      'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
      ';Data Source=mr_wx'
    CursorType = ctStatic
    Filtered = True
    TableName = #22791#20214#24211#26126#32454#34920
    Left = 324
    Top = 237
    object ADOTable5DSDesigner: TDateTimeField
      FieldName = #26085#26399
    end
    object ADOTable5DSDesigner2: TStringField
      FieldName = #36135#21697#21517#31216
    end
    object ADOTable5DSDesigner3: TStringField
      FieldName = #22411#21495
    end
    object ADOTable5DSDesigner4: TStringField
      FieldName = #35268#26684
    end
    object ADOTable5DSDesigner5: TStringField
      FieldName = #21333#20301
      Size = 6
    end
    object ADOTable5DSDesigner6: TStringField
      FieldName = #22791#20214#26469#21382#12289#21435#21521
    end
    object ADOTable5DSDesigner7: TIntegerField
      FieldName = #20837#24211#25968#37327
    end
    object ADOTable5DSDesigner8: TIntegerField
      FieldName = #20986#24211#25968#37327
    end
    object ADOTable5DSDesigner9: TBCDField
      FieldName = #20837#24211#21333#20215
      Precision = 19
    end
    object ADOTable5DSDesigner10: TBCDField
      FieldName = #20986#24211#21333#20215
      Precision = 19
    end
    object ADOTable5DSDesigner11: TStringField
      FieldName = #27454#39033
    end
    object ADOTable5DSDesigner12: TBCDField
      FieldName = #37329#39069
      Precision = 19
    end
    object ADOTable5DSDesigner13: TIntegerField
      FieldName = #24211#23384#37327
    end
    object ADOTable5DSDesigner14: TStringField
      FieldName = #25439#32791
    end
    object ADOTable5DSDesigner15: TStringField
      FieldName = #32463#25163#20154
    end
    object ADOTable5DSDesigner16: TStringField
      FieldName = #35814#32454#35828#26126
      Size = 80
    end
    object ADOTable5DSDesigner17: 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 '#24211#25151' from '#24211)
    Left = 444
    Top = 83
  end
end