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

📄 untmgread.~pas

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

interface

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

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

   
  public
  end;

implementation

uses ServerController;

{$R *.dfm}

var
  tempcobstr,tempcobstr2:string;
procedure Tfrmmgread.IWButton1Click(Sender: TObject);
begin
  adoquery1.close;
  iwedit1.Clear;
  iwedit2.Text:='';
  iwedit3.Text:='';
  iwedit4.Text:='';
  iwedit5.Text:='';
  iwedit6.Text:='';
   iwedit7.Text:='';
  iwedit8.Text:='';
  iwedit9.Text:='';
  iwcombobox1.ItemIndex:=-1;
  iwcombobox2.ItemIndex:=-1;
  iwmemo1.Lines.Clear;
  iwedit1.SetFocus;
end;

procedure Tfrmmgread.IWButton2Click(Sender: TObject);
var
  str1,str2,str3,str4,str5,str6,str7,str8,str9,str10,str11,str12:string;

begin

   str1:=trim(iwedit1.Text);
   str2:=trim(iwedit2.Text);
   str3:=trim(iwedit3.Text);
   str4:=trim(iwedit4.Text);
   str5:=trim(iwedit5.Text);
   str12:=trim(iwedit9.Text);
   str6:=trim(iwedit6.Text);
   str7:=trim(iwedit7.Text);
   str8:=trim(iwedit8.Text);
   str9:=trim(iwcombobox2.Text);

   str10:=trim(iwcombobox1.Text);
   str11:=iwmemo1.Lines.Text;
   if (length(str1)=0)then
       webapplication.ShowMessage('请输入用户账号')
   else
   if (length(str2)=0) then
       webapplication.ShowMessage('请输入用户姓名')
   else
   if (length(str9)=0) then
       webapplication.ShowMessage('请输入部门号')

   else
   begin
    adoquery1.Open;
   if  adoquery1.Locate('UserId',str1,[]) then
   begin
      adoquery1.Edit;  
     adoquery1.fieldbyname('username').AsString:=str2;
      adoquery1.fieldbyname('address').AsString:=str3;
      adoquery1.fieldbyname('telNum').AsString:=str4;
      adoquery1.fieldbyname('MobileNum').AsString:=str5;
      adoquery1.fieldbyname('FaxNum').AsString:=str6;
      adoquery1.fieldbyname('Email').AsString:=str7;
      adoquery1.fieldbyname('zipcode').AsString:=str8;
      adoquery1.fieldbyname('departID').AsString:=str9;

      adoquery1.fieldbyname('sex').AsString:=str10;
      adoquery1.fieldbyname('memo').AsString:=str11;
      adoquery1.FieldByName('QQ').AsString:=str12;
      adoquery1.Post;
    iwedit1.Text:=adoquery1.fieldbyname('UserId').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('username').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('address').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('telNum').AsString;
    iwedit5.Text:=adoquery1.fieldbyname('MobileNum').AsString;

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

    iwedit6.Text:=adoquery1.fieldbyname('FaxNum').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('Email').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('zipcode').AsString;
    iwedit9.Text:=adoquery1.fieldbyname('QQ').AsString;
      tempcobstr2:=adoquery1.fieldbyname('departID').AsString;
    iwcombobox2.ItemIndex:=iwcombobox2.Items.IndexOf(tempcobstr2);

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

   end
   else
   begin
      adoquery1.Edit;
      adoquery1.Append;
      adoquery1.fieldbyname('UserId').AsString:=str1;
     adoquery1.fieldbyname('username').AsString:=str2;
      adoquery1.fieldbyname('address').AsString:=str3;
      adoquery1.fieldbyname('telNum').AsString:=str4;
      adoquery1.fieldbyname('MobileNum').AsString:=str5;
      adoquery1.fieldbyname('FaxNum').AsString:=str6;
      adoquery1.fieldbyname('Email').AsString:=str7;
      adoquery1.fieldbyname('zipcode').AsString:=str8;
      adoquery1.fieldbyname('departID').AsString:=str9;

      adoquery1.fieldbyname('sex').AsString:=str10;
      adoquery1.fieldbyname('memo').AsString:=str11;
      adoquery1.FieldByName('QQ').AsString:=str12;
      adoquery1.Post;
    iwedit1.Text:=adoquery1.fieldbyname('UserId').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('username').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('address').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('telNum').AsString;
    iwedit5.Text:=adoquery1.fieldbyname('MobileNum').AsString;

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

    iwedit6.Text:=adoquery1.fieldbyname('FaxNum').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('Email').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('zipcode').AsString;
    iwedit9.Text:=adoquery1.fieldbyname('QQ').AsString;
      tempcobstr2:=adoquery1.fieldbyname('departID').AsString;
    iwcombobox2.ItemIndex:=iwcombobox2.Items.IndexOf(tempcobstr2);

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

