Q&A
- db에서 이름중 한자만 선택 하면 ...
디비에서 이름 한 자(예로 '김' 만 치고 엔터시) 선택하면 디비에 나와 있는 이름들 중 김으로 시작되면 다 리스트 박스에 나타나게 해서 Edit2에 넣는 프로 그램 입니다.
디비는 DB Desktop 이구 여.. 테이블 명은요...check이구여.. 흠...
프로그램 소스는...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBTables, Db, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
MNAME: TEdit;
MCOMPANY: TEdit;
LBIName: TListBox;
Panel1: TPanel;
Panel2: TPanel;
QTransaction: TQuery;
Database1: TDatabase;
procedure MNAMEKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.MNAMEKeyPress(Sender: TObject; var Key: Char);
var
i:Byte;
m_MName:String;
begin
if Key=#13 then
begin
if MNAME.Text='' then
Exit;
With QTransaction do
Begin
SQL.BeginUpdate;
SQL.Clear;
SQL.Add('SELECT Name,Company');
SQL.Add(' FROM CHECK');
SQL.Add(' WHERE Name LIKE :MNAME');
SQL.EndUpdate;
ParamByName('Name').AsString:=MNAME.Text+'%';
Open;
if RecordCount = 0 then
begin
Exit;
end else
begin
Key :=#0;
LBIName.Items.Beginupdate;
LBIName.Items.Clear;
while not EOF do
Begin
m_MName := FindField('Name').AsString;
for i:= 1 to - length(m_MName)do
m_MName := m_MName+'';
LBIName.Items.Add(m_MName+'-'+
FindField('Company').AsString);
Next;
end;
LBIName.Items.EndUpdate;
LBIName.ItemIndex := 0;
if LBIName.Items.Count = 1 then
begin
SendMessage(LBIName.Handle,WM_CHAR,13,0);
end else
begin
LBIName.Height :=100;
LBIName.BringToFront;
LBIName.Visible := True;
LBIName.SetFocus;
end;
end;
end;
end;
end;
end.
입니다.. 고수님들의 많은 협조 부탁 드립니다...
흠..
참고
LBIName은 리스트 박스구...
MNAME은 Edit1이구..
MCOMPANY는 Edit2이구
Table name ; check
field Name,Company입니다..
그럼 좋은 조언 기다리겠습니다..
디비는 DB Desktop 이구 여.. 테이블 명은요...check이구여.. 흠...
프로그램 소스는...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBTables, Db, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
MNAME: TEdit;
MCOMPANY: TEdit;
LBIName: TListBox;
Panel1: TPanel;
Panel2: TPanel;
QTransaction: TQuery;
Database1: TDatabase;
procedure MNAMEKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.MNAMEKeyPress(Sender: TObject; var Key: Char);
var
i:Byte;
m_MName:String;
begin
if Key=#13 then
begin
if MNAME.Text='' then
Exit;
With QTransaction do
Begin
SQL.BeginUpdate;
SQL.Clear;
SQL.Add('SELECT Name,Company');
SQL.Add(' FROM CHECK');
SQL.Add(' WHERE Name LIKE :MNAME');
SQL.EndUpdate;
ParamByName('Name').AsString:=MNAME.Text+'%';
Open;
if RecordCount = 0 then
begin
Exit;
end else
begin
Key :=#0;
LBIName.Items.Beginupdate;
LBIName.Items.Clear;
while not EOF do
Begin
m_MName := FindField('Name').AsString;
for i:= 1 to - length(m_MName)do
m_MName := m_MName+'';
LBIName.Items.Add(m_MName+'-'+
FindField('Company').AsString);
Next;
end;
LBIName.Items.EndUpdate;
LBIName.ItemIndex := 0;
if LBIName.Items.Count = 1 then
begin
SendMessage(LBIName.Handle,WM_CHAR,13,0);
end else
begin
LBIName.Height :=100;
LBIName.BringToFront;
LBIName.Visible := True;
LBIName.SetFocus;
end;
end;
end;
end;
end;
end.
입니다.. 고수님들의 많은 협조 부탁 드립니다...
흠..
참고
LBIName은 리스트 박스구...
MNAME은 Edit1이구..
MCOMPANY는 Edit2이구
Table name ; check
field Name,Company입니다..
그럼 좋은 조언 기다리겠습니다..
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김지훈
- 2000.06.20 00:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2000.06.20 00:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 최 소 영
- •
- 2000.06.20 00:01
- 1 COMMENTS
- /
- 0 LIKES
-
이준해•2000.06.20 02:12답을 드리지는 못합니다. Serial Component, Application Source, Serial Port Setting에 대해 알 수 없...
-
- 초보벗기
- 2000.06.19 23:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕촙.. 입니다..
- •
- 2000.06.19 23:57
- 1 COMMENTS
- /
- 0 LIKES
디비에서 이름 한 자(예로 '김' 만 치고 엔터시) 선택하면 디비에 나와 있는 이름들 중 김으로 시작되면 다 리스트 박스에 나타나게 해서 Edit2에 넣는 프로 그램 입니다. 디비는 DB Desktop 이구 여.. 테이블 명은요...check이구여.. 흠....-
유레카•2000.06.20 04:53With QTransaction do Begin SQL.BeginUpdate; SQL.Clear; SQL.Add('SELECT Name,Company');...
-
- 허브
- •
- 2000.06.19 23:56
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.20 01:46안녕하세요. 최용일입니다. procedure TForm.listview1Click(Sender: TObject); begin if ListView1...
-
- 왕초보
- 2000.06.19 23:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 걸음마
- 2000.06.20 21:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보자
- •
- 2000.06.19 23:22
- 1 COMMENTS
- /
- 0 LIKES
-
윤티•2000.06.20 04:44초보자 wrote: > > Dos Prompt상에서 델파이로작성한 실행pgm을 실행시 파라미터로 파일명을 > 주고 ...
-
- blueofsky
- •
- 2000.06.19 23:01
- 2 COMMENTS
- /
- 0 LIKES
-
진돌이•2000.06.20 01:46blueofsky wrote: > 안녕하세요. > 3개의 테이블을 조인해서 DBGRID에 나타내려고 합니다. > > 테이...
-
푸우•2000.06.20 00:04blueofsky wrote: > 안녕하세요. > 3개의 테이블을 조인해서 DBGRID에 나타내려고 합니다. > > 테이...
-
- 빌케이츠~푸힛~
- 2000.06.19 22:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보녀
- •
- 2000.06.19 22:52
- 1 COMMENTS
- /
- 0 LIKES
-
빌케이츠~푸힛~•2000.06.19 23:07초보녀 wrote: > 안녕하세요? > 전 기존에 파라독스 DB로 짜져 사용되고 있는 프로그램을 > SQL7.0으로 ...
-
- 김규상
- •
- 2000.06.19 21:40
- 1 COMMENTS
- /
- 0 LIKES
-
김범석•2000.06.22 23:14그렇습니다 참조하는 갯수만큼 쿼리컴포넌트를 배치해야되죠 코드성 table은 룩업에서 많이 가져다 쓰기...
-
-
구창민•2000.06.19 22:21사발우성 wrote: > procedure TForm1.MClick(Sender: TObject); > var > d:string; > begin > d:= D...
-
사발우성•2000.06.19 22:58구창민님 그게 아닌것 같은디엽 ㅠ..ㅠ 음 일단 s라는 테이블에는 Sk라는 필드 하나와 날짜라는 필드...
-
구창민•2000.06.19 23:32사발우성 wrote: > 구창민님 그게 아닌것 같은디엽 ㅠ..ㅠ > > 음 일단 s라는 테이블에는 Sk라는 필...
-
사발우성•2000.06.19 23:51충고 감솨 함당.... 음 디비는 파라독스임당.... 아직 로컬을 못 벗어난 초보람당...ㅠ.ㅠ 제가 하...
-
-
- 어린왕자
- 2000.06.19 21:01
- 0 COMMENTS
- /
- 0 LIKES
-
- smileye
- •
- 2000.06.19 20:54
- 1 COMMENTS
- /
- 0 LIKES
-
김병식•2000.06.19 21:10smileye wrote: > ProjectGroup으로 묶을경우의 장점이 무엇인지 ? > 제경우 하나의 프로젝트를 dll...
-
- 델초...
- •
- 2000.06.19 20:43
- 3 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.06.19 20:55델초... wrote: > 안녕하십니까.....델고수님들... > 다름이 아니라.....DB그리드에 뿌린 데이타 중에서 ...
-
델초...•2000.06.19 21:46조규춘님.... 감샤합니다.. 그렇게 하면 되는군요....비슷하게는 해봤었는데... 결정적으로 Drawcell의 ...
-
조규춘•2000.06.19 22:41델초... wrote: > 조규춘님.... > 감샤합니다.. > 그렇게 하면 되는군요....비슷하게는 해봤었는데... ...
-
- blueofsky
- •
- 2000.06.19 20:37
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.06.19 22:02blueofsky wrote: > with query1 do begin > close; > sql.clear; > sql.add('delete *...
-
- 류응철
- 2000.06.19 20:29
- 0 COMMENTS
- /
- 0 LIKES
-
-
ladymoon•2000.06.22 17:46과객님 답해주셔서 감사합니다. 그런데 Calculate Field가 그냥 Display하는 Field가 아닌 edit가 가능한 ...
-
과객•2000.06.21 03:06ladymoon wrote: > 읽어보시는 모든분들 안녕하세요.. > > DBGRID에서 앞의 3개 필드는 Query해서 가져...
-
-
왕촙.. 입니다..
2000/06/19 23:57
-
Views324Likes0Comments1Reports0
-
Tag List
- 수정
- 삭제
- 목록으로
Begin
SQL.BeginUpdate;
SQL.Clear;
SQL.Add('SELECT Name,Company');
SQL.Add(' FROM CHECK');
SQL.Add(' WHERE Name LIKE :MNAME');
SQL.EndUpdate;
ParamByName('MNAME').AsString:=MNAME.Text+'%'; <=== 여기가 틀렸네요.
Open;
그리고 나서
LBIName.Items.Clear;
if QTransaction.RecordCount <> 0 then
begin
while not QTransaction.Eof do
begin
LBIName..Items.Add(QTransaction.FieldByName('Name').AsString);
QTransaction.Next;
end;
end;
이러면 쿼리된 내용이 리스트박스에 들어가겠죠..
나머진 알아서..^^
왕촙.. 입니다.. wrote:
> 디비에서 이름 한 자(예로 '김' 만 치고 엔터시) 선택하면 디비에 나와 있는 이름들 중 김으로 시작되면 다 리스트 박스에 나타나게 해서 Edit2에 넣는 프로 그램 입니다.
> 디비는 DB Desktop 이구 여.. 테이블 명은요...check이구여.. 흠...
> 프로그램 소스는...
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> DBTables, Db, ExtCtrls, StdCtrls;
>
> type
> TForm1 = class(TForm)
> MNAME: TEdit;
> MCOMPANY: TEdit;
> LBIName: TListBox;
> Panel1: TPanel;
> Panel2: TPanel;
> QTransaction: TQuery;
> Database1: TDatabase;
> procedure MNAMEKeyPress(Sender: TObject; var Key: Char);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.MNAMEKeyPress(Sender: TObject; var Key: Char);
> var
> i:Byte;
> m_MName:String;
> begin
> if Key=#13 then
> begin
> if MNAME.Text='' then
> Exit;
> With QTransaction do
> Begin
> SQL.BeginUpdate;
> SQL.Clear;
> SQL.Add('SELECT Name,Company');
> SQL.Add(' FROM CHECK');
> SQL.Add(' WHERE Name LIKE :MNAME');
> SQL.EndUpdate;
> ParamByName('Name').AsString:=MNAME.Text+'%';
> Open;
> if RecordCount = 0 then
> begin
> Exit;
> end else
> begin
> Key :=#0;
> LBIName.Items.Beginupdate;
> LBIName.Items.Clear;
> while not EOF do
>
> Begin
> m_MName := FindField('Name').AsString;
> for i:= 1 to - length(m_MName)do
> m_MName := m_MName+'';
> LBIName.Items.Add(m_MName+'-'+
> FindField('Company').AsString);
> Next;
> end;
> LBIName.Items.EndUpdate;
> LBIName.ItemIndex := 0;
> if LBIName.Items.Count = 1 then
> begin
> SendMessage(LBIName.Handle,WM_CHAR,13,0);
> end else
> begin
> LBIName.Height :=100;
> LBIName.BringToFront;
> LBIName.Visible := True;
> LBIName.SetFocus;
> end;
> end;
> end;
> end;
>
> end;
>
> end.
> 입니다.. 고수님들의 많은 협조 부탁 드립니다...
> 흠..
> 참고
> LBIName은 리스트 박스구...
> MNAME은 Edit1이구..
> MCOMPANY는 Edit2이구
> Table name ; check
> field Name,Company입니다..
> 그럼 좋은 조언 기다리겠습니다..
>