1) 시스템 의미
컴퓨터 응용이 보편화되면서 기업사업 단위의 규범화, 컴퓨터 자동화의 인사관리가 필수적이다. 이는 과학관리 수준을 높이는 중요한 수단이자 업무 효율을 높이는 믿을 수 있는 방법이다.
2) 시스템 특징
1 인력 정보 관리 자동화
2. 다양한 조회, 수정, 삭제, 인재 정보 삽입 기능을 제공합니다.
다양한 정보 통계 기능을 제공합니다.
3) 시스템 설계 환경
1 Windows 2000 Server 또는 Windows XP； ：
2 SQL Server 2000 데이터베이스 관리 시스템;
3 VB 6.0.
둘째, 시스템 요구 사항 분석
1) 시스템 설계 목표
1 인사 관리 과정에서 정보 자동화 관리.
2. 다양한 정보를 수정, 삭제 및 삽입할 수 있습니다.
3. 각종 정보의 조회와 통계를 실현하다.
4 사원의 참석 정보를 연도 및 월별로 집계합니다.
5 어느 해 한 달 어느 날 통계에 따르면 한 부서가 지각하고 조퇴한 인원수를 조회한다.
6. 매달 여러분들의 초과근무 일수를 통계합니다.
7. 분기별로 전출된 인원 통계를 전입한다.
2) 시스템 요구 사항 분석
1. 정보 요구 사항 분석
인사 정보 시스템 분석을 통해 시스템은 다음 정보 (데이터 사전) 를 포함해야 합니다.
1) 인사 파일 기본 정보:
번호, 이름, 성별, 생년월일, 근무 연한, 전화, 주소, 이메일, 학력, 전공, 입사 시간 (번호 요구 사항: 길이 6 자리).
2) 직원 배치 정보:
원래 부서, 새 부서, 원래 직위, 새 직위, 전출 시간, 전입 시간.
3) 직원 출석 정보:
출퇴근 시간, 지각시간, 조퇴시간, 휴가 일수, 초과근무 일수, 초과근무 일자.
4) 시스템 사용자 관리 정보:
사용자의 마지막 로그인 정보 (년, 월, 일) 를 기록하는 사용자 계정, 암호 (6 자리 숫자로 구성됨).
2. 기능 요구 사항 분석
1) 인사 파일 기본 정보 입력, 갱신, 삭제 및 조회
2) 인사 이동 정보 입력, 갱신, 삭제 및 조회;
3) 직원 출석 정보를 입력, 업데이트, 삭제 및 조회합니다.
3. 개념 구조 설계
시스템의 E-R 다이어그램은1..1과 같습니다.
1) 데이터베이스 설계
1 논리적 구조 설계
개인 기본 정보 (번호, 이름, 생년월일, 근무 연한, 전화번호, 이메일, 학력, 입사 시간)
인원 이동 정보 (번호, 원래 부서, 새 부서, 원래 위치, 새 위치, 이전 시간, 이전 시간)
인원 출석 정보 (수, 출퇴근 시간, 늦음, 조퇴, 휴가 일수, 초과근무 일수, 초과근무 날짜).
2 각 데이터 테이블의 구조
개체 간 E-R 모델의 요구 사항 분석에 따르면 이 시스템에는 다음과 같이 개인 기본 정보, 이동 정보, 출석 정보 및 시스템 관리자 계정 정보를 저장하는 4 개의 데이터 테이블이 필요합니다.
개인 기본 정보 테이블
필드 이름의 데이터 유형 길이가 비어 있는지 여부에 대한 설명입니다.
Bh char 10 은 빈 숫자가 아닙니다
Name varchar 8 은 null 이름이 아닙니다
성별 varChar 3 은 null 성별이 아닙니다
Gznx varchar 10 빈 근무 연도
생년월일 시간 10 생년월일이 비어 있습니다
이메일 varchar 20 빈 이메일
Dh Varchar 20 공중전화
Xl Varchar 10 공교육
Jdwsj Datetime 10 null 대 단위 시간
인력 배치 테이블
필드 이름의 데이터 유형 길이가 비어 있는지 여부에 대한 설명입니다.
Ybm varchar 12 최초 부서가 비어 있지 않습니다
Xbm varchar 12 새 부서가 비어 있지 않습니다
Yzw varChar 12 비어 있지 않은 원래 위치
Xzw varchar 12 빈 새 작업
Dcsj 날짜 시간 10 에어컨 출출 시간
Drsj 날짜 시간 10 에어컨 진입 시간
인사 일정
필드 이름의 데이터 유형 길이가 비어 있는지 여부에 대한 설명입니다.
Sxb varchar 10 비어 있지 않은 통근 시간
Cd varchar 5 지연 시간이 비어 있지 않습니다
Zt varChar 5 가 비어 있지 않은 조퇴시간
Qj varchar 5 빈 휴가 일수
Jbts 날짜 시간 5 시간 초과 근무 일수
Jbrq 날짜 시간 10 빈 초과 근무 날짜
관리자 테이블
필드 이름의 데이터 유형 길이가 비어 있는지 여부에 대한 설명입니다.
Name char 20 Not null 사용자 이름
암호 문자 8 이 (가) null 암호가 아닙니다
기본 개인 정보 모듈 코드
명시적 옵션
Dim mblchange 는 부울 값입니다
문자열 형식의 공용 txtSQL
문자열 형식의 공용 msgtext
Dim MRC 는 ADODB 입니다. 레코드 세트
Private Sub cmdcancle_Click ()
날 내려놔
끝단 접합
Private Sub cmdOK_Click ()
Dim intCount 는 정수입니다
Dim txtSQL 을 문자열로 사용
Dim MsgString 을 문자열로 사용
Dim sMeg 를 문자열로 사용
I 를 정수로 치수기입합니다
IntCount = 0 부터 1 까지의 경우
Iftrim (텍스트1(intcount) & "") = ""그럼
시나리오 intCount 를 선택합니다
시나리오 0
SMeg = "숫자"
사례 1
SMeg = "이름"
선택을 마치다
SMeg = sMeg & amp "는 비워 둘 수 없습니다."
Msgbox smeg, vbokonly+vbexclusion, "경고"
텍스트1(intcount). SetFocus
출구 커넥터
만약 ... 끝날거야
다음 intCount
Iftrim (텍스트1(3) & "") = ""그럼
MsgBox "생년월일은 비워 둘 수 없습니다", vbOKOnly+VB example, "경고"
만약 ... 끝날거야
Iftrim (텍스트1(3) & "")<& gt ""그럼
Isdate (텍스트1(3)) 가 아니면
MsgBox "생년월일은 (yyyy-mm-dd)!" , vbokonly+VBA 클라우드, "경고"
텍스트1(3). SetFocus
출구 커넥터
기타
텍스트1(3) = 형식 (텍스트1(3), "yyyy-mm-dd")
만약 ... 끝날거야
만약 ... 끝날거야
Iftrim (텍스트1(2) & "") = ""그럼
MsgBox "나이는 비워둘 수 없습니다", vbOKOnly+vbaclouse, "경고"
출구 커넥터
만약 ... 끝날거야
GintMode = 1 이면
Txt SQL = "select * from dangan where ygid ='" & 트림 (텍스트1(0)) & "
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
Mrc 인 경우. EOF = 거짓
MsgBox "중복 레코드", vbOKOnly+vbaclouse, "경고"
텍스트1(0). SetFocus
만약 ... 끝날거야
Mrc 입니다. 닫기
Txt SQL = "delete * from dangan where ygid ='" & 트림 (텍스트1(0)) & "
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
TxtSQL = "select * from dangan "
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
Mrc 입니다. 새 컨텐츠 추가
IntCount = 0 부터 1 까지의 경우
Mrc 입니다. Fields (intcount) = trim (텍스트1(intcount))
다음 intCount
IntCount = 2 ~ 5 의 경우
Mrc 입니다. Fields (intcount) = trim (텍스트1(intcount))
다음 intCount
IntCount = 6 부터 10 까지의 경우
Mrc 입니다. Fields (intcount) = trim (텍스트1(intcount))
다음 intCount
Mrc 입니다. 필드 (11) = trim (콤보1). 본문)
Mrc 입니다. 업데이트
GintMode = 1 이면
MsgBox 레코드 추가 성공, vbOKOnly, 프롬프트
I = 0 부터 10 까지의 경우
텍스트1(I). 텍스트 = ""
다음으로 저는
Frmyuangong. 표시
Frmyuangong. 조드 0
Frmmanrecord 입니다. 프로그램 제목
Frmmanrecord 입니다. 데이터를 표시합니다
Frmmanrecord 입니다. 조드 1
만약 ... 끝날거야
그럼 ElseIf gintMode = 2 입니다
Txt SQL = "select * from dangan where ygid ='" & 트림 (텍스트1(0)). 본문)& "
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
IntCount = 0 부터 10 까지의 경우
Mrc 입니다. Fields (intcount) = trim (텍스트1(intcount))
다음 intCount
Mrc 입니다. 필드 (11) = trim (콤보1). 본문)
Mrc 입니다. 업데이트
MsgBox "수정 성공", vbOKOnly, "힌트"
날 내려놔
Frmmanrecord 입니다. 프로그램 제목
Frmmanrecord 입니다. 데이터를 표시합니다
Frmmanrecord 입니다. 조드 0
만약 ... 끝날거야
GintMode = 0
끝단 접합
개인 하위 양식 _Load ()
Dim msgtext 를 문자열로 사용
Dim intCount 는 정수입니다
콤보1사용
AddItem "남성"
AddItem "여성"
로 끝맺다
GintMode = 1 이면
나. Caption = 나. 제목과 제목. "추가"
콤보1입니다. ListIndex = 0
그럼 ElseIf gintMode = 2 입니다
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
Mrc 인 경우. EOF = 거짓
Mrc 사용
IntCount = 0 부터 10 까지의 경우
텍스트1(intcount) =. 필드 (정수)
다음 intCount
IsNull (! 섹스) 그리고
콤보1=! 섹스
만약 ... 끝날거야
Mrc 입니다. 닫기
나. Caption = 나. 제목과 제목. "수정"
로 끝맺다
만약 ... 끝날거야
만약 ... 끝날거야
Mblchange = False
끝단 접합
명시적 옵션
문자열 형식의 공용 sQSql
공용 MRC 를 ADODB 로 사용합니다. 레코드 세트
문자열 형식의 공용 txtSQL
문자열 형식의 공용 msgtext
개인 하위 검사 1_Click (색인은 정수)
색인 = 0 이면
텍스트1(색인). SetFocus
만약 ... 끝날거야
인덱스 = 1 인 경우
텍스트1(색인). SetFocus
기타
텍스트1(색인). SetFocus
만약 ... 끝날거야
끝단 접합
개인 하위 명령 취소 _ 클릭 ()
날 내려놔
끝단 접합
Private Sub cmdOK_Click ()
If Check 1(0) 입니다. Value = vbChecked Then
Sq SQL = "ygname ='" & amptrim (텍스트1(0) & "&"
만약 ... 끝날거야
If Check 1( 1). Value = vbChecked Then
트리밍 (sQSql & amp" ")= ""인 경우
Sq SQL = "ygid ='" & amptrim (텍스트1(1) "&"
기타
SQSql = sQSql & amp 및 ygid =' "& amptrim (텍스트1(1)"& "
만약 ... 끝날거야
만약 ... 끝날거야
If Check 1(2) 입니다. Value = vbChecked Then
트리밍 (sQSql & amp" ")= ""인 경우
Sq SQL = "ygdept ='" & amptrim (텍스트1(2) & "&"
기타
SQSql = sQSql & amp 및 ygdept =' "& amptrim (텍스트1(2) & "&"
만약 ... 끝날거야
만약 ... 끝날거야
트리밍 (sQSql & amp" ")= ""인 경우
Frmmanrecord.txtsql = "select * from dangan"
FlagEdit = True
Frmmanrecord 입니다. 프로그램 제목
Frmmanrecord 입니다. 데이터를 표시합니다
Frmmanrecord 입니다. 표시
기타
Frmmanrecord.txtsql = "select * from dangan where" & SQL SQL
FlagEdit = True
Frmmanrecord 입니다. 프로그램 제목
Frmmanrecord 입니다. 데이터를 표시합니다
Frmmanrecord 입니다. 표시
만약 ... 끝날거야
나. 숨기기
끝단 접합
개인 하위 양식 _Load ()
I 를 정수로 치수기입합니다
I = 0 ~ 2 의 경우
텍스트1(I) = ""
그리고 나서
끝단 접합
직원 출석 모듈 코드
명시적 옵션
Dim mblchange 는 부울 값입니다
Dim MRC 는 ADODB 입니다. 레코드 세트
문자열 형식의 공용 txtSQL
Private Sub cboItem_Click (색인은 정수)
Dim msgtext 를 문자열로 사용
TxtSQL = "select ygid, yg name from dangan where ygdept =' "& 트림 (데이터 콤보1) "
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
Mrc 입니다. MoveFirst
Mrc 입니다. Cboitem 이동 (1). 목록 색인
Txtid = Trim(mrc! Ygid) 를 참조하십시오
끝단 접합
Privatesubcbo item _ keydown (index 는 정수, KeyCode 는 정수, Shift 는 정수)
태그 키를 입력합니다
끝단 접합
개인 Sub cboMonth_Click ()
Dim dateTemp 를 날짜로 사용
DateTemp = DateAdd("d ",-1, DateAdd("m", 1, dateserial (cint)
TxtItem(0) = Day(dateTemp)
끝단 접합
Private Sub cboYear_Click ()
Dim dateTemp 를 날짜로 사용
Iftrim (CBO month & "")<& gt ""그럼
DateTemp = DateAdd("d ",-1, DateAdd("m", 1, dateserial (cint)
TxtItem(0) = Day(dateTemp)
만약 ... 끝날거야
끝단 접합
Private Sub cmdExit_Click ()
Mbl 변경 및 gintMode & lt& GT3 및 cmdSave 가 있는 경우. 그런 다음 을 켭니다
MsgBox ("현재 레코드의 변경 사항을 저장하시겠습니까?" " , vbOK cancel+VB 느낌표, "warning") = vbOK Then
CmdSave_Click 호출
만약 ... 끝날거야
만약 ... 끝날거야
날 내려놔
끝단 접합
Private Sub cmdSave_Click ()
Dim intCount 는 정수입니다
Dim sMeg 를 문자열로 사용
Dim rectemp 를 레코드세트로 사용
SSql 을 문자열로 표시
Dim msgtext 를 문자열로 사용
IntCount = 0 ~ 3 인 경우
If Trim(txtItem(intCount) 및 amp" ")= ""그렇다면
시나리오 intCount 를 선택합니다
시나리오 0
SMeg = "이번 달 일 수"
사례 2
SMeg = "참석 일수"
사례 3
SMeg = "출석"
선택을 마치다
IntCount & lt& gt 인 경우 1
SMeg = sMeg & amp "는 비워둘 수 없습니다!"
Msgbox smeg, vbokonly+vbexclusion, "경고"
TxtItem(intCount) 입니다. SetFocus
출구 커넥터
만약 ... 끝날거야
만약 ... 끝날거야
다음 intCount
GintMode = 1 이면
Txt SQL = "select * from check in where kqid ='" & 트림 (txtid) & Kqdate =' "& 형식 (cboYear. 텍스트&-"& CboMonth 입니다. 텍스트 &-0 1 ","yyyy-mm-DD ") &"
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
Mrc 인 경우. EOF = 거짓
MsgBox "이 직원의 이번 달 출석 기록은 이미 존재한다!" , vbokonly+VBA 클라우드, "경고"
CboMonth 입니다. SetFocus
출구 커넥터
만약 ... 끝날거야
Mrc 입니다. 닫기
Txtsql = "delete from check in where kqid ='" & 트림 (txtid) & Kqdate =' "& 형식 (CBO year & amp-"& CboMonth & amp-0 1 ","yyyy-mm-DD ") &"
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
TxtSQL = "select * from checkin "
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
Mrc 입니다. 새 컨텐츠 추가
Mrc 입니다. 필드 (0) = Trim(txtid)
Mrc 입니다. Fields (1) = trim (cboitem (1))
Mrc 입니다. Fields (2) = 형식 (CBO year & -"& CboMonth & amp"-0 1 ","yyyy-mm-dd ")
IntCount = 0 부터 15 까지의 경우
Mrc 입니다. Fields (intcount+3) = trim (txtitem (intcount). 본문)
다음 intCount
IntCount = 16 부터 17 까지의 경우
Mrc 입니다. Fields (intcount+3) = trim (txtitem (intcount). 본문)
다음 intCount
Mrc 입니다. 업데이트
MsgBox "레코드가 성공적으로 추가되었습니다!" , vbokonly+VBA 클라우드, "경고"
IntCount = 0 부터 17 까지의 경우
TxtItem(intCount) = ""
다음 intCount
Mblchange = False
그럼 ElseIf gintMode = 2 입니다
TxtSQL = "select kqgo, kqname, kqdays, kqrday, kqtday, kqvoer2, kqabsent, kqrest, kqleave, kqlate Kqdeduct, kqother, kqremark from check in where kqid =' "& 트림 (txtid) & "
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
Mrc 입니다. 필드 (0) = Trim(txtid)
Mrc 입니다. Fields (1) = trim (cboitem (1))
IntCount = 0 부터 15 까지의 경우
Mrc 입니다. Fields (intcount+2) = trim (txtitem (intcount). 본문)
다음 intCount
IntCount = 16 부터 17 까지의 경우
Mrc 입니다. Fields (intcount+2) = trim (txtitem (intcount). 본문)
다음 intCount
Mrc 입니다. 업데이트
MsgBox "기록 수정 성공!" , vbOKOnly, "팁"
Mrc 입니다. 닫기
날 내려놔
FrmCheck. 프로그램 제목
FrmCheck. 데이터를 표시합니다
FrmCheck. 조드 0
만약 ... 끝날거야
GintMode = 0
끝단 접합
Private sub data combo1_ click (면적은 정수)
SSql 을 문자열로 표시
Dim msgtext 를 문자열로 사용
TxtSQL = "select ygid, yg name from dangan where ygdept =' "& 트림 (데이터 콤보1) "
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
CboItem( 1). 분명하다
Mrc 가 아닌 경우. 그럼 EOF
Cboitem 사용 (1)
Mrc 대신 할 수 있습니다. 파일 끝
。 추가 트림 (MRC! Ygname)
Mrc 입니다. 다음 단계
고리
。 ListIndex = 0
로 끝맺다
CmdSave. 작동 가능 = 참
기타
MsgBox "먼저 직원 프로필을 만드십시오! 클릭합니다 , vbokonly+VBA 클라우드, "경고"
CmdSave. 활성화 = false
출구 커넥터
만약 ... 끝날거야
끝단 접합
개인 하위 양식 _Load ()
Dim intCount 는 정수입니다
Dim dateTemp 를 날짜로 사용
Dim msgtext 를 문자열로 사용
Adodc 1 입니다. 표시 = 거짓
Cbo 연도. 이듬해 (현재)
Cbo 연도. AddItem Year (현재)-1
Cbo 연도. ListIndex = 0
IntCount = 1 끝 12 의 경우
CboMonth 입니다. AddItem intCount
다음 intCount
CboMonth = 월 (현재)
GintMode = 1 이면
나. Caption = 나. 제목과 제목. "추가"
부서 이름 초기화
TxtSQL = "dangan 에서 다른 ygdept 선택"
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
Mrc 인 경우. 그럼 EOF
MsgBox "직원 파일을 먼저 등록하십시오!" , vbokonly+VBA 클라우드, "경고"
CmdSave. 활성화 = false
출구 커넥터
만약 ... 끝날거야
이번 달이 초기화된 일 수입니다.
DateTemp = DateAdd("d ",-1, DateAdd("m", 1, dateserial (cint)
TxtItem(0) = Day(dateTemp)
Mrc 입니다. 닫기
그럼 ElseIf gintMode = 2 입니다
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
Mrc 인 경우. EOF = 거짓
Mrc 사용
CboItem( 1). AddItem. 필드 (1)
CboItem( 1). ListIndex = 0
IntCount = 2 부터 19 까지의 경우
IsNull 이 아닌 경우 (. Fields(intCount)) 그런 다음
TxtItem(intCount-2) =. 필드 (정수)
만약 ... 끝날거야
다음 intCount
Txtid =. 필드 (0)
로 끝맺다
만약 ... 끝날거야
Mrc 입니다. 닫기
나. Caption = 나. 제목과 제목. "수정"
만약 ... 끝날거야
Mblchange = False
끝단 접합
개인 이전 모듈 코드
명시적 옵션
Dim mblchange 는 부울 값입니다
문자열 형식의 공용 txtSQL
문자열 형식의 공용 msgtext
Dim MRC 는 ADODB 입니다. 레코드 세트
내 책갈피를 변형으로 어둡게 합니다
개인 하위 명령 취소 _ 클릭 ()
날 내려놔
끝단 접합
Private Sub cmdchange_Click ()
Cmd 변경 사항. 활성화 = false
명령 1. 활성화 = false
Cmd 삭제. 활성화 = false
GintMode = 2
끝단 접합
Private Sub cmddelete_Click ()
Dim ST As String
Mybookmark = MRC 입니다. 북마크
St = MsgBox ("현재 레코드 삭제?" " , vbOKCancel, "프롬프트")
St = vbOK 인 경우
Mrc 입니다. 다음 단계
Mrc 인 경우. 그럼 EOF
Mrc 입니다. MoveFirst
Mybookmark = MRC 입니다. 북마크
Mrc 입니다. MoveLast
Mrc 입니다. 삭제
Mybookmark = MRC 입니다. 북마크
뷰 데이터 호출
기타
Mybookmark = MRC 입니다. 북마크
Mrc 입니다. 이전 항목 이동
Mrc 입니다. 삭제
Mrc 입니다. 책갈피 = 내 책갈피
뷰 데이터 호출
만약 ... 끝날거야
기타
Mrc 입니다. 책갈피 = 내 책갈피
뷰 데이터 호출
만약 ... 끝날거야
끝단 접합
Private Sub cmdOK_Click ()
Dim intCount 는 정수입니다
Dim txtSQL 을 문자열로 사용
Dim MsgString 을 문자열로 사용
Text(0) = "인 경우
MsgBox "번호는 비워둘 수 없습니다!" , vbokonly+VBA 클라우드, "경고"
텍스트 (0). SetFocus
만약 ... 끝날거야
Text( 1) = "인 경우
MsgBox "이벤트는 비워둘 수 없습니다! , vbokonly+VBA 클라우드, "경고"
텍스트 (1). SetFocus
만약 ... 끝날거야
GintMode = 1 이면
Txtsql = "select * from renshi1where id ='" & 트림 (텍스트 (0)) & "
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
Mrc 인 경우. EOF = 거짓
MsgBox "이 번호의 레코드가 이미 있습니다. 다시 입력하십시오!" , vbokonly+VBA 클라우드, "경고"
텍스트 (0). SetFocus
출구 커넥터
만약 ... 끝날거야
Mrc 입니다. 닫기
Txtsql = "delete * from renshi1where id ='" & 트림 (텍스트 (0)) & "
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
Txt SQL = "select * from renshi1"
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
Mrc 입니다. 새 컨텐츠 추가
IntCount = 0 ~ 2 의 경우
Mrc 입니다. Fields (intcount) = trim (텍스트 (intcount))
다음 intCount
Mrc 입니다. 업데이트
MsgBox "레코드가 성공적으로 추가되었습니다!" , vbOKOnly, "팁"
Frmrenshi 입니다. 조드 1
Frmrenshi 입니다. 표시
명령 1. 작동 가능 = 참
Cmd 변경 사항. 작동 가능 = 참
Cmd 삭제. 작동 가능 = 참
먼저. 작동 가능 = 참
이전. 작동 가능 = 참
다음1. 작동 가능 = 참
마지막으로. 작동 가능 = 참
만약 ... 끝날거야
GintMode = 2 인 경우
Txt SQL = "select * from renshi1"
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
IntCount = 0 ~ 2 의 경우
Mrc 입니다. 필드 (intCount) = 텍스트 (intCount). 텍스트
다음 intCount
Mrc 입니다. 업데이트
MsgBox "기록 수정 성공!" , vbOKOnly, "팁"
Cmd 변경 사항. 작동 가능 = 참
명령 1. 작동 가능 = 참
Cmd 삭제. 작동 가능 = 참
만약 ... 끝날거야
GintMode = 0
끝단 접합
개인 하위 명령 1_Click ()
I 를 정수로 치수기입합니다
I = 0 ~ 2 의 경우
본문 (1). 텍스트 = ""
다음으로 저는
명령 1. 활성화 = false
Cmd 변경 사항. 활성화 = false
Cmd 삭제. 활성화 = false
먼저. 활성화 = false
이전. 활성화 = false
다음1. 활성화 = false
마지막으로. 활성화 = false
GintMode = 1
끝단 접합
Private Sub first_Click ()
Mrc 입니다. MoveFirst
뷰 데이터 호출
끝단 접합
개인 하위 양식 _Load ()
Dim txtSQL 을 문자열로 사용
Dim msgtext 를 문자열로 사용
I 를 정수로 치수기입합니다
Txt SQL = "select * from renshi1"
Mrc = ExecuteSQL(txtSQL 설정 (txtsql, msgtext)
Mrc 인 경우. 그럼 EOF = True
MsgBox "기록이 없습니다. 보충해 주세요!" , vbOKOnly, "팁"
기타
Mrc 입니다. MoveFirst
뷰 데이터 호출
Mybookmark = MRC 입니다. 북마크
Mblchange = True
만약 ... 끝날거야
Mblchange = True
끝단 접합
개인 Sub next 1_Click ()
Mrc 입니다. 다음 단계
Mrc 인 경우. 그럼 EOF
Mrc 입니다. MoveFirst
만약 ... 끝날거야
뷰 데이터 호출
끝단 접합
Private Sub previous_Click ()
Mrc 입니다. 이전 항목 이동
Mrc 인 경우. 그럼 BOF
Mrc 입니다. MoveLast
만약 ... 끝날거야
뷰 데이터 호출
끝단 접합
공통 하위 뷰 데이터 ()
Dim intCount 는 정수입니다
IntCount = 0 ~ 2 의 경우
텍스트 (intCount) = MRC 입니다. 필드 (정수)
다음 intCount
끝단 접합