Q&A

  • dbcombobox에 관한 질문입니다.
< 아래의 내용을 보아주십시오>



procedure TSuForm.LastBtnClick(Sender: TObject);

begin

with MainDataModule.SuTable do

begin

if State in [dsInsert,dsEdit] then

begin

if (DBEnterEdit1.Text = '') or (DBEnterEdit3.Text = '') or

(DBEnterEdit4.Text = '') then

begin

MessageBox(SuForm.Handle, '자료를 정확하게 입력하세요.', '입력오류',

MB_OK or MB_ICONINFORMATION);

DBEnterEdit1.SetFocus;

Exit;

end;

Post;

end;

.......



위의 예문중 (DBEnterEdit4.Text = '') 대신에 (DBCombobox1.items??)를 넣어서

DBCombobox1에 아무것도 않너으면, MessageBox가 뜨도록 하려고 합니다.

어떻게 하면 좋을 까요?! 방법을 모르겠습니다.

꼭 답해 주세요 <ㅠㅠ> 고수님들의 답변 부탁드립니다.





1  COMMENTS
  • Profile
    강인규 2000.10.05 08:40
    if trim(combobox1.text) = '' then

    showmessage('값을 넣으세염.');



    잠시 쉬시는게 좋을듯. ^-^; 지나친 코딩은 호환 마마보다 무서운...(내가 뭔소릴....)

    즐프하세염...



    delpo wrote:

    > < 아래의 내용을 보아주십시오>

    >

    > procedure TSuForm.LastBtnClick(Sender: TObject);

    > begin

    > with MainDataModule.SuTable do

    > begin

    > if State in [dsInsert,dsEdit] then

    > begin

    > if (DBEnterEdit1.Text = '') or (DBEnterEdit3.Text = '') or

    > (DBEnterEdit4.Text = '') then

    > begin

    > MessageBox(SuForm.Handle, '자료를 정확하게 입력하세요.', '입력오류',

    > MB_OK or MB_ICONINFORMATION);

    > DBEnterEdit1.SetFocus;

    > Exit;

    > end;

    > Post;

    > end;

    > .......

    >

    > 위의 예문중 (DBEnterEdit4.Text = '') 대신에 (DBCombobox1.items??)를 넣어서

    > DBCombobox1에 아무것도 않너으면, MessageBox가 뜨도록 하려고 합니다.

    > 어떻게 하면 좋을 까요?! 방법을 모르겠습니다.

    > 꼭 답해 주세요 <ㅠㅠ> 고수님들의 답변 부탁드립니다.

    >

    >