?? unit6.~pas
字號:
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, DB, ADODB,
Mask, DBCtrls;
type
Tchacunbaobiao = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
DataSource1: TDataSource;
DataSource2: TDataSource;
ADOQuery2: TADOQuery;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
Panel8: TPanel;
RadioButton1: TRadioButton;
Edit13: TEdit;
RadioButton2: TRadioButton;
Edit14: TEdit;
Panel6: TPanel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
ADOQuery1: TADOQuery;
RadioButton3: TRadioButton;
Edit1: TEdit;
ADOQuery1bookid: TWideStringField;
ADOQuery1bookname: TWideStringField;
ADOQuery1author: TWideStringField;
ADOQuery1in: TBooleanField;
BitBtn1: TBitBtn;
Panel7: TPanel;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
DataSource3: TDataSource;
DBGrid3: TDBGrid;
ADOQuery3: TADOQuery;
Panel9: TPanel;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Label2: TLabel;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn2: TBitBtn;
Edit15: TEdit;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
ADOQuery3ids: TAutoIncField;
ADOQuery3bookid: TWideStringField;
ADOQuery3studentid: TWideStringField;
ADOQuery3onceout: TBooleanField;
ADOQuery3outdata: TDateTimeField;
ADOQuery3alreadyback: TBooleanField;
ADOQuery3backdata: TDateTimeField;
ADOQuery2ids: TAutoIncField;
ADOQuery2bookid: TWideStringField;
ADOQuery2studentid: TWideStringField;
ADOQuery2onceout: TBooleanField;
ADOQuery2outdata: TDateTimeField;
ADOQuery2alreadyback: TBooleanField;
ADOQuery2backdata: TDateTimeField;
ADOQuery4: TADOQuery;
DataSource4: TDataSource;
DBGrid4: TDBGrid;
ADOQuery4ids: TAutoIncField;
ADOQuery4bookid: TWideStringField;
ADOQuery4studentid: TWideStringField;
ADOQuery4onceout: TBooleanField;
ADOQuery4outdata: TDateTimeField;
ADOQuery4alreadyback: TBooleanField;
ADOQuery4backdata: TDateTimeField;
Panel10: TPanel;
RadioButton10: TRadioButton;
RadioButton11: TRadioButton;
RadioButton12: TRadioButton;
RadioButton13: TRadioButton;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
BitBtn3: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BitBtn10: TBitBtn;
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
chacunbaobiao: Tchacunbaobiao;
implementation
{$R *.dfm}
procedure Tchacunbaobiao.Button1Click(Sender: TObject);
begin
adoquery1.Open;
if RadioButton1.Checked then
if not adoquery1.Locate('bookid',edit13.Text,[]) then
begin
showmessage('沒有這本書，請重新輸入');
edit13.Text:='';
end
else
begin
end;
if RadioButton2.Checked then
if not adoquery1.Locate('bookname',edit14.Text,[]) then
begin
showmessage('沒有這本書，請重新輸入');
edit14.Text:='';
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from books where bookname='''+edit14.Text+'''';
adoquery1.Open;
edit14.Text:='';
end;
if RadioButton3.Checked then
if not adoquery1.Locate('author',edit1.Text,[]) then
begin
showmessage('沒有這本書，請重新輸入');
edit1.Text:='';
end
else
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from books where author='''+edit1.Text+'''');
adoquery1.Open;
edit1.Text:='';
end;
end;
procedure Tchacunbaobiao.BitBtn1Click(Sender: TObject);
begin
adoquery1.Edit;
if radiobutton1.Checked then
begin //////
adoquery1.Active:=true;
adoquery1.Edit;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from books where bookid='''+edit13.Text+'''';
adoquery1.Open;
if adoquery1.RecordCount=0 then
begin showmessage('沒有符合條件的紀錄'); ///
edit13.Text:=''; ///
end
else
begin ///
showmessage('紀錄已經查找到了');
edit13.Text:='';
end; ///
end; //////
if radiobutton2.Checked then
begin
adoquery1.Active:=true;
adoquery1.Edit;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from books where bookname='''+edit14.Text+'''';
adoquery1.Open;
if adoquery1.RecordCount=0 then
begin showmessage('沒有符合條件的紀錄');
edit14.Text:='';
end
else
begin
showmessage('紀錄已經查找到了');
edit14.Text:='';
end;
end;
if radiobutton3.Checked then
begin
adoquery1.Active:=true;
adoquery1.Edit;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from books where author='''+edit1.Text+'''';
adoquery1.Open;
if adoquery1.RecordCount=0 then
begin showmessage('沒有符合條件的紀錄');
edit1.Text:='';
end
else
begin
showmessage('紀錄已經查找到了');
edit1.Text:='';
end;
end;
end;
procedure Tchacunbaobiao.BitBtn2Click(Sender: TObject);
begin
adoquery2.Active:=true;
if radiobutton4.Checked then
begin
adoquery2.Active:=true;
adoquery2.Edit;
if not adoquery2.Locate('bookid',edit2.Text,[]) then
begin showmessage('沒有符合條件的紀錄');
edit2.Text:='';
end
else
begin
showmessage('紀錄已經查找到了');
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Text:='select * from bore where bookid=:bookid and onceout=true';
adoquery2.Parameters.ParamByName('bookid').Value:=edit2.Text;
adoquery2.Open;
edit2.Text:='';
end;
end;
if radiobutton5.Checked then
begin
adoquery2.Active:=true;
adoquery2.Edit;
if not adoquery2.Locate('studentid',edit3.Text,[])
then
begin showmessage('沒有符合條件的紀錄');
edit3.Text:='';
end
else
begin
showmessage('紀錄已經查找到了');
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Text:='select * from bore where studentid=:studentid and onceout=true';
adoquery2.Parameters.ParamByName('studentid').Value:=edit3.Text;
adoquery2.Open;
edit3.Text:='';
end;
end;
if radiobutton6.Checked then
begin
adoquery2.Active:=true;
adoquery2.Edit;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Text:='select * from bore where outdata between #'+edit4.Text+'# and #'+edit5.Text+'# and onceout=true';
//adoquery2.Parameters.ParamByName('data1').Value:='#'+edit4.Text+'#';
///adoquery2.Parameters.ParamByName('data2').Value:='#'+edit5.Text+'#';
adoquery2.Open;
if adoquery2.RecordCount=0 then
begin showmessage('沒有符合條件的紀錄');
edit4.Text:='';
edit5.Text:='';
end
else
begin
showmessage('紀錄已經查找到了');
edit4.Text:='';
edit5.Text:='';
end;
end;
end;
procedure Tchacunbaobiao.BitBtn4Click(Sender: TObject);
begin
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
end;
procedure Tchacunbaobiao.BitBtn5Click(Sender: TObject);
begin
adoquery3.Active:=true;
if radiobutton7.Checked then
begin
adoquery3.Active:=true;
adoquery3.Edit;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Text:='select * from bore where bookid=:bookid and alreadyback=true';
adoquery3.Parameters.ParamByName('bookid').Value:=edit6.Text;
adoquery3.Open;
if adoquery3.RecordCount=0 then
begin showmessage('沒有符合條件的紀錄');
edit6.Text:='';
end
else
begin
showmessage('紀錄已經查找到了');
edit6.Text:='';
end;
end;
if radiobutton8.Checked then
begin
adoquery3.Active:=true;
adoquery3.Edit;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Text:='select * from bore where studentid=:studentid and alreadyback=true';
adoquery3.Parameters.ParamByName('studentid').Value:=edit7.Text;
adoquery3.Open;
if adoquery3.RecordCount=0 then
begin showmessage('沒有符合條件的紀錄');
edit7.Text:='';
end
else
begin
showmessage('紀錄已經查找到了');
edit7.Text:='';
end;
end;
if radiobutton9.Checked then
begin
adoquery3.Active:=true;
adoquery3.Edit;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Text:='select * from bore where backdata between #'+edit8.Text+'# and #'+edit15.Text+'# and alreadyback=true';
adoquery3.Open;
if adoquery3.RecordCount=0 then
begin showmessage('沒有符合條件的紀錄');
edit8.Text:='';
edit15.Text:='';
end
else
begin
showmessage('紀錄已經查找到了');
edit8.Text:='';
edit15.Text:='';
end;
end;
end;
procedure Tchacunbaobiao.BitBtn6Click(Sender: TObject);
begin
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
end;
procedure Tchacunbaobiao.BitBtn3Click(Sender: TObject);
begin
if radiobutton10.Checked then
begin
adoquery4.Active:=true;
adoquery4.Edit;
if not adoquery4.Locate('bookid',edit16.Text,[]) then
begin showmessage('沒有符合條件的紀錄');
edit16.Text:='';
end
else
begin
showmessage('紀錄已經查找到了');
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Text:='select * from bore where bookid=:bookid and onceout=true and alreadyback=false';
adoquery4.Parameters.ParamByName('bookid').Value:=edit16.Text;
adoquery4.Open;
edit16.Text:='';
end;
end;
if radiobutton11.Checked then
begin
adoquery4.Active:=true;
adoquery4.Edit;
if not adoquery4.Locate('studentid',edit17.Text,[]) then
begin showmessage('沒有符合條件的紀錄');
edit17.Text:='';
end
else
begin
showmessage('紀錄已經查找到了');
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Text:='select * from bore where studentid=:studentid and onceout=true and alreadyback=false';
adoquery4.Parameters.ParamByName('studentid').Value:=edit17.Text;
adoquery4.Open;
edit16.Text:='';
end;
end;
if radiobutton12.Checked then
begin
adoquery4.Active:=true;
adoquery4.Edit;
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Text:='select * from bore where studentid in (select studentid from students where studentclass=:class) and onceout=true and alreadyback=false';
adoquery4.Parameters.ParamByName('class').Value:=edit18.Text;
adoquery4.Open;
if adoquery4.RecordCount=0 then
begin
showmessage('沒有符合條件的紀錄');
edit18.Text:='';
end
else
begin
showmessage('已找到符合條件的紀錄');
edit18.Text:='';
end;
end;
if radiobutton13.Checked then
begin
adoquery4.Active:=true;
adoquery4.Edit;
adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Text:='select * from bore where studentid in (select studentid from students where studentcollage=:collage) and onceout=true and alreadyback=false';
adoquery4.Parameters.ParamByName('collage').Value:=edit19.Text;
adoquery4.Open;
if adoquery4.RecordCount=0 then
begin
showmessage('沒有符合條件的紀錄');
edit19.Text:='';
end
else
begin
showmessage('已找到符合條件的紀錄');
edit19.Text:='';
end;
end;
end;
procedure Tchacunbaobiao.BitBtn8Click(Sender: TObject);
begin
close;
end;
procedure Tchacunbaobiao.BitBtn9Click(Sender: TObject);
begin
close;
end;
procedure Tchacunbaobiao.BitBtn10Click(Sender: TObject);
begin
close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -