unit9.pas

利用Acess数据库

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables;

type
  Tbus = class(TForm)
    DataSource1: TDataSource;
    Query1: TQuery;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DBMemo1: TDBMemo;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bus: Tbus;

implementation
uses
unit2;
{$R *.DFM}

procedure Tbus.FormShow(Sender: TObject);
begin
    with Query1 do
     begin
      close;
      sql.Clear;
      sql.Add('select * from Bus ');
      sql.Add('where 路线 like :trace ');
      sql.add('and  途经站 like :stop1 and 途经站 like :stop2');
     if normal.edit9.text<>'' then
     paramByName('stop1').asstring:='*'+normal.edit9.Text+'*'
     else
     paramByName('stop1').asstring:='*';
     if normal.edit13.Text<>'' then
     paramByName('stop2').asstring:='*'+normal.edit13.Text+'*'
     else
     paramByName('stop2').asstring:='*';
     if normal.edit14.Text<>'' then
     paramByName('trace').asstring:='*'+normal.edit14.Text+'*'
     else
     paramByName('trace').asstring:='*';
     open;
     end;
     label1.Caption:='共查得'+inttostr(query1.RecordCount)+'条路线';
     bus.DBMemo1.DataField:=query1.fields[1].fieldname;
  {normal.DBGrid1.Columns[0].Fieldname:=normal.Query1.Fields[0].FieldName;
  normal.DBGrid1.Columns[1].FieldName:=normal.Query1.Fields[1].FieldName;
  normal.DBGrid1.Columns[2].FieldName:=normal.Query1.Fields[2].FieldName;
  normal.DBGrid1.Columns[3].FieldName:=normal.Query1.Fields[3].FieldName;
  normal.DBMemo1.DataField:=normal.Query1.Fields[4].FieldName;
  normal.DBGrid1.Columns[0].Width:=250;
  normal.DBGrid1.Columns[1].Width:=100;
  normal.DBGrid1.Columns[2].Width:=200;
  normal.DBGrid1.Columns[3].Width:=64;
  normal.checkedflag:=true;//}
  end;










procedure Tbus.BitBtn1Click(Sender: TObject);
begin
  bus.close;
end;

end.