⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 untqkluru22.pas

📁 资料室图书借阅管理系统
💻 PAS
字号:
🔍 
unit untqkluru22;

interface

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

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

implementation

{$R *.dfm}

var
  tempcobstr:string;
procedure Tfrmqkluru22.IWAppFormCreate(Sender: TObject);
begin
 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;
    iwedit10.Text:=adoquery1.fieldbyname('fenleihao').AsString;
    
    iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
end;

procedure Tfrmqkluru22.IWButton1Click(Sender: TObject);
begin
 iwedit1.Clear;
  iwedit2.Text:='';
  iwedit3.Text:='';
  iwedit4.Text:='';
   iwedit7.Text:='';
  iwedit8.Text:='';

   iwedit9.Text:='';
   iwedit10.Text:='';
    iwmemo1.Lines.Clear;

  iwedit6.Text:=datetostr(date);

      iwedit1.SetFocus;
end;

procedure Tfrmqkluru22.IWButton3Click(Sender: TObject);
var
  str1,str2,str3,str4,str5,str6,str7,str8,str9,str10,str11:string;
  adoquery:tadoquery;
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);
   str8:=trim(iwedit8.Text);

   str10:=trim(iwedit9.Text);
   str11:=trim(iwedit10.Text);

   str9:=iwmemo1.Lines.Text;
   if (length(str1)=0)then
       webapplication.ShowMessage('请输入期刊号')
   else
   if (length(str2)=0) then
       webapplication.ShowMessage('请输入总期数')
   else
   if (length(str3)=0) then
       webapplication.ShowMessage('请输入期数')
   else
   if  (length(str5)=0) then
       webapplication.ShowMessage('请输入出版社编号')
   else
   begin
   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;
    iwedit10.Text:=adoquery1.fieldbyname('fenleihao').AsString;

    iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
   end
   else
   begin
      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('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;
    iwedit10.Text:=adoquery1.fieldbyname('fenleihao').AsString;

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

procedure Tfrmqkluru22.IWButton4Click(Sender: TObject);
begin
   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;
    iwedit10.Text:=adoquery1.fieldbyname('fenleihao').AsString;

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

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

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

procedure Tfrmqkluru22.IWButton7Click(Sender: TObject);
begin
   adoquery1.First;
end;

procedure Tfrmqkluru22.IWButton8Click(Sender: TObject);
begin
   adoquery1.Last;
end;

procedure Tfrmqkluru22.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;
     iwedit9.Text:=adoquery1.fieldbyname('zhuti').AsString;
    iwedit10.Text:=adoquery1.fieldbyname('fenleihao').AsString;

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


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


procedure Tfrmqkluru22.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;
    iwedit10.Text:=adoquery1.fieldbyname('fenleihao').AsString;

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

procedure Tfrmqkluru22.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;
      ACell.Text := ' 资料室共订阅'+IntToStr(iwdbgrid1.RecordCount) + '本书籍';
    end;
  end
  else if iwdbgrid1.RowIsCurrent then begin
    ACell.BGColor := clYellow;
  end;
end;

end.

⌨️ 快捷键说明

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