unit11.pas

高校图书管理系统采用Delphi结合数据库

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Grids, DBGrids, DBTables, DB, Mask, ExtCtrls,
  ComCtrls;

type
  Tfrm_cjcx = class(TForm)
    Button3: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    Button1: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    TabSheet2: TTabSheet;
    RadioGroup3: TRadioGroup;
    DBLookupComboBox1: TDBLookupComboBox;
    DBGrid1: TDBGrid;
    Button2: TButton;
    DBLookupComboBox2: TDBLookupComboBox;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    TabSheet3: TTabSheet;
    DBGrid2: TDBGrid;
    Query1: TQuery;
    DataSource2: TDataSource;
    Query2: TQuery;
    Table1: TTable;
    DataSource1: TDataSource;
    Button4: TButton;
    Button5: TButton;
    Query3: TQuery;
    DataSource3: TDataSource;
    procedure TabSheet1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure RadioGroup2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure TabSheet2ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure RadioGroup3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_cjcx: Tfrm_cjcx;

implementation

uses Unit1;

{$R *.dfm}

procedure Tfrm_cjcx.Button2Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from xscjb.db');
if radiogroup3.ItemIndex=0 then
 begin
  if dblookupcombobox1.Text ='' then exit;
  query1.SQL.Add(' where 学号='+#39+dblookupcombobox1.Text+#39);
 end
else
   begin
  if dblookupcombobox2.Text ='' then exit;
  query1.SQL.Add(' where 姓名='+#39+dblookupcombobox2.Text+#39);
 end;
 query1.Open ;

end;

procedure Tfrm_cjcx.TabSheet1ContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
var
i:integer;
begin
 table1.Open ;
 table1.First ;
 combobox1.Clear ;
 combobox2.Clear ;
 for i:=0 to table1.RecordCount-1 do
   begin
     combobox1.Items.Add(table1.Fields[0].Value);
     combobox2.Items.Add(table1.Fields[1].Value);
     table1.Next ;
     end;
table1.Close;
end;

procedure Tfrm_cjcx.RadioGroup2Click(Sender: TObject);
begin
if radiogroup2.ItemIndex=0 then
  begin
   combobox1.Enabled :=true;
   combobox2.Enabled :=false;
  end
 else
    begin
   combobox1.Enabled :=false;
   combobox2.Enabled :=true;
  end;
end;

procedure Tfrm_cjcx.Button1Click(Sender: TObject);
var
keyvalue:string;
begin
  if radiogroup2.ItemIndex=0 then
  begin
   table1.IndexFieldNames :='学号';
   keyvalue:=combobox1.Text;
  end
  else
   begin
   table1.IndexFieldNames :='姓名';
   keyvalue:=combobox2.Text;
  end;
  if keyvalue='' then exit;
  table1.Open ;
  if radiogroup1.ItemIndex=0 then
    table1.FindKey([keyvalue])
  else
   table1.FindNearest([keyvalue]);
end;

procedure Tfrm_cjcx.TabSheet2ContextPopup(Sender: TObject;
  MousePos: TPoint; var Handled: Boolean);
begin
table1.Open;
end;

procedure Tfrm_cjcx.RadioGroup3Click(Sender: TObject);

begin
if radiogroup3.ItemIndex=0 then
 begin
  DBLookupComboBox1.Enabled :=true;
  DBLookupComboBox2.Enabled :=false;
  end
  else
     begin
  DBLookupComboBox1.Enabled :=false;
  DBLookupComboBox2.Enabled :=true;
  end;
end;

procedure Tfrm_cjcx.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_cjcx.Button4Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_cjcx.Button5Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_cjcx.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
 begin
   query2.Close;
   query2.SQL.Clear;
   query2.SQL.Add('select * from xscjb.db');
   query2.Open;
   edit1.Text :=inttostr(query2.RecordCount );
 end
else
   edit1.Text :=' ';

end;

end.