cx_form.pas

一个不错的图书管理系统

        TSXX_Q.Close;
        TSXX_Q.SQL.Clear;
        TSXX_Q.SQL.Add('Select TSBH,Name,Auther,ClassName,CBS,Cost');
        TSXX_Q.SQL.Add(' From TSJBXX A,TSLB B Where (A.CBS=:CBS) and A.Class=B.ClassID');
        TSXX_Q.ParamByName('CBS').AsString:=GJZ_CB.Text;
        TSJG_DS.DataSet:=TSXX_Q;
        TSJG_DG.Columns[0].FieldName:='TSBH';
        TSJG_DG.Columns[1].FieldName:='Name';
        TSJG_DG.Columns[2].FieldName:='Auther';
        TSJG_DG.Columns[3].FieldName:='ClassName';
        TSJG_DG.Columns[4].FieldName:='CBS';
        TSJG_DG.Columns[5].FieldName:='Cost';
        TSXX_Q.Open;
        TS_Lable.Caption:=Format('共 %d 条记录',[TSXX_Q.RecordCount]);
      end;

  if ALB_FRBtn.Checked then               //按类别
    if MHCX_FCB.Checked then
      begin
        TSXX_Q.Close;
        TSXX_Q.SQL.Clear;
        TSXX_Q.SQL.Add('Select TSBH,Name,Auther,ClassName,CBS,Cost From');
        TSXX_Q.SQL.Add(' TSJBXX A,TSLB B Where (B.ClassName Like :ClassName) and A.Class=B.ClassID');
        TSXX_Q.ParamByName('ClassName').AsString:='%'+GJZ_CB.Text+'%';

        TSJG_DS.DataSet:=TSXX_Q;            //注意这是第二种数据库动态连接
        TSJG_DG.Columns[0].FieldName:='TSBH';
        TSJG_DG.Columns[1].FieldName:='Name';
        TSJG_DG.Columns[2].FieldName:='Auther';
        TSJG_DG.Columns[3].FieldName:='ClassName';
        TSJG_DG.Columns[4].FieldName:='CBS';
        TSJG_DG.Columns[5].FieldName:='Cost';
        TSXX_Q.Open;
        TS_Lable.Caption:=Format('共 %d 条记录',[TSXX_Q.RecordCount]);
      end
      else begin
        TSXX_Q.Close;
        TSXX_Q.SQL.Clear;
        TSXX_Q.SQL.Add('Select TSBH,Name,Auther,ClassName,CBS,Cost');
        TSXX_Q.SQL.Add(' From TSJBXX A,TSLB B Where (B.ClassName=:ClassName) and A.Class=B.ClassID');
        TSXX_Q.ParamByName('ClassName').AsString:=GJZ_CB.Text;
        TSJG_DS.DataSet:=TSXX_Q;
        TSJG_DG.Columns[0].FieldName:='TSBH';
        TSJG_DG.Columns[1].FieldName:='Name';
        TSJG_DG.Columns[2].FieldName:='Auther';
        TSJG_DG.Columns[3].FieldName:='ClassName';
        TSJG_DG.Columns[4].FieldName:='CBS';
        TSJG_DG.Columns[5].FieldName:='Cost';
        TSXX_Q.Open;
        TS_Lable.Caption:=Format('共 %d 条记录',[TSXX_Q.RecordCount]);
      end;
end;
//***********************************************************************************
procedure TCX_F.MHCX_FCBClick(Sender: TObject);         //选中图书模糊查询
begin
  TSXX_Q.Close;
  TS_Lable.Caption:='共有 0 条记录';
end;
//***********************************************************************************
procedure TCX_F.AJSZH_FRBtnClick(Sender: TObject);      //选中按借书证号查询
begin
  YHGJZ_CB.Text:='';
  YHGJZ_CB.MaxLength:=10;
  YHXX_Q.Close;
end;
//***********************************************************************************
procedure TCX_F.AXM_FRBtnClick(Sender: TObject);        //选中按姓名查询
begin
  YHGJZ_CB.Text:='';
  YHGJZ_CB.MaxLength:=0;
  YHXX_Q.Close;
end;
//***********************************************************************************
procedure TCX_F.YHKSCX_FBtnClick(Sender: TObject);      //开始查询用户信息
begin
  if AJSZH_FRBtn.Checked then               //按借书证号
    if YHMHCX_FCB.Checked then
      begin
        YHXX_Q.Close;
        YHXX_Q.SQL.Clear;
        YHXX_Q.SQL.Add('Select UserID,Name,Sex,GroupName,ZJID,MaxDate,MaxNum From');
        YHXX_Q.SQL.Add(' YH A,GroupUser B Where (A.UserID Like :UserID) and A.GroupID=B.GroupID');
        YHXX_Q.ParamByName('UserID').AsString:='%'+YHGJZ_CB.Text+'%';

        YH_DS.DataSet:=YHXX_Q;
        YH_DG.Columns[0].FieldName:='UserID';
        YH_DG.Columns[1].FieldName:='Name';
        YH_DG.Columns[2].FieldName:='Sex';
        YH_DG.Columns[3].FieldName:='GroupName';
        YH_DG.Columns[4].FieldName:='ZJID';
        YH_DG.Columns[5].FieldName:='MaxDate';
        YH_DG.Columns[6].FieldName:='MaxNum';
        YHXX_Q.Open;
        YH_Lable.Caption:=Format('共 %d 条记录',[YHXX_Q.RecordCount]);
      end
      else begin
        YHXX_Q.Close;
        YHXX_Q.SQL.Clear;
        YHXX_Q.SQL.Add('Select UserID,Name,Sex,GroupName,ZJID,MaxDate,MaxNum From');
        YHXX_Q.SQL.Add(' YH A,GroupUser B Where (A.UserID=:UserID) and A.GroupID=B.GroupID');
        YHXX_Q.ParamByName('UserID').AsString:=YHGJZ_CB.Text;
        YH_DS.DataSet:=YHXX_Q;
        YH_DG.Columns[0].FieldName:='UserID';
        YH_DG.Columns[1].FieldName:='Name';
        YH_DG.Columns[2].FieldName:='Sex';
        YH_DG.Columns[3].FieldName:='GroupName';
        YH_DG.Columns[4].FieldName:='ZJID';
        YH_DG.Columns[5].FieldName:='MaxDate';
        YH_DG.Columns[6].FieldName:='MaxNum';
        YHXX_Q.Open;
        YH_Lable.Caption:=Format('共 %d 条记录',[YHXX_Q.RecordCount]);
      end;

  if AXM_FRBtn.Checked then               //按姓名
    if YHMHCX_FCB.Checked then
      begin
        YHXX_Q.Close;
        YHXX_Q.SQL.Clear;
        YHXX_Q.SQL.Add('Select UserID,Name,Sex,GroupName,ZJID,MaxDate,MaxNum From');
        YHXX_Q.SQL.Add(' YH A,GroupUser B Where (A.Name Like :Name) and A.GroupID=B.GroupID');
        YHXX_Q.ParamByName('Name').AsString:='%'+YHGJZ_CB.Text+'%';

        YH_DS.DataSet:=YHXX_Q;            //注意这是第二种数据库动态连接
        YH_DG.Columns[0].FieldName:='UserID';
        YH_DG.Columns[1].FieldName:='Name';
        YH_DG.Columns[2].FieldName:='Sex';
        YH_DG.Columns[3].FieldName:='GroupName';
        YH_DG.Columns[4].FieldName:='ZJID';
        YH_DG.Columns[5].FieldName:='MaxDate';
        YH_DG.Columns[6].FieldName:='MaxNum';
        YHXX_Q.Open;
        YH_Lable.Caption:=Format('共 %d 条记录',[YHXX_Q.RecordCount]);
      end
      else begin
        YHXX_Q.Close;
        YHXX_Q.SQL.Clear;
        YHXX_Q.SQL.Add('Select UserID,Name,Sex,GroupName,ZJID,MaxDate,MaxNum From');
        YHXX_Q.SQL.Add(' YH A,GroupUser B Where (A.Name=:Name) and A.GroupID=B.GroupID');
        YHXX_Q.ParamByName('Name').AsString:=YHGJZ_CB.Text;
        YH_DS.DataSet:=YHXX_Q;
        YH_DG.Columns[0].FieldName:='UserID';
        YH_DG.Columns[1].FieldName:='Name';
        YH_DG.Columns[2].FieldName:='Sex';
        YH_DG.Columns[3].FieldName:='GroupName';
        YH_DG.Columns[4].FieldName:='ZJID';
        YH_DG.Columns[5].FieldName:='MaxDate';
        YH_DG.Columns[6].FieldName:='MaxNum';
        YHXX_Q.Open;
        YH_Lable.Caption:=Format('共 %d 条记录',[YHXX_Q.RecordCount]);
      end;
