unit1.pas

利用Delphi进行简单的数据查询,数据库是利用Delphi本身自带的数据库!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, DB, DBTables, Grids, DBGrids, ExtCtrls,
  StdCtrls, Mask, DBCtrls, Buttons, ImgList;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    Panel2: TPanel;
    Panel3: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    Panel4: TPanel;
    Panel5: TPanel;
    DBGrid2: TDBGrid;
    Panel6: TPanel;
    Panel7: TPanel;
    DBGrid3: TDBGrid;
    Panel8: TPanel;
    Panel9: TPanel;
    DBGrid4: TDBGrid;
    Panel10: TPanel;
    Panel11: TPanel;
    DBGrid5: TDBGrid;
    Table1CustNo: TFloatField;
    Table1Company: TStringField;
    Table1Addr1: TStringField;
    Table1Phone: TStringField;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label6: TLabel;
    Edit2: TEdit;
    Label7: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label9: TLabel;
    Edit5: TEdit;
    Button2: TButton;
    Button3: TButton;
    BitBtn1: TBitBtn;
    Label10: TLabel;
    Edit6: TEdit;
    Label11: TLabel;
    Edit7: TEdit;
    Label12: TLabel;
    Edit8: TEdit;
    Label13: TLabel;
    Edit9: TEdit;
    Label14: TLabel;
    Label15: TLabel;
    Edit11: TEdit;
    Button4: TButton;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Edit10: TEdit;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Label20: TLabel;
    DBEdit5: TDBEdit;
    Label21: TLabel;
    DBEdit6: TDBEdit;
    Label22: TLabel;
    DBEdit7: TDBEdit;
    Label23: TLabel;
    DBEdit8: TDBEdit;
    Button8: TButton;
    BitBtn5: TBitBtn;
    ImageList1: TImageList;
    BitBtn2: TBitBtn;
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
    Table1.Active:=True;
    ToolButton2.Enabled:=false;
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
     Table1.first;
     ToolButton4.Enabled:=false;
     ToolButton2.Enabled:=false;
     ToolButton5.Enabled:=false;
     ToolButton6.Enabled:=true;
     ToolButton7.Enabled:=true;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
    Table1.prior;
    ToolButton4.Enabled:=true;
    ToolButton6.Enabled:=true;
    ToolButton7.Enabled:=true;
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
    Table1.next;
    ToolButton7.Enabled:=true;
    ToolButton5.Enabled:=true;
    ToolButton4.Enabled:=true;
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
      Table1.last;
      ToolButton7.Enabled:=false;
      ToolButton6.Enabled:=false;
      ToolButton5.Enabled:=true;
      ToolButton4.Enabled:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if Table1.Active then
   Table1.moveby(strtoint(edit1.Text));
end;

procedure TForm1.FormShow(Sender: TObject);
begin
    Table1.close;
    Table1.Databasename:='DBDEMOS';
    Table1.Tablename:='customer.db';
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    Table1.Active:=True;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
    Table1.Active:=False;
end;

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
      Edit2.Text:=Table1.Fieldbyname('CustNo').AsString;
      Edit3.Text:=Table1.Fieldbyname('Company').AsString;
      Edit4.Text:=Table1.Fieldbyname('Addr1').AsString;
      Edit5.Text:=Table1.Fieldbyname('Phone').AsString;
      Edit8.Text:=Table1.Fieldbyname('CustNo').AsString;
      Edit9.Text:=Table1.Fieldbyname('Company').AsString;
      Edit10.Text:=Table1.Fieldbyname('Addr1').AsString;
      Edit11.Text:=Table1.Fieldbyname('Phone').AsString;
      Edit12.Text:=Table1.Fieldbyname('CustNo').AsString;
      Edit13.Text:=Table1.Fieldbyname('Company').AsString;
      Edit14.Text:=Table1.Fieldbyname('Addr1').AsString;
      Edit15.Text:=Table1.Fieldbyname('Phone').AsString;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    if not  Table1.Locate('Company',Edit6.Text,[locaseInsensitive,lopartialkey])
      then
      showmessage('没有找到相关记录，请重新输入')
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   with table1 do
begin
setkey;
if(edit7.Text='') then
showmessage('查询条件不能为空值！')
else
fieldbyname('CustNo').AsString:=edit7.Text;
if not table1.gotokey then
showmessage('没有找到记录，请重新输入！')

end;
end;

procedure TForm1.Button4Click(Sender: TObject);
//    var k:integer;
//begin
  // with table1 do
   //begin
   //k:=strtoint(edit8.Text);
   //insertrecord([k,edit9.Text,edit10.Text,edit11.Text])
//end;
begin
Table1.Insert;
BitBtn4.Enabled:=true;
Button4.Enabled:=false;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
   Table1.Active:=True;
   BitBtn4.Enabled:=false;
   BitBtn3.Enabled:=false;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  table1.FieldByName('CustNo').Value:=edit8.Text;
  table1.FieldByName('Company').Value:=edit9.Text;
  table1.FieldByName('Addr1').Value:=edit10.Text;
  table1.FieldByName('Phone').Value:=edit11.Text;
  Button4.Enabled:=true;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
   Table1.Active:=True;
   Button5.Enabled:=false;
   Button7.Enabled:=false;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
   table1.Edit;
   Button5.Enabled:=false;
   Button7.Enabled:=true;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
   table1.FieldByName('Company').Value:=edit13.Text;
   table1.FieldByName('Addr1').Value:=edit14.Text;
   table1.FieldByName('Phone').Value:=edit15.Text;
   Button6.Enabled:=true;
   Button7.Enabled:=false;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
   Table1.Active:=True;
   Button8.Enabled:=false;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
  table1.Delete;
  Button8.Enabled:=false;
end;
end.