亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關(guān)于我們
? 蟲蟲下載站

?? bustradecountmonunit.~pas

?? 公交行業(yè)的管理系統(tǒng)
?? ~PAS
?? 第 1 頁(yè) / 共 2 頁(yè)
字號(hào): 
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 公交行業(yè)統(tǒng)計(jì)月報(bào)表 (城市代碼,統(tǒng)計(jì)年份,統(tǒng)計(jì)月份,生成方式) values('
                  +'''' + '022' + '''' + ',' + iYear + ',' + iMonth + ',' + '''' + '生成' + '''' + ')';
        ADOCommand1.CommandText:=sqlString;
        ADOCommand1.Execute;
        }
        sqlString:='select * from  公交行業(yè)統(tǒng)計(jì)月報(bào)表 where 城市代碼='+'''' + '022' + ''''
                  + ' and 生成方式=' + '''' + '生成' + '''' + 'and 統(tǒng)計(jì)年份=' + iYear + ' and 統(tǒng)計(jì)月份=' + 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 公交行業(yè)統(tǒng)計(jì)月報(bào)_z set 本月實(shí)際=' + iValue
                          + ' where 城市代碼=' + '''' + '022' + '''' + ' and 統(tǒng)計(jì)年份=' + iYear
                          + ' and 統(tǒng)計(jì)月份=' + iMonth + ' and 指標(biāo)代碼= ' + 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 公交行業(yè)統(tǒng)計(jì)月報(bào)_z (城市代碼,統(tǒng)計(jì)年份,統(tǒng)計(jì)月份,指標(biāo)代碼,本月實(shí)際) '
                          + ' values('+ '''' + '022' + '''' + ',' + iYear + ',' + iMonth + ','
                          + iCode + ',' + iValue + ')';}

                sqlString:= 'update 公交行業(yè)統(tǒng)計(jì)月報(bào)_z set 本月實(shí)際=' + iValue
                          + ' where 城市代碼=' + '''' + '022' + '''' + ' and 統(tǒng)計(jì)年份=' + iYear
                          + ' and 統(tǒng)計(jì)月份=' + iMonth + ' and 指標(biāo)代碼= ' + 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 公交行業(yè)統(tǒng)計(jì)月報(bào)_z (城市代碼,統(tǒng)計(jì)年份,統(tǒng)計(jì)月份,指標(biāo)代碼,本月實(shí)際) '
                          + ' values('+ '''' + '022' + '''' + ',' + iYear + ',' + iMonth + ','
                          + iCode + ',' + iValue + ')';}
                sqlString:= 'update 公交行業(yè)統(tǒng)計(jì)月報(bào)_z set 本月實(shí)際=' + iValue
                          + ' where 城市代碼=' + '''' + '022' + '''' + ' and 統(tǒng)計(jì)年份=' + iYear
                          + ' and 統(tǒng)計(jì)月份=' + iMonth + ' and 指標(biāo)代碼= ' + 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 公交行業(yè)統(tǒng)計(jì)月報(bào)_z (城市代碼,統(tǒng)計(jì)年份,統(tǒng)計(jì)月份,指標(biāo)代碼,本月實(shí)際) '
                          + ' values('+ '''' + '022' + '''' + ',' + iYear + ',' + iMonth + ','
                          + iCode + ',' + iValue + ')';}

                sqlString:= 'update 公交行業(yè)統(tǒng)計(jì)月報(bào)_z set 本月實(shí)際=' + iValue
                          + ' where 城市代碼=' + '''' + '022' + '''' + ' and 統(tǒng)計(jì)年份=' + iYear
                          + ' and 統(tǒng)計(jì)月份=' + iMonth + ' and 指標(biāo)代碼= ' + 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 公交行業(yè)統(tǒng)計(jì)月報(bào)表 (城市代碼,統(tǒng)計(jì)年份,統(tǒng)計(jì)月份,生成方式,備注) values('
                  +'''' + '022' + '''' + ',' + iYear + ',' + iMonth + ',' + '''' + '生成' + ''''
                  +',' + '''' + Memo1.Lines.Strings[1] + '''' +')';
        ADOCommand1.CommandText:=sqlString;
        ADOCommand1.Execute;

        sqlString:='select * from  公交行業(yè)統(tǒng)計(jì)月報(bào)表 where 城市代碼='+'''' + '022' + ''''
                  + ' and 生成方式=' + '''' + '生成' + '''' + 'and 統(tǒng)計(jì)年份=' + iYear + ' and 統(tǒng)計(jì)月份=' + 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 公交行業(yè)統(tǒng)計(jì)月報(bào)_z (城市代碼,統(tǒng)計(jì)年份,統(tǒng)計(jì)月份,指標(biāo)代碼,本月實(shí)際) '
                          + ' 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 公交行業(yè)統(tǒng)計(jì)月報(bào)_z (城市代碼,統(tǒng)計(jì)年份,統(tǒng)計(jì)月份,指標(biāo)代碼,本月實(shí)際) '
                          + ' 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 公交行業(yè)統(tǒng)計(jì)月報(bào)_z (城市代碼,統(tǒng)計(jì)年份,統(tǒng)計(jì)月份,指標(biāo)代碼,本月實(shí)際) '
                          + ' 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 公交行業(yè)統(tǒng)計(jì)月報(bào)_z (城市代碼,統(tǒng)計(jì)年份,統(tǒng)計(jì)月份,指標(biāo)代碼,本月實(shí)際) '
                          + ' 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
        //生成需要匯總數(shù)據(jù)的年份和月份信息
        iMonth:=Edit2.Text;
        iYear:=Edit1.Text;

        //查詢判斷該年該月數(shù)據(jù)是否已經(jīng)存在
        sqlString:='select 指標(biāo)代碼,本年本月實(shí)際 as 本月實(shí)際 from 公交行業(yè)統(tǒng)計(jì)月報(bào)_z where 統(tǒng)計(jì)年份='
                   + iYear + ' and 統(tǒng)計(jì)月份 = ' + iMonth;
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add(sqlString);
        ADOQuery1.Open;

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

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

                        sqlString:= 'select 指標(biāo)代碼,本年本月實(shí)際 as 本月實(shí)際 from 公交行業(yè)統(tǒng)計(jì)月報(bào)_z where 統(tǒng)計(jì)年份='
                        + iYear + ' and 統(tǒng)計(jì)月份 = ' + 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
        //生成需要匯總數(shù)據(jù)的年份和月份信息
        iMonth:=Edit2.Text;
        iYear:=Edit1.Text;

        //查詢判斷該年該月數(shù)據(jù)是否已經(jīng)存在
        sqlString:='SELECT sum(a.本年本月實(shí)際) AS 累計(jì), a.指標(biāo)代碼, max(b.本年本月實(shí)際) AS 本月實(shí)際 '
                +' FROM 公交行業(yè)統(tǒng)計(jì)月報(bào)_z AS a, 公交行業(yè)統(tǒng)計(jì)月報(bào)_z AS b'
                +' WHERE a.統(tǒng)計(jì)年份=' + iYear + ' and a.統(tǒng)計(jì)月份<= ' + iMonth
                +' and b.統(tǒng)計(jì)年份=' + iYear + ' and b.統(tǒng)計(jì)月份=' + iMonth
                +' and b.指標(biāo)代碼=a.指標(biāo)代碼 GROUP BY a.指標(biāo)代碼';

        ADOQuery4.Close;
        ADOQuery4.SQL.Clear;
        ADOQuery4.SQL.Add(sqlString);

