📄 untluru.~pas

📁 资料室图书借阅管理系统
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
  d1,d2:tdatetime;
  t:boolean;
begin

   str1:=trim(iwedit1.Text);

   str2:=trim(iwedit2.Text);
   str3:=trim(iwedit3.Text);
   str4:=trim(iwedit4.Text);

   str14:=trim(iwedit5.Text);
   str15:=trim(iwedit8.Text);
   
   str5:=trim(iwcombobox1.Text );
   str6:=trim(iwedit6.Text);
   str7:=trim(iwedit7.Text);
   str8:=trim(iwcombobox2.Text);
   str9:=trim(iwedit9.Text);
   str10:=trim(iwedit10.Text);
   str11:=trim(iwedit11.Text);


   str12:=datetostr(date);
   d2:=strtodate(str12);

   t:=trystrtodate(str9,d1);


//   str12:=trim(iwedit12.Text);
   str13:=iwmemo1.Lines.Text;
   if (length(str1)=0)then
   begin
       webapplication.ShowMessage('请输入书号')

       end
   else
   if (length(str2)=0) then
   begin
       webapplication.ShowMessage('请输入书名')
       end
     {
   else
   if (length(str9)=0) then
   begin
   
       webapplication.ShowMessage('时间不能为空!')
    
   end
    }
   else
    if (t = false) and (length(str9)<>0) then
   begin
   webapplication.ShowMessage('请您正确输入!'+#10+'时间格式为：'+#10+'年－月－日');
   iwedit9.Text:='' ;
   iwedit9.SetFocus ;
    end
   else
   if d1>d2 then
   begin
   webapplication.ShowMessage('时间超限!');
   iwedit9.Text:='' ;
   iwedit9.SetFocus ;
    end
    else
   if  (length(str5)=0) then
   begin
       webapplication.ShowMessage('请选择出版社')
       end
   else
   begin

   adoquery1.Open;
   if  adoquery1.Locate('BookID',str1,[]) then
   begin
      adoquery1.Edit;
      adoquery1.fieldbyname('Name').AsString:=str2;
      adoquery1.fieldbyname('Author').AsString:=str3;
      adoquery1.fieldbyname('co-Author').AsString:=str4;
      adoquery1.fieldbyname('PublishID').AsString:=str5;
      adoquery1.fieldbyname('Price').AsString:=str6;
      adoquery1.fieldbyname('sery').AsString:=str7;
      adoquery1.fieldbyname('Type').AsString:=str8;
      adoquery1.fieldbyname('PubDate').AsString:=str9;
      adoquery1.fieldbyname('LogDate').AsString:=str10;
      adoquery1.fieldbyname('ISBN').AsString:=str11;
      adoquery1.fieldbyname('zhuti').AsString:=str14;
      adoquery1.fieldbyname('fenleihao').AsString:=str15;


      //adoquery1.fieldbyname('inID').AsString:=str12;
      adoquery1.fieldbyname('Memo').AsString:=str13;

      adoquery1.Post;
    iwedit1.Text:=adoquery1.fieldbyname('BookID').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('Name').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('Author').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('co-Author').AsString;
    iwedit5.Text:=adoquery1.fieldbyname('zhuti').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('fenleihao').AsString;
    
    tempcobstr:=adoquery1.fieldbyname('PublishID').AsString;
    iwcombobox1.ItemIndex:=iwcombobox1.Items.IndexOf(tempcobstr);

    iwedit6.Text:=adoquery1.fieldbyname('Price').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('sery').AsString;
    //iwedit8.Text:=adoquery1.fieldbyname('Type').AsString;
    tempcobstr2:=adoquery1.fieldbyname('Type').AsString;
    iwcombobox2.ItemIndex:=iwcombobox2.Items.IndexOf(tempcobstr2);
    
    iwedit9.Text:=adoquery1.fieldbyname('PubDate').AsString;
    iwedit10.Text:=adoquery1.fieldbyname('LogDate').AsString;
    iwedit11.Text:=adoquery1.fieldbyname('ISBN').AsString;
//    iwedit12.Text:=adoquery1.fieldbyname('inID').AsString;
    iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
   end
   else
   begin
      begin
      str1:='1'+str1;
      adoquery1.Edit;
      adoquery1.Append;
      adoquery1.fieldbyname('BookID').AsString:=str1;
      adoquery1.fieldbyname('Name').AsString:=str2;
      adoquery1.fieldbyname('Author').AsString:=str3;
      adoquery1.fieldbyname('co-Author').AsString:=str4;
      adoquery1.fieldbyname('PublishID').AsString:=str5;
      adoquery1.fieldbyname('Price').AsString:=str6;
      adoquery1.fieldbyname('sery').AsString:=str7;
      adoquery1.fieldbyname('Type').AsString:=str8;
      adoquery1.fieldbyname('PubDate').AsString:=str9;
      adoquery1.fieldbyname('LogDate').AsString:=str10;
      adoquery1.fieldbyname('ISBN').AsString:=str11;

       adoquery1.fieldbyname('zhuti').AsString:=str14;
      adoquery1.fieldbyname('fenleihao').AsString:=str15;
      //adoquery1.fieldbyname('inID').AsString:=str12;
      adoquery1.fieldbyname('Memo').AsString:=str13;
      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('BookID').AsString:=str1;
         adoquery.FieldByName('journalid').AsString:='00';
        adoquery.FieldByName('memo').AsString:='资料室';
        adoquery.Post;
        adoquery.Free;

      iwedit1.Text:=adoquery1.fieldbyname('BookID').AsString;
      iwedit2.Text:=adoquery1.fieldbyname('Name').AsString;
      iwedit3.Text:=adoquery1.fieldbyname('Author').AsString;
      iwedit4.Text:=adoquery1.fieldbyname('co-Author').AsString;
      
      iwedit5.Text:=adoquery1.fieldbyname('zhuti').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('fenleihao').AsString;
   
    tempcobstr:=adoquery1.fieldbyname('PublishID').AsString;
    iwcombobox1.ItemIndex:=iwcombobox1.Items.IndexOf(tempcobstr);

    iwedit6.Text:=adoquery1.fieldbyname('Price').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('sery').AsString;
    //iwedit8.Text:=adoquery1.fieldbyname('Type').AsString;
     tempcobstr2:=adoquery1.fieldbyname('Type').AsString;
 iwcombobox2.ItemIndex:=iwcombobox2.Items.IndexOf(tempcobstr2);
    
    iwedit9.Text:=adoquery1.fieldbyname('PubDate').AsString;
    iwedit10.Text:=adoquery1.fieldbyname('LogDate').AsString;
    iwedit11.Text:=adoquery1.fieldbyname('ISBN').AsString;
//    iwedit12.Text:=adoquery1.fieldbyname('inID').AsString;
    iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
   end;
   end;
end;
end;
procedure Tfrmluru.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 Tfrmluru.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
adoquery1.Open;
   iwedit1.Text:=adoquery1.fieldbyname('BookID').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('Name').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('Author').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('co-Author').AsString;
    iwedit5.Text:=adoquery1.fieldbyname('zhuti').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('fenleihao').AsString;
    
    tempcobstr:=adoquery1.fieldbyname('PublishID').AsString;
    iwcombobox1.ItemIndex:=iwcombobox1.Items.IndexOf(tempcobstr);

    iwedit6.Text:=adoquery1.fieldbyname('Price').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('sery').AsString;
    //iwedit8.Text:=adoquery1.fieldbyname('Type').AsString;
    
     tempcobstr2:=adoquery1.fieldbyname('Type').AsString;
    iwcombobox2.ItemIndex:=iwcombobox2.Items.IndexOf(tempcobstr2);

    iwedit9.Text:=adoquery1.fieldbyname('PubDate').AsString;
    iwedit10.Text:=adoquery1.fieldbyname('LogDate').AsString;
    iwedit11.Text:=adoquery1.fieldbyname('ISBN').AsString;
//    iwedit12.Text:=adoquery1.fieldbyname('inID').AsString;
    iwmemo1.Lines.Text:= adoquery1.fieldbyname('Memo').AsString;
end;

procedure Tfrmluru.IWDBGrid1Columns0Click(ASender: TObject;
  const AValue: String);
begin
   GoFish(AValue);
end;
procedure Tfrmluru.GoFish(const bookid: string);
begin
adoquery1.open;
  adoquery1.Locate('BookID', bookid, []);
end;



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

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

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

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

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -