?? sczpxx.pas
字號:
unit sczpxx;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids;
type
Tfmsczpxx = class(TForm)
DBGrid1: TDBGrid;
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
Edit1: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmsczpxx: Tfmsczpxx;
implementation
uses dm;
{$R *.dfm}
procedure Tfmsczpxx.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
messagedlg('請輸入要刪除的招聘信息的編號!',mtInformation,[mbYes],0);
exit;
end;
fmdm.qrysczpxx.Close;
fmdm.qrysczpxx.SQL.Clear;
fmdm.qrysczpxx.SQL.Add('delete from tab_zpinf where zpinf_id=:A');
fmdm.qrysczpxx.Parameters.ParamByName('A').Value:=edit1.Text;
try
fmdm.qrysczpxx.ExecSQL;
MessageDlg('刪除成功!', mtInformation, [mbYes],0);
except
MessageDlg('操作失敗!', mtInformation, [mbYes],0);
end;
fmdm.qrysczpxx.SQL.Clear;
fmdm.qrysczpxx.SQL.Add('select * from tab_zpinf');
fmdm.qrysczpxx.Open;
edit1.Clear;
end;
procedure Tfmsczpxx.Button2Click(Sender: TObject);
begin
close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -