yhgl.pas

机房管理系统delphi源代码

unit yhgl;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, Grids, DBGrids, Menus, StdCtrls, ExtCtrls, DBTables, db;

type
  Tf_yhgl = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    db_first: TSpeedButton;
    db_prev: TSpeedButton;
    db_next: TSpeedButton;
    db_last: TSpeedButton;
    db_insert: TSpeedButton;
    db_append: TSpeedButton;
    db_delete: TSpeedButton;
    db_post: TSpeedButton;
    db_cancel: TSpeedButton;
    db_ref: TSpeedButton;
    db_pop: TSpeedButton;
    db_close: TSpeedButton;
    procedure db_firstClick(Sender: TObject);
    procedure db_prevClick(Sender: TObject);
    procedure db_nextClick(Sender: TObject);
    procedure db_lastClick(Sender: TObject);
    procedure db_insertClick(Sender: TObject);
    procedure db_appendClick(Sender: TObject);
    procedure db_deleteClick(Sender: TObject);
    procedure db_postClick(Sender: TObject);
    procedure db_cancelClick(Sender: TObject);
    procedure db_refClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure db_closeClick(Sender: TObject);
    procedure db_popClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_yhgl: Tf_yhgl;
  dis_sql : string;  //显示SQL语句

implementation

uses data, jfos, yhgl_ref, gbv;

{$R *.DFM}

procedure Tf_yhgl.db_firstClick(Sender: TObject);
begin  //第一个记录
  ds_data.Qu_yhgl.First;
end;

procedure Tf_yhgl.db_prevClick(Sender: TObject);
begin  //上一个记录
  ds_data.Qu_yhgl.Prior;
end;

procedure Tf_yhgl.db_nextClick(Sender: TObject);
begin  //下一个记录
  ds_data.Qu_yhgl.Next;
end;

procedure Tf_yhgl.db_lastClick(Sender: TObject);
begin  //最后一个记录
  ds_data.Qu_yhgl.Last;
end;

procedure Tf_yhgl.db_insertClick(Sender: TObject);
begin  //插入记录
  ds_data.Qu_yhgl.Insert;
end;

procedure Tf_yhgl.db_appendClick(Sender: TObject);
begin  //添加记录
  ds_data.Qu_yhgl.Append;
end;

procedure Tf_yhgl.db_deleteClick(Sender: TObject);
begin  //删除记录
  if not ds_data.Qu_yhgl.IsEmpty then  //若有记录则删除
     ds_data.Qu_yhgl.Delete;
end;

procedure Tf_yhgl.db_postClick(Sender: TObject);
begin  //保存记录
  if ds_data.Qu_yhgl.State in [dsEdit,dsInsert] then
     ds_data.Qu_yhgl.Post;
end;

procedure Tf_yhgl.db_cancelClick(Sender: TObject);
begin  //放弃修改
  ds_data.Qu_yhgl.Cancel;
end;

procedure Tf_yhgl.db_refClick(Sender: TObject);
begin  //重新显示
  ds_data.Qu_yhgl.Refresh;
end;

procedure Tf_yhgl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ds_data.Qu_yhgl.Close;  //关闭数据库
  f_jfos.Enabled:=true;
end;

procedure Tf_yhgl.FormShow(Sender: TObject);
var ReqLiv : Boolean;
begin
  //限制写数据库的操作
  ReqLiv:=ds_data.Qu_yhgl.RequestLive;
  db_insert.Enabled:=ReqLiv;
  db_append.Enabled:=ReqLiv;
  db_delete.Enabled:=ReqLiv;
  db_post.Enabled:=ReqLiv;
  db_cancel.Enabled:=ReqLiv;

  f_yhgl_ref.RefQu;  //显示数据库
end;

procedure Tf_yhgl.db_closeClick(Sender: TObject);
begin  //关闭窗口
  f_yhgl.Close;
end;

procedure Tf_yhgl.db_popClick(Sender: TObject);
begin  //显示“调整窗口”窗口
  ds_data.Qu_sbgl.Cancel;
  f_yhgl.Enabled:=false;
  f_yhgl_ref.Show;
end;

end.