untqkluru.pas

资料室图书借阅管理系统

unit untqkluru;

interface

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

type
  Tfrmqkluru = class(TIWAppForm)
    IWLabel1: TIWLabel;
    IWHRule1: TIWHRule;
    IWLabel2: TIWLabel;
    IWLabel3: TIWLabel;
    IWLabel4: TIWLabel;
    IWLabel5: TIWLabel;
    IWLabel6: TIWLabel;
    IWLabel7: TIWLabel;
    IWLabel8: TIWLabel;
    IWLabel9: TIWLabel;
    ADOQuery2: TADOQuery;
    IWLabel14: TIWLabel;
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWButton3: TIWButton;
    IWButton4: TIWButton;
    IWButton5: TIWButton;
    IWButton6: TIWButton;
    IWFrame11: TIWFrame1;
    IWLabel10: TIWLabel;
    IWLabel11: TIWLabel;
    IWEdit9: TIWEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    IWDBGrid1: TIWDBGrid;
    IWComboBox1: TIWComboBox;
    IWEdit6: TIWEdit;
    IWEdit8: TIWEdit;
    IWMemo1: TIWMemo;
    IWEdit5: TIWEdit;
    IWEdit1: TIWEdit;
    IWEdit2: TIWEdit;
    IWEdit7: TIWEdit;
    IWEdit3: TIWEdit;
    IWEdit4: TIWEdit;
    btnfirst: TIWButton;
    btnlast: TIWButton;
    btnprior: TIWButton;
    btnnext: TIWButton;
    procedure IWDBGrid1Columns0Click(ASender: TObject;
      const AValue: String);
    procedure GoFish(const bookid: string);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
    procedure IWButton3Click(Sender: TObject);
    procedure IWButton4Click(Sender: TObject);
    procedure IWButton5Click(Sender: TObject);
    procedure IWButton6Click(Sender: TObject);
    procedure IWDBGrid1RenderCell(ACell: TIWGridCell; const ARow,
      AColumn: Integer);
  
   
    procedure ADOQuery1AfterScroll(DataSet: TDataSet);
    procedure btnfirstClick(Sender: TObject);
    procedure btnpriorClick(Sender: TObject);
    procedure btnnextClick(Sender: TObject);
    procedure btnlastClick(Sender: TObject);
   // procedure IWButton9Click(Sender: TObject);
    //procedure IWButton9Click(Sender: TObject);
   // procedure IWButton10Click(Sender: TObject);
   
  public
  end;

implementation

uses ServerController;

{$R *.dfm}

var
  tempcobstr:string;

procedure Tfrmqkluru.IWDBGrid1Columns0Click(ASender: TObject;
  const AValue: String);
begin
  GoFish(AValue);
end;
procedure Tfrmqkluru.GoFish(const bookid: string);
begin
  adoquery1.Open;
  adoquery1.Locate('id', bookid, []);
end;


procedure Tfrmqkluru.IWAppFormCreate(Sender: TObject);
begin
adoquery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+strglob+';Persist Security Info=False';
adoquery1.Open ;
adoquery2.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+strglob+';Persist Security Info=False';
adoquery2.Open ;
   adoquery2.First;
    while not adoquery2.Eof do
    begin
    iwcombobox1.Items.Add(adoquery2.fieldbyname('Name').AsString);
    adoquery2.Next;
    end;
    adoquery2.Close;

    iwedit1.Text:=adoquery1.fieldbyname('ID').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('zqs').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('qs').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('Price').AsString;

    tempcobstr:=adoquery1.fieldbyname('JournalBasicID').AsString;
    iwcombobox1.ItemIndex:=iwcombobox1.Items.IndexOf(tempcobstr);

    iwedit6.Text:=adoquery1.fieldbyname('buydate').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('pubdate').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('ISBN').AsString;
    iwedit9.Text:=adoquery1.fieldbyname('zhuti').AsString;
    iwedit5.Text:=adoquery1.fieldbyname('fenleihao').AsString;
    
    iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
end;

procedure Tfrmqkluru.IWButton1Click(Sender: TObject);
begin
  adoquery1.close;
  iwedit1.Clear;
  iwedit2.Text:='';
  iwedit3.Text:='';
  iwedit4.Text:='';
   iwedit7.Text:='';
  iwedit8.Text:='';
 iwcombobox1.ItemIndex:=-1;
   iwedit9.Text:='';
   iwedit5.Text:='';
    iwmemo1.Lines.Clear;

  iwedit6.Text:=datetostr(date);

  iwedit1.SetFocus;


   
