home *** CD-ROM | disk | FTP | other *** search
- object TblEmptyForm: TTblEmptyForm
- Left = 200
- Top = 104
- BorderStyle = bsDialog
- Caption = 'Vypr�zdn�n� datab�ze'
- ClientHeight = 184
- ClientWidth = 324
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object WarnIcon: TImage
- Left = 8
- Top = 8
- Width = 32
- Height = 32
- Picture.Data = {<image000.ico>}
- end
- object Notebook: TNotebook
- Left = 52
- Top = 0
- Width = 272
- Height = 184
- Align = alRight
- TabOrder = 0
- object TPage
- Left = 0
- Top = 0
- Caption = 'Start'
- object Label1: TLabel
- Left = 8
- Top = 56
- Width = 254
- Height = 33
- AutoSize = False
- Caption =
- 'M��ete ale zachovat n�kter� �daje, kter� p��mo nesouvis� se zak�' +
- 'zkami'
- WordWrap = True
- end
- object WarnLabel: TLabel
- Left = 8
- Top = 8
- Width = 254
- Height = 41
- AutoSize = False
- Caption =
- 'D�le�it� upozorn�n�:'#13#10'Vypr�zdn�n� datab�ze zp�sob� nen�vratn� vy' +
- 'maz�n� v�ech zak�zek jak z katalogu, tak z arch�vu.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object GroupBox1: TGroupBox
- Left = 4
- Top = 96
- Width = 261
- Height = 41
- Caption = 'Zachovat'
- TabOrder = 0
- object KlientiChBox: TCheckBox
- Left = 16
- Top = 16
- Width = 169
- Height = 17
- Caption = 'Zachovat katalog klient�'
- State = cbChecked
- TabOrder = 0
- end
- end
- object Ok1Btn: TBitBtn
- Left = 184
- Top = 152
- Width = 75
- Height = 25
- Caption = '&D�le >'
- Default = True
- TabOrder = 1
- OnClick = Ok1BtnClick
- end
- object StornoBtn: TBitBtn
- Left = 106
- Top = 152
- Width = 75
- Height = 25
- Caption = 'Storno'
- TabOrder = 2
- OnClick = StornoBtnClick
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Confirm'
- object Label2: TLabel
- Left = 8
- Top = 8
- Width = 254
- Height = 57
- AutoSize = False
- Caption =
- 'Potvrzen�:'#13#10#13#10'Pro potvzen� operace vypr�zdn�n� datab�ze mus�te o' +
- 'psat do doln�ho pole n�sleduj�c� ��slo:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object NumberLabel: TLabel
- Left = 104
- Top = 75
- Width = 129
- Height = 14
- AutoSize = False
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- WordWrap = True
- end
- object Label3: TLabel
- Left = 8
- Top = 112
- Width = 78
- Height = 13
- Caption = 'Zde &opi�t� ��slo:'
- FocusControl = ConfirmEdit
- end
- object Storno2Btn: TBitBtn
- Left = 106
- Top = 152
- Width = 75
- Height = 25
- Caption = 'Storno'
- TabOrder = 0
- OnClick = StornoBtnClick
- end
- object StartBtn: TBitBtn
- Left = 184
- Top = 152
- Width = 75
- Height = 25
- Caption = 'Start!'
- Default = True
- TabOrder = 1
- OnClick = StartBtnClick
- end
- object ConfirmEdit: TEdit
- Left = 104
- Top = 108
- Width = 153
- Height = 21
- TabOrder = 2
- OnChange = ConfirmEditChange
- end
- end
- end
- object Table: TTable
- Exclusive = True
- Left = 8
- Top = 48
- end
- object ExcludeStrHolder: TStrHolder
- Sorted = True
- Left = 8
- Top = 120
- StrData = (
- ''
- 'ObecNast.db'
- 'Pocitadl.db'
- 'PSC.db'
- 'Uzivatel.db')
- end
- end
-