VB控件教程大全

Size: px

Start display at page:

Download "VB控件教程大全"

颂英董
5 years ago
Views:

1 Datagrid DataGrid1.Columns.Remove(0) ' 0 DataGrid1.Columns.Add(0).Caption= ' DataGrod1.Columns(0).DataField= Name ' Adodc1.Refresh DataGrid BackColor Font DataGrid CellPadding HTML CellSpacing HTML Width HTML () HorizontalAlign () DataGrid Font FontInfo FontInfo Size, Name, Bold, Italic Font (-) VB.Net C#(.) 1 DataGrid DataGrid Recordset DataGrid DataGrid DataGrid DataSource DataSource DataGrid Visual Basic 5.0 DBGrid DataGrid DBGrid DBGrid Visual Basic Tools 2 DataList DataGrid DataGrid DataGrid

2 DataGrid DataGrid 1: DataGrid DataGrid 1. Microsoft (.MDL) Northwind OLE DB 2. ADO Data ConnectionString 1 OLE DB 3. Ado Data RecordSource SQL Select * From MyTableName Where CustID = DataGrid DataSource ADO Data 5. DataGrid 6. DataGrid DataGrid 9. 3 DataSource RecordSource DataSource DataGrid ADO Data DataSourceRecordSourceADO Data '' ADO Data Northwind '' Products '' SupplierID = 12 Dim strquery As String strquery = "SELECT * FROM Suppliers WHERE SupplierID = 12" Adodc1.RecordSource = strquery Adodc1.Refresh 4 DataSource DataSource ADO Data RecordSource DataSource ADO Data ADO Data '' DataSource Pubs '' Authors ADO Data

3 Set DataGrid1.DataSource = adopubsauthors 5 DataSource DataGrid SQLServer Rebind DataGrid ClearFields DataGrid DataGrid RowColChange Click Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) '' Debug.Print DataGrid1.Text; DataGrid1.Row; DataGrid1.Col End Sub 6 CellText CellValue NumberFormat CellText CellValue NumberFormat ProductID DataGrid "P-0000" ProductID "3" "P-0003" Private Sub Form_Load() DataGrid1.Columns("ProductID").NumberFormat = "P-0000" End Sub CellValue Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) Debug.Print _ DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark) End Sub CellValue CellText Bookmark CellText Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) Debug.Print _ DataGrid1.Columns("ProductID").CellText(DataGrid1.Bookmark) End Sub

4 CellText DataGrid Text

38 (Crystal Report 4.6) (Crystal Report 4.6) Access97,, Access2000, 97, 97, Links. 1 VB. : COMMON\TOOLS\VB\CRYSREPT\CRYSTL32.EXE : ,: \Program Files\Microsoft Visual Studio\Common\crw32.exe VB6 : (Binary )(BLOB ) 2: VB : --,,, SQL.rpt VB Crystal Report Control 4.6 Access, : CrystalReport1.DiscardSavedData = True ' CrystalReport1.ReportFileName = App.Path & "\mdb.rpt" CrystalReport1.WindowState = crptmaximized CrystalReport1.Action = 1 SQL Server 2000,: CrystalReport1.Connect = "ODBC;DNS=SQL_db1;UID=" & Text4.Text & ";PWD=" & Text5.Text & ";DSQ=db1" ' SQL Server ODBC CrystalReport1.DiscardSavedData = True ' CrystalReport1.ReportFileName = App.Path & "\sql.rpt" CrystalReport1.WindowState = crptmaximized CrystalReport1.Action = 1 : a., : File--Report Options-Preview Pages Start With --Full Size b. Detail, Design,

39 : Hide Section c., Design Detail, Format Section New Page After d. Detail,,: Print on multiple lines e.detail,, f.,bcb QuickReport.

3 Driver do Microsoft Access (*.mdb) hisdata IFIX 1.4

IFix3.5 ACCESS ACCESS hisdata D:\Dynamics\SampleSystem\HistoricalData ODBC DSN hisdata 1 ODBC 1.1 2 1.2 3 Driver do Microsoft Access (*.mdb) 1.3 4 hisdata IFIX 1.4 1.4 5 Access 1.5 6 ODBC ifix3.5 1.6 1.6