L
liuzongyi
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟毕业设计做一个路侧紧急电话管理软件,要实现如下条件查询:范围、分机号、事件属性、起止日期
范围:range 可选项:全部呼叫 单机呼叫 全部检测 单机检测
分机号:phonenum 可选项:如01A之类的号码
事件属性:accident 可选项:全部事件 车辆求助 交通事故 匪警 火警 电话检测
起止日期:startdate,enddate
要求:范围选择全部呼叫或全部检测的时候,分机号选项输入无效(不列入查询)。
单机XX是有效,但分机号选择结果可有可无,有则列入查询条件。
事件属性选择全部事件的时候包含了车辆求助……电话检测所有事件。但是,车辆检测……火警
只能在范围选择XX呼叫时才有效,在选择XX检测时,时间属性只默认为电话检测。
我的数据库里面的相应字段:数据表NameataTable,数据库用的是SQL Server2000
序号:integer 分机号:char 事件属性:vchar 时间:char 格式:yyyy-mm-dd
我程序里的一部分:
RangeBox: TRadioGroup;
PhoneNumList: TComboBox;
AccidentInfoList: TListBox;
SpinEdit1: TSpinEdit;
SpinEdit4: TSpinEdit;
SpinEdit2: TSpinEdit;
SpinEdit5: TSpinEdit;
SpinEdit3: TSpinEdit;
SpinEdit6: TSpinEdit;
DataInfoQuery: TQuery;
procedure TDataCtrolCenter.QueryButtonClick(Sender: TObject);
var
range,phonenum,accident:string;
startdate,enddate:string;
year1,year2,month1,month2,day1,day2:word;
firstdate,seconddate:TdateTime;
sqlstr:string;
i,j:integer;
begin
range:=RangeBox.Items[RangeBox.ItemIndex];
phonenum:=PhoneNumList.Text;
accident:=AccidentInfoList.Items[AccidentInfoList.ItemIndex];
year1:=spinedit1.value;
year2:=spinedit4.value;
month1:=spinedit2.value;
month2:=spinedit5.value;
day1:=spinedit3.value;
day2:=spinedit6.value;
firstdate:=encodedate(year1,month1,day1);
seconddate:=encodedate(year2,month2,day2);
startdate:=formatdatetime('yyyy-mm-dd',firstdate);
enddate:=formatdatetime('yyyy-mm-dd',seconddate);
sqlstr:='Select * From DataTable Where';
:(其余的不会写了
帮帮我吧,我刚学Delphi,不会写这样的查询语句了。给我点源代码吧。
范围:range 可选项:全部呼叫 单机呼叫 全部检测 单机检测
分机号:phonenum 可选项:如01A之类的号码
事件属性:accident 可选项:全部事件 车辆求助 交通事故 匪警 火警 电话检测
起止日期:startdate,enddate
要求:范围选择全部呼叫或全部检测的时候,分机号选项输入无效(不列入查询)。
单机XX是有效,但分机号选择结果可有可无,有则列入查询条件。
事件属性选择全部事件的时候包含了车辆求助……电话检测所有事件。但是,车辆检测……火警
只能在范围选择XX呼叫时才有效,在选择XX检测时,时间属性只默认为电话检测。
我的数据库里面的相应字段:数据表NameataTable,数据库用的是SQL Server2000
序号:integer 分机号:char 事件属性:vchar 时间:char 格式:yyyy-mm-dd
我程序里的一部分:
RangeBox: TRadioGroup;
PhoneNumList: TComboBox;
AccidentInfoList: TListBox;
SpinEdit1: TSpinEdit;
SpinEdit4: TSpinEdit;
SpinEdit2: TSpinEdit;
SpinEdit5: TSpinEdit;
SpinEdit3: TSpinEdit;
SpinEdit6: TSpinEdit;
DataInfoQuery: TQuery;
procedure TDataCtrolCenter.QueryButtonClick(Sender: TObject);
var
range,phonenum,accident:string;
startdate,enddate:string;
year1,year2,month1,month2,day1,day2:word;
firstdate,seconddate:TdateTime;
sqlstr:string;
i,j:integer;
begin
range:=RangeBox.Items[RangeBox.ItemIndex];
phonenum:=PhoneNumList.Text;
accident:=AccidentInfoList.Items[AccidentInfoList.ItemIndex];
year1:=spinedit1.value;
year2:=spinedit4.value;
month1:=spinedit2.value;
month2:=spinedit5.value;
day1:=spinedit3.value;
day2:=spinedit6.value;
firstdate:=encodedate(year1,month1,day1);
seconddate:=encodedate(year2,month2,day2);
startdate:=formatdatetime('yyyy-mm-dd',firstdate);
enddate:=formatdatetime('yyyy-mm-dd',seconddate);
sqlstr:='Select * From DataTable Where';
:(其余的不会写了
帮帮我吧,我刚学Delphi,不会写这样的查询语句了。给我点源代码吧。