?? shanchu.pas
字號:
unit shanchu;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB;
type
Txg05210_shanc = class(TForm)
lblzgh: TLabel;
lblxm1: TLabel;
Label1: TLabel;
edtzgh: TEdit;
edtxm1: TEdit;
btncx: TButton;
DBGrid1: TDBGrid;
btnsc: TButton;
btntc: TButton;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
procedure btncxClick(Sender: TObject);
procedure btnscClick(Sender: TObject);
procedure btntcClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
xg05210_shanc: Txg05210_shanc;
implementation
uses ygdagl;
{$R *.dfm}
procedure Txg05210_shanc.btncxClick(Sender: TObject);
begin
adoquery1.Active:=true;
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from 職工信息表 where 姓名='''+edtxm1.Text+''' or 職工號='''+edtzgh.text+'''');
execsql;
open;
if recordcount=0 then showmessage('沒有這條記錄');
end;
end;
procedure Txg05210_shanc.btnscClick(Sender: TObject);
begin
with ADOQuery1 do
begin
if messagedlg('確定要刪除嗎?',mtconfirmation,[mbyes,mbno],0)=mryes
then
begin
close;
sql.Clear;
sql.Add('delete from 職工信息表 where 姓名='''+edtxm1.Text+''' or 職工號='''+edtzgh.text+'''');
execsql;
close;
showmessage('職工號'+edtzgh.text+'已成功刪除!');
sql.Clear;
sql.Add('select * from 職工信息表 ');
open;
end;
end;
end;
procedure Txg05210_shanc.btntcClick(Sender: TObject);
begin
xg05210_shanc.Close;
xg05210_yg.Show;
with xg05210_yg.ADOQuery1 do
begin
close;
sql.clear;
sql.Add('select * from 職工信息表');
open;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -