SOS---一个刚用DELPHI做课程设计得大三学生得紧急求救！谁能救小妹一命，感激万分！

ququ621 2003-06-27 05:54:04
我用DELPHI做一个学生缴费注册系统。需要做一个复合统计功能！我用到2个COMBOBOX
用来显示字段，如年级，班级等，和逻辑符号。4个DBLOOKUPCOMBOBOX用来显示具体得班机等项目这样输入时不用手写了。2个MEMO，一个用来显示下来菜单选择选中的组合的项目，如：年级＝高二；班级《3，等等；另一个MEMO显示统计后的结果
一个按钮；表示统计（该程序执行一次是可以的，执行第2次就出错，说是WHERE语句附近有错误）
现给出所有源码：望高手救急。明天就要交了，我已经辛苦了两星期了unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ADODB, DB, DBCtrls, Buttons, ComCtrls,
DBTables;

type
TForm3 = class(TForm)
Label1: TLabel;
Image1: TImage;
Label2: TLabel;
Panel1: TPanel;
Panel2: TPanel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
DBLookupComboBox4: TDBLookupComboBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
Memo1: TMemo;
Memo2: TMemo;
Label9: TLabel;
Label10: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
StatusBar1: TStatusBar;
Query1: TQuery;
procedure Label1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure DBLookupComboBox1Click(Sender: TObject);
procedure DBLookupComboBox2Click(Sender: TObject);
procedure DBLookupComboBox3Click(Sender: TObject);
procedure DBLookupComboBox4Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

uses Unit2;

{$R *.dfm}
procedure TForm3.FormCreate(Sender: TObject);
var
i:integer;
begin
memo1.Text:='';
memo2.Text:='';
for i:=0 to query1.FieldCount-1 do
combobox1.Items.Add(query1.Fields[i].FieldName);
end;



procedure TForm3.Label1Click(Sender: TObject);
begin
form2.show;form3.Hide;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);

var
sum1:real;
s,s1,s2,s3:string;
bookmark1:tbookmark;
begin
if memo1.Text='' then
begin
Application.MessageBox('请输入查询条件！','提醒',Mb_Ok+Mb_iconwarning);
end
else
begin
sum1:=0;
s1:=combobox1.Text;
s2:=combobox2.Text;
s3:=dblookupcombobox1.Text+dblookupcombobox2.Text+dblookupcombobox3.Text+dblookupcombobox4.Text;
bookmark1:=query1.GetBookmark;
query1.close;
query1.SQL.Add(' where '+memo1.Text);
query1.Open;
if query1.RecordCount=0 then
begin
Application.MessageBox('没有符合条件的记录！','信息',Mb_Ok+Mb_IconInformation);
end
else
begin
query1.DisableControls;
query1.First;
while not query1.Eof do
begin
sum1:=sum1+query1.FieldValues['应缴'];
query1.Next;
end;
query1.GotoBookmark(bookmark1);
query1.FreeBookmark(bookmark1);
end;
str(sum1:8:2,s);
memo2.Text:='符合条件的学生共缴费'+s+'元';
end;
end;






procedure TForm3.ComboBox1Change(Sender: TObject);
begin
memo1.Text:=memo1.Text+combobox1.Text;
end;

procedure TForm3.ComboBox2Change(Sender: TObject);
begin
memo1.Text:=memo1.Text+' '+combobox2.Text+' ';
end;

procedure TForm3.DBLookupComboBox1Click(Sender: TObject);
begin
memo1.Text:=memo1.Text+''''+dblookupcombobox1.Text+'''';
end;

procedure TForm3.DBLookupComboBox2Click(Sender: TObject);
begin
memo1.Text:=memo1.Text+''''+dblookupcombobox2.Text+'''';
end;

procedure TForm3.DBLookupComboBox3Click(Sender: TObject);
begin
memo1.Text:=memo1.Text+''''+dblookupcombobox3.Text+'''';
end;

procedure TForm3.DBLookupComboBox4Click(Sender: TObject);
begin
memo1.Text:=memo1.Text+''''+dblookupcombobox4.Text+'''';
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
memo1.Text:='';
memo2.Text:='';
combobox1.Text:='';
combobox2.Text:='';
end;

end.

...全文
88 15 打赏 收藏 转发到动态 举报
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
cow8063 2003-06-27
  • 打赏
  • 举报
 回复
逻辑符加个LIKE，edit 中由它输入_ OR % +值
yzykjh 2003-06-27
  • 打赏
  • 举报
 回复
query1.close;
query1.SQL.Add(' where '+memo1.Text); //不错才怪
query1.Open;
ququ621 2003-06-27
  • 打赏
  • 举报
 回复
源码如下unit Unit5;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, Buttons, Grids, DBGrids, DB, ADODB, ComCtrls,
ExtCtrls, DBTables;

type
TForm5 = class(TForm)
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Label2: TLabel;
Label4: TLabel;
Edit1: TEdit;
SpeedButton1: TSpeedButton;
Label1: TLabel;
StatusBar1: TStatusBar;
Label3: TLabel;
Image3: TImage;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Label5: TLabel;
Edit2: TEdit;
Query1: TQuery;

procedure SpeedButton1Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form5: TForm5;

implementation

uses Unit2;

{$R *.dfm}





procedure TForm5.SpeedButton1Click(Sender: TObject);
var

s,s1,s2,s3:string;
begin
s1:=combobox1.Text;
s2:=combobox2.Text;
s3:=edit1.Text;
edit2.Text:=s1+s2+s3;
if s1='' then
begin
showmessage('请选择查询方式！');
end
else
begin
if s2='' then
begin
showmessage('请选择运算符！');
end
else
begin
if s3='' then
begin
showmessage('请输入查询值！');
end
else
begin
s:='select * from TABLE1 where '+s1+s2+''''+s3+'''';
query1.Close;
query1.SQL.Clear;
query1.SQL.Add(s);
query1.Open;
if query1.RecordCount=0 then
showmessage('没有符合条件的记录！');
end;
end;
end;
end;

procedure TForm5.Label3Click(Sender: TObject);
begin
form2.show;form5.hide;
end;

procedure TForm5.FormCreate(Sender: TObject);
begin

end;

end.

procedure TForm5.Label3Click(Sender: TObject);
begin
form2.show;form5.hide;
end;

procedure TForm5.BitBtn1Click(Sender: TObject);
begin
ADOTABLE1.First;
end;

procedure TForm5.BitBtn2Click(Sender: TObject);
begin
ADOTABLE1.Next;
end;

procedure TForm5.BitBtn4Click(Sender: TObject);
begin
ADOTABLE1.Last;
end;

procedure TForm5.BitBtn3Click(Sender: TObject);
begin
ADOTABLE1.Prior;
end;

procedure TForm5.BitBtn5Click(Sender: TObject);
begin
Adotable1.Insert;
end;

procedure TForm5.BitBtn6Click(Sender: TObject);
begin
Adotable1.Cancel;
end;

procedure TForm5.BitBtn7Click(Sender: TObject);
begin
Adotable1.Post;
end;

procedure TForm5.BitBtn8Click(Sender: TObject);
begin
adotable1.Delete;
end;

procedure TForm5.BitBtn9Click(Sender: TObject);
begin
adotable1.Edit;
end;

end.
ququ621 2003-06-27
  • 打赏
  • 举报
 回复
我还有一个问题：就是我还有一个页面做查询的用到一个QUERY 和 DBGUID用了2个COMBOBOX,一个用来选查找方式。一个用来选逻辑符。两个EDIT，1个用来输入查询值，另一个用来显示选好的组合如名字＝某某
我已经做好了
如果想增加一个模糊查询的功能要怎么设计
ququ621 2003-06-27
  • 打赏
  • 举报
 回复
对了对了
多谢大家
我真的急死了
想明白了其实是该这样的
我爱你们
yujiabian 2003-06-27
  • 打赏
  • 举报
 回复
解决了就好……呵呵
mrfanghansheng 2003-06-27
  • 打赏
  • 举报
 回复
解决了就好……呵呵
ququ621 2003-06-27
  • 打赏
  • 举报
 回复
我爱你！
cow8063 2003-06-27
  • 打赏
  • 举报
 回复
clear,
select...........
memo1.text看看对不对
ququ621 2003-06-27
  • 打赏
  • 举报
 回复
木鱼：真的可以了诶
ququ621 2003-06-27
  • 打赏
  • 举报
 回复
SELECT 什么呢
mrfanghansheng 2003-06-27
  • 打赏
  • 举报
 回复
感觉是下面这个出了问题

query1.close;
query1.SQL.Add(' where '+memo1.Text);
query1.Open;
if query1.RecordCount=0 then
……

估计你有一部份sql语句是写在query中，而使用动态赋where子句
这样造成你第二次打开query时语法错误！

解决方式：建议将整个sql语句都动态赋值
如：query1.close;
query1.clear；
query1.SQL.Add('select ...... where '+memo1.Text);
query1.Open;
if query1.RecordCount=0 then

sz1008 2003-06-27
  • 打赏
  • 举报
 回复
query1.close;
query1.SQL.Add(' where '+memo1.Text);
query1.Open;

Query1.SQL先清空再赋值
ququ621 2003-06-27
  • 打赏
  • 举报
 回复
加哪里？
要实现统计功能啊
lovelymelon 2003-06-27
  • 打赏
  • 举报
 回复
procedure TForm3.BitBtn1Click(Sender: TObject);