end;
//***********************************************************************************
procedure TCX_F.YHMHCX_FCBClick(Sender: TObject);      //选中用户模糊查询
begin
  YHXX_Q.Close;
  YH_Lable.Caption:='共有 0 条记录';
end;
//***********************************************************************************
procedure TCX_F.FormShow(Sender: TObject);
begin
  XS_PC.ActivePage:=TSXX_TS;
end;
//***********************************************************************************
procedure TCX_F.JYKS_FBtnClick(Sender: TObject);       //借阅信息查询
begin
  if JYJSZ_FRBtn.Checked then               //按借书证号
    if JYMHCX_FCB.Checked then
      begin
        JYXX_Q.Close;
        JYXX_Q.SQL.Clear;
        JYXX_Q.SQL.Add('Select UserID,B.Name XM,TSBH,C.Name SM,JDate,LastDate From');
        JYXX_Q.SQL.Add(' JYXXB A,YH B,TSJBXX C Where (A.UserID Like :UserID) and A.UserID=B.UserID and A.TSBH=C.TSBH');
        JYXX_Q.SQL.Add(' and (A.HDate is Null)');
        JYXX_Q.ParamByName('UserID').AsString:='%'+JYGJZ_FE.Text+'%';

        JY_DS.DataSet:=JYXX_Q;
        JY_DG.Columns[0].FieldName:='UserID';
        JY_DG.Columns[1].FieldName:='XM';
        JY_DG.Columns[2].FieldName:='TSBH';
        JY_DG.Columns[3].FieldName:='SM';
        JY_DG.Columns[4].FieldName:='JDate';
        JY_DG.Columns[5].FieldName:='LastDate';
        JYXX_Q.Open;
        JY_Lable.Caption:=Format('共 %d 条记录',[JYXX_Q.RecordCount]);
      end
      else begin
        JYXX_Q.Close;
        JYXX_Q.SQL.Clear;
        JYXX_Q.SQL.Add('Select UserID,B.Name XM,TSBH,C.Name SM,JDate,LastDate From');
        JYXX_Q.SQL.Add(' JYXXB A,YH B,TSJBXX C Where (A.UserID=:UserID) and A.UserID=B.UserID and A.TSBH=C.TSBH');
        JYXX_Q.SQL.Add(' and (A.HDate is Null)');
        JYXX_Q.ParamByName('UserID').AsString:=JYGJZ_FE.Text;

        JY_DS.DataSet:=JYXX_Q;
        JY_DG.Columns[0].FieldName:='UserID';
        JY_DG.Columns[1].FieldName:='XM';
        JY_DG.Columns[2].FieldName:='TSBH';
        JY_DG.Columns[3].FieldName:='SM';
        JY_DG.Columns[4].FieldName:='JDate';
        JY_DG.Columns[5].FieldName:='LastDate';
        JYXX_Q.Open;
        JY_Lable.Caption:=Format('共 %d 条记录',[JYXX_Q.RecordCount]);
      end;

  if JYXM_FRBtn.Checked then               //按姓名
    if JYMHCX_FCB.Checked then
      begin
        JYXX_Q.Close;
        JYXX_Q.SQL.Clear;
        JYXX_Q.SQL.Add('Select UserID,B.Name XM,TSBH,C.Name SM,JDate,LastDate From');
        JYXX_Q.SQL.Add(' JYXXB A,YH B,TSJBXX C Where (B.Name Like :Name) and A.UserID=B.UserID and A.TSBH=C.TSBH');
        JYXX_Q.SQL.Add(' and (A.HDate is Null)');
        JYXX_Q.ParamByName('Name').AsString:='%'+JYGJZ_FE.Text+'%';

        JY_DS.DataSet:=JYXX_Q;
        JY_DG.Columns[0].FieldName:='UserID';
        JY_DG.Columns[1].FieldName:='XM';
        JY_DG.Columns[2].FieldName:='TSBH';
        JY_DG.Columns[3].FieldName:='SM';
        JY_DG.Columns[4].FieldName:='JDate';
        JY_DG.Columns[5].FieldName:='LastDate';
        JYXX_Q.Open;
        JY_Lable.Caption:=Format('共 %d 条记录',[JYXX_Q.RecordCount]);
      end
      else begin
        JYXX_Q.Close;
        JYXX_Q.SQL.Clear;
        JYXX_Q.SQL.Add('Select UserID,B.Name XM,TSBH,C.Name SM,JDate,LastDate From');
        JYXX_Q.SQL.Add(' JYXXB A,YH B,TSJBXX C Where (B.Name=:Name) and A.UserID=B.UserID and A.TSBH=C.TSBH');
        JYXX_Q.SQL.Add(' and (A.HDate is Null)');
        JYXX_Q.ParamByName('Name').AsString:=JYGJZ_FE.Text;

        JY_DS.DataSet:=JYXX_Q;
        JY_DG.Columns[0].FieldName:='UserID';
        JY_DG.Columns[1].FieldName:='XM';
        JY_DG.Columns[2].FieldName:='TSBH';
        JY_DG.Columns[3].FieldName:='SM';
        JY_DG.Columns[4].FieldName:='JDate';
        JY_DG.Columns[5].FieldName:='LastDate';
        JYXX_Q.Open;
        JY_Lable.Caption:=Format('共 %d 条记录',[JYXX_Q.RecordCount]);
      end;

  if JYYDQ_FRBtn.Checked then                   //查询已到期的
    begin
      JYXX_Q.Close;
      JYXX_Q.SQL.Clear;
      JYXX_Q.SQL.Add('Select UserID,B.Name XM,TSBH,C.Name SM,JDate,LastDate From');
      JYXX_Q.SQL.Add(' JYXXB A,YH B,TSJBXX C Where (LastDate<=:LastDate) and A.UserID=B.UserID and A.TSBH=C.TSBH');
      JYXX_Q.SQL.Add(' and (A.HDate is Null)');
      JYXX_Q.ParamByName('LastDate').AsDateTime:=Date;

      JY_DS.DataSet:=JYXX_Q;
      JY_DG.Columns[0].FieldName:='UserID';
      JY_DG.Columns[1].FieldName:='XM';
      JY_DG.Columns[2].FieldName:='TSBH';
      JY_DG.Columns[3].FieldName:='SM';
      JY_DG.Columns[4].FieldName:='JDate';
      JY_DG.Columns[5].FieldName:='LastDate';
      JYXX_Q.Open;
      JY_Lable.Caption:=Format('共 %d 条记录',[JYXX_Q.RecordCount]);
      end
end;
//***********************************************************************************
procedure TCX_F.JYYDQ_FRBtnClick(Sender: TObject);    //选中已到期查询
begin
  JYGJZ_FE.Text:='';
  JYMHCX_FCB.Enabled:=false;
  JYGJZ_FE.Enabled:=false;
  JYXX_Q.Close;
  JY_Lable.Caption:='共有 0 条记录';
end;
//***********************************************************************************
procedure TCX_F.JYJSZ_FRBtnClick(Sender: TObject);    //选中按借书证号
begin
  JYGJZ_FE.Text:='';
  JYMHCX_FCB.Enabled:=true;
  JYGJZ_FE.Enabled:=true;
  JYGJZ_FE.MaxLength:=10;
  JYXX_Q.Close;
  JY_Lable.Caption:='共有 0 条记录';
end;
//***********************************************************************************
procedure TCX_F.JYXM_FRBtnClick(Sender: TObject);     //选中按姓名
begin
  JYGJZ_FE.Text:='';
  JYMHCX_FCB.Enabled:=true;
  JYGJZ_FE.Enabled:=true;
  JYGJZ_FE.MaxLength:=0;
  JYXX_Q.Close;
  JY_Lable.Caption:='共有 0 条记录';
end;




end.