- PDF Free Download

Size: px

Start display at page:

Download ""

まさとしさどひら
6 years ago
Views:

8 Step 1. Step 2. Step 3.

9 Step 1. Step 2. Step 3.

11 1 2 3

12 ' Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset 'Connection 'Recordset ' cn.open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & ' rs.open, cn, adopenkeyset ' rs.close cn.close ' Set rs = Nothing Set cn = Nothing

13 1 2 3

14 ' Dim ws As DAO.Workspace Dim db As DAO.Database Dim rs As DAO.Recordset 'Workspace 'Database 'Recordset ' Set ws = DBEngine.Workspaces(0)' Set db = ws.opendatabase( ) ' Set rs = db.openrecordset(, dbopendynaset) ' rs.close db.close ws.close ' Set rs = Nothing Set db = Nothing Set ws = Nothing

15 ' Const CN_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" ' ' Dim Cn As OleDbConnection 'OleDbConnection On Error GoTo ErrorHandle 'OleDbConnection Cn = New OleDbConnection(CN_STRING & System.IO.Directory.GetCurrentDirectory & "\" & ) ' Cn.Open() ' Cn.Dispose() Cn = Nothing End Sub

16 1 2 3

20 'Windows API Public Declare Function StartDoc Lib "gdi32" Alias "StartDocA" (ByVal hdc As Long, structdocinfo As DOCINFO) As Long Public Declare Function StartPage Lib "gdi32" (ByVal hdc As Long) As Long Public Declare Function EndPage Lib "gdi32" (ByVal hdc As Long) As Long Public Declare Function EndDoc Lib "gdi32" (ByVal hdc As Long) As Long ' Private Sub PrintOut() ' Dim objbspro As BSPro.Barcode 'BarStarPro Dim lret As Long ' ' lret = StartDoc(Printer.hdc, DOCINFO) lret = StartPage(Printer.hdc) ' Set objbspro = GetObject("", "BSPro.Barcode") ' With objbspro.symbology = &HA 'Symbology.Text = '.ElementSizeX = 10 '.ElementSizeY = 7 '.Encode Printer.hdc ' lret =.Draw(Printer.hdc, 0, 0) End With Set objbspro = Nothing ' lret = EndPage(Printer.hdc) ' lret = EndDoc(Printer.hdc) End Sub

21 ' Private Sub cmdprint_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles cmdallprint.click ' PrintDocument1.Print() End Sub ' Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _ ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage ' Dim objbspro As BSPro.Barcode 'BarStar Pro Dim iphdc As IntPtr ' Dim drawfont As New Font( MS, 7)' 'BarStar Pro objbspro = GetObject("", "BSPro.Barcode") ' objbspro.text = Åh Åh ' objbspro.encode(printdlg.printersettings.createmeasurementgraphics.gethdc(), False) ' iphdc = e.graphics.gethdc() ' With objbspro.draw(cint(iphdc), XPOS_BAR, YPOS_BAR)'.Symbology = &HA 'Symbology.ElementSizeX = 10 '.ElementSizeY = 7 ' End With End If objbspro = Nothing End Sub

22 1 2 3

23 1 2 3

24 Private Sub cmdprint_click() ' Dim ac As New Access.Application Dim sdir As String 'Application On Error GoTo ErrorHandle ' sdir = CurDir ' ac.opencurrentdatabase sdir & "\" &, False ' ac.docmd.openreport, acviewnormal, 'Access ac.closecurrentdatabase ' ac.quit Set ac = Nothing Exit Sub ErrorHandle: MsgBox Err.Description, vbexclamation, "ADO " Resume Next End Sub

26 Step 1. Step 2. Step 3. Step 1. Step 2. Step 3.

29 5 6

31 // Project1Dlg.h : // #include"bspro.h" // CProject1Dlg class CProject1Dlg : public CDialog { private: IBarcode m_barcode; } // Project1Dlg.h : // #include"cbarcode.h" // CProject1Dlg class CProject1Dlg : public CDialog { public: CBarcode m_barcode; }

33 5 6

35 // Project1Dlg.h : // #include "labelstar.h" // CProject1Dlg class CProject1Dlg : public CDialog { private: _WorkSpace m_workspace; _Labels m_labels; _Label m_label; _DataSheet m_datasheet; } // Project1Dlg.h : // #include"cworkspace.h" #include"clabels.h" #include"clabel.h" #include"cdatasheet.h" // CProject1Dlg class CProject1Dlg : public CDialog { private: CWorkSpace m_workspace; CLabels m_labels; CLabel m_label; CDataSheet m_datasheet; };