procedure Tfrmmgread.IWButton3Click(Sender: TObject);
begin
   adoquery1.Open;
   adoquery1.Cancel;
   iwedit1.Text:=adoquery1.fieldbyname('UserId').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('username').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('address').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('telNum').AsString;
    iwedit5.Text:=adoquery1.fieldbyname('MobileNum').AsString;

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

    iwedit6.Text:=adoquery1.fieldbyname('FaxNum').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('Email').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('zipcode').AsString;
     iwedit9.Text:=adoquery1.fieldbyname('QQ').AsString;
      tempcobstr2:=adoquery1.fieldbyname('departID').AsString;
    iwcombobox2.ItemIndex:=iwcombobox2.Items.IndexOf(tempcobstr2);

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

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

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

procedure Tfrmmgread.IWButton8Click(Sender: TObject);
begin
   if trim(iwedit1.Text)='00' then
  begin
     webapplication.ShowMessage('该记录为系统设定，请不要删除,谢谢');
  end
  else
  begin
 //  adoquery1.Open;
   adoquery1.delete;
   adoquery1.Edit;
   adoquery1.Post;
   iwedit1.Text:=adoquery1.fieldbyname('UserId').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('username').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('address').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('telNum').AsString;
    iwedit5.Text:=adoquery1.fieldbyname('MobileNum').AsString;

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

    iwedit6.Text:=adoquery1.fieldbyname('FaxNum').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('Email').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('zipcode').AsString;
    iwedit9.Text:=adoquery1.fieldbyname('QQ').AsString;
     tempcobstr2:=adoquery1.fieldbyname('departID').AsString;
    iwcombobox2.ItemIndex:=iwcombobox2.Items.IndexOf(tempcobstr2);
     iwmemo1.Lines.Text:=adoquery1.fieldbyname('Memo').AsString;
   end;
end;

procedure Tfrmmgread.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
   iwedit1.Text:=adoquery1.fieldbyname('UserId').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('username').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('address').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('telNum').AsString;
    iwedit5.Text:=adoquery1.fieldbyname('MobileNum').AsString;

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

    iwedit6.Text:=adoquery1.fieldbyname('FaxNum').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('Email').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('zipcode').AsString;
    iwedit9.Text:=adoquery1.fieldbyname('QQ').AsString;
     tempcobstr2:=adoquery1.fieldbyname('departID').AsString;
    iwcombobox2.ItemIndex:=iwcombobox2.Items.IndexOf(tempcobstr2);

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

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

procedure Tfrmmgread.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 Tfrmmgread.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
    iwcombobox2.Items.Add(adoquery2.fieldbyname('DepartName').AsString);
    adoquery2.Next;
    end;
    adoquery2.Close;
    adoquery1.open;
    iwedit1.Text:=adoquery1.fieldbyname('UserId').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('username').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('address').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('telNum').AsString;
    iwedit5.Text:=adoquery1.fieldbyname('MobileNum').AsString;

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

    iwedit6.Text:=adoquery1.fieldbyname('FaxNum').AsString;
    iwedit7.Text:=adoquery1.fieldbyname('Email').AsString;
    iwedit8.Text:=adoquery1.fieldbyname('zipcode').AsString;

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

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

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

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

⌨️ 快捷键说明

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