untmgdept.pas

资料室图书借阅管理系统

unit untmgdept;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWTypes, DB, ADODB,
  IWCompButton, IWCompEdit, IWGrids, IWDBGrids, IWHTMLControls,
  IWVCLBaseControl,graphics, IWBaseControl, IWControl, IWCompLabel, Controls, Forms,
  untframe, IWBaseHTMLControl;

type
  Tfrmmgdept = class(TIWAppForm)
    IWFrame11: TIWFrame1;
    IWLabel1: TIWLabel;
    IWHRule1: TIWHRule;
    IWLabel2: TIWLabel;
    IWDBGrid1: TIWDBGrid;
    IWLabel3: TIWLabel;
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWButton3: TIWButton;
    IWButton4: TIWButton;
    IWButton5: TIWButton;
    IWButton6: TIWButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    IWEdit1: TIWEdit;
    IWEdit2: TIWEdit;
    btnfirst: TIWButton;
    btnlast: TIWButton;
    btnprior: TIWButton;
    btnnext: TIWButton;
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton3Click(Sender: TObject);
    procedure IWButton4Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
    procedure IWButton5Click(Sender: TObject);
    procedure IWButton6Click(Sender: TObject);
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
    procedure IWDBGrid1RenderCell(ACell: TIWGridCell; const ARow,
      AColumn: Integer);
    procedure IWDBGrid1Columns0Click(ASender: TObject;
      const AValue: String);
    
procedure  GoFish(const bookid: string);
    procedure IWAppFormCreate(Sender: TObject);
    procedure btnfirstClick(Sender: TObject);
    procedure btnpriorClick(Sender: TObject);
    procedure btnnextClick(Sender: TObject);
    procedure btnlastClick(Sender: TObject);
    //procedure IWAppFormCreate(Sender: TObject);
  public
  end;

implementation

uses ServerController;

{$R *.dfm}


procedure Tfrmmgdept.IWButton1Click(Sender: TObject);
begin
  adoquery1.close;
  iwedit1.Clear;
  iwedit2.text:='';
  iwedit1.SetFocus;
end;

procedure Tfrmmgdept.IWButton3Click(Sender: TObject);
var
  str1,str2 :string;

begin
   str1:=trim(iwedit1.Text);
   str2:=trim(iwedit2.Text);



   if (length(str1)=0)then
       webapplication.ShowMessage('请输入部门名称')

   else
   begin
   adoquery1.Open;
   if  adoquery1.Locate('DepartName',str1,[]) then
   begin
      adoquery1.Edit;

      adoquery1.fieldbyname('memo').AsString:=str2;

       adoquery1.Post;
      iwedit1.Text:=adoquery1.fieldbyname('DepartName').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('memo').AsString;

   end
   else
   begin
      adoquery1.Edit;
      adoquery1.Append;

      adoquery1.fieldbyname('DepartName').AsString:=str1;
      adoquery1.fieldbyname('memo').AsString:=str2;

      adoquery1.Post;
     iwedit1.Text:=adoquery1.fieldbyname('DepartName').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('memo').AsString;


   end;
   end;

end;

procedure Tfrmmgdept.IWButton4Click(Sender: TObject);
begin
 adoquery1.Open;
   adoquery1.Cancel;
   iwedit1.Text:=adoquery1.fieldbyname('DepartName').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('memo').AsString;

end;

procedure Tfrmmgdept.IWButton2Click(Sender: TObject);
begin
  adoquery1.Open;
   adoquery1.delete;
   adoquery1.Edit;
   adoquery1.Post;
  iwedit1.Text:=adoquery1.fieldbyname('DepartName').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('memo').AsString;


end;

procedure Tfrmmgdept.IWButton5Click(Sender: TObject);
begin
 adoquery1.Open;
    adoquery1.Prior;
end;

procedure Tfrmmgdept.IWButton6Click(Sender: TObject);
begin
 adoquery1.Open;
   adoquery1.Next;
end;

procedure Tfrmmgdept.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
    iwedit1.Text:=adoquery1.fieldbyname('DepartName').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('memo').AsString;

end;

procedure Tfrmmgdept.IWDBGrid1RenderCell(ACell: TIWGridCell; const ARow,
  AColumn: Integer);
begin
      if ARow = -1 then
  begin
    ACell.BGColor := clSilver;
    if AColumn = 0 then begin
      ACell.Font.Color := clBLUE;
      adoquery1.Open;
      ACell.Text := IntToStr(adoquery1.RecordCount) + ' record found.';
    end;
  end
  else if iwdbgrid1.RowIsCurrent then begin
    ACell.BGColor := clYellow;
  end;
end;

procedure Tfrmmgdept.IWDBGrid1Columns0Click(ASender: TObject;
  const AValue: String);
begin

GoFish(AValue);
end;

procedure Tfrmmgdept.GoFish(const bookid: string);
begin
adoquery1.Open;
  adoquery1.Locate('DepartName', bookid, []);
end;

procedure Tfrmmgdept.IWAppFormCreate(Sender: TObject);
begin
adoquery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+strglob+';Persist Security Info=False';
adoquery1.Open ;
end;


procedure Tfrmmgdept.btnpriorClick(Sender: TObject);
begin
  adoquery1.Open;
   adoquery1.MoveBy(-iwdbgrid1.RowLimit );
end;

procedure Tfrmmgdept.btnnextClick(Sender: TObject);
begin
 adoquery1.Open;
   adoquery1.MoveBy(iwdbgrid1.RowLimit );
end;

procedure Tfrmmgdept.btnfirstClick(Sender: TObject);
begin
  adoquery1.Open;
  adoquery1.First;
end;

procedure Tfrmmgdept.btnlastClick(Sender: TObject);
begin
   adoquery1.Open;
   adoquery1.last;
end;
end.