unit2.pas

机房管理系统源代码2006-7-8制作的非常实用

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ExtCtrls;

type
  Tfrmusers = class(TForm)
    Panel1: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Panel2: TPanel;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
    procedure  get_req;
  public
    { Public declarations }
  end;

var
  frmusers: Tfrmusers;

implementation

uses Unit4, Unit3, Unit7;

{$R *.dfm}

procedure Tfrmusers.FormShow(Sender: TObject);
begin
 dm1.ADOQuery1.SQL.Text:='select * from operates';
 dm1.ADOQuery1.open;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='id';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='帐号';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=100;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='name';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='姓名';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=120;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='st_id';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='学号';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=100;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='sex';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='性别';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=60;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='depart';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='系';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=120;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='classes';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='年级';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=120;
 DBGrid1.Columns.Add;
 DBGrid1.Columns[DBGrid1.Columns.Count-1].FieldName:='cash';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='帐号余额';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=120;
 dm1.ADOQuery1.First;

end;

procedure Tfrmusers.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 dm1.ADOQuery1.close; 
end;

procedure Tfrmusers.CheckBox1Click(Sender: TObject);
begin

 panel2.Visible:=checkbox1.Checked;
 get_req;
end;

procedure Tfrmusers.Button1Click(Sender: TObject);
begin
 dm1.ADOQuery1.close;
 application.CreateForm(tfrmedop,frmedop);
 frmedop.ty:=1;
 frmedop.ShowModal;
 dm1.ADOQuery1.open;
end;

procedure Tfrmusers.Button2Click(Sender: TObject);
var na:string;
begin
 na:=trim(dm1.ADOQuery1.fieldbyname('id').AsString);
 if application.MessageBox(pchar('确定删除'+na+'？'),'',MB_YESNO)<>IDYES then
  exit;
 dm1.ADOQuery1.close;
 dm1.ADOCon1.Execute('delete from operates where id='''
 +na+'''');
 dm1.ADOQuery1.Open;
 application.MessageBox('已删除','',64);
end;

procedure Tfrmusers.Button3Click(Sender: TObject);
begin
 application.CreateForm(tfrmedop,frmedop);
 frmedop.edit1.text:=dm1.ADOQuery1.fieldbyname('id').AsString;
 dm1.ADOQuery1.close;
 frmedop.ty:=2;
 frmedop.ShowModal;
 dm1.ADOQuery1.open;
end;

//***************************************
//2004-05-13 qhb
//光标离开，开始检索，注意edit1，edit2，
//edit3均适用，见evens
//***************************************
procedure Tfrmusers.Edit1Exit(Sender: TObject);
begin
 get_req;
end;

//***************************************
//2004-05-13 qhb
//检索函数
//***************************************
procedure Tfrmusers.get_req;
var s:string;
begin
 s:='';
 if checkbox1.Checked then
 begin
  if trim(edit1.Text)<>'' then
   s:=s+' and name='''+trim(edit1.Text)+'''';
  if trim(edit2.Text)<>'' then
   s:=s+' and id='''+trim(edit2.Text)+'''';
  if trim(edit3.Text)<>'' then
   s:=s+' and st_id='''+trim(edit3.Text)+'''';
 end;  
 dm1.ADOQuery1.close;
 dm1.ADOQuery1.SQL.Text:='select * from operates';
 if s<>'' then
  dm1.ADOQuery1.SQL.Add(' where '+copy(s,5,length(s)-4));
 dm1.ADOQuery1.Open;
end;

end.