frmoptionsu.pas

图书借阅管理系统含源代码

      1://保存书架信息
      begin
        if trim(edBookCaseName.Text)='' then
        begin
          MessageBox(0,'书架名称不能为空','提示',mb_ok+MB_ICONEXCLAMATION+MB_TASKMODAL);
          exit;
        end;
        Dm.adoBookCase.Edit;
        Dm.adoBookCase.FieldByName('BookCaseName').AsString:=trim(edBookCaseName.Text);
        Dm.adoBookCase.FieldByName('Location').AsString:=Trim(meoLocation.Text);         
      end;
      2://保存借书设置
      begin
        if  (Trim(edLoanTerm.Text)='')
          or(Trim(edMaxArrearage.Text)='')
          or(Trim(edLoanCost.Text)='')
          or(Trim(edOverstepTermHire.Text)='')
          or(Trim(edOverstepTermHire2.Text)='')
          or(Trim(edBagMonthMoney.Text)='')
          or(Trim(edPressGold.Text)='')
          then
        begin
          MessageBox(0,'借书设置的各项内容不能为空，请填入各项设置内容。','提示',mb_ok+MB_ICONEXCLAMATION+MB_TASKMODAL);
          exit;
        end;
        Dm.adoLoanOption.Edit;
        Dm.adoLoanOption.FieldByName('LoanTerm').AsString:=edLoanTerm.Text;
        Dm.adoLoanOption.FieldByName('MaxArrearage').AsString:=edMaxArrearage.Text;
        Dm.adoLoanOption.FieldByName('LoanCost').AsString:=edLoanCost.Text;
        Dm.adoLoanOption.FieldByName('OverstepTermHire').AsString:=edOverstepTermHire.Text;
        Dm.adoLoanOption.FieldByName('OverstepTermHire2').AsString:=edOverstepTermHire2.Text;
        Dm.adoLoanOption.FieldByName('MaxLoanHow').AsInteger:=StrToInt(edMaxLoanHow.Text);
        Dm.adoLoanOption.FieldByName('BagMonthMoney').AsString:=edBagMonthMoney.Text;
        Dm.adoLoanOption.FieldByName('PressGold').AsString:=edPressGold.Text;
      end;
      3://图书分类设置
      begin
        if Trim(edClass.Text)='' then
        begin
          MessageBox(0,'图书分类名不能为空，请输入图书分类名。','提示',mb_ok+MB_ICONEXCLAMATION+MB_TASKMODAL);
          exit;
        end;
        Dm.adoClass.Edit;
        Dm.adoClass.FieldByName('Class').AsString:=Trim(edClass.Text);
      end;
    end;
//=====================================
  case pagc1.ActivePageIndex of
    0:  Dm.adoBConcern.Post;
    1:  Dm.adoBookCase.Post;
    2:  Dm.adoLoanOption.Post;
    3:  Dm.adoClass.Post;
  end;//case
  AddEdit(False);
  tf(False,False);
  LoanOption();
//=====================================
  PagcBitEnable();

  Dm.adoTemp2.Close;
  Dm.adoTemp2.SQL.Clear;
  Dm.adoTemp2.SQL.Text:='Select * from BalaCcou';
  Dm.adoTemp2.Open;
  if Dm.adoTemp2.RecordCount =0 then
  begin
    Dm.adoTemp2.Append;
    Dm.adoTemp2.FieldByName('Money').AsString:='0';
  end;
  Dm.adoTemp2.Close;
end;

procedure TfrmOptions.AddEdit(input: Boolean);
begin
  bitbtn1.Enabled:=not input;
  bitAdd.Enabled:=not input;
  bitEdit.Enabled:=not input;
  bitDel.Enabled:=not input;
  bitSave.Enabled:=input;
  bitCancel.Enabled:=input;
  bitClose.Enabled:=not input;
  Panel1.Visible:=input;
  Panel1.Top:=0;
  Panel1.Left:=0;
end;

procedure TfrmOptions.bitCancelClick(Sender: TObject);
begin
  AddEdit(False);
  tf(False,False);
  BConcernPost();
  LoanOption();
//===========================
  PagcBitEnable();
end;

procedure TfrmOptions.bitDelClick(Sender: TObject);
var
  temStr:String;