36 // CDC cdc; VARIANT vrefdc; VARIANT vpattern; // //Encode //Encode // if(startdoc(cdc.m_hdc, &docinfo) <= 0) { AfxMessageBox(_T("StartDoc ")); cdc.deletedc(); return; } // if(startpage(cdc.m_hdc) <= 0) { AfxMessageBox(_T("StartPage ")); cdc.deletedc(); return; } // m_barcode.setsymbology( ); m_barcode.settext( ); m_barcode.setelementsizex( ); m_barcode.setelementsizey( ); m_barcode.setfontsize( );

37 //Encode VariantInit(&vRefDC); VariantInit(&vPattern); vrefdc.byref = cdc.m_hdc; vpattern.boolval = FALSE; //Encode m_barcode.encode(vrefdc,vpattern); //Encode m_barcode.draw((long)cdc.m_hdc, XPOS_BAR, YPOS_BAR); // if(endpage(cdc.m_hdc) <= 0) { AfxMessageBox(_T("EndPage ")); cdc.deletedc(); return; } // if EndDoc(cdc.m_hDC) <= 0) { AfxMessageBox(_T("Enddoc ")); cdc.deletedc(); return; } // DeleteDC(cdc);

38 // COleException oleerror; // VARIANT vindex; // VARIANT vlabels; // VARIANT vcopies; // VARIANT vtestprint; // // m_workspace.createdispatch(("labelstar.workspace"), & oleerror); // ::VariantInit(&vIndex); Index.vt = VT_EMPTY; vlabels = m_workspace.labels(vindex); m_labels.attachdispatch(vlabels.pdispval); m_label.attachdispatch(m_labels.openlabel( )); //DataSheet m_datasheet.attachdispatch(m_label.datasheet()); // ::VariantInit(&vCopies); vcopies.vt = VT_I2; vcopies.ival = 1;

39 // ::VariantInit(&vTestPrint); vtestprint.vt = VT_BOOL; vtestprint.ival = FALSE; // m_label.printout(0, vcopies, vtestprint); // m_datasheet.releasedispatch(); // m_labels.closelabel(m_label); m_label.releasedispatch(); m_labels.releasedispatch(); // m_workspace.quit(); m_workspace.releasedispatch();

45 NLPLPrinterOpen NLPLSetJobName NLPLSetCommand NLPLReceiveCommand NLPLSendCommand NLPLPrinterColse NLPLPrinterOpenL NLPLSendCommandL NLPLReceiveCommandL NLPLPrinterCloseL

46 HANDLE NLPLPrinterOpen( LPSTR pprintername); LPSTR pprintername // pprintername

47 int NLPLSetJobName( HANDLE LPSTR hprinter, pjobname); HANDLE hprinter, // LPSTR pjobname // hprinter NLPLPrinterOpen pjobname NLPLSendCommand

48 NLPLSendCommand int NLPLSetCommand( HANDLE DWORD LPBYTE hprinter, dwindatasize, pindata); HANDLE hprinter, // DWORD dwindatasize, // LPBYTE pindata // hprinter NLPLPrinterOpen dwindatasize pindata pindata dwindatasize pindata

49 int NLPLReceiveCommand( HANDLE hprinter, DWORD dwoutdatasize, LPBYTE poutdata); HANDLE hprinter, // DWORD dwoutdatasize // LPBYTE poutdata // hprinter NLPLPrinterOpen() dwoutdatasize presponse dwoutdatasize poutdata poutdata poutdata NLPLSendCommand

50 NLPLSetCommand int NLPLSendCommand( HANDLE hprinter); HANDLE hprinter // hprinter NLPLPrinterOpen()

51 int NLPLPrinterColse( HANDLE hprinter); HANDLE hprinter // hprinter NLPLPrinterOpen

52 SOCKET NLPLPrinterOpenL( LPSTR pprintername, LPSTR phostname, LPSTR psocketport); LPSTR pprintername // LPSTR phostname // LPSTR psocketport // pprintername phostname psocketport

53 int NLPLSendCommandL( SOCKET Socket, DWORD dwindatasize, LPBYTE pindata); SOCKET Socket // DWORD dwindatasize // LPBYTE pindata // Socket NLPLPrinterOpenL() dwindatasize lpindata lpindata dwindatasize pindata

54 int NLPLReceiveCommandL( SOCKET Socket, DWORD dwoutdatasize, LPBYTE poutdata); SOCKET Socket // DWORD dwoutdatasize // LPBYTE poutdata // Socket NLPLPrinterOpenL() dwoutdatasize lpoutdata dwoutdatasize poutdata poutdata poutdata NLPLSendCommandL

55 int NLPLPrinterCloseL( SOCKET Socket); SOCKET Socket // Socket NLPLPrinterOpenL()

DAOの利用

DAOの利用 DAO VB2005 で DAO を使用して Excel のデータを取得 Visual Basic 6.0 Dim DB As DAO.Database Dim RS As DAO.Recordset Dim xlfilename As String Dim xlsheetname As String xlfilename = Form1.StatusBar1.Panels(12) & Dir(Form1.StatusBar1.Panels(12)