unqkbasic.~pas

资料室图书借阅管理系统

unit unqkbasic;

interface

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

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

implementation

uses untqkluru, ServerController;

{$R *.dfm}

var
  tempcobstr2:string;

procedure Tfrmqkbasic.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) + '种期刊。';
    end;
  end
  else if iwdbgrid1.RowIsCurrent then begin
    ACell.BGColor := clYellow;
  end;
end;

procedure Tfrmqkbasic.IWDBGrid1Columns0Click(ASender: TObject;
  const AValue: String);
begin
   GoFish(AValue);
end;
procedure Tfrmqkbasic.GoFish(const name: string);
begin
  adoquery1.Locate('Name', name, []);
end;

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

    iwedit1.Text:=adoquery1.fieldbyname('Name').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('yfdh').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('publish').AsString;

     tempcobstr2:=adoquery1.fieldbyname('Type').AsString;
    iwcombobox2.ItemIndex:=iwcombobox2.Items.IndexOf(tempcobstr2);
    tempcobstr2:=adoquery1.fieldbyname('Type').AsString;
    iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
end;

procedure Tfrmqkbasic.IWButton1Click(Sender: TObject);
begin
adoquery1.Close;
  iwedit1.Clear;
  iwedit2.Text:='';
  iwedit3.Text:='';
  iwcombobox2.ItemIndex:=-1;
  iwmemo1.Lines.Clear;
  iwedit1.SetFocus;
end;

procedure Tfrmqkbasic.IWButton2Click(Sender: TObject);
begin
adoquery1.Open;
   adoquery1.delete;
   adoquery1.Edit;
   adoquery1.Post;
   iwedit1.Text:=adoquery1.fieldbyname('Name').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('yfdh').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('publish').AsString;
    tempcobstr2:=adoquery1.fieldbyname('Type').AsString;
    iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
end;

procedure Tfrmqkbasic.IWButton4Click(Sender: TObject);
begin
adoquery1.open;
   adoquery1.Cancel;
   iwedit1.Text:=adoquery1.fieldbyname('Name').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('yfdh').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('publish').AsString;
    tempcobstr2:=adoquery1.fieldbyname('Type').AsString;
    iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
end;

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

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

procedure Tfrmqkbasic.IWButton3Click(Sender: TObject);
var
  str1,str2,str3,str4,str5 :string;

begin
   str1:=trim(iwedit1.Text);
   str2:=trim(iwedit2.Text);
   str3:=trim(iwedit3.Text);
   str4:=trim(iwcombobox2.Text );

   str5:=iwmemo1.Lines.Text;
   if(length(str1)=0) then
   begin
   webapplication.ShowMessage('请输入期刊名')
   end
   else
           {
           if (length(str3)=0)then
           begin
               webapplication.ShowMessage('请输入出版社名')
               end
           else
           if (length(str2)=0) then
           begin
               webapplication.ShowMessage('请输入邮发代号')
             end
           else
            }
   begin
   adoquery1.open;
   if  adoquery1.Locate('Name',str1,[]) then
   begin
      adoquery1.Edit;
      adoquery1.fieldbyname('yfdh').AsString:=str2;
      adoquery1.fieldbyname('publish').AsString:=str3;
      adoquery1.fieldbyname('type').AsString:=str4;

      adoquery1.fieldbyname('Memo').AsString:=str5;

      adoquery1.Post;
      iwedit1.Text:=adoquery1.fieldbyname('Name').AsString;
      iwedit2.Text:=adoquery1.fieldbyname('yfdh').AsString;
      iwedit3.Text:=adoquery1.fieldbyname('publish').AsString;
      tempcobstr2:=adoquery1.fieldbyname('Type').AsString;
      iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
   end
   else
   begin
      adoquery1.Edit;
      adoquery1.Append;
      adoquery1.fieldbyname('Name').AsString:=str1;
      adoquery1.fieldbyname('yfdh').AsString:=str2;
      adoquery1.fieldbyname('publish').AsString:=str3;
      adoquery1.fieldbyname('type').AsString:=str4;

      adoquery1.fieldbyname('Memo').AsString:=str5;

      adoquery1.Post;
      iwedit1.Text:=adoquery1.fieldbyname('Name').AsString;
      iwedit2.Text:=adoquery1.fieldbyname('yfdh').AsString;
      iwedit3.Text:=adoquery1.fieldbyname('publish').AsString;
      tempcobstr2:=adoquery1.fieldbyname('Type').AsString;
      iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
   end;
   end;
end;

procedure Tfrmqkbasic.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
adoquery1.Open;
    iwedit1.Text:=adoquery1.fieldbyname('Name').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('yfdh').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('publish').AsString;
    tempcobstr2:=adoquery1.fieldbyname('Type').AsString;
    iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
end;

procedure Tfrmqkbasic.IWButton9Click(Sender: TObject);
begin
    tfrmqkluru.Create(WebApplication).Show;
     Release;
end;
procedure Tfrmqkbasic.btnpriorClick(Sender: TObject);
begin
  adoquery1.Open;
   adoquery1.MoveBy(-iwdbgrid1.RowLimit );
end;

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

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