khxx1.pas

delphi开发的完整的客户管理系统（带数据库）

unit khxx1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, StdCtrls, Buttons, ExtCtrls;

type
  TForm51 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form51: TForm51;

implementation
   uses Data2,khwldzd;
{$R *.dfm}

procedure TForm51.DBGrid1DblClick(Sender: TObject);
begin
  khbh := Datam.ADOQuery1.FieldByName('客户编号').Value;
  Close;
end;

procedure TForm51.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_Up then
    if Not Datam.ADOQuery1.Bof then
      Datam.ADOQuery1.Prior;
  if Key = VK_Down then
    if Not Datam.ADOQuery1.Eof then
      Datam.ADOQuery1.Next;
  if Key = VK_ReTurn then
    DBGrid1.OnDblClick(Sender);
end;

end.