Koje su to tacno... Jer sam skinuo za BARCODE ...
Imas ih tu dole ispod kada posjetis stranicu. Nema tacne skripte koja tebi treba, ali neke mozes cak i da preradis, jer dobijes kompletan kod.
Odgovara li ovaj code:
object Form1: TForm1
Left = 0
Top = 0
Caption =
ClientHeight = 441
ClientWidth = 605
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
Top = 325
Width = 605
Height = 3
Cursor = crVSplit
Align = alBottom
end
object acQueryBuilder1: TacQueryBuilder
Left = 0
Top = 89
Width = 605
Height = 236
SyntaxProvider = acUniversalSyntaxProvider1
MetadataProvider = acADOMetadataProvider1
MetadataFilter = <>
LinkPainterClassName = 'TacQueryBuilderLinkPainterAccess'
TableFont.Charset = DEFAULT_CHARSET
TableFont.Color = clWindowText
TableFont.Height = -11
TableFont.Name = 'Tahoma'
TableFont.Style = []
BkImagePos = bkipTopLeft
BkImageDarkness = bgidWhite
TreeFont.Charset = DEFAULT_CHARSET
TreeFont.Color = clWindowText
TreeFont.Height = -11
TreeFont.Name = 'Tahoma'
TreeFont.Style = []
GridFont.Charset = DEFAULT_CHARSET
GridFont.Color = clWindowText
GridFont.Height = -11
GridFont.Name = 'Tahoma'
GridFont.Style = []
AddObjectFormOptions.Constraints.MinHeight = 430
AddObjectFormOptions.Constraints.MinWidth = 430
TreeOptions.UnionsNodeText = 'UNIONS'
TreeOptions.FieldsNodeText = 'FIELDS'
TreeOptions.FromNodeText = 'FROM'
TreeOptionsMetadata.TablesNodeName = 'Tables'
TreeOptionsMetadata.ViewsNodeName = 'Views'
TreeOptionsMetadata.ProceduresNodeName = 'Procedures'
TreeOptionsMetadata.SynonymsNodeName = 'Synonyms'
UseAltNames = False
Align = alClient
TabOrder = 0
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 605
Height = 89
Align = alTop
TabOrder = 2
object bLoadMetadata: TButton
Left = 464
Top = 59
Width = 113
Height = 25
Caption = 'Load Objects List...'
TabOrder = 0
OnClick = bLoadMetadataClick
end
object Panel1: TPanel
Left = 6
Top = 5
Width = 591
Height = 48
BevelOuter = bvNone
BorderWidth = 3
BorderStyle = bsSingle
Color = clInfoBk
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
object Label1: TLabel
Left = 3
Top = 3
Width = 583
Height = 40
Align = alClient
AutoSize = False
Caption =
'NOTE: You may encounter various problems while using the Univers' +
'al syntax provider with specific database servers due to a numbe' +
'r of incompatibilities between different SQL dialects. To avoid ' +
'this, use appropriate Syntax for specific server you using (serv' +
'er-specific syntax providers are not available in FREE edition).'
WordWrap = True
end
end
end
object Memo1: TMemo
Left = 0
Top = 328
Width = 605
Height = 113
Align = alBottom
Lines.Strings = (
'Memo1')
TabOrder = 1
OnExit = Memo1Exit
end
object acSQLBuilderPlainText1: TacSQLBuilderPlainText
OnSQLUpdated = acSQLBuilderPlainText1SQLUpdated
QueryBuilder = acQueryBuilder1
ExpressionsSubQueryFormat.MainPartsFromNewLine = False
ExpressionsSubQueryFormat.FromClauseFormat.NewLineAfterJoin = False
UseAltNames = False
Left = 24
Top = 220
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=Northwind;Data Source=.'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 92
Top = 116
end
object acADOMetadataProvider1: TacADOMetadataProvider
Connection = ADOConnection1
Left = 16
Top = 132
end
object acUniversalSyntaxProvider1: TacUniversalSyntaxProvider
BuiltinFunctionNames.Strings = (
'Position'
'Char_Length'
'Character_Length'
'Octet_Length'
'Bit_Length'
'Extract'
'SubString'
'Upper'
'Lower'
'Convert'
'Translate'
'Trim'
'Current_Time'
'Current_Timestamp'
'NullIf'
'Coalesce')
Left = 40
Top = 172
end
end
Generalno
