Монтаж, эксплуатация и ремонт технологического оборудования. Курсовое проектирование. Юнусов Г.С - 139 стр.

UptoLike

138
CommonDialog1.FileName = FName
CommonDialog1.DefaultExt = ExtName
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
FlName = CommonDialog1.FileName
Open FlName For Input As #1
Input #1, StrR 'Titul
If StrR <> Titul Then
I = MsgBox("Файл создан не этой программой!", vbOK-
Only, "Ошибка")
Reset
CommonDialog1.FileName = ""
Exit Sub
End If
For I = 1 To 4
Input #1, StrR 'Название крана
Input #1, StrR 'Число строк в таблице
N = Val(StrR)
For J = 1 To N
Input #1, StrR 'Читаем число из таблицы
If StrR = "0" Then StrR = ""
MSFlexGrid1(I - 1).TextMatrix(J, 1) = StrR
Next J
Next I
Reset
CommonDialog1.FileName = ""
End If
End Sub
Private Sub SaveData()
' Процедура сохранения данных в файле
CommonDialog1.Filter = "Data files (*.dat)|*.dat"
CommonDialog1.FileName = FName
CommonDialog1.DefaultExt = ExtName
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
FlName = CommonDialog1.FileName
Open FlName For Output As #1
Write #1, Titul
For I = 1 To 4
If I = 1 Then StrR = "Данные для башеного крана"
    CommonDialog1.FileName = FName
    CommonDialog1.DefaultExt = ExtName
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> "" Then
      FlName = CommonDialog1.FileName
      Open FlName For Input As #1
      Input #1, StrR 'Titul
      If StrR <> Titul Then
        I = MsgBox("Файл создан не этой программой!", vbOK-
Only, "Ошибка")
        Reset
        CommonDialog1.FileName = ""
        Exit Sub
      End If
      For I = 1 To 4
        Input #1, StrR 'Название крана
        Input #1, StrR 'Число строк в таблице
        N = Val(StrR)
        For J = 1 To N
          Input #1, StrR 'Читаем число из таблицы
          If StrR = "0" Then StrR = ""
          MSFlexGrid1(I - 1).TextMatrix(J, 1) = StrR
        Next J
      Next I
      Reset
      CommonDialog1.FileName = ""
    End If
  End Sub
  Private Sub SaveData()
  ' Процедура сохранения данных в файле
    CommonDialog1.Filter = "Data files (*.dat)|*.dat"
    CommonDialog1.FileName = FName
    CommonDialog1.DefaultExt = ExtName
    CommonDialog1.ShowSave
    If CommonDialog1.FileName <> "" Then
      FlName = CommonDialog1.FileName
      Open FlName For Output As #1
      Write #1, Titul
      For I = 1 To 4
        If I = 1 Then StrR = "Данные для башеного крана"
                             138