?? bustradecountmonunit.~pas

?? 公交行業的管理系統
?? ~PAS
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
unit BusTradeCountMonUnit;

interface

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

type
  TBusTradeCountMonFm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    ADOCommand1: TADOCommand;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ListView1: TListView;
    TabSheet2: TTabSheet;
    ListView2: TListView;
    Panel4: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    ComboBox1: TComboBox;
    Panel5: TPanel;
    Label2: TLabel;
    ComboBox2: TComboBox;
    Label1: TLabel;
    ADOQuery1: TADOQuery;
    ADOQuery3: TADOQuery;
    Panel6: TPanel;
    BitBtn4: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Memo1: TMemo;
    Label3: TLabel;
    Label6: TLabel;
    //procedure Button1Click(Sender: TObject);
    //procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    iUpdateFlag:Integer;
    iExistFlag:Integer;
    procedure WriteMonData();
    procedure UpdateMonData();
end;

var
  BusTradeCountMonFm: TBusTradeCountMonFm;

implementation

uses BusTradeDataModuleUnit, PrintProc, PrintInfoUnit;

{$R *.DFM}
procedure TBusTradeCountMonFm.UpdateMonData();
var
        iRow:Integer;
        iCol:Integer;
        sqlString:String;
        iYear:String;
        iMonth:String;
        iValue:String;
        iCode:String;
        iCode1:String;
begin
        iYear:=ComboBox1.Text;
        iMonth:=ComboBox2.Text;

        {更新橫表}
        {sqlString:='insert into 公交行業統計月報表 (城市代碼,統計年份,統計月份,生成方式) values('
                  +'''' + '022' + '''' + ',' + iYear + ',' + iMonth + ',' + '''' + '生成' + '''' + ')';
        ADOCommand1.CommandText:=sqlString;
        ADOCommand1.Execute;
        }
        sqlString:='select * from  公交行業統計月報表 where 城市代碼='+'''' + '022' + ''''
                  + ' and 生成方式=' + '''' + '生成' + '''' + 'and 統計年份=' + iYear + ' and 統計月份=' + iMonth;
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add(sqlString);
        ADOQuery1.Open;

        ADOQuery1.Edit;

        ADOQuery1.FieldByName('備注').Value:=Memo1.Lines.Strings[1];

        {更新寫縱表}
        for iRow := 0 to 19 do
        begin
                iValue:=ListView1.Items[iRow].SubItems[2];
                iCode:='''' + ListView1.Items[iRow].SubItems[0] + '''';
                iCode1:=ListView1.Items[iRow].SubItems[0];
                //ADOQuery1.FieldByName(iCode).AsInteger:=iValue;
                ADOQuery1.FieldByName(iCode1).Value:=iValue;

                sqlString:= 'update 公交行業統計月報_z set 本月實際=' + iValue
                          + ' where 城市代碼=' + '''' + '022' + '''' + ' and 統計年份=' + iYear
                          + ' and 統計月份=' + iMonth + ' and 指標代碼= ' + iCode;

                ADOCommand1.CommandText:=sqlString;
                ADOCommand1.Execute;
        end;
        for iRow:=0 to 19 do
        begin
                iValue:=ListView1.Items[iRow].SubItems[6];
                iCode:='''' + ListView1.Items[iRow].SubItems[4] + '''';
                iCode1:=ListView1.Items[iRow].SubItems[4];
                ADOQuery1.FieldByName(iCode1).Value:=iValue;

                {sqlString:= 'insert into 公交行業統計月報_z (城市代碼,統計年份,統計月份,指標代碼,本月實際) '
                          + ' values('+ '''' + '022' + '''' + ',' + iYear + ',' + iMonth + ','
                          + iCode + ',' + iValue + ')';}

                sqlString:= 'update 公交行業統計月報_z set 本月實際=' + iValue
                          + ' where 城市代碼=' + '''' + '022' + '''' + ' and 統計年份=' + iYear
                          + ' and 統計月份=' + iMonth + ' and 指標代碼= ' + iCode;


                ADOCommand1.CommandText:=sqlString;
                ADOCommand1.Execute;
        end;
        for iRow := 0 to 20 do
        begin
                iValue:=ListView2.Items[iRow].SubItems[2];
                iCode:='''' + ListView2.Items[iRow].SubItems[0] + '''';
                iCode1:=ListView2.Items[iRow].SubItems[0];
                //ADOQuery1.FieldByName(iCode).AsFloat:=iValue;
                ADOQuery1.FieldByName(iCode1).Value:=iValue;

                {sqlString:= 'insert into 公交行業統計月報_z (城市代碼,統計年份,統計月份,指標代碼,本月實際) '
                          + ' values('+ '''' + '022' + '''' + ',' + iYear + ',' + iMonth + ','
                          + iCode + ',' + iValue + ')';}
                sqlString:= 'update 公交行業統計月報_z set 本月實際=' + iValue
                          + ' where 城市代碼=' + '''' + '022' + '''' + ' and 統計年份=' + iYear
                          + ' and 統計月份=' + iMonth + ' and 指標代碼= ' + iCode;


                ADOCommand1.CommandText:=sqlString;
                ADOCommand1.Execute;
        end;
        for iRow:=0 to 19 do
        begin
                iValue:=ListView2.Items[iRow].SubItems[6];
                iCode:='''' + ListView2.Items[iRow].SubItems[4] + '''';
                iCode1:=ListView2.Items[iRow].SubItems[4];
                ADOQuery1.FieldByName(iCode1).Value:=iValue;

                {sqlString:= 'insert into 公交行業統計月報_z (城市代碼,統計年份,統計月份,指標代碼,本月實際) '
                          + ' values('+ '''' + '022' + '''' + ',' + iYear + ',' + iMonth + ','
                          + iCode + ',' + iValue + ')';}

                sqlString:= 'update 公交行業統計月報_z set 本月實際=' + iValue
                          + ' where 城市代碼=' + '''' + '022' + '''' + ' and 統計年份=' + iYear
                          + ' and 統計月份=' + iMonth + ' and 指標代碼= ' + iCode;


                ADOCommand1.CommandText:=sqlString;
                ADOCommand1.Execute;
        end;

        ADOQuery1.Post;