?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
精品国产伦一区二区三区观看体验 | 天天做天天摸天天爽国产一区| 懂色av一区二区三区蜜臀| 久久精品国产精品亚洲红杏| 亚洲高清中文字幕| 麻豆91精品视频| 国产精品人成在线观看免费| 亚洲人成网站影音先锋播放| 国产精品第五页| 亚洲图片另类小说| 成人欧美一区二区三区黑人麻豆 | 日韩一级在线观看| 欧美一区二区三区小说| 欧美一区二区三区在线| 5月丁香婷婷综合| 夜夜嗨av一区二区三区网页 | 亚洲精品国产成人久久av盗摄| 国产精品传媒入口麻豆| 亚洲欧美中日韩| 亚洲精品精品亚洲| 亚洲风情在线资源站| 亚洲v中文字幕| 亚洲第一成人在线| 爽好多水快深点欧美视频| 欧美丝袜丝交足nylons图片| 成人国产视频在线观看| 亚洲大片精品永久免费| 国产精品久久午夜| 亚洲蜜臀av乱码久久精品蜜桃| 一区二区在线观看不卡| 丝袜a∨在线一区二区三区不卡| 男男gaygay亚洲| 久久久久久综合| 亚洲国产高清aⅴ视频| 亚洲综合色婷婷| 日韩成人免费看| 国产福利精品一区二区| 色香蕉成人二区免费| 91精品国产乱| 亚洲国产成人午夜在线一区| 国产在线精品一区二区不卡了| 日韩精品久久久久久| 韩国在线一区二区| www.亚洲精品| 欧美亚州韩日在线看免费版国语版| 777午夜精品免费视频| 国产性天天综合网| 一区二区三区在线观看欧美| 久久99精品国产麻豆婷婷 | 欧美一区2区视频在线观看| 久久久久国产精品麻豆ai换脸| 精品一区二区综合| 99久久精品免费观看| 91精品综合久久久久久| 欧美国产日韩一二三区| 爽好多水快深点欧美视频| 国产欧美精品一区aⅴ影院| 亚洲国产精品一区二区www| 国产成人午夜精品影院观看视频 | 久久新电视剧免费观看| 亚洲综合久久av| 国产一区二区三区免费播放| 亚洲综合色视频| 一区二区三区在线视频观看| 韩国av一区二区三区在线观看 | 久久人人97超碰com| 自拍偷拍国产亚洲| 久久99久久99| 欧美色图天堂网| 亚洲国产高清不卡| 韩国精品一区二区| 欧美日韩另类一区| 成人免费一区二区三区在线观看| 久久99九九99精品| 精品日韩一区二区三区免费视频| 国产精品不卡在线观看| 国产一级精品在线| 欧美三级日韩三级| 国产三级一区二区| 久久国内精品视频| 欧美日韩美少妇| 亚洲香蕉伊在人在线观| 99精品视频一区| 99国产欧美久久久精品| 久久久久久久久97黄色工厂| 免费一级片91| 欧美精品精品一区| 亚洲国产精品久久人人爱蜜臀| eeuss国产一区二区三区| 久久久久久久久久美女| 韩国欧美国产1区| 午夜激情久久久| 亚洲成人激情综合网| 色综合久久综合网97色综合| 欧美激情一二三区| 国产成人h网站| 久久精品一区八戒影视| 精品一区二区三区蜜桃| 日韩午夜精品电影| 日韩国产高清在线| 91.com在线观看| 亚洲一区中文日韩| 亚洲一二三四区| 日韩视频一区二区在线观看| 波多野结衣中文字幕一区二区三区| 91在线无精精品入口| 中文字幕av一区二区三区高| 国产二区国产一区在线观看| 久久久久国产免费免费| 国产高清精品网站| 中文字幕精品三区| 国产免费久久精品| 亚洲人午夜精品天堂一二香蕉| 国产精品66部| 国产精品高潮呻吟久久| 国产成人午夜片在线观看高清观看| 国产校园另类小说区| 不卡视频免费播放| 亚洲伦理在线精品| 在线观看一区不卡| 日精品一区二区三区| 亚洲精品久久久蜜桃| 成人午夜电影小说| 国产精品欧美一级免费| 91福利在线免费观看| 亚洲成av人片在www色猫咪| 91精品国产色综合久久不卡电影| 日本欧美一区二区在线观看| 精品sm在线观看| 极品瑜伽女神91| 国产三级久久久| thepron国产精品| 精品一区二区三区不卡| 亚洲人成网站影音先锋播放| 另类小说视频一区二区| 欧美精品在线一区二区三区| 日产精品久久久久久久性色| 久久网站最新地址| 9l国产精品久久久久麻豆| 亚洲一区二区三区四区在线观看| 日韩视频免费观看高清完整版在线观看 | 欧美日韩一区中文字幕| 老司机午夜精品| ...xxx性欧美| 日韩一区二区在线看片| 亚洲精品午夜久久久| 337p亚洲精品色噜噜噜| 国产成人在线影院| 亚洲综合色噜噜狠狠| 日韩欧美国产三级电影视频| 成人激情黄色小说| 午夜欧美大尺度福利影院在线看| 久久人人97超碰com| 欧美视频三区在线播放| 国产一区二区美女诱惑| 秋霞午夜av一区二区三区| 日韩精品在线网站| 99国产精品久久久久久久久久久| 青椒成人免费视频| 欧美国产精品一区| 91精品免费观看| 日韩视频中午一区| 国产精品网站在线观看| 亚洲天堂精品在线观看| 国产一区二区三区精品欧美日韩一区二区三区 | 欧美疯狂性受xxxxx喷水图片| 九九国产精品视频| 亚洲一线二线三线视频| 国产亚洲精品免费| 在线欧美日韩国产| 国产精品影音先锋| 亚洲成人福利片| 中文字幕一区二区不卡| 精品国产百合女同互慰| 91久久人澡人人添人人爽欧美| 欧美韩国日本一区| 久久久av毛片精品| 亚洲国产精品一区二区久久 | 五月婷婷综合激情| 国产精品第13页| 日韩美一区二区三区| 91色视频在线| 欧美区一区二区三区| 美国十次了思思久久精品导航| 午夜视黄欧洲亚洲| 国产精品正在播放| 日韩精品一区二区三区四区| 精彩视频一区二区三区| 天天av天天翘天天综合网色鬼国产 | 男女视频一区二区| 亚洲美女免费在线| 国产精品久久久久影院| 亚洲精品一区二区三区福利| 91精品国产一区二区| 欧美日韩在线精品一区二区三区激情| 成人高清伦理免费影院在线观看| 国产精品123| 国产乱码精品一区二区三区忘忧草| 蜜桃av一区二区| 男人的天堂亚洲一区|