outputunit.~pas

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

                showmessage('对不起！起始月份不能大于终止月份！请重新选择条件！');
                exit;
        end;
        try
          ReportName:='公交企业统计月报表';
          TableToTableMonth('公交企业统计月报表','公交企业统计月报表');
          if judge=false then exit;
          TableToTableMonth('公交企业统计月报表_z','公交企业统计月报表_z');
          BitBtn18.Enabled:=true;
          BitBtn5.Enabled:=true;
          showmessage('公交企业统计月报数据导出成功！');
        except
          showmessage('数据导出失败！');
          RichEdit1.Lines.Add('公交企业统计月报表导出失败');
        end;


end;
procedure TOutputFrm.TableToTableMonth(src:string;des:string);
var
SrcQuery,DesQuery:TADOQuery;
i,j:integer;
begin
    SrcQuery:=TADOQuery.create(self);
    SrcQuery.Connection:=BusTradeDataModule.ADOConnection1;
    SrcQuery.SQL.Add('select * from '+src+' where 企业代码 in '+EprSelect.TotalEpr
                     +' and 统计年份>='+ComboBox1.text+
                     ' and 统计年份<='+ComboBox2.Text+
                     ' and 统计月份>='+ComboBox3.text+' and 统计月份<='+ComboBox4.text);
    SrcQuery.Open;
    if (SrcQuery.RecordCount=0) then
    begin
         showmessage('导出的源数据库没有所需数据！');
         judge:=false;
         exit;
    end;
    
    DesQuery:=TADOQuery.create(self);
    DesQuery.Connection:=ADOConnection1;
    
    DesQuery.SQL.Add('delete from '+des);
    DesQuery.ExecSQL;
    DesQuery.SQL.Clear;
    DesQuery.SQL.Add('select * from '+des+' where 企业代码 in '+ EprSelect.TotalEpr
                     +' and 统计年份>='+ComboBox1.text+
                     ' and 统计年份<='+ComboBox2.Text+
                     ' and 统计月份>='+ComboBox3.text+' and 统计月份<='+ComboBox4.text);
    DesQuery.Open;
    SrcQuery.First;
    while not SrcQuery.Eof do
    begin
        DesQuery.Append;
        for i:=0 to SrcQuery.FieldCount-1 do
        for j:=0 to DesQuery.FieldCount-1 do
        if(SrcQuery.Fields[i].FieldName=DesQuery.Fields[j].FieldName)then
        begin
           if(SrcQuery.Fields[i].FieldName<>'ID')then
           begin
                 DesQuery.Fields[j].Value:=SrcQuery.Fields[i].Value;
           end;
        end;
        DesQuery.Post;
        SrcQuery.Next;
    end;
end;

procedure TOutputFrm.TableToTableEpr(src:string;des:string);
var
SrcQuery,DesQuery:TADOQuery;
i,j:integer;
begin
    SrcQuery:=TADOQuery.create(self);
    SrcQuery.Connection:=BusTradeDataModule.ADOConnection1;
    SrcQuery.SQL.Add('select * from  '+src+' where 单位代码 in '+ EprSelect.TotalEpr+ ' and 统计年份>='+ComboBox7.Text
                     +' and 统计年份<='+ComboBox8.Text);
    SrcQuery.Open;
    if (SrcQuery.RecordCount=0) then
    begin
         showmessage('导出的源数据库没有所需数据！');
         judge:=false;
         exit;
    end;

    DesQuery:=TADOQuery.create(self);
    DesQuery.Connection:=ADOConnection1;

    DesQuery.SQL.Add('delete from '+des);
    DesQuery.ExecSQL;
    DesQuery.SQL.Clear;
    DesQuery.SQL.Add('select * from  '+des);
    DesQuery.Open;
    SrcQuery.First;
    while not SrcQuery.Eof do
    begin
        DesQuery.Append;
        for i:=0 to SrcQuery.FieldCount-1 do
        for j:=0 to DesQuery.FieldCount-1 do
        if(SrcQuery.Fields[i].FieldName=DesQuery.Fields[j].FieldName)then
        begin
           if(SrcQuery.Fields[i].FieldName<>'ID')then
           begin
                 DesQuery.Fields[j].Value:=SrcQuery.Fields[i].Value;
           end;
        end;
        DesQuery.next;
        SrcQuery.Next;
    end;
