cityjqueryunit.pas

公交行业的管理系统

unit CityJQueryUnit;

interface

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

type
  TCityJQueryFrm = class(TForm)
    Label37: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    BitBtn5: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox2: TGroupBox;
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    Panel2: TPanel;
    Bevel5: TBevel;
    Label12: TLabel;
    Bevel6: TBevel;
    Bevel7: TBevel;
    Bevel8: TBevel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    Edit3: TEdit;
    CheckBox1: TCheckBox;
    ComboBox9: TComboBox;
    CheckBox2: TCheckBox;
    ComboBox10: TComboBox;
    CheckBox3: TCheckBox;
    ComboBox11: TComboBox;
    ComboBox12: TComboBox;
    Edit4: TEdit;
    ComboBox13: TComboBox;
    ComboBox14: TComboBox;
    Edit5: TEdit;
    BitBtn18: TBitBtn;
    BitBtn20: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    ComboBox29: TComboBox;
    ComboBox30: TComboBox;
    ComboBox31: TComboBox;
    ImageList1: TImageList;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Label3: TLabel;
    ComboBox3: TComboBox;
    Label4: TLabel;
    ComboBox4: TComboBox;
    Label5: TLabel;
    ComboBox17: TComboBox;
    Label8: TLabel;
    Label21: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    SpeedButton3: TSpeedButton;
    procedure ComboBox7Change(Sender: TObject);
    procedure ComboBox11Change(Sender: TObject);
    procedure ComboBox13Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
    Object1:TRelation;
    function  checkData:boolean;
  public
    { Public declarations }
  end;

var
  CityJQueryFrm: TCityJQueryFrm;

implementation

uses CityJRepQueryUnit, BusTradeDataModuleUnit, CitySelectUnit;

{$R *.dfm}
function  TCityJQueryFrm.checkData:boolean;
var
tempnum:integer;
begin
         try
               tempnum:=StrToInt(ComboBox5.Text)+StrToInt(ComboBox6.Text);
         except
               MessageBox(self.Handle,'年份数据类型不对!','消息',MB_OK);
               CheckData:=false;
               exit;
         end;
         if((StrToInt(ComboBox5.Text)<2000) or (StrToInt(ComboBox6.Text)>3000))then
         begin
               MessageBox(self.Handle,'选择年份不在2000-3000年之间!','消息',MB_OK);
               CheckData:=false;
               exit;
         end;
         if(StrToInt(ComboBox5.Text)>StrToInt(ComboBox6.Text))then
         begin
               MessageBox(self.Handle,'年份区间不合法!','消息',MB_OK);
               CheckData:=false;
               exit;
         end;  
end;

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

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

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

procedure TCityJQueryFrm.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 TCityJQueryFrm.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 TCityJQueryFrm.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;