kehu.~pas

delphi阿涛印花厂,有关于打印的印花厂源码

unit kehu;

interface

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

type
  Tkhform = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
  
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
   khform:Tkhform;

implementation
{$R *.dfm}



procedure Tkhform.FormShow(Sender: TObject);
begin
adoquery1.Close;
adoquery1.open;
end;

procedure Tkhform.Button2Click(Sender: TObject);
begin
adoquery1.CancelUpdates;
end;

procedure Tkhform.Button1Click(Sender: TObject);
var f:integer;
begin
f:=MessageDlg('要保存此次的修改吗？',mtConfirmation,[mbYes, mbNo,mbcancel], 0);
if f=6 then
 adoquery1.UpdateBatch
else
 adoquery1.CancelUpdates; 
end;

procedure Tkhform.Button3Click(Sender: TObject);
begin
adoquery1.Append;
end;

procedure Tkhform.Button4Click(Sender: TObject);
begin
if not adoquery1.IsEmpty then
adoquery1.Delete;
end;

procedure Tkhform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_RETURN then

begin

if ActiveControl is TDBGrid then

PostMessage(ActiveControl.Handle, WM_KEYDOWN, VK_TAB, 0)

else

PostMessage(Handle, WM_KEYDOWN, VK_TAB, 0);

Key := 0;

end;


end;

procedure Tkhform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;



end.