?? unstud.pas

?? 最簡單的Delphi班級管理系統
?? PAS
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
    begin
       ADOQY2.SQL.Add('where 班號='''+edLiner+'''');
    end;

    //入學時間不為空
    if edTime<>'' then
    begin
      ADOQY2.SQL.Add('where 入學時間='''+edTime+'''');
    end;

    //郵政編碼不為空
    if EdMail<>'' then
    begin
      ADOQY2.SQL.Add('where 郵政編碼='''+EdMail+'''');
    end;

    //聯系電話不為空
    if edtelep<>'' then
    begin
      ADOQY2.SQL.Add('where 聯系電話='''+edtelep+'''');
    end;

    //家庭住址不為空
    if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');
     end;

    //備注不為空
    if edremark<>'' then
    begin
      ADOQY2.SQL.Add('where 備注='''+edremark+'''');
    end;
    end

     //出生年月不為空
    else if edMidyear<>'' then
    begin
      ADOQY2.SQL.Add('where 出生年月='''+edMidyear+'''');

    //班號不為空
    if edLiner<>'' then
    begin
       ADOQY2.SQL.Add('where 班號='''+edLiner+'''');
    end;

    //入學時間不為空
    if edTime<>'' then
    begin
      ADOQY2.SQL.Add('where 入學時間='''+edTime+'''');
    end;

    //郵政編碼不為空
    if EdMail<>'' then
    begin
      ADOQY2.SQL.Add('where 郵政編碼='''+EdMail+'''');
    end;

    //聯系電話不為空
    if edtelep<>'' then
    begin
      ADOQY2.SQL.Add('where 聯系電話='''+edtelep+'''');
    end;

    //家庭住址不為空
    if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');
     end;

    //備注不為空
    if edremark<>'' then
    begin
      ADOQY2.SQL.Add('where 備注='''+edremark+'''');
    end;
    end

    //班號不為空
    else if edLiner<>'' then
    begin
       ADOQY2.SQL.Add('where 班號='''+edLiner+'''');

    //入學時間不為空
    if edTime<>'' then
    begin
      ADOQY2.SQL.Add('where 入學時間='''+edTime+'''');
    end;

    //郵政編碼不為空
    if EdMail<>'' then
    begin
      ADOQY2.SQL.Add('where 郵政編碼='''+EdMail+'''');
    end;

    //聯系電話不為空
    if edtelep<>'' then
    begin
      ADOQY2.SQL.Add('where 聯系電話='''+edtelep+'''');
    end;

    //家庭住址不為空
    if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');
     end;

    //備注不為空
    if edremark<>'' then
    begin
      ADOQY2.SQL.Add('where 備注='''+edremark+'''');
    end;
    end

    //入學時間不為空
    else if edTime<>'' then
    begin
      ADOQY2.SQL.Add('where 入學時間='''+edTime+'''');

    //郵政編碼不為空
    if EdMail<>'' then
    begin
      ADOQY2.SQL.Add('where 郵政編碼='''+EdMail+'''');
    end;

    //聯系電話不為空
    if edtelep<>'' then
    begin
      ADOQY2.SQL.Add('where 聯系電話='''+edtelep+'''');
    end;

    //家庭住址不為空
    if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');
     end;

    //備注不為空
    if edremark<>'' then
    begin
      ADOQY2.SQL.Add('where 備注='''+edremark+'''');
    end;
    end

    //郵政編碼不為空
    else if EdMail<>'' then
    begin
      ADOQY2.SQL.Add('where 郵政編碼='''+EdMail+'''');

    //聯系電話不為空
    if edtelep<>'' then
    begin
      ADOQY2.SQL.Add('where 聯系電話='''+edtelep+'''');
    end;

    //家庭住址不為空
    if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');
     end;

    //備注不為空
    if edremark<>'' then
    begin
      ADOQY2.SQL.Add('where 備注='''+edremark+'''');
    end;
    end

     //聯系電話不為空
    else if edtelep<>'' then
    begin
      ADOQY2.SQL.Add('where 聯系電話='''+edtelep+'''');

    //家庭住址不為空
    if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');
     end;

    //備注不為空
    if edremark<>'' then
    begin
      ADOQY2.SQL.Add('where 備注='''+edremark+'''');
    end;
    end

    //家庭住址不為空
    else if EdDwelling<>'' then
    begin
      ADOQY2.SQL.Add('where 家庭住址='''+EdDwelling+'''');

    //備注不為空
    if edremark<>'' then
    begin
      ADOQY2.SQL.Add('where 備注='''+edremark+'''');
    end;
    end

    //備注不為空
    else if edremark<>'' then
    begin
      ADOQY2.SQL.Add('where 備注='''+edremark+'''');
    end

    else begin
          ADOQY2.SQL.Add('where 1<>1');
        end;

        ADOQY2.Open;

        //指向第一筆記錄
        ADOQY2.First;

        showmessage('共查到符合條件的'+inttostr(ADOQY2.RecordCount)+'條記錄!');

       //初始化各文本框不能使用
       Dbedit1.Enabled:=false;
       Dbedit2.Enabled:=false;
       Dbedit3.Enabled:=false;
       Dbedit4.Enabled:=false;
       Dbedit5.Enabled:=false;
       Dbedit6.Enabled:=false;
       Dbedit7.Enabled:=false;
       Dbedit8.Enabled:=false;
       Dbedit9.Enabled:=false;
       Dbedit10.Enabled:=false;

       //設置各按鈕的可用性
       Btn_Add.Enabled:=true;
       Btn_Modify.Enabled:=true;
       Btn_Delete.Enabled:=true;
       Btn_Query.Enabled:=true;
       Btn_Browse.Enabled:=true;
       Btn_Print.Enabled:=true;

       Btn_OK.Enabled:=false;
       Btn_Cancel.Enabled:=false;

       Btn_Query.SetFocus;

       //總記錄數
       LB_Count.Caption :=IntToStr(ADOQY2.RecordCount);
  end;
end;

procedure TFm_Student.Btn_CancelClick(Sender: TObject);
begin
  //取消新增操作
  if flag=1 then
  begin
    ADOQY2.Cancel;
    showmessage('當前新增操作已取消！  ');

    ADOQY2.Close;
    ADOQY2.SQL.Clear;
    ADOQY2.SQL.Add('select * from student_Info order by 學號');
    ADOQY2.Open;


    //初始化各文本框不能使用
    Dbedit1.Enabled:=false;
    Dbedit2.Enabled:=false;
    Dbedit3.Enabled:=false;
    Dbedit4.Enabled:=false;
    Dbedit5.Enabled:=false;
    Dbedit6.Enabled:=false;
    Dbedit7.Enabled:=false;
    Dbedit8.Enabled:=false;
    Dbedit9.Enabled:=false;
    Dbedit10.Enabled:=false;


    //設置各按鈕的可用性
    Btn_Add.Enabled:=true;
    Btn_Modify.Enabled:=true;
    Btn_Delete.Enabled:=true;
    Btn_Query.Enabled:=true;
    Btn_Browse.Enabled:=true;
    Btn_Print.Enabled:=true;

    Btn_OK.Enabled:=false;
    Btn_Cancel.Enabled:=false;

    Btn_Add.SetFocus;

    //總記錄數
    LB_Count.Caption :=IntToStr(ADOQY2.RecordCount);
  end

  //取消修改操作
  else if flag=2 then
  begin
    ADOQY2.Cancel;
    showmessage('當前修改操作已取消！  ');

    ADOQY2.Close;
    ADOQY2.SQL.Clear;
    ADOQY2.SQL.Add('select * from student_Info order by 學號');
    ADOQY2.Open;

    //初始化各文本框不能使用
    Dbedit1.Enabled:=false;
    Dbedit2.Enabled:=false;
    Dbedit3.Enabled:=false;
    Dbedit4.Enabled:=false;
    Dbedit5.Enabled:=false;
    Dbedit6.Enabled:=false;
    Dbedit7.Enabled:=false;
    Dbedit8.Enabled:=false;
    Dbedit9.Enabled:=false;
    Dbedit10.Enabled:=false;


    //設置各按鈕的可用性
    Btn_Add.Enabled:=true;
    Btn_Modify.Enabled:=true;
    Btn_Delete.Enabled:=true;
    Btn_Query.Enabled:=true;
    Btn_Browse.Enabled:=true;
    Btn_Print.Enabled:=true;

    Btn_OK.Enabled:=false;
    Btn_Cancel.Enabled:=false;

    Btn_Modify.SetFocus;

    //總記錄數
    LB_Count.Caption:=IntToStr(ADOQY2.RecordCount);
  end


  //取消查詢操作
  else if flag=3 then
  begin
    //在進行查詢之前先將所有的記錄清空
    ADOQY2.Close;
    ADOQY2.SQL.Clear;
    ADOQY2.SQL.Add('select * from student_Info where 1<>1');
    ADOQY2.open;

    showmessage('當前查詢操作已取消！');

    //初始化各文本框不能使用
    Dbedit1.Enabled:=false;
    Dbedit2.Enabled:=false;
    Dbedit3.Enabled:=false;
    Dbedit4.Enabled:=false;
    Dbedit5.Enabled:=false;
    Dbedit6.Enabled:=false;
    Dbedit7.Enabled:=false;
    Dbedit8.Enabled:=false;
    Dbedit9.Enabled:=false;
    Dbedit10.Enabled:=false;

    //設置各按鈕的可用性
    Btn_Add.Enabled:=true;
    Btn_Modify.Enabled:=true;
    Btn_Delete.Enabled:=true;
    Btn_Query.Enabled:=true;
    Btn_Browse.Enabled:=true;
    Btn_Print.Enabled:=true;

    Btn_OK.Enabled:=false;
    Btn_Cancel.Enabled:=false;

    Btn_Query.SetFocus;

    //總記錄數
    LB_Count.Caption :=IntToStr(ADOQY2.RecordCount);
  end;

end;

procedure TFm_Student.Btn_QueryClick(Sender: TObject);
begin
  //3：標識進行查詢操作
  Flag:=3;
  //在進行查詢之前先將所有的記錄清空
  ADOQY2.Close;
  ADOQY2.SQL.Clear;
  ADOQY2.SQL.Add('select * from student_Info where 1<>1');
  ADOQY2.Open;

  //設置各輸入框的可用性
   Dbedit1.Enabled:=true;
   Dbedit2.Enabled:=true;
   Dbedit3.Enabled:=true;
   Dbedit4.Enabled:=true;
   Dbedit5.Enabled:=true;
   Dbedit6.Enabled:=true;
   Dbedit7.Enabled:=true;
   Dbedit8.Enabled:=true;
   Dbedit9.Enabled:=true;
   Dbedit10.Enabled:=true;


  dbedit1.SetFocus;

  Btn_OK.Enabled:=true;
  Btn_Cancel.Enabled:=true;
  
  //總記錄數
  LB_Count.Caption :=IntToStr(ADOQY2.RecordCount);

end;

procedure TFm_Student.Btn_ModifyClick(Sender: TObject);
begin
  if ADOQY2.RecordCount=0 then
  begin
    showmessage('記錄為空，請選擇要修改的通訊錄信息   ');

    //設置各按鈕的可用性
    Btn_Add.Enabled:=true;
    Btn_Modify.Enabled:=true;
    Btn_Delete.Enabled:=true;
    Btn_Query.Enabled:=true;
    Btn_Browse.Enabled:=true;
    Btn_Print.Enabled:=true;

    Btn_OK.Enabled:=false;
    Btn_Cancel.Enabled:=false;

    Btn_Browse.SetFocus;
  end
  else begin
    //設置各輸入框的可用性
    Dbedit1.Enabled:=true;
    Dbedit2.Enabled:=true;
    Dbedit3.Enabled:=true;
    Dbedit4.Enabled:=true;
    Dbedit5.Enabled:=true;
    Dbedit6.Enabled:=true;
    Dbedit7.Enabled:=true;
    Dbedit8.Enabled:=true;
    Dbedit9.Enabled:=true;
    Dbedit10.Enabled:=true;

    //使數據集成為編輯狀態
    ADOQY2.Edit;

    Btn_OK.Enabled:=true;
    Btn_Cancel.Enabled:=true;

    //2：標識進行修改操作
    Flag:=2;

    Dbedit1.SetFocus;
  end;

end;

procedure TFm_Student.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //close;
  //調用班級界面
  if fm_ClassStudent.init then
     fm_ClassStudent.Show;
    // fm_ClassStudent.Hide; 

end;

end.
上一頁 12
?? 文件大小 6347 K
?? 上傳用戶 vicegle
?? 所屬分類數據庫系統
??? 相關標簽

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

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

?? unstud.pas

?? 快捷鍵說明