end;
procedure TBusTradeCountMonFm.WriteMonData();
var
        iRow:Integer;
        iCol:Integer;
        sqlString:String;
        iYear:String;
        iMonth:String;
        iValue:String;
        iCode:String;
        iCode1:String;
begin
        iYear:=ComboBox1.Text;
        iMonth:=ComboBox2.Text;

        {寫橫表}
        sqlString:='insert into 公交行業統計月報表 (城市代碼,統計年份,統計月份,生成方式,備注) values('
                  +'''' + '022' + '''' + ',' + iYear + ',' + iMonth + ',' + '''' + '生成' + ''''
                  +',' + '''' + Memo1.Lines.Strings[1] + '''' +')';
        ADOCommand1.CommandText:=sqlString;
        ADOCommand1.Execute;

        sqlString:='select * from  公交行業統計月報表 where 城市代碼='+'''' + '022' + ''''
                  + ' and 生成方式=' + '''' + '生成' + '''' + 'and 統計年份=' + iYear + ' and 統計月份=' + iMonth;
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add(sqlString);
        ADOQuery1.Open;

        ADOQuery1.Edit;

        {寫縱表}
        for iRow := 0 to 19 do
        begin
                iValue:=ListView1.Items[iRow].SubItems[2];
                iCode:='''' + ListView1.Items[iRow].SubItems[0] + '''';
                iCode1:=ListView1.Items[iRow].SubItems[0];
                //ADOQuery1.FieldByName(iCode).AsInteger:=iValue;
                ADOQuery1.FieldByName(iCode1).Value:=iValue;

                sqlString:= 'insert into 公交行業統計月報_z (城市代碼,統計年份,統計月份,指標代碼,本月實際) '
                          + ' values('+ '''' + '022' + '''' + ',' + iYear + ',' + iMonth + ','
                          + iCode + ',' + iValue + ')';

                ADOCommand1.CommandText:=sqlString;
                ADOCommand1.Execute;
        end;
        for iRow:=0 to 19 do
        begin
                iValue:=ListView1.Items[iRow].SubItems[6];
                iCode:='''' + ListView1.Items[iRow].SubItems[4] + '''';
                iCode1:=ListView1.Items[iRow].SubItems[4];
                ADOQuery1.FieldByName(iCode1).Value:=iValue;

                sqlString:= 'insert into 公交行業統計月報_z (城市代碼,統計年份,統計月份,指標代碼,本月實際) '
                          + ' values('+ '''' + '022' + '''' + ',' + iYear + ',' + iMonth + ','
                          + iCode + ',' + iValue + ')';

                ADOCommand1.CommandText:=sqlString;
                ADOCommand1.Execute;
        end;
        for iRow := 0 to 20 do
        begin
                iValue:=ListView2.Items[iRow].SubItems[2];
                iCode:='''' + ListView2.Items[iRow].SubItems[0] + '''';
                iCode1:=ListView2.Items[iRow].SubItems[0];

                ADOQuery1.FieldByName(iCode1).Value:=iValue;

                sqlString:= 'insert into 公交行業統計月報_z (城市代碼,統計年份,統計月份,指標代碼,本月實際) '
                          + ' values('+ '''' + '022' + '''' + ',' + iYear + ',' + iMonth + ','
                          + iCode + ',' + iValue + ')';

                ADOCommand1.CommandText:=sqlString;
                ADOCommand1.Execute;
        end;
        for iRow:=0 to 19 do
        begin
                iValue:=ListView2.Items[iRow].SubItems[6];
                iCode:='''' + ListView2.Items[iRow].SubItems[4] + '''';
                iCode1:=ListView2.Items[iRow].SubItems[4];
                {if (iRow >=0) and (iRow <=7) then
                begin
                        ADOQuery1.FieldByName(iCode).AsFloat:=iValue;
                end
                else if (iRow >=8) and (iRow<=9) then
                begin
                        ADOQuery1.FieldByName(iCode).AsInteger:=iValue;
                end
                else if (iRow=10) or (iRow=14) then
                begin
                        ADOQuery1.FieldByName(iCode).AsFloat:=iValue;
                end
                else if (iRow>=11) and (iRow <=13) then
                begin
                        ADOQuery1.FieldByName(iCode).AsInteger:=iValue;
                end
                else if (iRow>=15) and (iRow <=19) then
                begin
                        ADOQuery1.FieldByName(iCode).AsInteger:=iValue;
                end;
                }
                ADOQuery1.FieldByName(iCode1).Value:=iValue;

                sqlString:= 'insert into 公交行業統計月報_z (城市代碼,統計年份,統計月份,指標代碼,本月實際) '
                          + ' values('+ '''' + '022' + '''' + ',' + iYear + ',' + iMonth + ','
                          + iCode + ',' + iValue + ')';

                ADOCommand1.CommandText:=sqlString;
                ADOCommand1.Execute;
        end;

        ADOQuery1.Post;
        
        {for iCol=0 to  80 do
        begin
                if (iCol >=0) and (iCol<=19) then
                begin
                        ADOQuery1.FieldByName()
                end
                else if (iCol>=20) and (iCol <=39) then
                begin
                end
                else if (iCol>=40) and (iCol <=60) then
                begin
                end
                else if (iCol>=61) and (iCol <=80) then
                begin
                end;
        end;}

