unit8.pas

一个简单的图书管理系统

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;

type
  TForm8 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Label2: TLabel;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}
uses unit1;

procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
  Form_show:=False;
  
end;

procedure TForm8.FormCreate(Sender: TObject);
begin
  Form_show:=True;  
end;

procedure TForm8.Button1Click(Sender: TObject);
begin
  close;
end;

procedure TForm8.Button2Click(Sender: TObject);
var
  command_exe:Boolean;
begin
   command_exe:=True;
    if trim(edit1.Text)<>'' then
       if ((trim(combobox1.Text)<>'请选择') and (trim(combobox1.Text)<>'')) then
         begin
           //两个条件都满足
           Adodataset1.Active:=false;
           Adodataset1.CommandText:='select BOOK_ID as 图书编号,Shumin as  书名,Jieshuzhe as 借书人,JCZBumen as 借书人部门,Jiage as 价格,ZhuTai as 状态,Chu_riqi as 借出日期,YH_riqi as 应还日期 from shuku where Jieshuzhe='''+Trim(edit1.Text)+''' and JCZBumen='''+Trim(combobox1.Text)+'''';
           //showmessage(Adodataset1.CommandText);
           Adodataset1.Active:=True;
         end
       else
         begin
           //只有读者姓名作为查询条件
           Adodataset1.Active:=false;
           Adodataset1.CommandText:='select BOOK_ID as 图书编号,Shumin as  书名,Jieshuzhe as 借书人,JCZBumen as 借书人部门,Jiage as 价格,ZhuTai as 状态,Chu_riqi as 借出日期,YH_riqi as 应还日期 from shuku where Jieshuzhe='''+Trim(edit1.Text)+'''';
           //showmessage(Adodataset1.CommandText);
           Adodataset1.Active:=True;


         end

end;

end.


//此源码由程序太平洋收集整理发布,任何人都可自由转载,但需保留本站信息
//╭⌒╮┅~ ¤　欢迎光临程序太平洋╭⌒╮
//╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
//,︶︶︶︶,''︶~~ ,''~︶︶　 ,''
//╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
//╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
//╬　　　　　　　http://www.5ivb.net ╬
//╬　 ╭○╮●　                   　╬
//╬　　/■\/■\　　                  ╬
//╬　　 <|　||　   有希望,就有成功！ ╬
//╬　　　　　　　　　　　　　　　　　╬
//╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
//
//说明：
//专业提供VB、．NET、Delphi、ASP、PB源码下载
//包括:程序源码,控件,商业源码,系统方案，开发工具，书籍教程，技术文档