object Form1: TForm1 Width = 640 Height = 480 OnCreate = MiletusFormCreate ScreenSnap = True object WebDBEdit1: TWebDBEdit Left = 8 Top = 8 Width = 121 Height = 22 ChildOrder = 1 HeightPercent = 100.000000000000000000 Text = 'WebDBEdit1' WidthPercent = 100.000000000000000000 DataField = 'Company code' DataSource = WebDataSource1 end object WebDBEdit2: TWebDBEdit Left = 8 Top = 32 Width = 253 Height = 22 ChildOrder = 1 HeightPercent = 100.000000000000000000 Text = 'WebDBEdit1' WidthPercent = 100.000000000000000000 DataField = 'Company name' DataSource = WebDataSource1 end object WebDBNavigator1: TWebDBNavigator Left = 16 Top = 384 Width = 330 Height = 25 HeightPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000 DataSource = WebDataSource1 Hints.Strings = ( 'First' 'Prior' 'Next' 'Last' 'Edit' 'Post' 'Insert' 'Delete' 'Cancel') end object WebButton1: TWebButton Left = 275 Top = 14 Width = 71 Height = 25 Caption = 'WebButton1' ChildOrder = 7 HeightPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000 OnClick = WebButton1Click end object WebDBEdit3: TWebDBEdit Left = 369 Top = 16 Width = 121 Height = 22 ChildOrder = 1 HeightPercent = 100.000000000000000000 Text = 'WebDBEdit1' WidthPercent = 100.000000000000000000 DataField = 'Order No' end object WebDBEdit4: TWebDBEdit Left = 369 Top = 40 Width = 253 Height = 22 ChildOrder = 1 HeightPercent = 100.000000000000000000 Text = 'WebDBEdit1' WidthPercent = 100.000000000000000000 DataField = 'Order Date' end object WebDBGrid1: TWebDBGrid Left = 8 Top = 232 Width = 608 Height = 113 Columns = < item end item end item end item end> FixedCols = 1 TabOrder = 6 HeightPercent = 100.000000000000000000 WidthPercent = 100.000000000000000000 ColWidths = ( 24 64 64 64 64) end object TMSFNCGrid1: TTMSFNCGrid Left = 16 Top = 88 Width = 600 Height = 138 ParentDoubleBuffered = False DoubleBuffered = True TabOrder = 8 Options.Editing.CalcFormat = '%g' Options.Grouping.CalcFormat = '%g' Options.Grouping.GroupCountFormat = '(%d)' Options.IO.XMLEncoding = 'ISO-8859-1' Options.Mouse.ColumnSizeMargin = 6 Options.Mouse.RowSizeMargin = 6 Columns = < item BorderWidth = 1 FixedFont.Charset = DEFAULT_CHARSET FixedFont.Color = clWindowText FixedFont.Height = -11 FixedFont.Name = 'Tahoma' FixedFont.Style = [] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ID = '' Width = 68.000000000000000000 end item BorderWidth = 1 FixedFont.Charset = DEFAULT_CHARSET FixedFont.Color = clWindowText FixedFont.Height = -11 FixedFont.Name = 'Tahoma' FixedFont.Style = [] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ID = '' Width = 68.000000000000000000 end item BorderWidth = 1 FixedFont.Charset = DEFAULT_CHARSET FixedFont.Color = clWindowText FixedFont.Height = -11 FixedFont.Name = 'Tahoma' FixedFont.Style = [] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ID = '' Width = 68.000000000000000000 end item BorderWidth = 1 FixedFont.Charset = DEFAULT_CHARSET FixedFont.Color = clWindowText FixedFont.Height = -11 FixedFont.Name = 'Tahoma' FixedFont.Style = [] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ID = '' Width = 68.000000000000000000 end item BorderWidth = 1 FixedFont.Charset = DEFAULT_CHARSET FixedFont.Color = clWindowText FixedFont.Height = -11 FixedFont.Name = 'Tahoma' FixedFont.Style = [] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ID = '' Width = 68.000000000000000000 end> TopRow = 1 Appearance.FixedLayout.Fill.Color = 15132390 Appearance.FixedLayout.Font.Charset = DEFAULT_CHARSET Appearance.FixedLayout.Font.Color = clWindowText Appearance.FixedLayout.Font.Height = -11 Appearance.FixedLayout.Font.Name = 'Tahoma' Appearance.FixedLayout.Font.Style = [fsBold] Appearance.NormalLayout.Fill.Color = -1 Appearance.NormalLayout.Font.Charset = DEFAULT_CHARSET Appearance.NormalLayout.Font.Color = clWindowText Appearance.NormalLayout.Font.Height = -11 Appearance.NormalLayout.Font.Name = 'Tahoma' Appearance.NormalLayout.Font.Style = [] Appearance.GroupLayout.Fill.Color = 12817262 Appearance.GroupLayout.Font.Charset = DEFAULT_CHARSET Appearance.GroupLayout.Font.Color = clWhite Appearance.GroupLayout.Font.Height = -11 Appearance.GroupLayout.Font.Name = 'Tahoma' Appearance.GroupLayout.Font.Style = [] Appearance.SummaryLayout.Fill.Color = 14009785 Appearance.SummaryLayout.Font.Charset = DEFAULT_CHARSET Appearance.SummaryLayout.Font.Color = clWindowText Appearance.SummaryLayout.Font.Height = -11 Appearance.SummaryLayout.Font.Name = 'Tahoma' Appearance.SummaryLayout.Font.Style = [] Appearance.SelectedLayout.Fill.Color = 14599344 Appearance.SelectedLayout.Font.Charset = DEFAULT_CHARSET Appearance.SelectedLayout.Font.Color = clWhite Appearance.SelectedLayout.Font.Height = -11 Appearance.SelectedLayout.Font.Name = 'Tahoma' Appearance.SelectedLayout.Font.Style = [] Appearance.FocusedLayout.Fill.Color = 14599344 Appearance.FocusedLayout.Font.Charset = DEFAULT_CHARSET Appearance.FocusedLayout.Font.Color = clWhite Appearance.FocusedLayout.Font.Height = -11 Appearance.FocusedLayout.Font.Name = 'Tahoma' Appearance.FocusedLayout.Font.Style = [] Appearance.FixedSelectedLayout.Fill.Color = 14599344 Appearance.FixedSelectedLayout.Font.Charset = DEFAULT_CHARSET Appearance.FixedSelectedLayout.Font.Color = clWindowText Appearance.FixedSelectedLayout.Font.Height = -11 Appearance.FixedSelectedLayout.Font.Name = 'Tahoma' Appearance.FixedSelectedLayout.Font.Style = [] Appearance.BandLayout.Fill.Color = 14745599 Appearance.BandLayout.Font.Charset = DEFAULT_CHARSET Appearance.BandLayout.Font.Color = clWindowText Appearance.BandLayout.Font.Height = -11 Appearance.BandLayout.Font.Name = 'Tahoma' Appearance.BandLayout.Font.Style = [] Appearance.ProgressLayout.Format = '%.0f%%' LeftCol = 1 ScrollMode = scmItemScrolling end object TMSFNCGridDatabaseAdapter1: TTMSFNCGridDatabaseAdapter Left = 504 Top = 128 Width = 26 Height = 26 Visible = True Active = True Columns = <> end object MiletusClientDataSet1: TMiletusClientDataSet Params = <> DBDriver = MiletusMSSQLDBDriver1 QueryText = 'select * from company' Left = 208 Top = 32 end object WebDataSource1: TWebDataSource DataSet = MiletusClientDataSet1 Left = 336 Top = 32 end object MiletusMSSQLDBDriver1: TMiletusMSSQLDBDriver DataBase = 'DBI_EXWIZ_GRANISER' UserName = 'DBI_EXWIZ' Password = 'Agora' IndexName = 'Company code' MARS = False MetaDefCatalog = 'DBI_EXWIZ_GRANISER' MetaDefSchema = 'dbo' Server = 'PC-AYDIN\SQL2017' Left = 48 Top = 40 end end