[비쥬얼 베이직 프로그램 소스] 도서 관리 프로그램 소스 졸업작품

소개글

[비쥬얼 베이직 프로그램 소스] 도서 관리 프로그램 소스 졸업작품에 대한 보고서 자료입니다.

목차

WORD.ICO
도서관리 프로그램.h30
도서관리.exe
도서관리.PDM
도서관리.vbp
도서관리.vbw
주C5-분석서.h30
주C5-설계서.h30
BOOK.MDB
DB.BAS
Demo ReadMe.txt
Etc0033.ico
Etc0034.ico
Etc0035.ico
FrmBookCon.frm
FrmBookCon.frx
FrmBookFind.frm
FrmBookFind.frx
FrmBookInsert.frm
FrmBookInsert.frx
FrmbookLend.frm
FrmBookReceive.frm
FrmuseFind.frm
FrmuseFind.frx
FrmUseFind2.frm
FrmUseFind2.frx
FrmUser.frm
FrmUser.log
FrmUserCon.frm
FrmuserFind.frm
FrmuserFind.frx
INFO.TXT
MdiFrmMian.frm
MdiFrmMian.frx
MSSCCPRJ.SCC
People.ico
Project1.vbp
Project1.vbw
User.ico



1.03MB
파일 39, 폴더 0

본문내용

DB.BAS



Attribute VB_Name = \\"db\\"
Option Explicit

Public db As ADODB.Connection
Public dr As ADODB.Recordset
Public rsdata As New ADODB.Recordset
Public dbstr As String \' db컨렉션
Public usename As String \'고객검색이름
Public usenum As Integer \'검색용 고객번호

Public bookfind As String
Public bookresult As String

Public chk As Integer

Public Sub FormPosition(ByRef TargetForm As Form, Optional ByVal FormName As String)
　　　　TargetForm.Left = (MdiFrmMian.Width / 2) - (TargetForm.Width / 2)
　　　　TargetForm.Top = ((MdiFrmMian.Height - 1000) / 2) - (TargetForm.Height / 2)
End Sub

Public Sub dbcon()
　　
　　Set db = New ADODB.Connection
　　
　　\'dbstr = \\"Provider=MSDASQL.1;Persist Security Info=False;Data Source=book\\"
　　\'dbstr = \\"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\\Documents and Settings\\Administrator\\바탕 화면\\도서관리프로젝트\\book.mdb;Persist Security Info=False\\"
　　\'db.ConnectionString = \\"Provider=MSDASQL.1;Persist Security Info=False;Data Source=book\\"
　　
　　dbstr = \\"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=blue;Data Source=\\" & App.Path & \\"\\book.mdb;Persist Security Info=True\\"
　　
　　db.ConnectionString = \\"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=blue;Data Source=\\" & App.Path & \\"\\book.mdb;Persist Security Info=True\\"
　　db.Open
　　\'\\"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=blue;Data Source=\\" + dPath + \\"\\data\\data.mdb;Persist Security Info=False\\"

End Sub




▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒



FrmUser.frm



VERSION 5.00
Object = \\"{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0\\"; \\"MSMASK32.OCX\\"
Begin VB.Form FrmUse
　　BackColor　　　　 =　　&H00FFFFFF&
　　BorderStyle　　 =　　1 \'단일 고정
　　Caption　　　　　　=　　\\"고객등록\\"
　　ClientHeight　　 =　　3750
　　ClientLeft　　　　=　　5100
　　ClientTop　　　　 =　　3975
　　ClientWidth　　 =　　5160
　　LinkTopic　　　　 =　　\\"Form1\\"
　　MaxButton　　　　 =　　0　　\'False
　　MDIChild　　　　 =　　-1 \'True
　　MinButton　　　　 =　　0　　\'False
　　ScaleHeight　　 =　　3750
　　ScaleWidth　　　　=　　5160
　　Begin VB.PictureBox Picture1
　　　　BackColor　　　　 =　　&H00FFC3AD&
　　　　BorderStyle　　 =　　0 \'없음
　　　　Height　　　　　　 =　　735
　　　　Left　　　　　　　　=　　0
　　　　ScaleHeight　　 =　　735
　　　　ScaleWidth　　　　=　　5175
　　　　TabIndex　　　　 =　　15
　　　　Top　　　　　　　　 =　　3000
　　　　Width　　　　　　 =　　5175
　　　　Begin VB.CommandButton cmdinsert
　　　　　　BackColor　　　　 =　　&H00FFC3AD&
　　　　　　Caption　　　　　　=　　\\"등록\\"
　　　　　　Height　　　　　　 =　　375
　　　　　　Left　　　　　　　　=　　960
　　　　　　Style　　　　　　 =　　1 \'그래픽
　　　　　　TabIndex　　　　 =　　18
　　　　　　Top　　　　　　　　 =　　240
　　　　　　Width　　　　　　 =　　975
　　　　End
　　　　Begin VB.CommandButton cmdreset
　　　　　　BackColor　　　　 =　　&H00FFC3AD&
　　　　　　Caption　　　　　　=　　\\"재입력\\"
　　　　　　Height　　　　　　 =　　375
　　　　　　Left　　　　　　　　=　　2160
　　　　　　Style　　　　　　 =　　1 \'그래픽
　　　　　　TabIndex　　　　 =　　17
　　　　　　Top　　　　　　　　 =　　240
　　　　　　Width　　　　　　 =　　975
　　　　End
　　　　Begin VB.CommandButton cmdexit
　　　　　　BackColor　　　　 =　　&H00FFC3AD&
　　　　　　Cancel　　　　　　 =　　-1 \'True
　　　　　　Caption　　　　　　=　　\\"닫기\\"
　　　　　　Height　　　　　　 =　　375
　　　　　　Left　　　　　　　　=　　3360
　　　　　　Style　　　　　　 =　　1 \'그래픽
　　　　　　TabIndex　　　　 =　　16
　　　　　　Top　　　　　　　　 =

키워드

Visual Basic,   Basic,   대여관리,   레포트,   비쥬얼 베이직,   도서관리 프로그램,   도서관리,   졸업작품