begin
  case pagc1.ActivePageIndex of
    0://删除出版社信息
    begin
      if Dm.adoBConcern.Eof then
        exit;
      temStr:=Dm.adoBConcern.FieldByName('boConName').AsString;
      if MessageBox(0,Pchar('删除出版社信息会导致以有该出版社的书籍丢失该出版社信息'+chr(13)+'真的要删除出版社为：“'+temStr+'”的记录吗？'),'提示',mb_okCancel+MB_ICONQUESTION+MB_DEFBUTTON2+MB_TASKMODAL)=IDOK then
        Dm.adoBConcern.Delete;
    end;
    1:
    begin
      if Dm.adoBookCase.Eof then
        exit;
      temStr:=Dm.adoBookCase.FieldByName('BookCaseName').AsString;
      if MessageBox(0,Pchar('删除书架信息会导致以有该书架所有的书籍丢失书架信息'+chr(13)+'真的要删除书架为：“'+temStr+'”的记录吗？'),'提示',mb_okCancel+MB_ICONQUESTION+MB_DEFBUTTON2+MB_TASKMODAL)=IDOK then
        Dm.adoBookCase.Delete;
    end;
    3:
    begin
      if Dm.adoClass.Eof then
        exit;
      temStr:=Dm.adoClass.FieldByName('Class').AsString;
      if MessageBox(0,Pchar('真的要删除分类名为：“'+temStr+'”的记录吗？'),'提示',mb_okCancel+MB_ICONQUESTION+MB_DEFBUTTON2+MB_TASKMODAL)=IDOK then
        Dm.adoClass.Delete;
    end;
  end;
end;

procedure TfrmOptions.BConcernPost;
begin
  edBconCernID.Text:=DM.adoBConcern.FieldByName('BConcernID').AsString;
  edConName.Text:=Dm.adoBConcern.FieldByName('boConName').AsString;
  edAddress.Text:=DM.adoBConcern.FieldByName('AddRess').AsString;
  edPostalcode.Text:=Dm.adoBConcern.FieldByName('Postalcode').AsString;
  edPhoneNo.Text:=Dm.adoBConcern.FieldByName('PhoneNO').AsString;
  edLinkman.Text:=Dm.adoBConcern.FieldByName('Linkman').AsString;
end;

procedure TfrmOptions.BitBtn1Click(Sender: TObject);
begin
  if bitbtn1.Caption='>' then
  begin
    bitbtn1.Caption:='<';
    GroupBox1.Width:=449;
    bitbtn1.Left:=449;
  end
  else
  begin
    bitbtn1.Caption:='>';
    GroupBox1.Width:=241;
    bitbtn1.Left:=240;
  end;
end;

procedure TfrmOptions.TextEnable2(enb: Boolean);
begin
  edBookCaseName.Enabled:=enb;
  meoLocation.Enabled:=enb;
  cxGridBookCase.Enabled:=not enb;
end;

procedure TfrmOptions.ClsText2;
begin
  edBookCaseName.Clear;
  meoLocation.Clear;
end;

procedure TfrmOptions.BookCasePost;
begin
  edBookCaseName.Text:=Dm.adoBookCase.FieldByName('BookCaseName').AsString;
  meoLocation.Lines.Text:=DM.adoBookCase.FieldByName('Location').AsString;  
end;

procedure TfrmOptions.FormShow(Sender: TObject);
begin
  ClsText1();
  ClsText2();
  ClsText3();
  ClsText4();
  choice();
  BConcernPost();
  BookCasePost();
  ClassPost();
end;

procedure TfrmOptions.TextEnable3(enb: Boolean);
begin
  edLoanTerm.Enabled:=enb;
  edMaxArrearage.Enabled:=enb;
  edLoanCost.Enabled:=enb;
  edOverstepTermHire.Enabled:=enb;
  edOverstepTermHire2.Enabled:=enb;
  edMaxLoanHow.Enabled:=enb;
  edBagMonthMoney.Enabled:=enb;
  edPressGold.Enabled:=enb;
end;

procedure TfrmOptions.LoanOption;
begin
  Dm.adoLoanOption.Close;
  Dm.adoLoanOption.SQL.Clear;
  Dm.adoLoanOption.SQL.Text:='select * from LoanOption';
  Dm.adoLoanOption.Active:=True;
  if not Dm.adoLoanOption.Eof then
  begin
    edLoanTerm.Text:=IntToStr(Dm.adoLoanOption.FieldByName('LoanTerm').AsInteger);
    edMaxArrearage.Text:=FloatToStr(Dm.adoLoanOption.FieldByName('MaxArrearage').AsFloat);
    edLoanCost.Text:=FloatToStr(Dm.adoLoanOption.FieldByName('LoanCost').AsFloat);
    edOverstepTermHire.Text:=FloatToStr(Dm.adoLoanOption.FieldByName('OverstepTermHire').AsFloat);
    edOverstepTermHire2.Text:=FloatToStr(Dm.adoLoanOption.FieldByName('OverstepTermHire2').AsFloat);
    edMaxLoanHow.Text:=IntToStr(Dm.adoLoanOption.FieldByName('MaxLoanHow').AsInteger);
    edBagMonthMoney.Text:=FloatToStr(Dm.adoLoanOption.FieldByName('BagMonthMoney').AsFloat);
    edPressGold.Text:=FloatToStr(Dm.adoLoanOption.FieldByName('PressGold').AsFloat);
  end;    
