Var MyForm:TclForm; dataListView : TclListView; Qry : TclSqlQuery; void SetListView; { dataListView = MyForm.AddNewListView(MyForm, 'dataListView'); dataListView.Align = alClient; dataListView.Margins.Left = 5; dataListView.Margins.Bottom = 5; dataListView.Margins.Right = 10; dataListView.Margins.Top = 5; } void listViewVeriEkle; { Qry.Connection = Clomosy.DBSQLServerConnection; Qry.SQL.Text = 'SELECT UrunID as RECORD_GUID, UrunAD as MAIN_TEXT, UrunFIYAT as SIDE_TEXT_BOTTOM from Urun'; Qry.Open; dataListView.clLoadListViewDataFromDataset(Qry); } void GetData; { try Qry.Connection = Clomosy.DBSQLServerConnection; Qry.SQL.Text = 'SELECT UrunID as RECORD_GUID,UrunAD as MAIN_TEXT,UrunFIYAT as FOOTER_TEXT FROM Urun'; Qry.Open; except ShowMessage('Exception Class: '+LastExceptionClassName+' Exception GetData Message: '+LastExceptionMessage); } }
void SqLInsertData; { try Clomosy.DBSQLServerQuery.Sql.Text = ' INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (1, ''a'',10); INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (2, ''b'',20); INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (3, ''c'',35); INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (4, ''d'',35); INSERT INTO Urun (UrunID, UrunAD, UrunFIYAT) VALUES (5, ''e'',40);'; Clomosy.DBSQLServerQuery.ExecSql; ShowMessage('Veri Ekleme Başarılı'); except ShowMessage('Exception Class: '+LastExceptionClassName+' Exception SqLiteInsertData Message: '+LastExceptionMessage); } } { Qry = TclSqlQuery.Create(nil); Clomosy.DBSQLServerConnect('SQL Server','...','...','...','...',...); Qry.Connection = Clomosy.DBSQLServerConnection; MyForm = TclForm.Create(Self); SetListView; GetData; SqLInsertData; listViewVeriEkle; MyForm.Run; } bu şekilde listview yapısına url ile görsel eklemek istiyorum verdiğiniz base64 çevirme kodlarını kullandım ancak sürekli hata aldım karmaşık bir kod yapısı oldu yardımcı olur musunuz
|