unitlydwsz.pas

DELPHI应用一则

unit UnitLYDWSZ;

interface

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

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

var
  FormLYDWSZ: TFormLYDWSZ;

implementation

uses UDM;

{$R *.DFM}

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

procedure TFormLYDWSZ.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 cdcard');
      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.ADOlx.Close;
    dm.ADOlx.Open;
  end;
end;

procedure TFormLYDWSZ.Button2Click(Sender: TObject);
begin
 dm.ADOlx.Append;
end;

procedure TFormLYDWSZ.Button4Click(Sender: TObject);
begin
 DM.ADOlx.Post;
end;

procedure TFormLYDWSZ.Button5Click(Sender: TObject);
begin
  DM.ADOlx.CancelUpdates;
end;

procedure TFormLYDWSZ.FormShow(Sender: TObject);
begin
 DM.ADOlx.Open;
end;

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

end.