📄 cityjqueryunit.~pas
字号:
Edit5.Color:=$00FF8080;
end else
begin
ComboBox13.Enabled:=false;
ComboBox13.Color:=clWhite;
ComboBox14.Enabled:=false;
ComboBox14.Color:=clWhite;
Edit5.Enabled:=false;
Edit5.Color:=clWhite;
end;
end;
procedure TCityJQueryFrm.BitBtn2Click(Sender: TObject);
begin
if(not checkData)then exit;
CityJRepQueryFrm.ADOQuery1.SQL.Clear;
if (ComboBox5.Text<>'') and (ComboBox6.Text<>'') then
CityJRepQueryFrm.ADOQuery1.SQL.Add('select * from 公交行业城市交流指标表 where '+
' 统计年份>='+ComboBox5.Text+
' and 统计年份<='+ComboBox6.Text)
else
begin
MessageBox(self.Handle,'输入条件语法错误！请选择正确的时间区间！','消息',MB_OK);
exit;
end;
if(CheckBox1.Checked)then
begin
if ((ComboBox7.Text='') or (ComboBox8.Text='') or (Edit3.Text=''))then
begin
MessageBox(self.Handle,'输入条件语法错误！请重新选择条件！','消息',MB_OK);
exit;
end;
if(not (CityJRepQueryFrm.ADOQuery1.FieldByName(trim(ComboBox7.Text)).DataType in [ftString,ftWideString,ftFixedChar]))then
CityJRepQueryFrm.ADOQuery1.SQL.Add(' and '+ComboBox7.Text+' '+ComboBox8.Text+' '+Edit3.Text) else
CityJRepQueryFrm.ADOQuery1.SQL.Add(' and '+ComboBox7.Text+' '+ComboBox8.Text+' '+''''+trim(Edit3.Text)+'''');
end ;
if(CheckBox2.Checked)then
begin
if (ComboBox11.Text='') or (ComboBox12.Text='') or (Edit4.Text='') then
begin
MessageBox(self.Handle,'输入条件语法错误！请重新选择条件！','消息',MB_OK);
exit;
end;
if(not (CityJRepQueryFrm.ADOQuery1.FieldByName(ComboBox11.Text).DataType in [ftString,ftWideString,ftFixedChar]))then
CityJRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox9.Text+' '+ComboBox11.Text+' '+ComboBox12.Text+' '+Edit4.Text) else
CityJRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox9.Text+' '+ComboBox11.Text+' '+ComboBox12.Text+' '+''''+trim(Edit4.Text)+'''');
end ;
if(CheckBox3.Checked)then
begin
if (ComboBox13.Text='') or (ComboBox14.Text='') or (Edit5.Text='') then
begin
MessageBox(self.Handle,'输入条件语法错误！请重新选择条件！','消息',MB_OK);
exit;
end;
if(not (CityJRepQueryFrm.ADOQuery1.FieldByName(ComboBox13.Text).DataType in [ftString,ftWideString,ftFixedChar]))then
CityJRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox10.Text+' '+ComboBox13.Text+' '+ComboBox14.Text+' '+Edit5.Text) else
CityJRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox10.Text+' '+ComboBox13.Text+' '+ComboBox14.Text+' '+''''+trim(Edit5.Text)+'''');
end;
if(ComboBox29.Text<>'')then
begin
CityJRepQueryFrm.ADOQuery1.Active:=False;
CityJRepQueryFrm.ADOQuery1.SQL.Add(' order by '+ComboBox29.Text);
if(ComboBox30.Text<>'')then
begin
CityJRepQueryFrm.ADOQuery1.SQL.Add(','+ComboBox30.Text);
if(ComboBox31.Text<>'')then
begin
CityJRepQueryFrm.ADOQuery1.SQL.Add(','+ComboBox31.Text);
end;
end;
end;
try
CityJRepQueryFrm.ADOQuery1.open;
MessageBox(self.Handle,'条件正确','消息',MB_OK);
except
MessageBox(self.Handle,'条件不正确','消息',MB_OK);
end;
end;
procedure TCityJQueryFrm.BitBtn5Click(Sender: TObject);
begin
if(not checkData)then exit;
CityJRepQueryFrm.ADOQuery1.SQL.Clear;
if (ComboBox5.Text<>'') and (ComboBox6.Text<>'') then
begin
if edit9.Text='' then
CityJRepQueryFrm.ADOQuery1.SQL.Add('select * from 公交行业城市交流指标表 where '+
' 统计年份>='+ComboBox5.Text+
' and 统计年份<='+ComboBox6.Text)
else
CityJRepQueryFrm.ADOQuery1.SQL.Add('select * from 公交行业城市交流指标表 where '+
' 统计年份>='+ComboBox5.Text+
' and 统计年份<='+ComboBox6.Text+
' and 城市代码='''+edit9.Text+'''');
end
else
begin
MessageBox(self.Handle,'输入条件语法错误！请选择正确的时间区间！','消息',MB_OK);
exit;
end;
if(CheckBox1.Checked)then
begin
if ((ComboBox7.Text='') or (ComboBox8.Text='') or (Edit3.Text=''))then
begin
MessageBox(self.Handle,'输入条件语法错误！请重新选择条件！','消息',MB_OK);
exit;
end;
if(not (CityJRepQueryFrm.ADOQuery1.FieldByName(trim(ComboBox7.Text)).DataType in [ftString,ftWideString,ftFixedChar]))then
CityJRepQueryFrm.ADOQuery1.SQL.Add(' and '+ComboBox7.Text+' '+ComboBox8.Text+' '+Edit3.Text) else
CityJRepQueryFrm.ADOQuery1.SQL.Add(' and '+ComboBox7.Text+' '+ComboBox8.Text+' '+''''+trim(Edit3.Text)+'''');
end ;
if(CheckBox2.Checked)then
begin
if (ComboBox11.Text='') or (ComboBox12.Text='') or (Edit4.Text='') then
begin
MessageBox(self.Handle,'输入条件语法错误！请重新选择条件！','消息',MB_OK);
exit;
end;
if(not (CityJRepQueryFrm.ADOQuery1.FieldByName(ComboBox11.Text).DataType in [ftString,ftWideString,ftFixedChar]))then
CityJRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox9.Text+' '+ComboBox11.Text+' '+ComboBox12.Text+' '+Edit4.Text) else
CityJRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox9.Text+' '+ComboBox11.Text+' '+ComboBox12.Text+' '+''''+trim(Edit4.Text)+'''');
end ;
if(CheckBox3.Checked)then
begin
if (ComboBox13.Text='') or (ComboBox14.Text='') or (Edit5.Text='') then
begin
MessageBox(self.Handle,'输入条件语法错误！请重新选择条件！','消息',MB_OK);
exit;
end;
if(not (CityJRepQueryFrm.ADOQuery1.FieldByName(ComboBox13.Text).DataType in [ftString,ftWideString,ftFixedChar]))then
CityJRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox10.Text+' '+ComboBox13.Text+' '+ComboBox14.Text+' '+Edit5.Text) else
CityJRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox10.Text+' '+ComboBox13.Text+' '+ComboBox14.Text+' '+''''+trim(Edit5.Text)+'''');
end;
if(ComboBox29.Text<>'')then
begin
CityJRepQueryFrm.ADOQuery1.Active:=False;
CityJRepQueryFrm.ADOQuery1.SQL.Add(' order by '+ComboBox29.Text);
if(ComboBox3.ItemIndex=0)then
CityJRepQueryFrm.ADOQuery1.SQL.Add(' asc ') else
CityJRepQueryFrm.ADOQuery1.SQL.Add(' desc ');
if(ComboBox30.Text<>'')then
begin
CityJRepQueryFrm.ADOQuery1.SQL.Add(','+ComboBox30.Text);
if(ComboBox4.ItemIndex=0)then
CityJRepQueryFrm.ADOQuery1.SQL.Add(' asc ') else
CityJRepQueryFrm.ADOQuery1.SQL.Add(' desc ');
if(ComboBox31.Text<>'')then
begin
CityJRepQueryFrm.ADOQuery1.SQL.Add(','+ComboBox31.Text);
if(ComboBox17.ItemIndex=0)then
CityJRepQueryFrm.ADOQuery1.SQL.Add(' asc ') else
CityJRepQueryFrm.ADOQuery1.SQL.Add(' desc ');
end;
end;
end;
///////////////////////////////////////
if (ComboBox29.Text='') and (ComboBox30.Text='') and (ComboBox31.Text='') then
begin
if MessageBox(self.handle,'是否选择排序条件？','消息',MB_YESNO)=IDYES THEN
exit;
// exit;
end;
////////////////////////////////////////////////////
try
CityJRepQueryFrm.ADOQuery1.open;
CityJRepQueryFrm.showmodal;
except
MessageBox(self.Handle,'条件不正确','消息',MB_OK);
end;
end;
procedure TCityJQueryFrm.BitBtn3Click(Sender: TObject);
begin
CityJRepQueryFrm.ADOQuery1.Close;
end;
procedure TCityJQueryFrm.FormCreate(Sender: TObject);
begin
Object1:=TRelation.Create;
end;
procedure TCityJQueryFrm.FormShow(Sender: TObject);
begin
ADOTable1.Open;
ComboBox5.Text:=IntToStr(CurrentYear);
ComboBox6.Text:=IntToStr(CurrentYear);
end;
procedure TCityJQueryFrm.SpeedButton3Click(Sender: TObject);
var
EprCode,EprName:string;
begin
if CitySelectForm.ShowModal=mrok then
begin
EprName:=CitySelectForm.Edit1.Text;
EprCode:=CitySelectForm.ComboBox1.Text;
Edit8.Text:=EprCode;
Edit9.Text:=EprName;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -