?? buscityjlrepunit.pas
字號:
unit BusCityJLRepUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, Buttons, DB, ADODB;
type
TBusCityJLRepFrm = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
ListView1: TListView;
Label2: TLabel;
Label3: TLabel;
ComboBox1: TComboBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
BitBtn4: TBitBtn;
ADOCommand1: TADOCommand;
ADOCommand2: TADOCommand;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
procedure initialcolumn(List:TListView);
procedure Insertnum1();
{procedure Insertnum2(); }
procedure FillDatatoTable();
procedure ToZTable();
procedure ClearZero();
public
{ Public declarations }
end;
var
BusCityJLRepFrm: TBusCityJLRepFrm;
implementation
uses PrintProc, BusTradeDataModuleUnit;
{$R *.dfm}
procedure TBusCityJLRepFrm.FormShow(Sender: TObject);
begin
BitBtn2.Enabled:=false;
end;
procedure TBusCityJLRepFrm.BitBtn1Click(Sender: TObject);
var sqlstr,sqlstr1,sqlstr2:string;
i,iRow,iExistFlag:integer;
begin
iExistFlag:=0;
if(combobox1.Text='')then
begin
showmessage('請選擇年份！');
BitBtn2.Enabled:=false;
initialcolumn(ListView1);
exit;
end;
sqlstr:='select 指標代碼,本年實際 from 公交行業城市交流指標表_z where 城市代碼='
+''''+'022'+''''+' and 統計年份='+combobox1.Text;
ADOQuery2.close;
ADOQuery2.SQL.clear;
ADOQuery2.SQL.Add(sqlstr);
ADOQuery2.open;
if(ADOQuery2.recordcount>0)then
begin
if(MessageDlg('數據庫中已經存在該年交流表，是否覆蓋？',mtConfirmation,[mbYes, mbNo],0) = mrNo)then
begin
BitBtn4Click(nil);
exit;
end else
begin
BusTradeDataModule.ADOConnection1.BeginTrans;
sqlstr1:='delete from 公交行業城市交流指標表_z where 城市代碼='+
''''+'022'+''''+' and 統計年份='+Combobox1.Text;
ADOCommand1.CommandText:=sqlstr1;
sqlstr2:='delete from 公交行業城市交流指標表 where 城市代碼='+
''''+'022'+''''+' and 統計年份='+Combobox1.Text;
ADOCommand2.Commandtext:=sqlstr2;
ADOCommand1.Execute;
ADOCommand2.Execute;
BusTradeDataModule.ADOConnection1.CommitTrans;
end;
end;
sqlstr1:='select 指標代碼,本年實際 from 公交行業城市規模指標表_z where 城市代碼='
+''''+'022'+''''+' and 統計年份='+combobox1.text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sqlstr1);
ADOQuery1.Open;
if(ADOQuery1.RecordCount<=0)then
begin
showmessage('對不起，不存在'+combobox1.Text+'年規模數據，無法生成交流數據！');
BitBtn2.Enabled:=false;
initialcolumn(ListView1);
exit;
end;
sqlstr2:='select 指標代碼,全年實際 from 公交行業綜合年報_z where 統計年份='+combobox1.Text;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add(sqlstr2);
ADOQuery2.Open;
if(ADOQuery2.RecordCount<=0)then
begin
showmessage('對不起，不存在'+combobox1.Text+'年綜合年報，無法生成交流數據！');
BitBtn2.Enabled:=false;
initialcolumn(ListView1);
exit;
end else
begin
for iRow:=0 to ADOQuery2.recordcount-1 do
begin
if(ADOQuery2.fieldbyname('全年實際').asstring<>'')then
begin
iExistFlag:=1;
break;
end;
ADOQuery2.next;
end;
end;
if(iExistFlag=0)then
begin
showmessage('對不起，不存在'+combobox1.text+'年綜合年報，無法生成交流數據！');
BitBtn2.Enabled:=false;
initialcolumn(ListView1);
exit;
end;
iExistFlag:=0;
//添加規模指標值
initialcolumn(ListView1);
BitBtn2.Enabled:=true;
ADOQuery1.First;
for i:=1 to 10 do
begin
if(i>=2)and (i<=6)then
ListView1.Items[i-1].SubItems[2]:=Converter(ADOQuery1.fieldbyname('本年實際').asstring);
if(i>=9)and(i<=10)then
ListView1.Items[i-3].SubItems[2]:=Converter(ADOQuery1.fieldbyname('本年實際').asstring);
ADOQuery1.Next;
end;
//添加綜合年報數據
Insertnum1();
{Insertnum2();}
//將沒有值的地方清零
ClearZero();
FillDatatoTable();
ToZTable();
end;
procedure TBusCityJLRepFrm.Insertnum1();
var sqlstr2:string;
begin
sqlstr2:='select 指標代碼,全年實際 from 公交行業綜合年報_z where 統計年份='+combobox1.Text;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add(sqlstr2);
ADOQuery2.Open;
if(ADOQuery2.locate('指標代碼','GZ001',[]))then
ListView1.items[16].subitems[2]:=Converter(ADOQuery2.fieldbyname('全年實際').asstring);
if(ADOQuery2.locate('指標代碼','GZ037',[]))then
ListView1.items[21].subitems[2]:=Converter(ADOQuery2.fieldbyname('全年實際').asstring);
if(ADOQuery2.locate('指標代碼','GZ056',[]))then
ListView1.items[11].subitems[2]:=Converter(ADOQuery2.fieldbyname('全年實際').asstring);
if(ADOQuery2.locate('指標代碼','GZ083',[]))then
ListView1.items[22].subitems[2]:=Converter(ADOQuery2.fieldbyname('全年實際').asstring);
if(ADOQuery2.locate('指標代碼','GZ086',[]))then
ListView1.items[24].subitems[2]:=Converter(ADOQuery2.fieldbyname('全年實際').asstring);
if(ADOQuery2.locate('指標代碼','GZ045',[]))then
ListView1.items[0].subitems[6]:=Converter(ADOQuery2.fieldbyname('全年實際').asstring);
if(ADOQuery2.locate('指標代碼','GZ102',[]))then
ListView1.items[2].subitems[6]:=Converter(ADOQuery2.fieldbyname('全年實際').asstring);
if(ADOQuery2.locate('指標代碼','GZ173',[]))then
ListView1.items[3].subitems[6]:=Converter(ADOQuery2.fieldbyname('全年實際').asstring);
if(ADOQuery2.locate('指標代碼','GZ174',[]))then
ListView1.items[4].subitems[6]:=Converter(ADOQuery2.fieldbyname('全年實際').asstring);
if(ADOQuery2.locate('指標代碼','GZ176',[]))then
ListView1.items[5].subitems[6]:=Converter(ADOQuery2.fieldbyname('全年實際').asstring);
end;
{procedure TBusCityJLRepFrm.Insertnum2();
var numstr,numstr1,numstr2:string;
begin
//添加JG10
numstr1:=ListView1.items[4].subitems[2];
numstr2:=ListView1.items[1].subitems[2];
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -