hymonqueryunit.~pas

公交行业的管理系统

unit HYMonQueryUnit;

interface

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

type
  THYMonQueryFrm = class(TForm)
    GroupBox2: TGroupBox;
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label19: 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;
    ComboBox15: TComboBox;
    ComboBox16: TComboBox;
    BitBtn2: TBitBtn;
    Label37: TLabel;
    Label56: TLabel;
    ComboBox29: TComboBox;
    Label57: TLabel;
    ComboBox30: TComboBox;
    Label58: TLabel;
    ComboBox31: TComboBox;
    BitBtn5: TBitBtn;
    BitBtn3: TBitBtn;
    ADOQuery1: TADOQuery;
    ImageList1: TImageList;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Label20: TLabel;
    DBGrid1: TDBGrid;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    ComboBox3: TComboBox;
    Label4: TLabel;
    ComboBox4: TComboBox;
    Label5: TLabel;
    ComboBox17: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label21: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    SpeedButton3: TSpeedButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox7Change(Sender: TObject);
    procedure ComboBox11Change(Sender: TObject);
    procedure ComboBox13Change(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
     Object1:TRelation; 
  public
     function  checkData:boolean;
  end;

var
  HYMonQueryFrm: THYMonQueryFrm;

implementation

uses HYMonthReportUnit, BusTradeDataModuleUnit, CitySelectUnit;

{$R *.dfm}
function  THYMonQueryFrm.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 THYMonQueryFrm.BitBtn2Click(Sender: TObject);
var
tempnum:integer;
begin
         if(not checkData)then exit;
         HYMonthRepQueryFrm.ADOQuery1.SQL.Clear;
         if (ComboBox5.Text<>'') and (ComboBox6.Text<>'') and (Combobox15.Text<>'') and (ComboBox16.Text<>'') then
         HYMonthRepQueryFrm.ADOQuery1.SQL.Add('select * from 公交行业统计月报表 where '+
                           ' 统计年份*100+统计月份>='+
                           IntToStr(StrToInt(ComboBox5.Text)*100+StrToInt(ComboBox15.Text))+
                           ' and 统计年份*100+统计月份<='+
                           IntToStr(StrToInt(ComboBox6.Text)*100+StrToInt(ComboBox16.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 (HYMonthRepQueryFrm.ADOQuery1.FieldByName(trim(ComboBox7.Text)).DataType  in [ftString,ftWideString,ftFixedChar]))then
                HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' and '+ComboBox7.Text+' '+ComboBox8.Text+' '+Edit3.Text)  else
                HYMonthRepQueryFrm.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 (HYMonthRepQueryFrm.ADOQuery1.FieldByName(ComboBox11.Text).DataType  in [ftString,ftWideString,ftFixedChar]))then
               HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox9.Text+' '+ComboBox11.Text+' '+ComboBox12.Text+' '+Edit4.Text)  else
               HYMonthRepQueryFrm.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 (HYMonthRepQueryFrm.ADOQuery1.FieldByName(ComboBox13.Text).DataType  in [ftString,ftWideString,ftFixedChar]))then
               HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox10.Text+' '+ComboBox13.Text+' '+ComboBox14.Text+' '+Edit5.Text)  else
               HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox10.Text+' '+ComboBox13.Text+' '+ComboBox14.Text+' '+''''+trim(Edit5.Text)+'''');
         end;
         try
               HYMonthRepQueryFrm.ADOQuery1.Open;
               MessageBox(self.Handle,'结果正确。','消息',MB_OK);
         except
               MessageBox(self.Handle,'结果不正确。','消息',MB_OK);
         end;
end;

procedure THYMonQueryFrm.BitBtn5Click(Sender: TObject);
begin
         if(not checkData)then exit;
         HYMonthRepQueryFrm.ADOQuery1.SQL.Clear;
         if (ComboBox5.Text<>'') and (ComboBox6.Text<>'') and (Combobox15.Text<>'') and (ComboBox16.Text<>'') then
         begin
                HYMonthRepQueryFrm.ADOQuery1.SQL.Add('select * from 公交行业统计月报表 where '+
                           ' 统计年份*100+统计月份>='+IntToStr(StrToInt(ComboBox5.Text)*100+StrToInt(ComboBox15.Text))+
                           ' and 统计年份*100+统计月份<='+IntToStr(StrToInt(ComboBox6.Text)*100+StrToInt(ComboBox16.Text))+
                           ' and 生成方式='+''''+ComboBox1.Text+'''');
                if(edit9.Text<>'')then
                begin
                      HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' and 城市代码='+''''+edit9.Text+'''');
                end;
         end
         else
         begin
              MessageBox(self.Handle,'输入条件语法错误！请选择正确的时间区间！','消息',MB_OK);
              exit;