cx_form.pas

sql版功能齐全

unit CX_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, TFlatGroupBoxUnit, TFlatCheckBoxUnit,
  TFlatRadioButtonUnit, TFlatButtonUnit, TFlatComboBoxUnit, Grids, DBGrids,
  DB,DBTables, TFlatEditUnit, ADODB;

type
  TCX_F = class(TForm)
    XS_PC: TPageControl;
    TSXX_TS: TTabSheet;
    YHXX_TS: TTabSheet;
    JYQK_TS: TTabSheet;
    Close_Btn: TButton;
    FlatGroupBox1: TFlatGroupBox;
    ASH_FRBtn: TFlatRadioButton;
    ASM_FRBtn: TFlatRadioButton;
    AZZ_FRBtn: TFlatRadioButton;
    ACBS_FRBtn: TFlatRadioButton;
    ALB_FRBtn: TFlatRadioButton;
    MHCX_FCB: TFlatCheckBox;
    FlatGroupBox2: TFlatGroupBox;
    Label1: TLabel;
    KSCX_FBtn: TFlatButton;
    GJZ_CB: TComboBox;
    FlatGroupBox3: TFlatGroupBox;
    TSJG_DG: TDBGrid;
    TSJG_DS: TDataSource;
    TS_Lable: TLabel;
    FlatGroupBox4: TFlatGroupBox;
    AJSZH_FRBtn: TFlatRadioButton;
    AXM_FRBtn: TFlatRadioButton;
    YHMHCX_FCB: TFlatCheckBox;
    FlatGroupBox5: TFlatGroupBox;
    Label2: TLabel;
    YHKSCX_FBtn: TFlatButton;
    YHGJZ_CB: TComboBox;
    FlatGroupBox6: TFlatGroupBox;
    YH_DG: TDBGrid;
    YH_Lable: TLabel;
    YH_DS: TDataSource;
    FlatGroupBox7: TFlatGroupBox;
    JYJSZ_FRBtn: TFlatRadioButton;
    JYXM_FRBtn: TFlatRadioButton;
    JYMHCX_FCB: TFlatCheckBox;
    FlatGroupBox8: TFlatGroupBox;
    Label3: TLabel;
    JYKS_FBtn: TFlatButton;
    FlatGroupBox9: TFlatGroupBox;
    JY_DG: TDBGrid;
    JY_Lable: TLabel;
    JYYDQ_FRBtn: TFlatRadioButton;
    JYGJZ_FE: TFlatEdit;
    JY_DS: TDataSource;
    ADOQuery1: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure Close_BtnClick(Sender: TObject);
    procedure ASH_FRBtnClick(Sender: TObject);
    procedure ALB_FRBtnClick(Sender: TObject);
    procedure KSCX_FBtnClick(Sender: TObject);
    procedure MHCX_FCBClick(Sender: TObject);
    procedure YHKSCX_FBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure JYKS_FBtnClick(Sender: TObject);
    procedure ASM_FRBtnClick(Sender: TObject);
    procedure AZZ_FRBtnClick(Sender: TObject);
    procedure ACBS_FRBtnClick(Sender: TObject);
    procedure JYYDQ_FRBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CX_F: TCX_F;

implementation

uses Common_Unit, Main_Form;

{$R *.dfm}

var
  TSXX_Q,YHXX_Q,JYXX_Q:TQuery;
  adostring:string;

procedure TCX_F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;
//***********************************************************************************
procedure TCX_F.FormDestroy(Sender: TObject);  
begin
  CX_F:=nil;
end;
//***********************************************************************************
procedure TCX_F.Close_BtnClick(Sender: TObject);
begin
  close;
end;
//***********************************************************************************
procedure TCX_F.ASH_FRBtnClick(Sender: TObject);   //按书号
begin
  adostring:='select * from tsjbxx where tsbh';
end;
//***********************************************************************************
procedure TCX_F.ASM_FRBtnClick(Sender: TObject);   //按书名
begin
  adostring:='select * from tsjbxx where tsname';
end;
//***********************************************************************************
procedure TCX_F.ALB_FRBtnClick(Sender: TObject);   //按类别
begin
  adostring:='select * from tsjbxx where class';
end;

procedure TCX_F.KSCX_FBtnClick(Sender: TObject);     //开始查询
begin
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:=adostring+'='+chr(39)+GJZ_CB.Text+chr(39);
   if  MHCX_FCB.Checked =true then adoquery1.SQL.Text:=adostring+' like '+chr(39)+'%'+GJZ_CB.Text+'%'+chr(39);
//   showmessage(adoquery1.SQL.Text);
   if length(adostring) >0 then adoquery1.Open;
end;
//***********************************************************************************
procedure TCX_F.MHCX_FCBClick(Sender: TObject);         //选中图书模糊查询
begin

end;
//***********************************************************************************
procedure TCX_F.YHKSCX_FBtnClick(Sender: TObject);      //开始查询用户信息
var
  s,ss:string;
begin
  s:='';
  ss:='';
  if AJSZH_FRBtn.Checked=true then
    begin
       s:='select * from yh where userid' ;
       ss:=YHGJZ_CB.Text;
    end;
  if AXM_FRBtn.Checked=true then
    begin
       s:='select * from yh where name' ;
       ss:=chr(39)+YHGJZ_CB.Text+chr(39);
    end;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text:=s+'='+ss;
  if  YHMHCX_FCB.Checked =true then adoquery1.SQL.Text:=s+' like '+chr(39)+'%'+YHGJZ_CB.Text+'%'+chr(39);
//   showmessage(adoquery1.SQL.Text);
  if length(s) >0 then adoquery1.Open;
end;

procedure TCX_F.FormShow(Sender: TObject);
begin
  XS_PC.ActivePage:=TSXX_TS;
end;
//***********************************************************************************
procedure TCX_F.JYKS_FBtnClick(Sender: TObject);       //借阅信息查询
var
  s,ss:string;
begin
  s:='';
  ss:='';
  if JYJSZ_FRBtn.Checked=true then
    begin
       s:='select * from jyxxb where userid' ;
       ss:=YHGJZ_CB.Text;
    end;
  if JYXM_FRBtn.Checked=true then
    begin
       s:='select * from jyxxb where name' ;
       ss:=chr(39)+YHGJZ_CB.Text+chr(39);
    end;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Text:=s+'='+ss;
  if JYMHCX_FCB.Checked =true then adoquery1.SQL.Text:=s+' like '+chr(39)+'%'+JYGJZ_FE.text+'%'+chr(39);
//   showmessage(adoquery1.SQL.Text);
  if length(s) >0 then adoquery1.Open;
end;
//***********************************************************************************


procedure TCX_F.AZZ_FRBtnClick(Sender: TObject);
begin
   adostring:='select * from tsjbxx where auther';
end;

procedure TCX_F.ACBS_FRBtnClick(Sender: TObject);
begin
   adostring:='select * from tsjbxx where cbs';
end;

procedure TCX_F.JYYDQ_FRBtnClick(Sender: TObject);
begin
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Text:='select * from jyxxb where hdate is null';
   adoquery1.Open;
end;

end.