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

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? fuser.pas

?? 這是一個基于vb數據庫開發的成績管理系統,對初學者有很大作用
?? PAS
字號: 
unit FUser;

interface

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

type
  TFrmuser = class(TForm)
    PageControl1: TPageControl;
    Panel1: TPanel;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    sbtnAdd: TSpeedButton;
    sbtnEdit: TSpeedButton;
    sbtnDele: TSpeedButton;
    sbtnUpdate: TSpeedButton;
    sbtnYes: TSpeedButton;
    sbtnCancel: TSpeedButton;
    SpeedButton1: TSpeedButton;
    Gbox: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    DBGrid2: TDBGrid;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    ListBox1: TListBox;
    GroupBox3: TGroupBox;
    ListBox2: TListBox;
    rightadd: TSpeedButton;
    rightall: TSpeedButton;
    leftall: TSpeedButton;
    leftadd: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Edit5: TEdit;
    Label6: TLabel;
    GroupBox4: TGroupBox;
    Edit6: TEdit;
    GroupBox5: TGroupBox;
    ListBox3: TListBox;
    GroupBox6: TGroupBox;
    Edit7: TEdit;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sbtnAddClick(Sender: TObject);
    procedure sbtnEditClick(Sender: TObject);
    procedure sbtnDeleClick(Sender: TObject);
    procedure sbtnYesClick(Sender: TObject);
    procedure sbtnCancelClick(Sender: TObject);
    procedure sbtnUpdateClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure rightaddClick(Sender: TObject);
    procedure rightallClick(Sender: TObject);
    procedure leftallClick(Sender: TObject);
    procedure leftaddClick(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure ListBox3DblClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
    frmMode:String;
    procedure sbtnMode(frmMode:String);
    Procedure EditMode;
    Procedure NorMode;
    procedure EditForm(S:String);
    procedure IncMode;
  public
    { Public declarations }
  end;

var
  Frmuser: TFrmuser;

implementation
uses mainD,UTIL;
{$R *.dfm}

procedure TFrmuser.SpeedButton1Click(Sender: TObject);
begin
 close;
end;

procedure TFrmuser.EditMode;
begin
FrmMode := 'edt';
sbtnMode(FrmMode);
end;

procedure TFrmuser.NorMode;
begin
FrmMode := 'nor';
sbtnMode(FrmMode);
end;

procedure TFrmuser.sbtnMode(frmMode: String);
begin
sbtnAdd.Enabled    := false;
sbtnEdit.Enabled   := False;
sbtnDele.Enabled   := False;
sbtnUpdate.Enabled := False;
sbtnYes.Enabled    := False;
sbtnCancel.Enabled := False;
GBox.Visible       := False;
if (frmMode = 'edt') or (frmMode = 'inc')  then
begin
  sbtnAdd.Enabled    := false;
  sbtnEdit.Enabled   := False;
  sbtnDele.Enabled   := False;
  sbtnUpdate.Enabled := False;
  sbtnYes.Enabled    := true;
  sbtnCancel.Enabled := true;
  Gbox.Visible       := true;

end else if frmMode = 'nor' then
begin
  sbtnAdd.Enabled    := true;
  sbtnEdit.Enabled   := true;
  sbtnDele.Enabled   := true;
  sbtnUpdate.Enabled := true;
  sbtnYes.Enabled    := False;
  sbtnCancel.Enabled := False;
  GBox.Visible       := False;
end;
end;

procedure TFrmuser.FormCreate(Sender: TObject);
begin
with MainDfrm do
begin
   query1.SQL.Clear;
   query1.SQL.Add('SELECT * FROM Userinfo ORDER BY uID');

   uquery1.InsertSQL.Clear;
   uquery1.InsertSQL.Add('insert into Userinfo(uID,uUser,Passwd,CreateD)');
   uquery1.InsertSQL.Add('values');
   uquery1.InsertSQL.Add('(:uID,:uUser,:Passwd,:CreateD)');

//   uquery1.ModifySQL.Clear;
//   uquery1.ModifySQL.Add('UPDATE Userinfo SET');
//   uquery1.ModifySQL.Add('User ='''+edit2.Text+''',');
//   uquery1.ModifySQL.Add('Passwd ='''+edit3.Text+'''');
//   uquery1.ModifySQL.Add('WHERE uID='''+Trim(edit1.Text)+'''');

   uquery1.ModifySQL.Clear;
   uquery1.ModifySQL.Add('UPDATE Userinfo SET');
   uquery1.ModifySQL.Add('uUser =:uUser,Passwd =:passwd,CreateD=:CreateD');
   uquery1.ModifySQL.Add('WHERE uID=:uID');

   uquery1.DeleteSQL.Clear;
   uquery1.DeleteSQL.Add('DELETE FROM Userinfo WHERE');
   uquery1.DeleteSQL.add('uID=:uID');

   query1.Close;
   query1.Open;
end;
NorMode;

end;

procedure TFrmuser.sbtnAddClick(Sender: TObject);
begin
if MaindFrm.CheckPermission(UserID,'useradd')=False then exit;
editForm('add');
MainDFrm.query1.Append;
IncMode;
edit1.SetFocus;
end;

procedure TFrmuser.sbtnEditClick(Sender: TObject);
begin
if MaindFrm.CheckPermission(UserID,'useredt')=False then exit;
editForm('edit');
MainDFrm.query1.Edit;
editMode;
edit2.SetFocus;
end;

procedure TFrmuser.sbtnDeleClick(Sender: TObject);
begin
if MaindFrm.CheckPermission(UserID,'userdel')=False then exit;
EditForm('edit');
if edit1.Text = 'admin' then
begin
MessageBox(Application.handle,'不能刪除系統管理員！','提示',mb_ICONWarning+mb_OK);
 exit;
 end;
if MessageBox(Application.Handle,'確認要刪除嗎？','刪除提示',
    mb_ICONInformation+mb_YESNO+mb_DEFbutton2)=mryes then
  begin
   with MainDFrm do
   begin
    uquery1.DeleteSQL.Clear;
    uquery1.DeleteSQL.Add('DELETE FROM Userinfo WHERE');
    uquery1.DeleteSQL.add('uID='''+Edit1.Text+'''');

   query1.Delete;
     try
       query1.Database.StartTransaction;
       query1.ApplyUpdates;
       query1.CommitUpdates;
       query1.Database.Commit;
     except
       query1.Database.Rollback;
       query1.CancelUpdates;
       MessageBox(Application.handle,'存盤失?。?#039;,'提示',mb_ICONInformation+mb_OK);
     end;
   end;
  end;
  norMode;
  EditForm('');
  end;

procedure TFrmuser.sbtnYesClick(Sender: TObject);
begin
if edit1.Text = '' then exit;
if edit2.Text = '' then exit;
if edit3.Text = '' then exit;
if (edit4.Text = '') or (edit3.Text <>edit4.Text) then
begin
   ShowMessage('輸入密碼不正確');
   edit3.SetFocus;
   edit3.SelectAll;
   exit;
end;
 if Length(edit3.Text)<4 then
 begin
    ShowMessage('輸入確認密碼不能少于4位');
    exit;
 end ;

if frmMode = 'inc' then
if MainDFrm.CheckUserID(Edit1.Text) = True then exit;
  With MainDfrm  do
  begin
   try
    query1.FieldByName('uID').AsString := Edit1.Text;
    query1.FieldByName('uUser').AsString := Edit2.Text;
    query1.FieldByName('Passwd').AsString := Encrypt(edit3.text,1357,2,1);
    query1.FieldByName('CreateD').AsString := DatetoStr(Date);
    query1.Post;
    query1.Database.StartTransaction;
    query1.ApplyUpdates;
    query1.CommitUpdates;
    query1.Database.Commit;
  except
    query1.Database.Rollback;
    query1.CancelUpdates;
    MessageBox(Application.handle,'存盤失??！','提示',mb_ICONInformation+mb_OK);
   end;
  end;
norMode;
EditForm('');
end;

procedure TFrmuser.sbtnCancelClick(Sender: TObject);
begin
if MessageBox(Application.Handle,'確認要取消嗎？','提示',
    mb_ICONInformation+mb_YESNO+mb_DEFbutton2)=mryes then
   MainDFrm.query1.Cancel;
norMode;
end;
//
procedure TFrmuser.EditForm(S: String);
begin
edit1.Enabled  := False;
    edit1.Text := '';
    edit2.Text := '';
    edit3.Text := '';
    edit4.Text := '';
 if s = 'add' then
 begin
    edit1.Enabled := True;
    edit1.Text := '';
    edit2.Text := '';
    edit3.Text := '';
    edit4.Text := '';
 end else if s = 'edit' then
 begin
    edit1.Enabled := False;
    edit1.Text := MainDfrm.query1.Fields.Fields[0].AsString;
    edit2.Text := MainDfrm.query1.Fields.Fields[1].AsString;
    edit3.Text := MainDfrm.query1.Fields.Fields[2].AsString;
    edit4.Text := MainDfrm.query1.Fields.Fields[2].AsString;
 end;
end;
//更新數據====================//
procedure TFrmuser.sbtnUpdateClick(Sender: TObject);
begin
if MaindFrm.CheckPermission(UserID,'userupdt')=False then exit;
MainDFrm.query1.SQL.Clear;
MainDFrm.query1.SQL.Add('SELECT * FROM Userinfo ORDER BY uID');
MainDFrm.query1.close;
MainDFrm.query1.Open;
end;
//退出系統========================//
procedure TFrmuser.SpeedButton2Click(Sender: TObject);
begin
Application.Terminate;
end;
//編輯模式=======================//
procedure TFrmuser.IncMode;
begin
FrmMode := 'inc';
sbtnMode(FrmMode);
end;
//授予權限====================//
procedure TFrmuser.rightaddClick(Sender: TObject);
begin
if listbox1.ItemIndex <0 then exit;
if listbox1.Items.Count = 0 then
 begin
   rightadd.Enabled := false;
   rightall.Enabled := false;
   exit;
 end;
listbox2.Items.Add(listbox1.Items[listbox1.itemindex]);
listbox1.Items.Delete(listbox1.itemindex);
leftall.Enabled := true;
leftadd.Enabled := true;

end;
//授予全部權限 ===================//
procedure TFrmuser.rightallClick(Sender: TObject);
begin
listbox2.Items.AddStrings(Listbox1.Items);
listbox1.Items.Clear;
rightadd.Enabled := false;
rightall.Enabled := false;
leftall.Enabled := true;
leftadd.Enabled := true;
end;
//取消全部權限 ==================//
procedure TFrmuser.leftallClick(Sender: TObject);
begin
  listbox1.Items.AddStrings(Listbox2.Items);
  listbox2.Items.Clear;
  rightadd.Enabled := true;
  rightall.Enabled := true;
  leftadd.Enabled  := false;
  leftall.Enabled  := false;
end;
//取消權限
procedure TFrmuser.leftaddClick(Sender: TObject);
begin
if listbox2.ItemIndex <0 then exit;
if listbox2.Items.Count = 0 then
 begin
 leftadd.Enabled := false;
 leftall.Enabled := false;
 exit;
 end;
listbox1.Items.Add(listbox2.Items[listbox2.itemindex]);
listbox2.Items.Delete(listbox2.itemindex);
rightadd.Enabled := true;
rightall.Enabled := true;

end;

//選擇頁面改變時================//
procedure TFrmuser.PageControl1Change(Sender: TObject);
var
tmpstr:string;
     i:integer;
begin
if PageControl1.ActivePageIndex = 1 then
begin
  edit6.Text := UserID;
  edit7.text := UserName;
//  combobox1.Enabled := false;
  with MainDFrm do
  begin
    Qgrant.SQL.Clear;
    Qgrant.SQL.Add('SELECT funt.fID,funt.fName FROM funt,bgrant');
    Qgrant.SQL.Add(' where funt.fID= bgrant.fID');
    Qgrant.SQL.Add('and bgrant.uID='''+UserID+'''');
    Qgrant.SQL.Add('and bgrant.gright=1');
    Qgrant.SQL.Add('order by funt.fID');

    Qgrant.Close;
    Qgrant.Open;
    listbox1.Clear;
    listbox2.Clear;
    leftadd.Enabled := false;
    leftall.Enabled := false;
    Qgrant.First;
    while not Qgrant.Eof  do
    begin
     listbox1.Items.Add(Qgrant.fields.Fields[1].AsString);
    Qgrant.Next;
     end;
   end;


  with MainDFrm  do
  begin
    Qgrant.SQL.Clear;
    Qgrant.SQL.Add('SELECT * FROM Userinfo');
    Qgrant.close;
    Qgrant.open;
    combobox1.Clear;
    Qgrant.First;
    while not Qgrant.Eof do
     begin
        tmpstr := Qgrant.fieldbyname('uID').asString;
        if (tmpstr <> UserID) or ( tmpstr <> 'admin') then
        combobox1.Items.Add(tmpstr);
        Qgrant.Next;
      end;
    for i:=0 to combobox1.Items.Count-1 do
     if (combobox1.Items[i] = UserID) or
        (combobox1.Items[i] = 'admin') then
         combobox1.Items.Delete(i);
  end;

   end else if  PageControl1.ActivePageIndex = 2 then
   begin
   MainDfrm.tbhistory.Open;
   end;


end;

procedure TFrmuser.ComboBox1Change(Sender: TObject);
var
  str:String;
  q1 :TQuery;
   i:integer;
begin
   listbox3.Clear;
   str := trim(combobox1.Items[combobox1.itemindex]);
   edit5.Text := MainDFrm.FeedUuser(str);
   GroupBox5.Caption := edit5.Text +'[雙擊取消權限]';

   q1 := TQuery.Create(application.Owner);
   try
    q1.DatabaseName := 'main';
    q1.SQL.Clear;
    q1.SQL.Add('SELECT bgrant.fID,funt.fName FROM funt');
    q1.SQL.Add(',bgrant where funt.fID= bgrant.fID');
    q1.SQL.Add('and bgrant.uID='''+str+'''');
    q1.SQL.Add('and bgrant.gright=1');
    q1.SQL.Add('order by bgrant.fID');
    q1.Close;
    q1.Open;
    q1.First;
    for i:=0 to q1.RecordCount-1 do
    begin
     listbox3.Items.Add(q1.fields.Fields[1].AsString);
     q1.Next;
     end;
   finally
    q1.Free;
   end;
end;

procedure TFrmuser.SpeedButton7Click(Sender: TObject);
var
  str,strfid: string;
  i     :integer;
  uid  :String;
begin
if combobox1.Text = '' then exit;
if MaindFrm.CheckPermission(UserID,'grant')=False then exit;
  uid := trim(combobox1.Text);
  if listbox2.Items.Count = 0 then exit;
    with MainDFrm do
   begin
   for i:=0 to listbox2.Items.Count-1 do
   begin
     str    := trim(listbox2.Items[i]);
     strfid := CheckRight(uid,str);
  if strfid <>'' then
     begin
       QGrant.SQL.Clear;
       QGrant.SQL.Add('update bgrant set');
       Qgrant.SQL.Add('gright = 1 ');
       Qgrant.SQL.add('where fID ='''+strfid+'''');
       QGrant.SQL.Add('and uID='''+uid+'''');
       QGrant.Close;
       QGrant.ExecSQL;
     end else begin

       QGrant.SQL.Clear;
       QGrant.SQL.Add('insert into bgrant(fID,uID,gright)');
       QGrant.SQL.add('Values(');
       QGrant.SQL.Add(''''+FeedfuID(str)+''',');
       QGrant.SQL.Add(''''+uid+''',1)');
       QGrant.Close;
        QGrant.ExecSQL;
     end;

   end;
  end;
 leftall.Click;
ComboBox1Change(Sender);
end;

procedure TFrmuser.SpeedButton5Click(Sender: TObject);
begin
if MaindFrm.CheckPermission(UserID,'delhis')=False then exit;
MainDFrm.tbhistory.Delete;
end;

procedure TFrmuser.SpeedButton3Click(Sender: TObject);
begin
if MaindFrm.CheckPermission(UserID,'delhis')=False then exit;
if MessageBox(Application.Handle,'確認要清空嗎？','提示',mb_ICONInformation+mb_YESNO)= mrYES then
 with MainDFrm do
 begin
    tbhistory.Active := false;
    tbhistory.EmptyTable;
    tbhistory.Active := True;
 end;


end;
procedure TFrmuser.ListBox3DblClick(Sender: TObject);
begin
if MaindFrm.CheckPermission(UserID,'grantdel')=False then exit;
  MainDFrm.Qgrant.SQL.Clear;
  MainDFrm.Qgrant.SQL.Add('update bgrant set gright=0');
  MainDFrm.Qgrant.SQL.Add('where uID='''+combobox1.Items[combobox1.itemindex]+'''');
  MainDFrm.Qgrant.SQL.add('and fID = (Select funt.fID from funt ');
  MainDFrm.Qgrant.SQL.Add('where fName='''+listbox3.Items[listbox3.itemindex]+''')');
  MainDFrm.Qgrant.close;
  MainDFrm.Qgrant.ExecSQL;
  listbox3.Items.Delete(listbox3.ItemIndex);
end;

procedure TFrmuser.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canClose := True;
if (frmmode = 'inc') or (frmmode = 'edt') then
begin
  MessageBox(application.Handle,'請先結束輸入模式后再離開','警告',
  mb_ICONWarning+mb_OK);
  canClose := False;
end;

end;

end.

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
久久日韩粉嫩一区二区三区| 亚洲自拍另类综合| 亚洲三级久久久| 免费看日韩a级影片| 91免费国产在线| 精品国产一区二区三区不卡 | 国产精品久久久久久一区二区三区| 亚洲影视资源网| av激情成人网| 日本一区免费视频| 精品一区二区三区av| 欧美日韩第一区日日骚| 成人免费在线播放视频| 国产美女久久久久| 日韩欧美一级二级三级久久久| 亚洲免费三区一区二区| 国产精品99久| 精品美女在线观看| 视频一区二区三区在线| 91麻豆国产自产在线观看| 欧美国产乱子伦| 国产精品亚洲视频| 精品国精品自拍自在线| 日本成人超碰在线观看| 欧美肥妇free| 亚州成人在线电影| 欧美性猛交xxxx乱大交退制版 | 久久精品国产精品亚洲精品| 欧美吞精做爰啪啪高潮| 亚洲自拍偷拍图区| 在线观看免费成人| 一区二区三区精品| 欧美性生交片4| 香蕉av福利精品导航| 欧美区在线观看| 日韩电影在线一区| 欧美一区二区三区精品| 久久电影网电视剧免费观看| 精品99一区二区| 国产福利91精品一区| 国产亚洲精品免费| 成人黄色在线看| 亚洲精品免费在线观看| 色老汉一区二区三区| 亚洲国产精品一区二区久久恐怖片| 欧美视频一区二| 日韩成人av影视| 久久久综合网站| 99国产精品久久久久久久久久久| 国产精品灌醉下药二区| 色94色欧美sute亚洲线路一久 | 国产精品一卡二| 国产精品色婷婷久久58| av网站免费线看精品| 午夜激情一区二区三区| 精品sm在线观看| 91黄视频在线观看| 久久se精品一区精品二区| 国产精品国产三级国产专播品爱网| 91网页版在线| 麻豆精品一区二区三区| 中文字幕永久在线不卡| 欧美麻豆精品久久久久久| 国产在线播放一区| 亚洲精品日韩专区silk| 欧美精品一区二区久久婷婷 | 国产一区在线看| 国产精品成人免费在线| 欧美一区二区播放| av亚洲精华国产精华| 免费观看成人av| 国产精品久久久久久久裸模| 在线播放中文一区| 成人激情小说乱人伦| 日韩电影一二三区| 日韩一区中文字幕| 2欧美一区二区三区在线观看视频 337p粉嫩大胆噜噜噜噜噜91av | 久久国产精品99久久人人澡| 亚洲欧洲在线观看av| 欧美一区二区视频在线观看2022| caoporm超碰国产精品| 日韩电影在线一区二区| 亚洲人成在线观看一区二区| 精品福利一区二区三区| 欧美视频中文字幕| av中文字幕不卡| 久久99这里只有精品| 亚洲午夜羞羞片| 综合av第一页| 久久精品亚洲乱码伦伦中文| 日韩一区二区精品在线观看| 色哟哟精品一区| 成人av免费在线| 国产福利一区二区| 国产一区二区视频在线播放| 午夜伦欧美伦电影理论片| 亚洲乱码国产乱码精品精98午夜| 国产日韩三级在线| 精品国产乱码久久| 日韩欧美精品在线视频| 欧美精品乱码久久久久久| 欧美在线999| 在线观看成人小视频| 一本一道波多野结衣一区二区| thepron国产精品| 国产精品一区二区你懂的| 久久99久久久欧美国产| 热久久国产精品| 日韩精品电影在线观看| 人禽交欧美网站| 日韩电影在线观看电影| 日本中文字幕一区二区视频| 日韩成人一区二区| 青青草91视频| 精品影视av免费| 国产一区视频导航| 高清成人免费视频| a在线播放不卡| 色94色欧美sute亚洲线路二 | 亚洲va欧美va人人爽午夜| 亚洲国产毛片aaaaa无费看 | 成人av电影免费观看| thepron国产精品| 94-欧美-setu| 欧美视频自拍偷拍| 制服.丝袜.亚洲.另类.中文| 51精品国自产在线| 亚洲精品一区二区精华| 久久九九全国免费| ...av二区三区久久精品| 亚洲精品国产成人久久av盗摄| 亚洲国产精品尤物yw在线观看| 三级不卡在线观看| 狠狠狠色丁香婷婷综合久久五月| 国产69精品久久久久毛片| 一本一道综合狠狠老| 777a∨成人精品桃花网| 久久综合狠狠综合久久激情| 国产免费成人在线视频| 一区二区不卡在线视频 午夜欧美不卡在 | 精品久久人人做人人爰| 国产女人18毛片水真多成人如厕 | 欧美高清激情brazzers| 欧美电视剧在线观看完整版| 亚洲国产精品精华液ab| 亚洲一二三四在线| 精品在线免费视频| 色综合久久天天| 日韩午夜激情视频| 国产精品久久久久久久裸模| 视频在线在亚洲| 国产精品99久久久| 欧美男女性生活在线直播观看| 欧美精品一区二区三区高清aⅴ | 国产精品久久三区| 日韩成人精品视频| 91网站在线观看视频| 日韩三级视频中文字幕| 亚洲视频图片小说| 久久激情五月激情| 欧美在线啊v一区| 欧美极品美女视频| 青青草精品视频| 欧美在线免费观看亚洲| 国产女主播在线一区二区| 日本欧美大码aⅴ在线播放| 91免费视频大全| 久久久青草青青国产亚洲免观| 亚洲尤物视频在线| av一区二区久久| 国产亚洲制服色| 青青国产91久久久久久| 色88888久久久久久影院野外| 久久久久久亚洲综合| 日韩国产在线观看| 欧洲生活片亚洲生活在线观看| 欧美精彩视频一区二区三区| 美女视频黄 久久| 欧美三级午夜理伦三级中视频| 国产精品色在线观看| 国产乱子伦一区二区三区国色天香| 欧美日韩精品一区二区天天拍小说| 亚洲日本在线看| 9久草视频在线视频精品| 国产网站一区二区| 国产一区在线观看麻豆| 26uuu成人网一区二区三区| 天天操天天干天天综合网| 91福利在线导航| 亚洲蜜臀av乱码久久精品蜜桃| 99热国产精品| 亚洲特级片在线| 99免费精品在线| 亚洲卡通欧美制服中文| 色噜噜夜夜夜综合网| 一区二区三区在线免费播放| 在线视频观看一区| 亚洲综合免费观看高清完整版| 色呦呦国产精品| 亚洲国产精品欧美一二99|