< 아래의 내용을 보아주십시오>
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가 뜨도록 하려고 합니다.
어떻게 하면 좋을 까요?! 방법을 모르겠습니다.
꼭 답해 주세요 <ㅠㅠ> 고수님들의 답변 부탁드립니다.
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가 뜨도록 하려고 합니다.
> 어떻게 하면 좋을 까요?! 방법을 모르겠습니다.
> 꼭 답해 주세요 <ㅠㅠ> 고수님들의 답변 부탁드립니다.
>
>