main.~pas

图书馆借书证制作程序,对学校及其他图书馆都有一定的实用价值

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, DBGrid3D, DB, ADODB,
  FR_DSet, FR_DBSet, FR_Class, FR_BarC, ComCtrls;

type
  TfrmMain = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid3D1: TDBGrid3D;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    frf: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    frBarCodeObject1: TfrBarCodeObject;
    Button2: TButton;
    Button3: TButton;
    StatusBar1: TStatusBar;
    frf2: TfrReport;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation
var
  js:Boolean;

{$R *.dfm}

procedure TfrmMain.Button1Click(Sender: TObject);
begin
if js then
  frf2.ShowReport
else
  frf.ShowReport;
end;

procedure TfrmMain.Button2Click(Sender: TObject);
begin
js:=false;
with ADOQuery1 do
  begin
  close;
  SQL.Clear;
  SQL.Add('select * from 2004 order by 班别,性别,姓名');
  open;
  end;
end;

procedure TfrmMain.Button3Click(Sender: TObject);
begin
js:=true;

with ADOQuery1 do
  begin
  close;
  SQL.Clear;
  SQL.Add('select * from 2004  where  学号 like '+''''+'T%'+''''+' order by 班别,性别,姓名');
  open;
  end;
end;

procedure TfrmMain.Button4Click(Sender: TObject);
begin
js:=false;

with ADOQuery1 do
  begin
  close;
  SQL.Clear;
  SQL.Add('select * from 2004  where  学号 like '+''''+'S%'+''''+' order by 班别,性别,姓名');
  open;
  end;
end;

end.