ujsyxx.pas

来自「很好的汽车管理系统 很实用的 谢谢合作」· PAS 代码 · 共 95 行

unit UJSYXX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, Buttons, ToolWin, ComCtrls, ExtCtrls, DBCtrls;

type
  TJSYXX = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JSYXX: TJSYXX;
  ActionCD:string;
implementation

uses UJSYXX_ED, UDM;

{$R *.dfm}
procedure TJSYXX.SpeedButton1Click(Sender: TObject);
begin
  Application.CreateForm(TJSYXX_ED,JSYXX_ED);
  ActionCD:='M';
  JSYXX_ED.ShowModal;
  JSYXX_ED.Free;
end;

procedure TJSYXX.DBGrid1DblClick(Sender: TObject);
begin
  Application.CreateForm(TJSYXX_ED,JSYXX_ED);
  JSYXX_ED.GetAll;
  JSYXX_ED.ShowModal;
  JSYXX_ED.Free;
end;

procedure TJSYXX.SpeedButton4Click(Sender: TObject);
begin
  Close;
end;

procedure TJSYXX.FormCreate(Sender: TObject);
begin
  with dm.QJSYXX do
  begin
    close;
    sql.Clear;
    sql.Add('select * from jsyxx');
    open;
  end;
  DM.ADODSJSYXX.Open;
end;

procedure TJSYXX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM.QJSYXX.Close;
  dm.ADODSJSYXX.Close;
end;

procedure TJSYXX.SpeedButton2Click(Sender: TObject);
begin
    if dm.ADODSJSYXX.RecordCount=0 then
    begin
      Application.MessageBox('已无记录可删除!','提示',0+MB_ICONINFORMATION);
      exit;
    end;
    if dm.ADODSJSYXX.IsEmpty then
      exit;
    if ID_YES=application.MessageBox('确实要删除这条记录吗？','提示',MB_YESNO) then
    begin
      dm.ADODSJSYXX.Delete;
    end;
end;

end.