?? unclass.~pas

?? 最簡單的Delphi班級管理系統
?? ~PAS
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
    if edSpeciality<>'' then
    begin
      ADOQY1.SQL.Add('where 專業='''+edSpeciality+'''');
    end;

    //班主任不為空
    if edTeacher<>'' then
    begin
      ADOQY1.SQL.Add('where 班主任='''+edTeacher+'''');
    end;

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

     //年級不為空
    else if edGrade<>'' then
    begin
      ADOQY1.SQL.Add('where 年級='''+edGrade+'''');

    //教室不為空
    if edClassroom<>'' then
    begin
      ADOQY1.SQL.Add('where 教室='''+edClassroom+'''');
    end;

    //年制不為空
    if edMidyear<>'' then
    begin
       ADOQY1.SQL.Add('where 年制='''+edMidyear+'''');
    end;

    //專業不為空
    if edSpeciality<>'' then
    begin
      ADOQY1.SQL.Add('where 專業='''+edSpeciality+'''');
    end;

    //班主任不為空
    if edTeacher<>'' then
    begin
      ADOQY1.SQL.Add('where 班主任='''+edTeacher+'''');
    end;

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

    //教室不為空
    else if edClassroom<>'' then
    begin
      ADOQY1.SQL.Add('where 教室='''+edClassroom+'''');

    //年制不為空
    if edMidyear<>'' then
    begin
       ADOQY1.SQL.Add('where 年制='''+edMidyear+'''');
    end;

    //專業不為空
    if edSpeciality<>'' then
    begin
      ADOQY1.SQL.Add('where 專業='''+edSpeciality+'''');
    end;

    //班主任不為空
    if edTeacher<>'' then
    begin
      ADOQY1.SQL.Add('where 班主任='''+edTeacher+'''');
    end;

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

    //年制不為空
    else if edMidyear<>'' then
    begin
       ADOQY1.SQL.Add('where 年制='''+edMidyear+'''');

    //專業不為空
    if edSpeciality<>'' then
    begin
      ADOQY1.SQL.Add('where 專業='''+edSpeciality+'''');
    end;

    //班主任不為空
    if edTeacher<>'' then
    begin
      ADOQY1.SQL.Add('where 班主任='''+edTeacher+'''');
    end;

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

    //專業不為空
    else if edSpeciality<>'' then
    begin
      ADOQY1.SQL.Add('where 專業='''+edSpeciality+'''');

    //班主任不為空
     if edTeacher<>'' then
    begin
      ADOQY1.SQL.Add('where 班主任='''+edTeacher+'''');
    end;

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

    //班主任不為空
    else if edTeacher<>'' then
    begin
      ADOQY1.SQL.Add('where 班主任='''+edTeacher+'''');

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

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

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

        ADOQY1.Open;

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

        showmessage('共查到符合條件的'+inttostr(ADOQY1.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;

       //設置各按鈕的可用性
       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(ADOQY1.RecordCount);
  end;
end;

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

    ADOQY1.Close;
    ADOQY1.SQL.Clear;
    ADOQY1.SQL.Add('select * from class_Info order by 編號');
    ADOQY1.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;

    //設置各按鈕的可用性
    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(ADOQY1.RecordCount);
  end

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

    ADOQY1.Close;
    ADOQY1.SQL.Clear;
    ADOQY1.SQL.Add('select * from Address order by 編號');
    ADOQY1.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;

    //設置各按鈕的可用性
    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(ADOQY1.RecordCount);
  end


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

    //設置各按鈕的可用性
    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(ADOQY1.RecordCount);
  end;

end;

procedure TFm_Class.Btn_QueryClick(Sender: TObject);
begin
  //3：標識進行查詢操作
  Flag:=3;
  //在進行查詢之前先將所有的記錄清空
  ADOQY1.Close;
  ADOQY1.SQL.Clear;
  ADOQY1.SQL.Add('select * from class_Info where 1<>1');
  ADOQY1.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;


  dbedit1.SetFocus;

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

end;

procedure TFm_Class.Btn_ModifyClick(Sender: TObject);
begin
  if ADOQY1.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;

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

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

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

    Dbedit1.SetFocus;
  end;

end;

procedure TFm_Class.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一区二区三区免费野_久草精品视频

?? unclass.~pas

?? 快捷鍵說明
