ASCII32,23,10,2023,13:35,36
W,BEGIN,"mimic1","Mimic1",""
	TEMPLATE,"",0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0
	POSITION,0,1
	SIZE,417,600,800,600,0,0,0,1920,1080,397,557
	BACKCOLOREX,240,240,240,0,0,0
	TITLE,1,"#W",""
	STYLE,1,1,1,1,0,1,0,1,1,1,1,1,1,0,0,0,0
	GRIDEX,1,1,8,8,100,100,100,0,0,0
	LAYERS,65535
	RIGHTS,0,1,0.000000,64.000000,1,65535,0,0
	INCLUDED,0,0,0,0,0
	LINK,1,"","","",""
	LINK,2,"","","",""
	LINK,3,"","","",""
	LINK,4,"","","",""
	LINK,5,"","","",""
	LINK,6,"","","",""
	LINK,7,"","","",""
	LINK,8,"","","",""
	LINK,9,"","","",""
	LINK,10,"","","",""
	TABS,0,3,0,0,500,500,0,0,-1,3,16,16,0,FONT,1,FONT,1
	NAV,0,0,0,100,100,0,0
	BACKBMP,"",0,0
	BACKOBJECT,"",0,0
	BEFORE,"","","",""
	EVENTS,1
	BINOBJ,"mimic1.binary"
W,END
VBA_HOSTPROJECT,BEGIN
	
	
	Private Sub Mimic_Open()
	DB.RefreshAiGrid
	End Sub
VBA_HOSTPROJECT,END
VBA_CODEMODULE,BEGIN,DB
	
	Public oCnx As New ADODB.Connection
	
	Sub RefreshAiGrid()
	    Dim oCmd As New ADODB.Command
	     Dim oRec As New ADODB.Recordset
	     Dim iRowIndex As Integer
	     
	     On Error GoTo eOnError
	     iRowIndex = 0
	     'Initialise AIGrid1 content (clear rows and populate fields header)
	     Mimics("mimic1").Graphics("AIGrid1").ClearAll
	     Mimics("mimic1").Graphics("AIGrid1").ClearAll
	     Mimics("mimic1").Graphics("AIGrid1").CellText(iRowIndex, 0) = "Chrono"
	     Mimics("mimic1").Graphics("AIGrid1").CellText(iRowIndex, 1) = "Name"
	     Mimics("mimic1").Graphics("AIGrid1").CellText(iRowIndex, 2) = "Value"
	     Mimics("mimic1").Graphics("AIGrid1").CellText(iRowIndex, 3) = "Quality"
	
	 
	
	    'Customize your connection string
	    'oCnx.ConnectionString = "Provider=SQLNCLI11.1;Integrated Security="""";Persist Security Info=False;User ID=sa;Password=arcinfo;Initial Catalog=testSGBD_DATABASE1;Data Source=.\SVSQLSERVER"
	     
	     oCnx.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=KB838_DATABASE1;Data Source=.\SQLEXPRESS"
	          
	     'Open connection
	     
	     oCnx.Open
	     
	     oCmd.ActiveConnection = oCnx
	     
	     'Send SQL Request
	     oCmd.CommandText = "SELECT * FROM [TRENDTABLE1]"
	     Set oRec = oCmd.Execute
	
	     'Read answer and populate AIGrid1 rows
	     If oRec.EOF = False Then
	         oRec.MoveFirst
	         While oRec.EOF = False
	             iRowIndex = iRowIndex + 1
	             Mimics("mimic1").Graphics("AIGrid1").CellText(iRowIndex, 0) = Str(oRec.Fields(0).Value)
	             Mimics("mimic1").Graphics("AIGrid1").CellText(iRowIndex, 1) = oRec.Fields(1).Value
	             Mimics("mimic1").Graphics("AIGrid1").CellText(iRowIndex, 2) = oRec.Fields(2).Value
	             Mimics("mimic1").Graphics("AIGrid1").CellText(iRowIndex, 3) = oRec.Fields(3).Value
	
	            oRec.MoveNext
	         Wend
	     End If
	
	    'Close connection
	
	    oCnx.Close
	     
	     Exit Sub
	     
	eOnError:
	     MsgBox "Error: " & Err.Description
	     oCnx.Close
	     
	End Sub
	
VBA_CODEMODULE,END
VBA_REFERENCES,BEGIN
	"stdole", 2, 0, "{00020430-0000-0000-C000-000000000046}"
	"AIGridLib", 1, 0, "{083ECA0B-A506-432E-9090-7C1DC03813B3}"
	"ADODB", 6, 0, "{B691E011-1797-432E-907A-4D8C69339129}"
	"UITRDLib", 1, 0, "{E18D5E2F-125B-11D1-A089-0020AF29DCAE}"
VBA_REFERENCES,END
FONTS,BEGIN
	FONT,1,16,7,700,0,0,"System",0,0
	FONT,2,-13,0,400,0,0,"Arial",0,0
	FONT,3,-21,0,400,0,0,"Arial",0,1
FONTS,END
COLORS,BEGIN
	COLOREX,1,0,0,0,0,0,0
	COLOREX,2,192,192,192,0,0,0
	COLOREX,3,255,255,255,0,0,0
	COLOREX,4,240,240,240,0,0,0
	COLOREX,5,0,0,0,0,0,1
COLORS,END
O,BEGIN,GRDNEW,"AIGrid1"
	B,10,10,360,520,10,210,65535,0,6400,0,1,1,1,0,1,0
	ST,5,1,COLOR,1,COLOR,1,1,0,COLOR,2,0,COLOR,2,0,COLOR,1,0,COLOR,1
	PP,100,4,1,0,FONT,2,COLOR,3,COLOR,1,COLOR,2,4,1,1,1,1,0,0,0,1
	RH,23,23,23,23,23,23,23,23,23,23
	RH,24,24,24,24,24,24,24,24,24,24
	RH,24,24,24,24,24,24,24,24,24,24
	RH,24,24,24,24,24,24,24,24,24,24
	RH,24,24,24,24,24,24,24,24,24,24
	RH,24,24,24,24,24,24,24,24,24,24
	RH,24,24,24,24,24,24,24,24,24,24
	RH,24,24,24,24,24,24,24,24,24,24
	RH,24,24,24,24,24,24,24,24,24,24
	RH,24,24,24,24,24,24,24,24,24,24
	CW,176,77,55,67
	HIS_GEN,0,0,1,1,1,2,10,0,1,1,0,0,0,0,"","","",1,0
	ALLOW,1,1,1,0,-1
	TOOLBAR,4096,G_REQUEST,G_REFRESH,G_REFRESH_RUNTIME,G_CANCEL_REQUEST,SEPARATOR,G_EXPORT
	A,BEGIN,VAR,"Anim1",0,0,"",""
		PP,0,".*",15,0,1,1,1,1,1,1,0,0,0,-1,1,1
	A,END
O,END
O,BEGIN,T,"Text1"
	B,96,528,262,556,96,528,65535,0,6400,0,1,0,0,0,1,0
	ST,0,1,COLOR,1,COLOR,1,0,0,COLOR,4,0,COLOR,4,0,COLOR,1,0,COLOR,1
	AST,4,2,COLOR,1,COLOR,2,0,COLOR,5,0,COLOR,5,0,COLOR,5,0,COLOR,5,1
	PP,1,96,528,0,0,FONT,3,"RAFRAICHIR",37,FONT,3,"RAFRAICHIR",37
	A,BEGIN,RV,"Anim1",0,0,"",""
		PP,1,"DB","RefreshAiGrid","",0,0
	A,END
O,END
