shanchu.pas

来自「这是用delphi作的人力资源管理系统」· PAS 代码 · 共 64 行

unit shanchu;

interface

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

type
  TSC = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    Delete: TButton;
    return: TButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    procedure DeleteClick(Sender: TObject);
    procedure returnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SC: TSC;

implementation

uses Datamodal, Unit1;

{$R *.dfm}

procedure TSC.DeleteClick(Sender: TObject);
Var
    Xh,Sql1,Sql2:String;
begin
    Xh:=Edit1.Text;
    Sql1:='select XH from XS where XH ='+''''+Xh+'''';
    XSCJDM.XSCJADODataSet.Active:=false;
    XSCJDM.XSCJADODataSet.CommandText:=Sql1;
    XSCJDM.XSCJADODataSet.Active:=true;
    if  (XSCJDM.XSCJADODataSet.FieldValues['XH']<> NULL)  then
        begin
          Sql2:='delete from XS where XH ='+''''+Xh+'''';
          XSCJDM.XSCJADOCommand.CommandText:=Sql2;
          XSCJDM.XSCJADOCommand.Execute;
          showmessage('删除成功!')
        end
    else
        begin
          showmessage('要删除的学生记录不存在!');
          Edit1.Text:='';
        end;
end;
procedure TSC.returnClick(Sender: TObject);
begin
     XSCJGL.Visible:=true;
     SC.Visible:=false;
end;

end.