outputunit.~pas

来自「公交行业的管理系统」· ~PAS 代码 · 共 1,223 行 · 第 1/4 页

unit OutputUnit;

interface

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

type
  TOutputFrm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    BitBtn9: TBitBtn;
    BitBtn7: TBitBtn;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    BitBtn10: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn17: TBitBtn;
    SaveDialog1: TSaveDialog;
    Panel4: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Panel5: TPanel;
    BitBtn18: TBitBtn;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label6: TLabel;
    Label10: TLabel;
    BitBtn4: TBitBtn;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    BitBtn5: TBitBtn;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    GroupBox3: TGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    BitBtn6: TBitBtn;
    ADOConnection1: TADOConnection;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    GroupBox5: TGroupBox;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    ComboBox11: TComboBox;
    ComboBox12: TComboBox;
    ComboBox13: TComboBox;
    ComboBox14: TComboBox;
    GroupBox7: TGroupBox;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    ComboBox17: TComboBox;
    ComboBox18: TComboBox;
    GroupBox8: TGroupBox;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    ComboBox19: TComboBox;
    ComboBox20: TComboBox;
    GroupBox4: TGroupBox;
    Label11: TLabel;
    Label12: TLabel;
    Label16: TLabel;
    ComboBox9: TComboBox;
    ComboBox10: TComboBox;
    GroupBox6: TGroupBox;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    ComboBox15: TComboBox;
    ComboBox16: TComboBox;
    RichEdit1: TRichEdit;
    BitBtn16: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn20: TBitBtn;
    BitBtn21: TBitBtn;
    BitBtn22: TBitBtn;
    BitBtn23: TBitBtn;
    BitBtn24: TBitBtn;
    BitBtn25: TBitBtn;
    BitBtn26: TBitBtn;
    BitBtn27: TBitBtn;
    Label32: TLabel;
    Edit2: TEdit;
    SpeedButton2: TSpeedButton;
    Label33: TLabel;
    Edit3: TEdit;
    Label34: TLabel;
    Edit4: TEdit;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn18Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure BitBtn20Click(Sender: TObject);
    procedure BitBtn21Click(Sender: TObject);
    procedure BitBtn23Click(Sender: TObject);
    procedure BitBtn22Click(Sender: TObject);
    procedure BitBtn24Click(Sender: TObject);
    procedure BitBtn25Click(Sender: TObject);
    procedure BitBtn27Click(Sender: TObject);
    procedure BitBtn26Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    ReportName:string;
    judge:boolean;
    { Private declarations }
  public

    procedure TradeTableToTableYear(src:string;des:string);
    procedure TableToTableMonth(src:string;des:string);
    procedure TableToTableEpr(src:string;des:string);
    procedure TradeTableToTableMonth(src:string;des:string);
    function  CheckFileSuc:boolean;
  end;

var
  OutputFrm: TOutputFrm;

implementation

uses {BusDataModuleUnit, LookImportDataUnit3,
  LookImportDataUnit, LookImportDataUnit2, TradeDataModule,
  LookImportDataUnit, LookImportDataUnit2, LookImportDataUnit3,}
  BusTradeDataModuleUnit, LookImportData4Unit, LookImportData5Unit,
  EprSelectUnit;
  {ZHYDataFrm6Unit, JLYDataFrm7Unit, ScaleDataFrm8Unit, EprSelectUnit;}

{$R *.dfm}

procedure TOutputFrm.SpeedButton1Click(Sender: TObject);
var
tmpstr:string;
begin
          if(not savedialog1.Execute)then exit;
          ADOConnection1.Connected:=false;
          try
                tmpstr:=extractFilePath(application.ExeName)+'database\ImportOutput.mdb';
                 if(FileExists(savedialog1.FileName))then
                begin
                       if(MessageBox(self.Handle,' 文件已存在，是否覆盖？','警告',MB_OKCANCEL)<>IDOK)then
                       begin
                              exit;
                       end;
                       deletefile(savedialog1.FileName);
                end;
                if(not copyfileto(tmpstr,savedialog1.FileName)) then
                begin
                        showmessage('wrong');
                        exit;
                end;
                ADOConnection1.ConnectionString:=
                'Provider=Microsoft.Jet.OLEDB.4.0;'+
                'Data Source='+tmpstr+';'+
                'Persist Security Info=False';
                ADOConnection1.Connected:=true;   
          except
                showmessage('不能连接到导出文件');
          end;
          Edit1.Text:=savedialog1.FileName;
          RichEdit1.Lines.Clear;