var
sum1:real;
s,s1,s2,s3:string;
bookmark1:tbookmark;
begin
if memo1.Text='' then
begin
Application.MessageBox('请输入查询条件！','提醒',Mb_Ok+Mb_iconwarning);
end
else
begin
sum1:=0;
s1:=combobox1.Text;
s2:=combobox2.Text;
s3:=dblookupcombobox1.Text+dblookupcombobox2.Text+dblookupcombobox3.Text+dblookupcombobox4.Text;
bookmark1:=query1.GetBookmark;
query1.close;
query1.SQL.Add(' where '+memo1.Text);———————————————这样就可以了吗？是不是前面应该加点query1.SQL.Add('select * from tablename')
query1.Open;
if query1.RecordCount=0 then
begin
Application.MessageBox('没有符合条件的记录！','信息',Mb_Ok+Mb_IconInformation);
end
else
begin
query1.DisableControls;
query1.First;
while not query1.Eof do
begin
sum1:=sum1+query1.FieldValues['应缴'];
query1.Next;
end;
query1.GotoBookmark(bookmark1);
query1.FreeBookmark(bookmark1);
end;
str(sum1:8:2,s);
memo2.Text:='符合条件的学生共缴费'+s+'元';
end;
end;
SOS,JI急寻帮助！
SOS,JI急寻帮助！ Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiNetwork/html/delphi_20061212134416140.html ASTA   VoIP   Version   2   for   H323   for   Delphi或者TNH323Core     如果谁有该控件，请迅速与我联系,...
delphi 修改显示器模式 api_智慧酒店客房控制系统—六大模式让酒店更省
​酒店客房控制系统是利用计算机控制、通讯、管理等技术，基于客房内的RCU构成的专用网络，对酒店客房的安防系统、门禁系统、中央空调系统、智能灯光系统、服务系统、背景音乐系统等进行智能化管理与控制，实时反映客房状态、宾客需求、服务状况以及设备情况等，协助酒店对客房设备及内部资源进行实时控制分析，下面这六大模式会将客控系统的优势尽情展现。无人模式： 1.正常客房在无人入住时处于待租无人模式，RCU此时处...
易语言源码高亮显示(模块代码)
易语言源码高亮显示（模块代码）
AD18中文教程-下载即用.zip
源码下载地址： https://pan.quark.cn/s/a4b39357ea24 Altium Designer 18是一款功能丰富的电子设计自动化工具，其集成了电路原理图绘制、PCB布局规划、三维视图展示、电路仿真分析以及生产文件生成等多项核心功能，为电子工程师们提供了一个全面的硬件设计解决方案。该软件的官方中文指导材料系统地阐述了从项目初始阶段到最终完成的全过程操作方法。 在“AD18 官方中文指导材料”中，使用者可以掌握以下核心内容要点： 1. **系统配置与界面认知**：熟悉Altium Designer 18的工作平台，涵盖菜单选项、工具栏配置、工作区域安排，以及个性化工作界面的设定方法。 2. **项目创建流程**：掌握如何建立新的项目工程，包括工程参数配置、项目模板选取，以及项目文件的添加操作。 3. **电路图绘制技术**：学习电路原理图的绘制流程，包括元件库的维护管理、元件放置技巧、连接线路绘制、属性编辑操作，以及网络表的自动生成方法。 4. **元件库构建与管理**：了解如何建立自定义元件库，执行元件的导入与导出任务，以及利用Altium Designer自带的元件资源库。 5. **PCB布局设计方法**：掌握PCB设计的基本准则，如元件布局策略、布线技巧、层叠结构调整、布线规则优化，以及冲突检测与短路处理技术。 6. **设计规范与约束条件**：理解设定设计规范和电气约束条件的关键性，包括间距参数设定、焊盘尺寸规格、过孔尺寸要求等，以及运用规则检查进行设计验证的流程。 7. **三维模型整合应用**：学习如何将三维模型与PCB设计内容相结合，以实现更为直观的机械配合验证。 8. **电路性能仿真技术**：掌握使用Altium Des...
接口测试笔记.txt-下载即用.zip
源码链接： https://pan.quark.cn/s/a4b39357ea24 ### 接口测试知识要点说明 #### 一、接口测试的定义及分类 1. **概念阐释**： - 接口测试作为软件测试的关键环节，主要对系统之间的交互点进行验证。 - 它旨在核实接口的正确性、稳定性和功能性，保障各个系统组件能够依照预期执行交互操作。 2. **实施情境**： - 适用于多系统联合开发的环境。 - 适用于包含多个子系统的复杂应用系统开发过程。 3. **适用范围**： - 为其他系统提供支持的底层基础架构系统。 - 负责协调中心服务的系统架构。 4. **分类标准**： - **模块接口测试**：通常作为单元测试的一部分，适用于独立构建的功能模块。 - **Web接口测试**： - **服务端接口测试**：针对客户端与服务器端之间的接口进行验证。 - **外部接口测试**：对第三方提供的接口进行测试，例如支付平台提供的授权登录接口。 5. **测试角度**： - **接口功能验证**：核实接口功能是否满足预期要求。 - **接口性能评估**：衡量接口的处理能力及响应时间。 - **接口稳定性考察**：检测接口在长时间运行中的表现情况。 - **接口安全检测**：确保接口能够抵御非法访问或数据篡改。 6. **测试手法**： - **参数细致测试**：深入测试接口的输入参数和输出结果。 - **场景模拟测试**：依据实际业务场景进行测试验证。 #### 二、接口测试的详细流程 1. **测试规划**： - 明确测试范围、目标及所需资源。 - 规划测试策略，选择适宜的工具和技术手段。 2. **测试用例设计**： - 依据需求文档和接口规格文档设计测试用例。 - 覆...
数据库相关

2,508

社区成员

88,447

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章