hyyearqueryunit.~pas

公交行业的管理系统

              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 (HYYearRepQueryFrm.ADOQuery1.FieldByName(trim(ComboBox7.Text)).DataType  in [ftString,ftWideString,ftFixedChar]))then
               HYYearRepQueryFrm.ADOQuery1.SQL.Add(' and '+ComboBox7.Text+' '+ComboBox8.Text+' '+Edit3.Text)  else
               HYYearRepQueryFrm.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 (HYYearRepQueryFrm.ADOQuery1.FieldByName(ComboBox11.Text).DataType  in [ftString,ftWideString,ftFixedChar]))then
                HYYearRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox9.Text+' '+ComboBox11.Text+' '+ComboBox12.Text+' '+Edit4.Text)  else
                HYYearRepQueryFrm.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 (HYYearRepQueryFrm.ADOQuery1.FieldByName(ComboBox13.Text).DataType  in [ftString,ftWideString,ftFixedChar]))then
                HYYearRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox10.Text+' '+ComboBox13.Text+' '+ComboBox14.Text+' '+Edit5.Text)  else
                HYYearRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox10.Text+' '+ComboBox13.Text+' '+ComboBox14.Text+' '+''''+trim(Edit5.Text)+'''');
         end;

         if(ComboBox29.Text<>'')then
         begin
               HYYearRepQueryFrm.ADOQuery1.SQL.Add(' order by '+ComboBox29.Text);
               if(ComboBox3.ItemIndex=0)then
               HYYearRepQueryFrm.ADOQuery1.SQL.Add(' asc ') else
               HYYearRepQueryFrm.ADOQuery1.SQL.Add(' desc ');
               if(ComboBox30.Text<>'')then
               begin
                    HYYearRepQueryFrm.ADOQuery1.SQL.Add(','+ComboBox30.Text);
                    if(ComboBox4.ItemIndex=0)then
                    HYYearRepQueryFrm.ADOQuery1.SQL.Add(' asc ') else
                    HYYearRepQueryFrm.ADOQuery1.SQL.Add(' desc ');
                    if(ComboBox31.Text<>'')then
                    begin
                         HYYearRepQueryFrm.ADOQuery1.SQL.Add(','+ComboBox31.Text);
                         if(ComboBox17.ItemIndex=0)then
                         HYYearRepQueryFrm.ADOQuery1.SQL.Add(' asc ') else
                         HYYearRepQueryFrm.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
               HYYearRepQueryFrm.ADOQuery1.open;
               HYYearRepQueryFrm.showmodal;
         except
               MessageBox(self.Handle,'条件不正确','消息',MB_OK);
         end;
end;

procedure THYYearQueryFrm.FormShow(Sender: TObject);
begin 
       ComboBox5.Text:=IntToStr(CurrentYear);
       ComboBox6.Text:=IntToStr(CurrentYear);
       ADOTable1.Open;
end;

procedure THYYearQueryFrm.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 THYYearQueryFrm.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 THYYearQueryFrm.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 THYYearQueryFrm.FormCreate(Sender: TObject);
begin
        Object1:=TRelation.Create;
end;

procedure THYYearQueryFrm.BitBtn3Click(Sender: TObject);
begin
    HYYearRepQueryFrm.ADOQuery1.Close;
end;

procedure THYYearQueryFrm.ComboBox7Change(Sender: TObject);
begin
     ADOTable1.Locate('指标代码',ComboBox7.Text,[]);  
end;

procedure THYYearQueryFrm.BitBtn18Click(Sender: TObject);
begin
      ADOTable1.Locate('指标代码',ComboBox7.Text,[]);
end;

procedure THYYearQueryFrm.ComboBox11Change(Sender: TObject);
begin
      ADOTable1.Locate('指标代码',ComboBox11.Text,[]);
end;

procedure THYYearQueryFrm.BitBtn19Click(Sender: TObject);
begin
       ADOTable1.Locate('指标代码',ComboBox11.Text,[]);
end;

procedure THYYearQueryFrm.ComboBox13Change(Sender: TObject);
begin
     ADOTable1.Locate('指标代码',ComboBox13.Text,[]);
end;

procedure THYYearQueryFrm.BitBtn20Click(Sender: TObject);
begin
      ADOTable1.Locate('指标代码',ComboBox13.Text,[]);
end;

procedure THYYearQueryFrm.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.