?? bj.~pas
字號(hào):
unit BJ;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, ComCtrls;
type
TBJForm = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
ListView1: TListView;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
row:integer;
{ Public declarations }
end;
var
BJForm: TBJForm;
implementation
uses datamodule;
{$R *.dfm}
procedure TBJForm.Button4Click(Sender: TObject);
begin
close;
end;
procedure TBJForm.Button1Click(Sender: TObject);
var
query:Tadoquery;
sql:string;
Fname:string;
begin
if inputquery('輸入班級(jí)名稱','',Fname) then
begin
if Fname='' then exit;
query:=Tadoquery.Create(self);
query.Connection:=dmfm.ADOConnection;
sql:=format('select * from tbj where fname=''%s''',[Fname]);
query.close;
query.sql.text:=sql;
query.open;
if not query.IsEmpty then
begin
messagebox(handle,'班級(jí)名稱已經(jīng)存在','提示',mb_iconwarning);
exit;
end;
sql:=format('insert tbj(Fname) values(''%s'')',[Fname]);
query.close;
query.sql.text:=sql;
query.ExecSQL;
query.Destroy;
formshow(sender);
end;
end;
procedure TBJForm.FormShow(Sender: TObject);
var
query:Tadoquery;
sql:string;
i:integer;
begin
query:=Tadoquery.Create(self);
query.Connection:=dmfm.ADOConnection;
sql:='select * from Tbj order by fname';
query.close;
query.sql.text:=sql;
query.open;
listview1.Items.Clear;
i:=0;
while not query.eof do
begin
listview1.Items.Add();
listview1.Items[i].Caption:=query.fieldbyname('fname').AsString;
listview1.Items[i].SubItems.Add(query.fieldbyname('id').AsString);
query.next;
i:=i+1;
end;
query.Destroy;
row:=0;
listview1.SetFocus;
end;
procedure TBJForm.Button2Click(Sender: TObject);
var
query:Tadoquery;
sql:string;
Fname:string;
begin
if listview1.ItemIndex=-1 then exit;
if messagebox(handle,'你真的要?jiǎng)h除此班級(jí)嗎?','提示',mb_iconwarning+mb_yesno)=idno then exit;
query:=Tadoquery.Create(self);
query.Connection:=dmfm.ADOConnection;
sql:=format('select * from cardtb where class=%s',[listview1.Selected.SubItems[0]]);
query.close;
query.sql.text:=sql;
query.open;
if not query.IsEmpty then
begin
messagebox(handle,'班級(jí)已經(jīng)存在學(xué)生,不能刪除','提示',mb_iconwarning);
exit;
end;
sql:=format('delete tbj where ID=%s ',[listview1.Selected.SubItems[0]]);
query.close;
query.sql.text:=sql;
query.ExecSQL;
query.Destroy;
formshow(sender);
end;
procedure TBJForm.Button3Click(Sender: TObject);
var
query:Tadoquery;
sql:string;
Fname:string;
begin
if listview1.ItemIndex=-1 then exit;
query:=Tadoquery.Create(self);
query.Connection:=dmfm.ADOConnection;
sql:=format('select * from cardtb where class=%s',[listview1.Selected.SubItems[0]]);
query.close;
query.sql.text:=sql;
query.open;
if not query.IsEmpty then
begin
messagebox(handle,'班級(jí)已經(jīng)存在學(xué)生,不能修改','提示',mb_iconwarning);
exit;
end;
Fname:=listview1.Selected.Caption;
if not inputquery('輸入班級(jí)名稱','',Fname) then exit;
sql:=format('update tbj set fname=''%s'' where ID=%s',[Fname,listview1.Selected.SubItems[0]]);
query.close;
query.sql.text:=sql;
query.ExecSQL;
query.Destroy;
formshow(sender);
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -