outputunit.~pas

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

~PAS
1,223 行
字号
1234
                showmessage('对不起！终止年份不能为空！请重新选择条件！');
                exit;
        end;
        if StrToInt(ComboBox9.Text)>StrToInt(ComboBox10.Text) then
        begin
                showmessage('对不起！起始年份不能大于终止年份！请重新选择条件！');
                exit;
        end;
        try
          ReportName:='公交行业统计年报表';
          TradeTableToTableYear('公交行业统计年报表','公交行业统计年报表');
          if judge=false then exit;
          TradeTableToTableYear('公交行业统计年报_z','公交行业统计年报_z');
          showmessage('公交行业统计年报数据导出成功！');
          BitBtn18.Enabled:=true;
          BitBtn5.Enabled:=true;
        except
          showmessage('数据导出失败！');
          RichEdit1.Lines.Add('公交行业统计年报表导出失败');
        end;
end;

procedure TOutputFrm.BitBtn23Click(Sender: TObject);
begin
        judge:=true;
        if(not CheckFileSuc)then
        begin
                showmessage('请选择导出文件!');
                exit;
        end;
        if ComboBox15.Text='' then
        begin
                showmessage('对不起！起始年份不能为空！请重新选择条件！');
                exit;
        end;
        if ComboBox16.Text='' then
        begin
                showmessage('对不起！终止年份不能为空！请重新选择条件！');
                exit;
        end;
        if StrToInt(ComboBox15.Text)>StrToInt(ComboBox16.Text) then
        begin
                showmessage('对不起！起始年份不能大于终止年份！请重新选择条件！');
                exit;
        end;
        try
          ReportName:='公交行业综合年报表';
          TradeTableToTableYear('公交行业综合年报表','公交行业综合年报表');
          if judge=false then exit;
          TradeTableToTableYear('公交行业综合年报_z','公交行业综合年报_z');
          showmessage('公交行业综合年报数据导出成功！');
          BitBtn18.Enabled:=true;
          BitBtn5.Enabled:=true;
        except
          showmessage('数据导出失败！');
          RichEdit1.Lines.Add('公交行业综合年报表导出失败');
        end;
end;

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

        LookImportData5.ShowModal;
end;

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

        LookImportData5.ShowModal;
end;

procedure TOutputFrm.BitBtn25Click(Sender: TObject);
begin
       judge:=true;
        if(not CheckFileSuc)then
        begin
                showmessage('请选择导出文件!');
                exit;
        end;
        if ComboBox17.Text='' then
        begin
                showmessage('对不起！起始年份不能为空！请重新选择条件！');
                exit;
        end;
        if ComboBox18.Text='' then
        begin
                showmessage('对不起！终止年份不能为空！请重新选择条件！');
                exit;
        end;
        if StrToInt(ComboBox17.Text)>StrToInt(ComboBox18.Text) then
        begin
                showmessage('对不起！起始年份不能大于终止年份！请重新选择条件！');
                exit;
        end;
        try
          ReportName:='公交行业城市交流指标表';
          TradeTableToTableYear('公交行业城市交流指标表','公交行业城市交流指标表');
          if judge=false then exit;
          TradeTableToTableYear('公交行业城市交流指标表_z','公交行业城市交流指标表_z');
          showmessage('公交行业城市交流指标表数据导出成功！');
          BitBtn18.Enabled:=true;
          BitBtn5.Enabled:=true;
        except
          showmessage('数据导出失败！');
          RichEdit1.Lines.Add('公交行业城市交流指标表导出失败');
        end;
end;

procedure TOutputFrm.BitBtn27Click(Sender: TObject);
begin
       judge:=true;
        if(not CheckFileSuc)then
        begin
                showmessage('请选择导出文件!');
                exit;
        end;
        if ComboBox19.Text='' then
        begin
                showmessage('对不起！起始年份不能为空！请重新选择条件！');
                exit;
        end;
        if ComboBox20.Text='' then
        begin
                showmessage('对不起！终止年份不能为空！请重新选择条件！');
                exit;
        end;
        if StrToInt(ComboBox19.Text)>StrToInt(ComboBox20.Text) then
        begin
                showmessage('对不起！起始年份不能大于终止年份！请重新选择条件！');
                exit;
        end;
        try
          ReportName:='公交行业城市规模指标表';
          TradeTableToTableYear('公交行业城市规模指标表','公交行业城市规模指标表');
          if judge=false then exit;
          TradeTableToTableYear('公交行业城市规模指标表_z','公交行业城市规模指标表_z');
          showmessage('公交行业城市规模指标表数据导出成功！');
          BitBtn18.Enabled:=true;
          BitBtn5.Enabled:=true;
        except
          showmessage('数据导出失败！');
          RichEdit1.Lines.Add('公交行业城市规模指标表导出失败');
        end;
end;

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

        LookImportData5.ShowModal;
end;

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

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

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

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

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

procedure TOutputFrm.SpeedButton3Click(Sender: TObject);
begin

        if(EprSelect.showmodal=mrok)then
        Edit2.Text:=EprSelect.TotalEpr;
end;

procedure TOutputFrm.SpeedButton4Click(Sender: TObject);
begin
        if(EprSelect.showmodal=mrok)then
        Edit3.Text:=EprSelect.TotalEpr;
end;

procedure TOutputFrm.SpeedButton5Click(Sender: TObject);
begin
        if(EprSelect.showmodal=mrok)then
        Edit4.Text:=EprSelect.TotalEpr;
end;

end.
1234

outputunit.~pas - 源码说明

本页面展示了「公交行业的管理系统」中的 outputunit.~pas 源码文件，采用 ~PAS 编程语言编写，共 1,223 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?