end;
procedure TOutputFrm.BitBtn8Click(Sender: TObject);
begin
        judge:=true;
        if(not CheckFileSuc)then
        begin
                showmessage('请选择导出文件!');
                exit;
        end;
        if ComboBox5.Text='' then
        begin
                showmessage('对不起！起始年份不能为空！请重新选择条件！');
                exit;
        end;
        if ComboBox6.Text='' then
        begin
                showmessage('对不起！终止年份不能为空！请重新选择条件！');
                exit;
        end;
        if StrToInt(ComboBox5.Text)>StrToInt(ComboBox6.Text) then
        begin
                showmessage('对不起！起始年份不能大于终止年份！请重新选择条件！');
                exit;
        end;
        try
          ReportName:='公交企业统计年报表';
          TradeTableToTableYear('公交企业统计年报表','公交企业统计年报表');
          if judge=false then exit;
          TradeTableToTableYear('公交企业统计年报表_z','公交企业统计年报表_z');
          BitBtn18.Enabled:=true;
          BitBtn5.Enabled:=true;
          showmessage('公交企业统计年报数据导出成功！');
        except
          showmessage('数据导出失败！');
          RichEdit1.Lines.Add('公交企业统计年报表导出失败');
        end;
end;

procedure TOutputFrm.BitBtn10Click(Sender: TObject);
begin
        if ComboBox5.Text='' then
        begin
                showmessage('对不起！起始年份不能为空！请重新选择条件！');
                exit;
        end;
        if ComboBox6.Text='' then
        begin
                showmessage('对不起！终止年份不能为空！请重新选择条件！');
                exit;
        end;
        if StrToInt(ComboBox5.Text)>StrToInt(ComboBox6.Text) then
        begin
                showmessage('对不起！起始年份不能大于终止年份！请重新选择条件！');
                exit;
        end;
        LookImportData5.Label1.Caption:='公交企业年报导出数据浏览';
        LookImportData5.Edit1.Text:=ComboBox5.Text;
        LookImportData5.Edit2.Text:=ComboBox6.Text;
        LookImportData5.ADOQuery1.Connection:=ADOConnection1;
        LookImportData5.ADOQuery1.SQL.Clear;
        LookImportData5.ADOQuery1.SQL.Add('select a.统计年份 as 统计年份,a.企业代码 as 企业代码, b.指标名称 as 指标名称,'
                     +' b.指标代码 as 指标代码, b.单位 as 单位,a.全年实际 as 全年实际'
                     +' from 公交企业统计年报表_z as a, 公交企业统计年报指标定义表 as b'
                     +' where  a.企业代码 in ' +EprSelect.TotalEpr+' and a.统计年份>='
                     + ComboBox5.Text+' and a.统计年份<='+ComboBox6.Text
                     +' and a.指标代码=b.指标代码 ORDER BY a.统计年份, b.指标代码');
        LookImportData5.ADOQuery1.Open;

        LookImportData5.ShowModal;
end;

procedure TOutputFrm.FormShow(Sender: TObject);
begin
        BusTradeDataModule.ADOConnection1.BeginTrans;
end;

