VFP 형식의 양식에 데이터를 추가하는 코드를 작성하는 방법은 무엇입니까?

VFP의 양식을 사용하여 테이블에 데이터를 추가하는 방법에 대한 코드는 무엇입니까

양식을 마우스 오른쪽 버튼으로 클릭하고 "데이터 환경..."을 선택하여 원하는 테이블을 선택하세요.

그런 다음 추가 버튼에 다음 코드를 입력하세요.

상황표 선택

IF ALLTRIM(THISFORM.text1.VALUE)=''

=MESSAGEBOX ('이름과 기타 정보를 입력해주세요', 48, '메시지 프롬프트')

반품

ENDIF

IF MESSAGEBOX ('입력하신 정보가 완전하고 정확한지 꼭 확인해 주세요!'+CHR(13)+CHR(13)+'위 정보가 맞습니까?', 48+4, '정보 프롬프트')= 6

공백으로 추가

이름을 THISFORM.text1.VALUE로, 성별을 THISFORM.text2.VALUE로 바꾸세요

집 주소를 THISFORM.text3.VALUE로, 생년월일을 THISFORM.text4.VALUE로 바꾸세요

휴대전화를 THISFORM.text5.VALUE로 교체하고, QQ를 THISFORM.text6.VALUE로 교체하세요

우편번호를 THISFORM.text7.VALUE로 바꾸고, 이메일을 THISFORM.text8.VALUE로 바꾸세요

Zodiac을 THISFORM.text9.VALUE로, 국적을 THISFORM.text10.VALUE로 교체하세요

메모를 THISFORM.text11.VALUE로 교체하세요

''을 THISFORM.text1.VALUE, THISFORM.text2.VALUE, THISFORM.text3.VALUE

''을 THISFORM.text4.VALUE,THISFORM.text5.VALUE,THISFORM.text6.VALUE

''을 THISFORM.text7.VALUE, THISFORM.text8.VALUE, THISFORM.text9.VALUE

''을 THISFORM.text10.VALUE,THISFORM.text11.VALUE

ENDIF

VFP 양식 디자인에 텍스트 상자를 추가하는 방법. 목록 상자에 내용을 입력하세요

질문하실 때는 가급적 사진을 통해 자신의 생각을 명확하게 표현해주세요

1. 목록 상자, additem 메서드는 목록 상자에 데이터를 추가할 수 있으며, addlistitem 메서드는 ID 번호로 레코드를 추가할 때 ROWSOURCETYPE을 사용합니다. 속성 값은 0 또는 1이어야 합니다.

control.additem(cItem [,nIndex] [,nColumn]) 그 중 cItem은 추가할 데이터 항목의 내용이고, nIndex는 인덱스 번호입니다. 유효한 nIndex 값이 지정되면 cItem은 컨트롤의 올바른 위치에 배치됩니다. 지정된 nIndex가 이미 존재하는 경우 데이터 항목은 이 위치에 삽입되고 이 데이터 항목 뒤의 다른 모든 데이터 항목은 콤보 상자 또는 목록 상자 컨트롤을 목록 영역에서 한 위치 아래로 이동합니다. nColumn은 데이터 항목이 추가될 열을 지정합니다. 기본값은 1입니다.

addlistiem 메소드의 구문은 다음과 같습니다

control.addlistiem(cItem [,nItemID] [,nColumn])

그 중 cItem과 nColumn은 추가할 데이터 항목의 내용과 추가할 컬럼입니다. nItemID는 추가할 데이터 항목의 고유 ID 번호입니다. 지정된 nItemID가 이미 존재하는 경우 cItem을 사용하여 현재 ID 데이터 항목의 내용을 덮어씁니다.

2. 텍스트 상자

thisform.text1.value=＂안녕하세요＂

위 내용은 명령을 사용하여 추가하거나 직접 추가할 수 있습니다

텍스트 상자의 데이터 유형을 설정할 수 있습니다.

thisform.text1.value=＂＂문자 유형으로 설정

thisform.text1.value=0 & 숫자 유형으로 설정

thisform.text1.value={} & 날짜 유형으로 설정

VFP 데이터 가져오기 문제 정보

DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING,STRING lpszFile, STRING, STRING, INTEGER

eole=CREATEOBJECT('Excel.application')

eole.Workbooks.Open(KKKK) & 지정된 통합 문서 열기

**eole.visible=.t & 엑셀 창 표시

eole.visible=.F &는 엑셀 창을 표시하지 않습니다

eole.selection.WrapText = .T.

xlSheet=eole.Sheets(1)

i=1

***참고: 변수 I는 첫 번째 행이 될 수도 있고 N번째 행이 될 수도 있습니다. 데이터가 시작되는 행을 결정하는 것은 사용자의 몫입니다.

XMH=xlSheet.Cells(I,1).value

***현재 EXECL의 첫 번째 데이터 열이 사용되며, N개 열로 직접 수정할 수 있습니다

IF TYPE('XMH')'C'

***참고: 문자 유형인지 확인하세요. 숫자 유형인 경우 'C'를 'N'으로 바꾸세요

=MESSAGEBOX('항목번호는 문자데이터가 아닙니다! 불러올 수 없습니다', 0, '프롬프트 메시지')

eole.ActiveWorkbook.Close(.T.)

eole.Workbooks.close 및 통합 문서 닫기

eole.quit 및 Excel 종료

반품

ENDIF

빈 동안에 하세요(XMH)

***변수 XMH가 비어 있으면 읽기 프로그램이 종료됩니다

SELE SVC

*** SVC는 대상 테이블이며, 다른 이름의 테이블일 수도 있습니다

아페 블랑

TRIM(XMH)이 포함된 REPL 프로젝트 번호

***프로젝트 번호가 대상분야입니다

XMMC=xlSheet.Cells(I,1).value

나=나+1

XMH=xlSheet.Cells(I,1).value

IF TYPE('XMH')='C'

ELSE

=MESSAGEBOX('항목번호는 문자데이터가 아닙니다! 불러올 수 없습니다', 0, '프롬프트 메시지')

eole.ActiveWorkbook.Close(.T.)

eole.Workbooks.close 및 통합 문서 닫기

eole.quit 및 Excel 종료

반품

EXIT

ENDIF

ENDDO

eole.ActiveWorkbook.Close(.T.)

eole.Workbooks.close 및 통합 문서 닫기

eole.quit 및 Excel 종료

위 내용은 VFP 형식의 양식에 데이터를 추가하는 코드를 작성하는 방법은 무엇입니까?의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!