3. Бд Сальдо
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form пфБД
Caption = "ComboDB + MSFlexGrid"
ClientHeight = 4440
ClientLeft = 2670
ClientTop = 3045
ClientWidth = 8370
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 4440
ScaleWidth = 8370
Begin MSComDlg.CommonDialog одБД
Left = 240
Top = 3150
_ExtentX = 847
_ExtentY = 847
_Version = 393216
FileName = "Фирма97.mdb"
Filter = "Фирма97.mdb|Фирма97.mdb"
End
Begin VB.TextBox ттВвод
Height = 315
Left = 30
TabIndex = 2
Text = "Проба"
Top = 1770
Width = 2385
End
Begin MSDBCtls.DBCombo спКолонка
Bindings = "ComboDB.frx":0000
DataSource = "бдФирма"
Height = 1545
Left = 30
TabIndex = 1
Top = 90
Width = 2385
_ExtentX = 4207
_ExtentY = 2725
_Version = 393216
Style = 1
ListField = "ИмяОтдела"
Text = ""
End
Begin MSFlexGridLib.MSFlexGrid тбФирма
Bindings = "ComboDB.frx":0025
Height = 4305
Left = 2475
TabIndex = 0
Top = 90
Width = 5850
ExtentX = 10319
ExtentY = 7594
Version = 393216
FixedCols = 0
AllowBigSelection= -1 'True
AllowUserResizing= 1
End
Begin VB.Data бдФирма
Caption = " ! ткни меня !"
Connect = "Access"
DatabaseName = "A:\Фирма\Фирма97.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 375
Left = 30
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "фнкОргСтруктура"
ToolTipText = " Отдел Фирмы "
Top = 2190
Width = 2385
End
End
Attribute VB_Name = "пфБД"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim ЩельRight!, ЩельBottom!
Private Sub Form_Load()
With тбФирма
ЩельRight = Width - (.Left + .Width)
ЩельBottom = Height - (.Top + .Height)
End With
End Sub
Private Sub Form_Resize()
Dim Высота!, тбШирина!
Высота = бдФирма.Top + бдФирма.Height + ЩельBottom
If Height < Высота Then Height = Высота
With тбФирма
тбШирина = Width - (.Left + ЩельRight)
If тбШирина < 0 Then тбШирина = 0: Width = (.Left + ЩельRight)
.Move .Left, .Top, тбШирина, Height - (.Top + ЩельBottom)
End With
Dim имяБД$
имяБД = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "Фирма97.mdb"
If Dir(имяБД) = "" Then
With одБД
.InitDir = App.Path
.DialogTitle = "Выбери файл ""Фирма97.mdb"""
.ShowOpen
имяБД = .FileName
End With
If Right(имяБД, Len("Фирма97.mdb")) <> "Фирма97.mdb" Then
MsgBox "БД не выбрана"
End If
End If
бдФирма.DatabaseName = имяБД
End Sub