procedure TOutputFrm.BitBtn4Click(Sender: TObject);
begin
        judge:=true;
        if(not CheckFileSuc)then
        begin
                showmessage('请选择导出文件!');
                exit;
        end;
        if ComboBox7.Text='' then
        begin
                showmessage('对不起！起始年份不能为空！请重新选择条件！');
                exit;
        end;
        if ComboBox8.Text='' then
        begin
                showmessage('对不起！终止年份不能为空！请重新选择条件！');
                exit;
        end;
        if StrToInt(ComboBox7.Text)>StrToInt(ComboBox8.Text) then
        begin
                showmessage('对不起！起始年份不能大于终止年份！请重新选择条件！');
                exit;
        end;
        try
          ReportName:='公用事业单位基本情况表';
          TableToTableEpr('公用事业单位基本情况表','公用事业单位基本情况表');
          BitBtn18.Enabled:=true;
          BitBtn5.Enabled:=true;
          showmessage('公用事业单位基本情况表导出成功！');
        except
          showmessage('数据导出失败！');
          RichEdit1.Lines.Add('公用事业单位基本情况表导出失败');
        end;
end;

procedure TOutputFrm.BitBtn1Click(Sender: TObject);
begin
     TabSheet3.TabVisible:=True;
     TabSheet1.TabVisible:=True;
     TabSheet2.TabVisible:=False;
     TabSheet4.TabVisible:=False;
     TabSheet1.PageIndex:=0;
     TabSheet3.PageIndex:=1;
     PageControl1.ActivePage:=TabSheet1;
end;

procedure TOutputFrm.BitBtn2Click(Sender: TObject);
begin
     TabSheet3.TabVisible:=True;
     TabSheet1.TabVisible:=False;
     TabSheet2.TabVisible:=True;
     TabSheet4.TabVisible:=False;
     TabSheet3.PageIndex:=1;
     TabSheet2.PageIndex:=0;
     PageControl1.ActivePage:=TabSheet2;     
end;

procedure TOutputFrm.BitBtn3Click(Sender: TObject);
begin
       TabSheet3.TabVisible:=True;
       TabSheet1.TabVisible:=False;
       TabSheet2.TabVisible:=False;
       TabSheet4.TabVisible:=True;
       TabSheet3.PageIndex:=1;
       TabSheet4.PageIndex:=0;
       PageControl1.ActivePage:=TabSheet4;       
end;

procedure TOutputFrm.BitBtn18Click(Sender: TObject);
begin
        if BitBtn5.Enabled=false then
        begin
                BusTradeDataModule.ADOConnection1.RollbackTrans;
        end else
        begin
                BusTradeDataModule.ADOConnection1.RollbackTrans;
                RichEdit1.Lines.Add(ReportName+'导出失败');
        end;

        ComboBox1.Text:='';
        ComboBox2.Text:='';
        ComboBox3.Text:='';
        ComboBox4.Text:='';
        ComboBox5.Text:='';
        ComboBox6.Text:='';
        ComboBox7.Text:='';
        ComboBox8.Text:='';
        RichEdit1.Text:='';
        Edit1.Text:='';
       // Edit5.Text:='';
        //Edit8.Text:='';
        TabSheet1.TabVisible:=True;
        TabSheet2.TabVisible:=True;
        TabSheet3.TabVisible:=True;
        TabSheet4.TabVisible:=True;

        BitBtn5.Enabled:=false;
        OutputFrm.Close;
end;

procedure TOutputFrm.BitBtn5Click(Sender: TObject);
begin
        BusTradeDataModule.ADOConnection1.CommitTrans;
        RichEdit1.Lines.Add(ReportName+'导出成功');
        BitBtn5.Enabled:=false;
        OutputFrm.Close;
end;

procedure TOutputFrm.BitBtn6Click(Sender: TObject);
var sqlstr:string;
begin
        if ComboBox7.Text='' then
        begin
                showmessage('对不起！起始年份不能为空！请重新选择条件！');
                exit;
        end;
        if ComboBox8.Text='' then
        begin
                showmessage('对不起！终止年份不能为空！请重新选择条件！');
                exit;
        end;
        if StrToInt(ComboBox7.Text)>StrToInt(ComboBox8.Text) then
        begin