end;
{
procedure TBusTradeCountMonFm.Button1Click(Sender: TObject);
var
        iMonth:String;
        iYear:String;
        sqlString:String;
begin
        //生成需要匯總數據的年份和月份信息
        iMonth:=Edit2.Text;
        iYear:=Edit1.Text;

        //查詢判斷該年該月數據是否已經存在
        sqlString:='select 指標代碼,本年本月實際 as 本月實際 from 公交行業統計月報_z where 統計年份='
                   + iYear + ' and 統計月份 = ' + iMonth;
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add(sqlString);
        ADOQuery1.Open;

        //如果數據存在，直接顯示；否則，生成數據并顯示
        if ADOQuery1.RecordCount<>0 then
        begin
                ShowMessage('該年該月的行業數據已存在！');
                DBGrid1.DataSource:= DataSource1;
        end
        else
        begin
                //判斷企業數據中是否存在當年當月的數據
                sqlString:='select 指標代碼 from 公交企業統計月報表_z where 統計年份='
                        + iYear + ' and 統計月份=' + iMonth;
                ADOQuery3.Close;
                ADOQuery3.SQL.Clear;
                ADOQuery3.SQL.Add(sqlString);
                ADOQuery3.Open;

                //如果不存在企業數據，錄入；否則，匯總、顯示
                if ADOQuery3.RecordCount=0 then
                begin
                        ShowMessage('不存在本年本月的企業月報數據,請先錄入!');
                        exit;
                end
                else
                begin
                        sqlString:='insert into 公交行業統計月報_z (統計年份,統計月份,指標代碼,本年本月實際) '
                                + ' select ' + iYear + ',' + iMonth + ', 指標代碼,sum(本月實際)'
                                + ' from 公交企業統計月報表_z where 統計年份= ' + iYear + ' and 統計月份= '
                                + iMonth + ' group by 指標代碼';
                        ADOCommand1.CommandText:=sqlString;
                        ADOCommand1.Execute;

                        sqlString:= 'select 指標代碼,本年本月實際 as 本月實際 from 公交行業統計月報_z where 統計年份='
                        + iYear + ' and 統計月份 = ' + iMonth;

                        ADOQuery1.Close;
                        ADOQuery1.SQL.Clear;
                        ADOQuery1.SQL.Add(sqlString);
                        ADOQuery1.Open;
                        DBGrid1.DataSource:= DataSource1;
                end;
        end;

end;
}
{procedure TBusTradeCountMonFm.Button2Click(Sender: TObject);
var
        iMonth:String;
        iYear:String;
        sqlString:String;

begin
        //生成需要匯總數據的年份和月份信息
        iMonth:=Edit2.Text;
        iYear:=Edit1.Text;

        //查詢判斷該年該月數據是否已經存在
        sqlString:='SELECT sum(a.本年本月實際) AS 累計, a.指標代碼, max(b.本年本月實際) AS 本月實際 '
                +' FROM 公交行業統計月報_z AS a, 公交行業統計月報_z AS b'
                +' WHERE a.統計年份=' + iYear + ' and a.統計月份<= ' + iMonth
                +' and b.統計年份=' + iYear + ' and b.統計月份=' + iMonth
                +' and b.指標代碼=a.指標代碼 GROUP BY a.指標代碼';

        ADOQuery4.Close;
        ADOQuery4.SQL.Clear;
        ADOQuery4.SQL.Add(sqlString);
12 下一頁
?? 文件大小 4049 K
?? 上傳用戶 haorenkv3
?? 所屬分類其他行業
??? 相關標簽

#管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? bustradecountmonunit.~pas

?? 快捷鍵說明
