fwdjbdd.pas

服务信息管理系统

unit fwdjbdd;

interface

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

type
  Tfrmfwdjbdd = class(TForm)
    Button1: TButton;
    Button2: TButton;
    StatusBar1: TStatusBar;
    DBNavigator1: TDBNavigator;
    DBGridEh1: TDBGridEh;
    Query1: TQuery;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmfwdjbdd: Tfrmfwdjbdd;

implementation
uses mainform;
{$R *.dfm}

procedure Tfrmfwdjbdd.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    begin
      SelectNext(ActiveControl, True, True);
      Key := #0;
    end;
end;

procedure Tfrmfwdjbdd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frmfwdjbdd := nil;
end;

procedure Tfrmfwdjbdd.Button1Click(Sender: TObject);
begin
  query1.Append;

end;

procedure Tfrmfwdjbdd.Button2Click(Sender: TObject);
begin
  query1.Delete;
end;

end.