비주얼프로그램-주차관리프로그램

소개글

비주얼프로그램-주차관리프로그램에 대한 보고서 자료입니다.

목차

1.소스문서
2.문제분석파일
3.소스

본문내용

1. 주차관리 화면의 소스
`` 입고관리 버튼 클릭시
Private Sub Command1_Click()
Form2.Show
End Sub
` 출고관리 버튼 클릭시
Private Sub Command2_Click()
Form3.Show
End Sub
` 종료 버튼 클릭시
Private Sub Command3_Click()
Unload Me
End Sub

2. 입고관리 화면의 소스
` 입고관리 화면 Load시
Private Sub Form_Load()
Dim s_num() As String
Dim buf As String
Dim s_carnum As String, s_date As String, s_time As String
Dim i As Integer, i1 As Integer

Label4.Caption = Format(Now, "AMPM hh:mm:ss") ` 현재 시간을 보여줌 - 오후 13:23:22 형태로
If Dir(App.Path & "park.txt") <> "" Then ` 주차정보를 보관하는 파일이 있을경우
Open App.Path & "park.txt" For Input As #1 ` 파일을 open한다.
Do While Not EOF(1)
Line Input #1, buf ` 라인단위로 파일을 읽는다. buf - 라인단위로 읽은 파일의 값 저장

s_num() = Split(buf, ",") ` 차량,일자,시간 정보가 콤마로 분리되어있기 때문에 콤마로 분리해서 읽음
s_carnum = Replace(s_num(0), """", "") ` 레코드의 첫 데이터인 차량 번호를 읽어온다.

키워드

주차관리프로그램,   비주얼프로그램,   방송통신대학