end;

procedure TOutputFrm.BitBtn9Click(Sender: TObject);
begin
        if ComboBox1.Text='' then
        begin
                showmessage('对不起！起始年份不能为空！请重新选择条件！');
                exit;
        end;
        if ComboBox2.Text='' then
        begin
                showmessage('对不起！终止年份不能为空！请重新选择条件！');
                exit;
        end;
        if StrToInt(ComboBox1.Text)>StrToInt(ComboBox2.Text) then
        begin
                showmessage('对不起！起始年份不能大于终止年份！请重新选择条件！');
                exit;
        end;
        if ComboBox3.Text='' then
        begin
                showmessage('对不起！起始月份不能为空！请重新选择条件！');
                exit;
        end;
        if ComboBox4.Text='' then
        begin
                showmessage('对不起！终止月份不能为空！请重新选择条件！');
                exit;
        end;
        if StrToInt(ComboBox3.Text)>StrToInt(ComboBox4.Text) then
        begin
                showmessage('对不起！起始月份不能大于终止月份！请重新选择条件！');
                exit;
        end;
        LookImportData4.Label1.Caption:='公交企业月报导出数据浏览';
        LookImportData4.Edit1.Text:=ComboBox1.Text;
        LookImportData4.Edit2.Text:=ComboBox2.Text;
        LookImportData4.Edit3.Text:=ComboBox3.Text;
        LookImportData4.Edit4.Text:=ComboBox4.Text;
        LookImportData4.ADOQuery1.Connection:=ADOConnection1;
        LookImportData4.ADOQuery1.SQL.Clear;
        LookImportData4.ADOQuery1.SQL.Add('select a.统计年份 AS 统计年份, a.统计月份 AS 统计月份, a.企业代码 as 企业代码,'
                     +' b.指标名称 AS 指标名称, b.指标代码 AS 指标代码, b.单位 AS 单位, a.本月实际 AS 本月实际'
                     +' from 公交企业统计月报表_z AS a, 公交企业统计月报指标定义表 AS b'
                     +' where a.统计年份>='+ComboBox1.Text+' and a.统计年份<='+ComboBox2.Text+' and a.统计月份>='+ComboBox3.Text
                     +' and a.统计月份<='+ComboBox4.Text
                     +' and a.指标代码=b.指标代码 ' +' and 企业代码 in'+EprSelect.TotalEpr
                     +' ORDER BY a.统计年份,a.统计月份,b.指标代码');
        LookImportData4.ADOQuery1.Open;
        LookImportData4.ShowModal;
end;
function TOutputFrm.CheckFileSuc:boolean;
begin
         if(ADOConnection1.Connected)then
         CheckFileSuc:=True else
         CheckFileSuc:=False;
end;
procedure TOutputFrm.BitBtn7Click(Sender: TObject);
begin
        judge:=true;
        if ComboBox1.Text='' then
        begin
                showmessage('对不起！起始年份不能为空！请重新选择条件！');
                exit;
        end;
        if ComboBox2.Text='' then
        begin
                showmessage('对不起！终止年份不能为空！请重新选择条件！');
                exit;
        end;
        if ComboBox3.Text='' then
        begin
                showmessage('对不起！起始月份不能为空！请重新选择条件！');
                exit;
        end;
        if ComboBox4.Text='' then
        begin
                showmessage('对不起！终止月份不能为空！请重新选择条件！');
                exit;
        end;
        if(not CheckFileSuc)then
        begin
                showmessage('请选择导出文件!');
                exit;
        end;
        if StrToInt(ComboBox1.Text)>StrToInt(ComboBox2.Text) then
        begin
                showmessage('对不起！起始年份不能大于终止年份！请重新选择条件！');
                exit;
        end;
        if StrToInt(ComboBox3.Text)>StrToInt(ComboBox4.Text) then
        begin