VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmLocalisation 
   Caption         =   "Локализованные материалы и комплектующие "
   ClientHeight    =   6135
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   8910
   Icon            =   "frmLocalisation.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6135
   ScaleWidth      =   8910
   StartUpPosition =   3  'Windows Default
   Begin TabDlg.SSTab SSTab1 
      Height          =   5655
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   8655
      _ExtentX        =   15266
      _ExtentY        =   9975
      _Version        =   393216
      Tabs            =   2
      TabHeight       =   520
      TabCaption(0)   =   "Материалы"
      TabPicture(0)   =   "frmLocalisation.frx":08CA
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "DataMaterialDWMC"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "btnAdd"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "btnChange"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "btnDelete"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "btnOK"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).Control(5)=   "DBGrid1"
      Tab(0).Control(5).Enabled=   0   'False
      Tab(0).Control(6)=   "Command6"
      Tab(0).Control(6).Enabled=   0   'False
      Tab(0).Control(7)=   "DataFirmMaterial"
      Tab(0).Control(7).Enabled=   0   'False
      Tab(0).Control(8)=   "DBGrid2"
      Tab(0).Control(8).Enabled=   0   'False
      Tab(0).Control(9)=   "btnLocAdd"
      Tab(0).Control(9).Enabled=   0   'False
      Tab(0).ControlCount=   10
      TabCaption(1)   =   "Комплектующие"
      TabPicture(1)   =   "frmLocalisation.frx":08E6
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Command2"
      Tab(1).ControlCount=   1
      Begin VB.CommandButton btnLocAdd 
         Caption         =   "Добавить"
         Height          =   375
         Left            =   7200
         TabIndex        =   9
         Top             =   3240
         Width           =   1215
      End
      Begin MSDBGrid.DBGrid DBGrid2 
         Bindings        =   "frmLocalisation.frx":0902
         Height          =   1095
         Left            =   240
         OleObjectBlob   =   "frmLocalisation.frx":0921
         TabIndex        =   8
         Top             =   3240
         Width           =   6735
      End
      Begin VB.Data DataFirmMaterial 
         Connect         =   "Access"
         DatabaseName    =   "Localisation.mdb"
         DefaultCursorType=   0  'DefaultCursor
         DefaultType     =   2  'UseODBC
         Exclusive       =   0   'False
         Height          =   375
         Left            =   240
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   ""
         Top             =   4320
         Width           =   6735
      End
      Begin VB.CommandButton Command6 
         Caption         =   "Подробности"
         Height          =   375
         Left            =   7200
         TabIndex        =   7
         Top             =   600
         Width           =   1215
      End
      Begin MSDBGrid.DBGrid DBGrid1 
         Bindings        =   "frmLocalisation.frx":12F4
         Height          =   1455
         Left            =   240
         OleObjectBlob   =   "frmLocalisation.frx":1313
         TabIndex        =   6
         Top             =   600
         Width           =   6735
      End
      Begin VB.CommandButton btnOK 
         Caption         =   "ОК"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   204
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   7200
         TabIndex        =   5
         Top             =   5040
         Width           =   1215
      End
      Begin VB.CommandButton btnDelete 
         Caption         =   "Удалить"
         Height          =   375
         Left            =   7200
         TabIndex        =   4
         Top             =   2040
         Width           =   1215
      End
      Begin VB.CommandButton btnChange 
         Caption         =   "Изменить"
         Height          =   375
         Left            =   7200
         TabIndex        =   3
         Top             =   1560
         Width           =   1215
      End
      Begin VB.CommandButton btnAdd 
         Caption         =   "Добавить"
         Height          =   375
         Left            =   7200
         TabIndex        =   2
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Data DataMaterialDWMC 
         Connect         =   "Access"
         DatabaseName    =   "Localisation.mdb"
         DefaultCursorType=   0  'DefaultCursor
         DefaultType     =   2  'UseODBC
         Exclusive       =   0   'False
         Height          =   345
         Left            =   240
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   "select fldNumber, fldMaterialNameEng, fldMaterialNameRus, fldStandard from tblMaterialDWMC"
         Top             =   2040
         Width           =   6735
      End
      Begin VB.CommandButton Command2 
         Caption         =   "Закрыть"
         Height          =   495
         Left            =   -68040
         TabIndex        =   1
         Top             =   5520
         Width           =   1455
      End
   End
End
Attribute VB_Name = "frmLocalisation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub btnOK_Click()
Unload Me
End Sub

Private Sub Command6_Click()
frmMaterialDWMC.Show 1
DBGrid1.Refresh
End Sub

Private Sub DataMaterialDWMC_Reposition()
CurrentMaterial = DataMaterialDWMC.Recordset.AbsolutePosition + 1
MaterialQuantity = DataMaterialDWMC.Recordset.RecordCount
On Error Resume Next
DataMaterialDWMC.Caption = "Запись: " & (DataMaterialDWMC.Recordset.AbsolutePosition + 1) & " из " & DataMaterialDWMC.Recordset.RecordCount
End Sub

Private Sub DataFirmMaterial_Reposition()
CurrentMaterial = DataFirmMaterial.Recordset.AbsolutePosition + 1
MaterialQuantity = DataFirmMaterial.Recordset.RecordCount
On Error Resume Next
DataFirmMaterial.Caption = "Запись: " & (DataFirmMaterial.Recordset.AbsolutePosition + 1) & " из " & DataFirmMaterial.Recordset.RecordCount
End Sub

Private Sub Form_Load()
DataMaterialDWMC.ReadOnly = True
End Sub