end;

procedure TfrmOptions.ClsText3;
begin
  edLoanTerm.Clear;
  edMaxArrearage.Clear;
  edLoanCost.Clear;
  edOverstepTermHire.Clear;
  edOverstepTermHire2.Clear;
  edMaxLoanHow.Clear;
  edBagMonthMoney.Clear;
  edPressGold.Clear;
end;

procedure TfrmOptions.edLoanTermKeyPress(Sender: TObject; var Key: Char);
begin
  if not (((key>='0')and(key<='9'))or(key=chr(8)))then
  begin
    key:=char(0);
  end;
end;

procedure TfrmOptions.edMaxArrearageKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not((((key>='0')and(key<='9'))or(key='.'))or(key=chr(8))) then
    key:=chr(0);
  if (pos('.',edMaxArrearage.Text)>0)and (key='.') then
    key:=chr(0);
end;

procedure TfrmOptions.edLoanCostKeyPress(Sender: TObject; var Key: Char);
begin
  if not((((key>='0')and(key<='9'))or(key='.'))or(key=chr(8))) then
    key:=chr(0);
  if (pos('.',edLoanCost.Text)>0)and (key='.') then
  key:=chr(0);
end;

procedure TfrmOptions.edOverstepTermHireKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not((((key>='0')and(key<='9'))or(key='.'))or(key=chr(8))) then
    key:=chr(0);
  if (pos('.',edOverstepTermHire.Text)>0)and (key='.') then
  key:=chr(0);
end;

procedure TfrmOptions.edOverstepTermHire2KeyPress(Sender: TObject;
  var Key: Char);
begin
  if not((((key>='0')and(key<='9'))or(key='.'))or(key=chr(8))) then
    key:=chr(0);
  if (pos('.',edOverstepTermHire2.Text)>0)and (key='.') then
  key:=chr(0);
end;

procedure TfrmOptions.edMaxLoanHowKeyPress(Sender: TObject; var Key: Char);
begin
  if not (((key>='0')and(key<='9'))or(key=chr(8)))then
  begin
    key:=char(0);
  end;
end;

procedure TfrmOptions.TextEnable4(enb: Boolean);
begin
  edClass.Enabled:=enb;
end;

procedure TfrmOptions.ClassPost;
begin
  edClass.Text:=Dm.adoClass.FieldByName('Class').AsString;
end;

procedure TfrmOptions.ClsText4;
begin
  edClass.Clear;
end;

procedure TfrmOptions.myClass;
begin
  Dm.adoClass.Close;
  Dm.adoClass.SQL.Clear;
  Dm.adoClass.SQL.Text:='Select * from class Order By Class';
  Dm.adoClass.Active:=True;
end;

procedure TfrmOptions.PagcBitEnable;
begin
  if (pagc1.ActivePageIndex=2) then
  begin
    if Dm.adoLoanOption.RecordCount >Dm.adoLoanOption.RecNo then
    begin
      bitAdd.Enabled:=True;
      bitEdit.Enabled:=False;
    end
    else
      bitAdd.Enabled:=False;
    bitDel.Enabled:=False;
  end
  else
  begin
    bitAdd.Enabled:=True;
    bitDel.Enabled:=True;
    bitEdit.Enabled:=True;
  end;
end;

procedure TfrmOptions.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  Dm.adoBookCase.Close;
  Dm.adoClass.Close;
  Dm.adoBConcern.Close;
  Dm.adoLoanOption.Close;
end;

procedure TfrmOptions.edBagMonthMoneyKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not((((key>='0')and(key<='9'))or(key='.'))or(key=chr(8))) then
    key:=chr(0);
  if (pos('.',edMaxArrearage.Text)>0)and (key='.') then
    key:=chr(0);
end;

procedure TfrmOptions.edPressGoldKeyPress(Sender: TObject; var Key: Char);
begin
  if not((((key>='0')and(key<='9'))or(key='.'))or(key=chr(8))) then
    key:=chr(0);
  if (pos('.',edMaxArrearage.Text)>0)and (key='.') then
    key:=chr(0);
end;

procedure TfrmOptions.cxGridDBTableView1CellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  BookCasePost();
end;

procedure TfrmOptions.cxGridDBTableView3CellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  ClassPost();
end;

procedure TfrmOptions.cxGridDBTableView3KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  ClassPost();
end;

procedure TfrmOptions.cxGridDBTableView1KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  BookCasePost();
end;

procedure TfrmOptions.cxGridDBTableView2KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  BConcernPost();
end;

end.