unitxyksz.pas

来自「DELPHI应用一则」· PAS 代码 · 共 91 行

unit UnitXYKSZ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Grids, Wwdbigrd, Wwdbgrid;

type
  TFormXYKSZ = class(TForm)
    DBGcode: TwwDBGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormXYKSZ: TFormXYKSZ;

implementation

uses UDM;

{$R *.DFM}

procedure TFormXYKSZ.Button1Click(Sender: TObject);
begin
  close;
end;

procedure TFormXYKSZ.FormShow(Sender: TObject);
begin
{  with DM.Qcard do
  begin
    close;
    with SQL do
    begin
      clear;
      add('SELECT * FROM CDCARD');
    end;
    Prepare;
    open;
  end;

  DBGcode.SetFocus;}
end;

procedure TFormXYKSZ.Button3Click(Sender: TObject);
begin
{  if application.Messagebox('确认删除信息吗？','系统提示',MB_yesno+MB_defbutton1+MB_iconinformation)=IDYES then
  begin
    DM.DB.StartTransaction;
    try
      DM.Qcard.Delete;
      DM.Qcard.ApplyUpdates;
//      DM.Qcard.CommitUpdates;
      DM.DB.Commit;
    except
      DM.Qcard.CancelUpdates;
      DM.DB.Rollback;
    end;
  end; }
end;

procedure TFormXYKSZ.Button4Click(Sender: TObject);
begin
 { DM.DB.StartTransaction;
  try
    DM.Qcard.Edit;
    DM.Qcard.ApplyUpdates;
//    DM.Qcard.CommitUpdates;
    DM.DB.Commit;
  except
    DM.Qcard.CancelUpdates;
    DM.DB.Rollback;
  end; }
end;

end.