phonemanagefrm.pas

一个电力企业的后台管理程序

unit phonemanageFRM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  pubBillFM, ImgList, wenActionPass, Menus, ActnList, TB97Tlbr, TB97Ctls,
  TB97, Grids, DBGrids, RXDBCtrl, ExtCtrls, ComCtrls, Db, DBTables,
  StdCtrls, Mask, DBCtrls;

type
  Tfrm_phonemanage = class(Tfrm_pubBill)
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Query1: TQuery;
    UpdateSQL1: TUpdateSQL;
    DBEdit2: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure actn_Const_SaveExecute(Sender: TObject);
    procedure actn_Const_CancelExecute(Sender: TObject);
    procedure actn_Const_NewExecute(Sender: TObject);
    procedure actn_Const_DeleteExecute(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    CanSave:boolean;
    procedure RefreshTable;
  public
    { Public declarations }
  end;

var
  frm_phonemanage: Tfrm_phonemanage;

implementation

uses systemDM;

{$R *.DFM}
procedure Tfrm_phonemanage.RefreshTable;
begin
  with Query1 do
  begin
    DisableControls;
    Close;    SQL.Clear;
    SQL.Text:='select * from ECSC_SA.InfoPerson';
    EnableControls;
    Prepare;   Open;
  end;
end;

procedure Tfrm_phonemanage.FormCreate(Sender: TObject);
begin
  inherited;
  RefreshTable;
  CanSave:=true;
  stb_Main.Panels[0].Text:='共有'
                            +inttostr(Query1.RecordCount)
                            +'条记录.';
end;

procedure Tfrm_phonemanage.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if (ssCtrl in Shift) or (ssAlt in Shift)  then exit;
  if Key=13 then exit;
  if not FormEditStatus then
    Actn_Const_Edit.Execute;
end;

procedure Tfrm_phonemanage.actn_Const_SaveExecute(Sender: TObject);
begin
  SelectNext(ActiveControl,true,true);
  if not CanSave then exit;
  if trim(Query1.FieldByName('PersonName').AsString)='' then
  begin
    ShowMessage('请填写电话号码信息名称！');
    exit;
  end;
  sysDM.DBMain.StartTransaction;
  try
    if Query1.Modified then
      Query1.ApplyUpdates;
    sysDM.DBMain.Commit;
  except
    Query1.CommitUpdates;
    sysDM.DBMain.Rollback;
    exit;
  end;
  Query1.CommitUpdates;
  CanSave:=true;
  inherited;
end;

procedure Tfrm_phonemanage.actn_Const_CancelExecute(Sender: TObject);
begin
  inherited;
  Query1.Cancel;
  CanSave:=true;
end;

procedure Tfrm_phonemanage.actn_Const_NewExecute(Sender: TObject);
begin
  inherited;
  with Query1 do
  begin
    //Edit;
    Append;
  end;
  DBEdit1.SetFocus;
end;

procedure Tfrm_phonemanage.actn_Const_DeleteExecute(Sender: TObject);
begin
  if Application.MessageBox('确认删除数据吗？','提示',MB_YESNO+MB_ICONQUESTION)=ID_NO then exit;
  sysDM.DBMain.StartTransaction;
  try
    Query1.Delete;
    Query1.ApplyUpdates;
    sysDM.DBMain.Commit;
  except
    Query1.CommitUpdates;
    sysDM.DBMain.Rollback;
    exit;
  end;
  Query1.CommitUpdates;
  inherited;
end;

procedure Tfrm_phonemanage.FormActivate(Sender: TObject);
begin
  inherited;
  tbtn97_Const_Edit.Visible:=True;
end;

end.