장일 wrote:

> 우편번호 검색프로그램을 구하려고 여기 저기 자료실을 돌아다니다가

> 다운 받으려고 했는데 다운이 않되더라구요.

> 초보자라 아직은 거기까지는 손도 못대고 있읍니다.

> 누구 좀 도와주세요...제발.



음 .. 제가 가지고 있는 책(델파이4 실무프로그래밍, 안일준 지음)에 DB에서 우편번호를 찾는 프로그램 소스 코드가 있어서 올립니다.



보시고 도움이 되었으면 좋겠네요....



그럼 전 이만..



======================================================================



unit U_zip;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables, Buttons, StdCtrls, Mask;



type

Tf_zip = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Panel3: TPanel;

SpeedButton1: TSpeedButton;

Table1Zip: TStringField;

Table1Dong: TStringField;

Table1Addr: TStringField;

ComboBox1: TComboBox;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

Edit1: TEdit;

Label4: TLabel;

procedure FormCreate(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

f_zip: Tf_zip;



implementation



{$R *.DFM}



procedure Tf_zip.FormCreate(Sender: TObject);

begin

DataSource1.DataSet:=Table1; //데이타소스에 테이블 연결

DBNavigator1.DataSource:=DataSource1;

DBGrid1.DataSource:=DataSource1;//그리드에 데이타소스 연결

Table1.Open;//테이블 열기



panel2.caption:=' 전체 자료의 개수 : '+Inttostr(Table1.RecordCount)+'개' ;

DBGrid1.Options:=[dgEditing,{ dgAlwaysShowEditor,} dgTitles,

dgIndicator, dgColumnResize, dgColLines, dgRowLines,

dgTabs, {dgRowSelect,}dgAlwaysShowSelection, dgConfirmDelete

{,dgCancelOnExit, dgMultiSelect}];//옵션설정

Combobox1.Items.add(Table1.Fields[1].DisplayLabel);

Combobox1.Items.add(Table1.Fields[2].DisplayLabel);

ComboBox1.ItemIndex:=0;

end;





procedure Tf_zip.Edit1Change(Sender: TObject);

var s:string;

begin

if Edit1.Text ='' then exit;

Try

Case ComboBox1.ItemIndex of

0:s:=Table1.Fields[1].FieldName;

1:s:=Table1.Fields[2].FieldName;

end;

//그리드에서 선택된 필드명을 구한다.

Table1.Locate(LowerCase(s),LowerCase(Edit1.Text), [loPartialKey]);

//Locate를사용하여 해당 필드로 이동한다.

Except

Edit1.Clear;

Table1.Filtered:=False;

Table1.Open;

Showmessage('알맞지 않는 값을 입력하였습니다.');

end;

end;



procedure Tf_zip.SpeedButton1Click(Sender: TObject);

begin

close;

end;



end.