数据库（多表关连）

数据库（多表关连）

 

步骤一：开始---程序---Borland Delphi 6---BDE---Object---New---OK(默认STANDARD)---PATH---设置为含有数据库文件的目录下。

步骤二：向Form1中添加1个Database组件（BDE组中），AliasName---STANDARD1(上一步创建的),  DatabaseName---Acc。

添加3个Table组件（BDE组中），DatabaseName---ACC，TableName---分别设置为Pza.DBF， Pzb.DBF,Km.DBF。

添加2个DataSource 组件（DataAccess组中），DataSet---分别设置为Table1和Table2。

添加DBGrid组件（Data Controls 组中） DataSource---DataSource2。添加DBNavigator（DataControls 组中），DataSource---DataSource1 ， VisibleButton----后6个设置为false。

添加3个DBEdit，分别用来输出“编号”，“日期”，“备忘录”，Datasource----Datasource1,  Datafield----分别为NO,DATE, MEMO。

添加5个Edit（依次为Edit1至Edit5）,两个用于查询编号，两个用于查询日期，一个用于查询备忘录。添加3个Lable组件，用于标示这5个Edit的功能。最后添加1个Button,  Caption----筛选。

步骤三：1.Form1--- OnActivate:

        Table1.Open;

        Table2.Open;

        Table3.Open;

        2．Table2---masterfields----设置为 ID->ID

        3. 右键单击Table3,选中Fields Editor---Add allfields

          右键单击Table2,选中FieldsEditor---Add all fields

          然后选中New field---Name(NAME), Component(Table2NAME), Type(Strings), Size(30), Fieldtype(Lookup), Key Fields(CODE), Dataset(Table3), Lookup Keys(CODE), ResultField(NAME)。

          右键单击DBGrid----Columns Editor----Addall fields

        4.Button1(筛选)：

         var s:string;

begin

s:='';

ifedit1.Text<>'' then s:=s+'NO>='+edit1.text+' and ';

ifedit2.Text<>'' then s:=s+'NO<='+edit2.Text+' and ';

if(edit1.Text<>'') or (edit2.Text<>'') then s:=copy(s,1,length(s)-5);

if(edit3.Text<>'') or (edit4.Text<>'') then

ifs<>'' then  s:=s+' and ';

ifedit3.Text<>'' then s:=s+'DATE>='+edit3.Text+' and ';

ifedit4.Text<>'' then s:=s+'DATE<='+edit4.Text+' and ';

if(edit3.Text<>'') or (edit4.Text<>'') then s:=copy(s,1,length(s)-5);

if(edit5.Text<>'')then

begin

ifs<>'' then s:=s+' and ';

s:=s+'MEMO='''+edit5.Text+'*''';

end;

table1.Filtered:=false;

table1.Filter:=s;

table1.Filtered:=true;

showmessage(s);

end;

 

 

 

问题：这次作业还要求“插入”“确定”“取消”按钮，但是功能存在很多缺陷，所以没有加上，因而Database组件在这里没什么太大的作用

private

 function GetID():string;

    {Private declarations }

 public

    {Public declarations }

 end;

 

var

 Form1: TForm1;

 

implementation

 

{$R *.dfm}

function Tform1.GetID():string;

begin

result:=' 103';

end;

procedure TForm1.FormActivate(Sender:TObject);

begin

    table1.Open;

    table2.Open;

    table3.Open;

end;

 

procedure TForm1.Button1Click(Sender:TObject);

begin

   database1.StartTransaction;

   table1.Append;

   table1id.value:=getid();

   table1.Post;

   table2.Append;

   table2id.Value:=getid();

   table2.Post;

   dbedit1.SetFocus;

end;

 

procedure TForm1.DBEdit1Enter(Sender:TObject);

begin

   if table1.State=dsbrowse then table1.Edit;

end;

 

procedure TForm1.DBEdit1Exit(Sender:TObject);

begin

   if table1.State=dsbrowse then table1.Post;

end;

 

procedure TForm1.DBGrid1Enter(Sender:TObject);

begin

   if table2.State=dsbrowse then table2.Edit;

end;

 

procedure TForm1.DBGrid1Exit(Sender:TObject);

begin

     if table2.State=dsbrowse then table2.Post;

end;

 

procedure TForm1.Button2Click(Sender:TObject);

begin

   database1.Commit;

end;

 

procedure TForm1.Button3Click(Sender:TObject);

begin

     database1.Rollback;

end;

 

procedure TForm1.Button4Click(Sender:TObject);

var s:string;

begin

s:='';

if edit1.Text<>'' thens:=s+'NO>='+edit1.text+' and ';

if edit2.Text<>'' thens:=s+'NO<='+edit2.Text+' and ';

if (edit1.Text<>'') or(edit2.Text<>'') then s:=copy(s,1,length(s)-5);

if (edit3.Text<>'') or(edit4.Text<>'') then

if s<>'' then  s:=s+' and ';

if edit3.Text<>'' thens:=s+'DATE>='+edit3.Text+' and ';

if edit4.Text<>'' thens:=s+'DATE<='+edit4.Text+' and ';

if (edit3.Text<>'') or(edit4.Text<>'') then s:=copy(s,1,length(s)-5);

if(edit5.Text<>'') then

begin

if s<>'' then s:=s+' and ';

s:=s+'MEMO='''+edit5.Text+'*''';

end;

table1.Filtered:=false;

table1.Filter:=s;

table1.Filtered:=true;

showmessage(s);

end;