untmguser.~pas

资料室图书借阅管理系统

unit untmguser;

interface

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

type
  Tfrmmguser = class(TIWAppForm)
    IWLabel1: TIWLabel;
    IWFrame11: TIWFrame1;
    IWHRule1: TIWHRule;
    IWDBGrid1: TIWDBGrid;
    IWLabel2: TIWLabel;
    IWLabel3: TIWLabel;
    IWLabel4: TIWLabel;
    IWLabel5: TIWLabel;
    IWLabel6: TIWLabel;
    IWComboBox1: TIWComboBox;
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWButton3: TIWButton;
    IWButton4: TIWButton;
    IWButton5: TIWButton;
    IWButton6: TIWButton;
    IWButton7: TIWButton;
    IWButton8: TIWButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    IWEdit1: TIWEdit;
    IWEdit2: TIWEdit;
    IWEdit3: TIWEdit;
    IWEdit4: TIWEdit;
    btnfirst: TIWButton;
    btnlast: TIWButton;
    btnprior: TIWButton;
    btnnext: TIWButton;
    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 IWButton7Click(Sender: TObject);
    procedure IWButton8Click(Sender: TObject);
    procedure IWAppFormCreate(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 btnfirstClick(Sender: TObject);
    procedure btnpriorClick(Sender: TObject);
    procedure btnnextClick(Sender: TObject);
    procedure btnlastClick(Sender: TObject);
  public
  end;

implementation

uses ServerController;

{$R *.dfm}

var
  tempcobstr:string;
procedure Tfrmmguser.IWButton1Click(Sender: TObject);
begin
adoquery1.Close;
  iwedit1.SetFocus;
  iwedit1.Clear;
  iwedit2.Text:='';
  iwedit3.Text:='';
  iwedit4.Text:='';
  iwcombobox1.ItemIndex:=-1;
  
end;

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

begin
   str1:=trim(iwedit1.Text);
   str2:=trim(iwedit2.Text);
   str3:=trim(iwedit3.Text);
   str4:=trim(iwedit4.Text);
  // if (length(str3)=0)then
     //  str3:='1' ;

   str5:=trim(iwcombobox1.text);
   if (length(str1)=0)then
       webapplication.ShowMessage('请输入登录账号')
   else if (length(str2)=0)then
       webapplication.ShowMessage('请输入用户真实姓名')
   else  if iwcombobox1.ItemIndex=-1 then
       str5:='普通用户';
   begin
   adoquery1.open;
   if  adoquery1.Locate('Logname',str1,[]) then
   begin
      adoquery1.Edit;  
      adoquery1.fieldbyname('realName').AsString:=str2;
      adoquery1.fieldbyname('password').AsString:=str3;
      adoquery1.fieldbyname('memo').AsString:=str4;

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

      adoquery1.Post;
      iwedit1.Text:=adoquery1.fieldbyname('Logname').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('realName').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('password').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('memo').AsString;

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

   end
   else
   begin
      adoquery1.Edit;
      adoquery1.Append;

      adoquery1.fieldbyname('Logname').AsString:=str1;
      adoquery1.fieldbyname('realName').AsString:=str2;
      adoquery1.fieldbyname('password').AsString:=str3;
      adoquery1.fieldbyname('memo').AsString:=str4;

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

      adoquery1.Post;
      iwedit1.Text:=adoquery1.fieldbyname('Logname').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('realName').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('password').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('memo').AsString;

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

end;

procedure Tfrmmguser.IWButton3Click(Sender: TObject);
begin
   adoquery1.Open;
    adoquery1.Cancel;
   iwedit1.Text:=adoquery1.fieldbyname('Logname').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('realName').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('password').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('memo').AsString;

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

procedure Tfrmmguser.IWButton4Click(Sender: TObject);
begin
adoquery1.open;
    adoquery1.Prior;
end;

procedure Tfrmmguser.IWButton5Click(Sender: TObject);
begin
adoquery1.open;
    adoquery1.Next;
end;

procedure Tfrmmguser.IWButton6Click(Sender: TObject);
begin
adoquery1.open;
    adoquery1.First;
end;

procedure Tfrmmguser.IWButton7Click(Sender: TObject);
begin
adoquery1.open;
   adoquery1.Last;
end;

procedure Tfrmmguser.IWButton8Click(Sender: TObject);
begin
adoquery1.open;
   adoquery1.delete;
   adoquery1.Edit;
   adoquery1.Post;
   iwedit1.Text:=adoquery1.fieldbyname('Logname').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('realName').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('password').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('memo').AsString;

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

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

     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('SELECT LoginUser.Logname, LoginUser.realName, LoginUser.password, LoginUser.team, LoginUser.memo FROM LoginUser') ;
     adoquery1.Open;
     iwedit1.Text:=adoquery1.fieldbyname('Logname').AsString;
     iwedit1.SetFocus;
    iwedit2.Text:=adoquery1.fieldbyname('realName').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('password').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('memo').AsString;

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


end;

procedure Tfrmmguser.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
   iwedit1.Text:=adoquery1.fieldbyname('Logname').AsString;
    iwedit2.Text:=adoquery1.fieldbyname('realName').AsString;
    iwedit3.Text:=adoquery1.fieldbyname('password').AsString;
    iwedit4.Text:=adoquery1.fieldbyname('memo').AsString;   

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

procedure Tfrmmguser.IWDBGrid1Columns0Click(ASender: TObject;
  const AValue: String);
begin
GoFish(AValue);
end;

procedure Tfrmmguser.GoFish(const bookid: string);
begin
  adoquery1.Locate('Logname', bookid, []);
end;

procedure Tfrmmguser.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 Tfrmmguser.btnpriorClick(Sender: TObject);
begin
  adoquery1.Open;
   adoquery1.MoveBy(-iwdbgrid1.RowLimit );
end;

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

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

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