📄 cx_form.~pas

📁 本系统实现了一个图书销售管理系统
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
      end
      else begin
        TSXX_Q.Close;
        TSXX_Q.SQL.Clear;
        TSXX_Q.SQL.Add('Select 图书编号,书名,作者,类名,出版社,定价 From 图书信息 A,图书类别 B');
        TSXX_Q.SQL.Add('Where (A.出版社 = :出版社) and A.类别=B.类别');
        TSXX_Q.Parameters.ParamByName('出版社').Value:=GJZ_CB.Text;
        TSJG_DS.DataSet:=TSXX_Q;
        TSJG_DG.Columns[0].FieldName:='图书编号';
        TSJG_DG.Columns[1].FieldName:='书名';
        TSJG_DG.Columns[2].FieldName:='作者';
        TSJG_DG.Columns[3].FieldName:='类名';
        TSJG_DG.Columns[4].FieldName:='出版社';
        TSJG_DG.Columns[5].FieldName:='定价';
        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 图书编号,书名,作者,类名,出版社,定价 From 图书信息 A,图书类别 B');
        TSXX_Q.SQL.Add('Where (B.类名 Like :类名) and A.类别=B.类别');
        TSXX_Q.Parameters.ParamByName('类名').Value:='%'+GJZ_CB.Text+'%';

        TSJG_DS.DataSet:=TSXX_Q;            //注意这是第二种数据库动态连接
        TSJG_DG.Columns[0].FieldName:='图书编号';
        TSJG_DG.Columns[1].FieldName:='书名';
        TSJG_DG.Columns[2].FieldName:='作者';
        TSJG_DG.Columns[3].FieldName:='类名';
        TSJG_DG.Columns[4].FieldName:='出版社';
        TSJG_DG.Columns[5].FieldName:='定价';
        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 图书编号,书名,作者,类名,出版社,定价 From 图书信息 A,图书类别 B');
        TSXX_Q.SQL.Add('Where (B.类名 = :类名) and A.类别=B.类别');
        TSXX_Q.Parameters.ParamByName('类名').Value:=GJZ_CB.Text;
        TSJG_DS.DataSet:=TSXX_Q;
        TSJG_DG.Columns[0].FieldName:='图书编号';
        TSJG_DG.Columns[1].FieldName:='书名';
        TSJG_DG.Columns[2].FieldName:='作者';
        TSJG_DG.Columns[3].FieldName:='类名';
        TSJG_DG.Columns[4].FieldName:='出版社';
        TSJG_DG.Columns[5].FieldName:='定价';
        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 用户帐号,姓名,性别,组名,最大天数,最大数量,证件号码 From 用户 A,组用户 B ');
        YHXX_Q.SQL.Add('Where (A.用户帐号 Like :用户帐号) and A.组号=B.组号');
        YHXX_Q.Parameters.ParamByName('用户帐号').Value:='%'+YHGJZ_CB.Text+'%';

        YH_DS.DataSet:=YHXX_Q;
        YH_DG.Columns[0].FieldName:='用户帐号';
        YH_DG.Columns[1].FieldName:='姓名';
        YH_DG.Columns[2].FieldName:='性别';
        YH_DG.Columns[3].FieldName:='组名';
        YH_DG.Columns[4].FieldName:='最大天数';
        YH_DG.Columns[5].FieldName:='最大数量';
        YH_DG.Columns[6].FieldName:='证件号码';
        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 用户帐号,姓名,性别,组名,最大天数,最大数量,证件号码 From 用户 A,组用户 B ');
        YHXX_Q.SQL.Add('Where (A.用户帐号=:用户帐号)and A.组号=B.组号');
        YHXX_Q.Parameters.ParamByName('用户帐号').Value:=YHGJZ_CB.Text;
        YH_DS.DataSet:=YHXX_Q;
        YH_DG.Columns[0].FieldName:='用户帐号';
        YH_DG.Columns[1].FieldName:='姓名';
        YH_DG.Columns[2].FieldName:='性别';
        YH_DG.Columns[3].FieldName:='组名';
        YH_DG.Columns[4].FieldName:='最大天数';
        YH_DG.Columns[5].FieldName:='最大数量';
        YH_DG.Columns[6].FieldName:='证件号码';
        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 用户帐号,姓名,性别,组名,最大天数,最大数量,证件号码 From 用户 A,组用户 B ');
        YHXX_Q.SQL.Add('Where (A.姓名 Like :姓名) and A.组号=B.组号');
        YHXX_Q.Parameters.ParamByName('姓名').Value:='%'+YHGJZ_CB.Text+'%';

        YH_DS.DataSet:=YHXX_Q;            //注意这是第二种数据库动态连接
        YH_DG.Columns[0].FieldName:='用户帐号';
        YH_DG.Columns[1].FieldName:='姓名';
        YH_DG.Columns[2].FieldName:='性别';
        YH_DG.Columns[3].FieldName:='组名';
        YH_DG.Columns[4].FieldName:='最大天数';
        YH_DG.Columns[5].FieldName:='最大数量';
        YH_DG.Columns[6].FieldName:='证件号码';
        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 用户帐号,姓名,性别,组名,最大天数,最大数量,证件号码 From 用户 A,组用户 B ');
        YHXX_Q.SQL.Add('Where (A.姓名=:姓名) and A.组号=B.组号');
        YHXX_Q.Parameters.ParamByName('姓名').Value:=YHGJZ_CB.Text;
        YH_DS.DataSet:=YHXX_Q;
        YH_DG.Columns[0].FieldName:='用户帐号';
        YH_DG.Columns[1].FieldName:='姓名';
        YH_DG.Columns[2].FieldName:='性别';
        YH_DG.Columns[3].FieldName:='组名';
        YH_DG.Columns[4].FieldName:='最大天数';
        YH_DG.Columns[5].FieldName:='最大数量';
        YH_DG.Columns[6].FieldName:='证件号码';
        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 A.用户帐号,姓名,A.图书编号,书名,借书日期,到期日期 From 借阅信息 A,用户 B,图书信息 C ');
        JYXX_Q.SQL.Add('Where (A.用户帐号 Like :用户帐号) and A.用户帐号=B.用户帐号 and A.图书编号=C.图书编号 and (A.还书日期 is Null)');
        JYXX_Q.Parameters.ParamByName('用户帐号').Value:='%'+JYGJZ_FE.Text+'%';

        JY_DS.DataSet:=JYXX_Q;
        JY_DG.Columns[0].FieldName:='用户帐号';
        JY_DG.Columns[1].FieldName:='姓名';
        JY_DG.Columns[2].FieldName:='图书编号';
        JY_DG.Columns[3].FieldName:='书名';
        JY_DG.Columns[4].FieldName:='借书日期';
        JY_DG.Columns[5].FieldName:='到期日期';
        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 A.用户帐号,姓名,A.图书编号,书名,借书日期,到期日期 From 借阅信息 A,用户 B,图书信息 C ');
        JYXX_Q.SQL.Add('Where (A.用户帐号=:用户帐号) and A.用户帐号=B.用户帐号 and A.图书编号=C.图书编号 and (A.还书日期 is Null)');
        JYXX_Q.Parameters.ParamByName('用户帐号').Value:=JYGJZ_FE.Text;

        JY_DS.DataSet:=JYXX_Q;
        JY_DG.Columns[0].FieldName:='用户帐号';
        JY_DG.Columns[1].FieldName:='姓名';
        JY_DG.Columns[2].FieldName:='图书编号';
        JY_DG.Columns[3].FieldName:='书名';
        JY_DG.Columns[4].FieldName:='借书日期';
        JY_DG.Columns[5].FieldName:='到期日期';
        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 A.用户帐号,姓名,A.图书编号,书名,借书日期,到期日期 From 借阅信息 A,用户 B,图书信息 C ');
        JYXX_Q.SQL.Add('Where (姓名 Like :姓名) and A.用户帐号=B.用户帐号 and A.图书编号=C.图书编号 and (A.还书日期 is Null)');
        JYXX_Q.Parameters.ParamByName('姓名').Value:='%'+JYGJZ_FE.Text+'%';

        JY_DS.DataSet:=JYXX_Q;
        JY_DG.Columns[0].FieldName:='用户帐号';
        JY_DG.Columns[1].FieldName:='姓名';
        JY_DG.Columns[2].FieldName:='图书编号';
        JY_DG.Columns[3].FieldName:='书名';
        JY_DG.Columns[4].FieldName:='借书日期';
        JY_DG.Columns[5].FieldName:='到期日期';
        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 A.用户帐号,姓名,A.图书编号,书名,借书日期,到期日期 From 借阅信息 A,用户 B,图书信息 C ');
        JYXX_Q.SQL.Add('Where (姓名=:姓名) and A.用户帐号=B.用户帐号 and A.图书编号=C.图书编号 and (A.还书日期 is Null)');
        JYXX_Q.Parameters.ParamByName('姓名').Value:=JYGJZ_FE.Text;


        JY_DS.DataSet:=JYXX_Q;
        JY_DG.Columns[0].FieldName:='用户帐号';
        JY_DG.Columns[1].FieldName:='姓名';
        JY_DG.Columns[2].FieldName:='图书编号';
        JY_DG.Columns[3].FieldName:='书名';
        JY_DG.Columns[4].FieldName:='借书日期';
        JY_DG.Columns[5].FieldName:='到期日期';
        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 A.用户帐号,姓名,A.图书编号,书名,借书日期,到期日期 From 借阅信息 A,用户 B,图书信息 C ');
      JYXX_Q.SQL.Add('Where (到期日期<=:现在日期) and A.用户帐号=B.用户帐号 and A.图书编号=C.图书编号 and (A.还书日期 is Null)');
      JYXX_Q.Parameters.ParamByName('现在日期').Value:=Date;

      JY_DS.DataSet:=JYXX_Q;
      JY_DG.Columns[0].FieldName:='用户帐号';
      JY_DG.Columns[1].FieldName:='姓名';
      JY_DG.Columns[2].FieldName:='图书编号';
      JY_DG.Columns[3].FieldName:='书名';
      JY_DG.Columns[4].FieldName:='借书日期';
      JY_DG.Columns[5].FieldName:='到期日期';
      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.
上一页 12
💿 文件大小 699 K
👤 上传用户 a14331510z
📂 所属分类其他数据库
🏷️ 相关标签

#图书 #管理系统 #销售
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -