unitxxcx.pas

DELPHI应用一则

unit UnitXXCX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, dxCntner, dxEditor, dxExEdtr, dxEdLib, Buttons,
  ComCtrls, Grids, Wwdbigrd, Wwdbgrid, DB;

type
  TFormXXCX = class(TForm)
    DBGcode: TwwDBGrid;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    DSgssx: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormXXCX: TFormXXCX;

implementation

uses UDM, UnitMAIN;

{$R *.DFM}

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

procedure TFormXXCX.Button2Click(Sender: TObject);
begin
 dm.ADObank.Append;
end;

procedure TFormXXCX.Button3Click(Sender: TObject);
begin
 if application.Messagebox('确认删除信息吗？','系统提示',MB_yesno+MB_defbutton1+MB_iconinformation)=IDYES then
  begin
    with DM.ADOcode do
    begin
      Close;
      SQL.Clear;
      SQL.Add('delete from cdbank');
      SQL.Add('where dm=:dmid');
      Parameters.ParamByName('dmid').Value:=dm.ADOlx.fieldbyname('dmid').AsInteger;
      try
       ExecSQL;
       except
       MessageBox(Handle,'删除信息失败','系统提示',MB_ICONINFORMATION);
       Exit;
      end;
    end;
    dm.ADObank.Close;
    dm.ADObank.Open;
  end;

end;

procedure TFormXXCX.FormShow(Sender: TObject);
begin
  dm.ADObank.Open;
end;

procedure TFormXXCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dm.ADObank.Close;
end;

procedure TFormXXCX.Button4Click(Sender: TObject);
begin
 dm.ADObank.Post;
end;

procedure TFormXXCX.Button5Click(Sender: TObject);
begin
 dm.ADObank.CancelUpdates;
end;

end.