end;

procedure Tfrmqkluru.IWButton2Click(Sender: TObject);
var
   adoquery:tadoquery;
   tempstr1:string;
begin
  tempstr1:=adoquery1.fieldbyname('ID').AsString;
  adoquery:=tadoquery.Create(nil);
   adoquery.ConnectionString:=adoquery1.ConnectionString;
  adoquery.Close;
  adoquery.SQL.Clear;
  adoquery.SQL.Add('select * from borrowreturn');
  adoquery.Open;

  adoquery.Locate('journalid',tempstr1,[]);

  adoquery.Delete;
  adoquery.Edit;
  adoquery.Post;

  adoquery.Free;

    adoquery1.delete;
    adoquery1.Edit;

   adoquery1.Post;
   iwedit1.Text:=adoquery1.fieldbyname('ID').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('zqs').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('qs').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('Price').AsString;

    tempcobstr:=adoquery1.fieldbyname('JournalBasicID').AsString;
    iwcombobox1.ItemIndex:=iwcombobox1.Items.IndexOf(tempcobstr);

    iwedit6.Text:=adoquery1.fieldbyname('buydate').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('pubdate').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('ISBN').AsString;

    iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
end;

procedure Tfrmqkluru.IWButton3Click(Sender: TObject);
var
   str1,str2,str3,str4,str5,str6,str7,str8,str9,str10,str11,str12:string;
  adoquery:tadoquery;
  d1,d2:tdatetime;
  t:boolean;
  //str13:variant;
