unit8.pas

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

unit Unit8;

interface

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

type
  Tfrmequipment = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Label4: TLabel;
    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
  frmequipment: Tfrmequipment;

implementation

uses Unit3, Unit9;

{$R *.dfm}

procedure Tfrmequipment.FormShow(Sender: TObject);
begin
 dm1.ADOQuery1.SQL.Text:='select * from equipments';
 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:='status';
 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:='roomnum';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Title.caption:='机房号';
 DBGrid1.Columns[DBGrid1.Columns.Count-1].Width:=100;

end;

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

procedure Tfrmequipment.CheckBox1Click(Sender: TObject);
begin
 panel2.Visible:=checkbox1.Checked;
 get_req;
end;

procedure Tfrmequipment.Button1Click(Sender: TObject);
begin
 dm1.ADOQuery1.close;
 application.CreateForm(tfrmedeqp,frmedeqp);
 frmedeqp.ty:=1;
 frmedeqp.ShowModal;
 dm1.ADOQuery1.Open;
end;

procedure Tfrmequipment.Button2Click(Sender: TObject);
begin
 application.CreateForm(tfrmedeqp,frmedeqp);
 frmedeqp.ty:=2;
 frmedeqp.Edit1.Text:=trim(dm1.ADOQuery1.fieldbyname('id').AsString);
 dm1.ADOQuery1.close;
 frmedeqp.ShowModal;
 dm1.ADOQuery1.Open;
end;

procedure Tfrmequipment.Button3Click(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 equipments where id='''
 +na+'''');
 dm1.ADOQuery1.Open;
 application.MessageBox('已删除','',64);
end;

procedure Tfrmequipment.get_req;
var s:string;
begin
 s:='';
 if checkbox1.Checked then
 begin
  if trim(edit1.Text)<>'' then
   s:=s+' and id='''+trim(edit1.Text)+'''';
  if trim(edit2.Text)<>'' then
   s:=s+' and roomnum='''+trim(edit2.Text)+'''';
  if trim(combobox1.Text)<>'' then
   s:=s+' and status='''+trim(combobox1.Text)+'''';
 end;
 dm1.ADOQuery1.close;
 dm1.ADOQuery1.SQL.Text:='select * from equipments';
 if s<>'' then
  dm1.ADOQuery1.SQL.Add(' where '+copy(s,5,length(s)-4));
 dm1.ADOQuery1.Open;
end;

procedure Tfrmequipment.Edit1Exit(Sender: TObject);
begin
  get_req;
end;

end.