traffic.pas

利用Acess数据库

unit traffic;

interface

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

type
  Tf_trafficin = class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    GroupBox1: TGroupBox;
    Table1: TTable;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn1: TBitBtn;
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_trafficin: Tf_trafficin;

implementation

{$R *.DFM}

procedure Tf_trafficin.BitBtn6Click(Sender: TObject);
begin
  table1.open;
  table1.Last;
  edit1.Text:=table1.Fields[0].AsString;
  memo1.Text:=table1.Fields[1].AsString;
  edit2.Text:=table1.Fields[2].AsString;
  edit3.Text:=table1.Fields[3].AsString;
end;

procedure Tf_trafficin.BitBtn5Click(Sender: TObject);
begin
  table1.Prior;
  edit1.Text:=table1.Fields[0].AsString;
  memo1.Text:=table1.Fields[1].AsString;
  edit2.Text:=table1.Fields[2].AsString;
  edit3.Text:=table1.Fields[3].AsString;
end;

procedure Tf_trafficin.BitBtn8Click(Sender: TObject);
begin
  table1.Next;
  edit1.Text:=table1.Fields[0].AsString;
  memo1.Text:=table1.Fields[1].AsString;
  edit2.Text:=table1.Fields[2].AsString;
  edit3.Text:=table1.Fields[3].AsString;
end;

procedure Tf_trafficin.BitBtn7Click(Sender: TObject);
begin
  table1.Delete;
end;

procedure Tf_trafficin.BitBtn3Click(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  memo1.Text:='';
end;

procedure Tf_trafficin.BitBtn2Click(Sender: TObject);
begin
  if  edit1.Text=''  then edit1.Text:='暂无记录';
  if  edit2.Text=''  then edit2.Text:='暂无记录';
  if  edit3.Text=''  then edit3.Text:='暂无记录';
  if  memo1.Text=''  then memo1.Text:='暂无记录';
  table1.Open;
  table1.AppendRecord([edit1.text,memo1.text,edit2.text,edit3.text]);
  showmessage('提交完毕!');
end;

procedure Tf_trafficin.BitBtn1Click(Sender: TObject);
begin
  table1.edit;
  Table1.setfields([edit1.text,memo1.text,edit2.text,edit3.text]);
  table1.post;
  table1.Refresh;
  showmessage('修改完毕！');
end;

procedure Tf_trafficin.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=VK_return then
  memo1.SetFocus;
end;

procedure Tf_trafficin.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=VK_return then
  edit2.SetFocus;
end;

procedure Tf_trafficin.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key=VK_return then
  edit3.SetFocus;
end;

procedure Tf_trafficin.FormCreate(Sender: TObject);
begin
    table1.Open;
end;

end.