begin

   str1:=trim(iwedit1.Text);

   str2:=trim(iwedit2.Text);
   str3:=trim(iwedit3.Text);
   str4:=trim(iwedit4.Text);
   str5:=trim(iwcombobox1.Text );
   str6:=trim(iwedit6.Text);
   str7:=trim(iwedit7.Text);
   str12:=datetostr(date);
   d2:=strtodate(str12);

   t:=trystrtodate(str7,d1) ;

   str8:=trim(iwedit8.Text);
   str10:=trim(iwedit9.Text);
   str11:=trim(iwedit5.Text);

   str9:=iwmemo1.Lines.Text;
   if (length(str1)=0)then
   begin
       webapplication.ShowMessage('请输入期刊号');
       iwedit1.SetFocus;
       exit;
   end;

   if (length(str2)=0) then
   begin
       webapplication.ShowMessage('请输入总期数');
       iwedit2.SetFocus ;
        exit;
   end;

   if (length(str3)=0) then
   begin
       webapplication.ShowMessage('请输入期数') ;
       iwedit3.SetFocus ;
       exit;
   end;
     {
   if (length(str7)=0) then
   begin
    
   'webapplication.ShowMessage('时间不能为空!');
   'iwedit7.SetFocus;
   exit;
   end;
    }

   if  (length(str5)=0) then
   begin
       webapplication.ShowMessage('请输入出版社');
       exit;
   end;

   if (t = false) and (length(str7)<>0) then
   begin
   webapplication.ShowMessage('请您正确输入!'+#10+'时间格式为：'+#10+'年－月－日');

   iwedit7.Text:='' ;
   iwedit7.SetFocus ;
    end
   else
   if d1>d2 then
   begin
   webapplication.ShowMessage('时间超限!');
   iwedit7.Text:='' ;
   iwedit7.SetFocus ;
    end

      else
   begin
   adoquery1.Open;
   //adoquery1.locate('id',str1);//Lookup('id',str1,'journalbasicid');
   if  adoquery1.Locate('id',str1,[]) then
   begin
      adoquery1.Edit;
      adoquery1.fieldbyname('zqs').AsString:=str2;
      adoquery1.fieldbyname('qs').AsString:=str3;
      adoquery1.fieldbyname('Price').AsString:=str4;
      adoquery1.fieldbyname('JournalBasicID').AsString:=str5;
      adoquery1.fieldbyname('buydate').AsString:=str6;
      adoquery1.fieldbyname('pubdate').AsString:=str7;
      adoquery1.fieldbyname('ISBN').AsString:=str8;

      adoquery1.fieldbyname('zhuti').AsString:=str10;
      adoquery1.fieldbyname('fenleihao').AsString:=str11;

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

      adoquery1.Post;
   iwedit1.Text:=adoquery1.fieldbyname('ID').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('zqs').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('qs').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('Price').AsString;

    tempcobstr:=adoquery1.fieldbyname('JournalBasicID').AsString;
    iwcombobox1.ItemIndex:=iwcombobox1.Items.IndexOf(tempcobstr);

    iwedit6.Text:=adoquery1.fieldbyname('buydate').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('pubdate').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('ISBN').AsString;
     iwedit9.Text:=adoquery1.fieldbyname('zhuti').AsString;
    iwedit5.Text:=adoquery1.fieldbyname('fenleihao').AsString;

    iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
   end
   else
 { if  adoquery1.Locate('id',str1,[]) then
   begin
      iwbutton9.OnClick(sender);

   end
   else }
      begin
      str1:='2'+str1;
      adoquery1.Edit;
      adoquery1.Append;
      adoquery1.fieldbyname('id').AsString:=str1;
      adoquery1.fieldbyname('zqs').AsString:=str2;
      adoquery1.fieldbyname('qs').AsString:=str3;
      adoquery1.fieldbyname('Price').AsString:=str4;
      adoquery1.fieldbyname('JournalBasicID').AsString:=str5;
      adoquery1.fieldbyname('buydate').AsString:=str6;
      adoquery1.fieldbyname('pubdate').AsString:=str7;
      adoquery1.fieldbyname('ISBN').AsString:=str8;

      adoquery1.fieldbyname('zhuti').AsString:=str10;
      adoquery1.fieldbyname('fenleihao').AsString:=str11;

      adoquery1.fieldbyname('Memo').AsString:=str9;
      
      adoquery1.Post;

      
        adoquery:=tadoquery.Create(nil);
        adoquery.ConnectionString:=adoquery1.ConnectionString;
        adoquery.Close;
        adoquery.SQL.Clear;
        adoquery.SQL.Add('select * from borrowreturn');
        adoquery.Open;
        adoquery.Append;
        adoquery.Edit;
        adoquery.FieldByName('journalid').AsString:=str1;
         adoquery.FieldByName('BookID').AsString:='00';

        adoquery.FieldByName('memo').AsString:='资料室';
        adoquery.Post;
        adoquery.Free;
      iwedit1.Text:=adoquery1.fieldbyname('ID').AsString;
      iwedit2.Text:=adoquery1.fieldbyname('zqs').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('qs').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('Price').AsString;

    tempcobstr:=adoquery1.fieldbyname('JournalBasicID').AsString;
    iwcombobox1.ItemIndex:=iwcombobox1.Items.IndexOf(tempcobstr);

    iwedit6.Text:=adoquery1.fieldbyname('buydate').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('pubdate').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('ISBN').AsString;
     iwedit9.Text:=adoquery1.fieldbyname('zhuti').AsString;
    iwedit5.Text:=adoquery1.fieldbyname('fenleihao').AsString;

    iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
   end;
   end;
end;

procedure Tfrmqkluru.IWButton4Click(Sender: TObject);
begin
    adoquery1.Open;
   adoquery1.Cancel;
   iwedit1.Text:=adoquery1.fieldbyname('ID').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('zqs').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('qs').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('Price').AsString;

    tempcobstr:=adoquery1.fieldbyname('JournalBasicID').AsString;
    iwcombobox1.ItemIndex:=iwcombobox1.Items.IndexOf(tempcobstr);

    iwedit6.Text:=adoquery1.fieldbyname('buydate').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('pubdate').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('ISBN').AsString;
     iwedit9.Text:=adoquery1.fieldbyname('zhuti').AsString;
    iwedit5.Text:=adoquery1.fieldbyname('fenleihao').AsString;

    iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
end;

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

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

procedure Tfrmqkluru.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;

end;
procedure Tfrmqkluru.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
    iwedit1.Text:=adoquery1.fieldbyname('ID').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('zqs').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('qs').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('Price').AsString;


    tempcobstr:=adoquery1.fieldbyname('JournalBasicID').AsString;
    iwcombobox1.ItemIndex:=iwcombobox1.Items.IndexOf(tempcobstr);

    iwedit6.Text:=adoquery1.fieldbyname('buydate').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('pubdate').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('ISBN').AsString;

    iwedit9.Text:=adoquery1.fieldbyname('zhuti').AsString;
    iwedit5.Text:=adoquery1.fieldbyname('fenleihao').AsString;

   iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
end;



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

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

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

end.