?? citygqueryunit.pas
字號(hào):
if(not checkData)then exit;
CityGRepQueryFrm.ADOQuery1.SQL.Clear;
if (ComboBox5.Text<>'') and (ComboBox6.Text<>'') then
begin
if edit9.Text='' then
CityGRepQueryFrm.ADOQuery1.SQL.Add('select * from 公交行業(yè)城市規(guī)模指標(biāo)表 where '+
' 統(tǒng)計(jì)年份>='+ComboBox5.Text+
' and 統(tǒng)計(jì)年份<='+ComboBox6.Text)
else
CityGRepQueryFrm.ADOQuery1.SQL.Add('select * from 公交行業(yè)城市規(guī)模指標(biāo)表 where '+
' 統(tǒng)計(jì)年份>='+ComboBox5.Text+
' and 統(tǒng)計(jì)年份<='+ComboBox6.Text+
' and 城市代碼='''+edit9.Text+'''');
end
else
begin
MessageBox(self.Handle,'輸入條件語法錯(cuò)誤！請(qǐng)選擇正確的時(shí)間區(qū)間！','消息',MB_OK);
exit;
end;
if(CheckBox1.Checked)then
begin
if ((ComboBox7.Text='') or (ComboBox8.Text='') or (Edit3.Text=''))then
begin
MessageBox(self.Handle,'輸入條件語法錯(cuò)誤！請(qǐng)重新選擇條件！','消息',MB_OK);
exit;
end;
if(not (CityGRepQueryFrm.ADOQuery1.FieldByName(trim(ComboBox7.Text)).DataType in [ftString,ftWideString,ftFixedChar]))then
CityGRepQueryFrm.ADOQuery1.SQL.Add(' and '+ComboBox7.Text+' '+ComboBox8.Text+' '+Edit3.Text) else
CityGRepQueryFrm.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,'輸入條件語法錯(cuò)誤！請(qǐng)重新選擇條件！','消息',MB_OK);
exit;
end;
if(not (CityGRepQueryFrm.ADOQuery1.FieldByName(ComboBox11.Text).DataType in [ftString,ftWideString,ftFixedChar]))then
CityGRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox9.Text+' '+ComboBox11.Text+' '+ComboBox12.Text+' '+Edit4.Text) else
CityGRepQueryFrm.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,'輸入條件語法錯(cuò)誤！請(qǐng)重新選擇條件！','消息',MB_OK);
exit;
end;
if(not (CityGRepQueryFrm.ADOQuery1.FieldByName(ComboBox13.Text).DataType in [ftString,ftWideString,ftFixedChar]))then
CityGRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox10.Text+' '+ComboBox13.Text+' '+ComboBox14.Text+' '+Edit5.Text) else
CityGRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox10.Text+' '+ComboBox13.Text+' '+ComboBox14.Text+' '+''''+trim(Edit5.Text)+'''');
end;
if(ComboBox29.Text<>'')then
begin
CityGRepQueryFrm.ADOQuery1.Active:=False;
CityGRepQueryFrm.ADOQuery1.SQL.Add(' order by '+ComboBox29.Text);
if(ComboBox3.ItemIndex=0)then
CityGRepQueryFrm.ADOQuery1.SQL.Add(' asc ') else
CityGRepQueryFrm.ADOQuery1.SQL.Add(' desc ');
if(ComboBox30.Text<>'')then
begin
CityGRepQueryFrm.ADOQuery1.SQL.Add(','+ComboBox30.Text);
if(ComboBox4.ItemIndex=0)then
CityGRepQueryFrm.ADOQuery1.SQL.Add(' asc ') else
CityGRepQueryFrm.ADOQuery1.SQL.Add(' desc ');
if(ComboBox31.Text<>'')then
begin
CityGRepQueryFrm.ADOQuery1.SQL.Add(','+ComboBox31.Text);
if(ComboBox17.ItemIndex=0)then
CityGRepQueryFrm.ADOQuery1.SQL.Add(' asc ') else
CityGRepQueryFrm.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
CityGRepQueryFrm.ADOQuery1.open;
CityGRepQueryFrm.showmodal;
except
MessageBox(self.Handle,'條件不正確','消息',MB_OK);
end;
end;
procedure TCityGQueryFrm.BitBtn3Click(Sender: TObject);
begin
CityGRepQueryFrm.ADOQuery1.Close;
end;
procedure TCityGQueryFrm.FormCreate(Sender: TObject);
begin
Object1:=TRelation.Create;
end;
procedure TCityGQueryFrm.CheckBox1Click(Sender: TObject);
begin
Object1.ButtonCheck1(CheckBox1.Checked);
Label12.Visible:=Object1.T1;
Label16.Visible:=Object1.T2;
Label17.Visible:=Object1.T3;
ComboBox9.Visible:=Object1.C1;
ComboBox10.Visible:=Object1.C2;
if(CheckBox1.Checked)then
begin
ComboBox7.Enabled:=true;
ComboBox7.Color:=$00FF8080;
ComboBox8.Enabled:=true;
ComboBox8.Color:=$00FF8080;
Edit3.Enabled:=true;
Edit3.Color:=$00FF8080;
end else
begin
ComboBox7.Enabled:=false;
ComboBox7.Color:=clWhite;
ComboBox8.Enabled:=false;
ComboBox8.Color:=clWhite;
Edit3.Enabled:=false;
Edit3.Color:=clWhite;
end;
end;
procedure TCityGQueryFrm.CheckBox2Click(Sender: TObject);
begin
Object1.ButtonCheck2(CheckBox2.Checked);
Label12.Visible:=Object1.T1;
Label16.Visible:=Object1.T2;
Label17.Visible:=Object1.T3;
ComboBox9.Visible:=Object1.C1;
ComboBox10.Visible:=Object1.C2;
if(CheckBox2.Checked)then
begin
ComboBox11.Enabled:=true;
ComboBox11.Color:=$00FF8080;
ComboBox12.Enabled:=true;
ComboBox12.Color:=$00FF8080;
Edit4.Enabled:=true;
Edit4.Color:=$00FF8080;
end else
begin
ComboBox11.Enabled:=false;
ComboBox11.Color:=clWhite;
ComboBox12.Enabled:=false;
ComboBox12.Color:=clWhite;
Edit4.Enabled:=false;
Edit4.Color:=clWhite;
end;
end;
procedure TCityGQueryFrm.CheckBox3Click(Sender: TObject);
begin
Object1.ButtonCheck3(CheckBox3.Checked);
Label12.Visible:=Object1.T1;
Label16.Visible:=Object1.T2;
Label17.Visible:=Object1.T3;
ComboBox9.Visible:=Object1.C1;
ComboBox10.Visible:=Object1.C2;
if(CheckBox3.Checked)then
begin
ComboBox13.Enabled:=true;
ComboBox13.Color:=$00FF8080;
ComboBox14.Enabled:=true;
ComboBox14.Color:=$00FF8080;
Edit5.Enabled:=true;
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 TCityGQueryFrm.FormShow(Sender: TObject);
begin
ADOTable1.Open;
ComboBox5.Text:=IntToStr(CurrentYear);
ComboBox6.Text:=IntToStr(CurrentYear);
end;
procedure TCityGQueryFrm.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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -