sitearrangementfrm.pas

《Delphi实例开发教程》源代码包说明

unit SiteArrangementFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TfrmSiteArrangement = class(TForm)
    pnlBar: TPanel;
    pnlSiteInfo: TPanel;
    gbSiteInfo: TGroupBox;
    sbModify: TSpeedButton;
    sbDelete: TSpeedButton;
    sbClose: TSpeedButton;
    leName: TLabeledEdit;
    leDomain: TLabeledEdit;
    stxcue: TStaticText;
    lbSiteList: TListBox;
    bbtnOK: TBitBtn;
    procedure FormShow(Sender: TObject);//初始化（站点列表与初始化界面）
    procedure sbCloseClick(Sender: TObject);//退出
    procedure lbSiteListClick(Sender: TObject); //站点选择
    procedure sbModifyClick(Sender: TObject);//进入修改站点状态
    procedure bbtnOKClick(Sender: TObject); //修改站点生效
    procedure leNameEnter(Sender: TObject);//激活修改确定键
    procedure sbDeleteClick(Sender: TObject);
    procedure leNameKeyPress(Sender: TObject; var Key: Char);
    procedure leDomainKeyPress(Sender: TObject; var Key: Char);//删除站点
  private
    { Private declarations }
    procedure AddSite(Sender: TObject);
  public
    { Public declarations }
  end;

var
  frmSiteArrangement: TfrmSiteArrangement;

implementation
uses MainFrm;
{$R *.dfm}

//站点名列表
procedure TfrmSiteArrangement.AddSite(Sender: TObject);
begin
lbSiteList.Items.Clear;
leName.Text:='';
leDomain.Text:='';
//with frmMain.qrySitesearch do
 with frmMain.AdoqSitesearch do
  begin
    close;
    sql.Clear;
    sql.Add('select * from sitesearch order by name');
    open;
    while not eof do
    begin
      lbSiteList.Items.Add(fieldbyname('name').AsString);
      next;
    end;
  end;
end;

//初始化（站点列表与初始化界面）
procedure TfrmSiteArrangement.FormShow(Sender: TObject);
begin
  addsite(nil);
  leName.Enabled:=false;
  leDomain.Enabled:=false;
  sbModify.Enabled:=false;
  sbDelete.Enabled:=false;
  leName.EditLabel.Enabled:=true;
  leDomain.EditLabel.Enabled:=true;
end;

//退出
procedure TfrmSiteArrangement.sbCloseClick(Sender: TObject);
begin
close;
end;

//站点选择
procedure TfrmSiteArrangement.lbSiteListClick(Sender: TObject);
begin
leName.Text:=lbSiteList.Items.Strings[lbSiteList.itemindex];
//with frmMain.qrySitesearch do
 with frmMain.AdoqSitesearch do
  begin
    close;
    sql.Clear;
    sql.Add('select * from sitesearch where name='+quotedstr(leName.Text));
    open;
    if recordcount>0 then  //调整页面控件状态
    begin
      sbModify.Enabled:=true;
      sbDelete.Enabled:=true;
      bbtnOK.Enabled:=false;
      leName.Enabled:=false;
      leDomain.Enabled:=false;
      leName.EditLabel.Enabled:=true;
      leDomain.EditLabel.Enabled:=true;
      leDomain.Text:=fieldbyname('domain').AsString;
    end;
  end;
end;

//进入修改站点状态
procedure TfrmSiteArrangement.sbModifyClick(Sender: TObject);
begin
  leName.Enabled:=true;
  leDomain.Enabled:=true;
end;

//修改站点生效
procedure TfrmSiteArrangement.bbtnOKClick(Sender: TObject);
begin
  //检查输入
  if leName.Text='' then
  begin
    ShowMessage('请输入站点名！');
    leName.SetFocus;
    Exit;
  end;
  if leDomain.Text='' then
  begin
    ShowMessage('请输入域名！');
    leDomain.SetFocus;
    Exit;
  end;

  bbtnOK.Enabled:=false;
  sbDelete.Enabled:=false;
  sbModify.Enabled:=false;
  leName.Enabled:=false;
  leDomain.Enabled:=false;
  leName.EditLabel.Enabled:=true;
  leDomain.EditLabel.Enabled:=true;
//  with frmMain.qrySitesearch do
  with frmMain.AdoqSitesearch do
    begin
      edit;
      fieldbyname('Name').AsString:=leName.Text;
      fieldbyname('Domain').AsString:=leDomain.Text;
      post;
    end;
  AddSite(nil); //站点列表
end;

//激活修改确定键
procedure TfrmSiteArrangement.leNameEnter(Sender: TObject);
begin
   bbtnOK.Enabled:=true;
   sbDelete.Enabled:=false;
end;

//删除所选站点
procedure TfrmSiteArrangement.sbDeleteClick(Sender: TObject);
begin
  if  MessageDlg('确定要删除该站点？',mtWarning,mbOKCancel,0)=2 then exit;
  bbtnOK.Enabled:=false;
  sbDelete.Enabled:=false;
  sbModify.Enabled:=false;
  leName.Enabled:=false;
  leDomain.Enabled:=false;
  leName.EditLabel.Enabled:=true;
  leDomain.EditLabel.Enabled:=true;
 // with frmMain.qrySitesearch do
    with frmMain.AdoqSitesearch do
    begin
      close;
      sql.Clear;
      sql.Add('select * from sitesearch where name='+quotedstr(leName.Text));
      open;
      delete;
    end;
  AddSite(nil); //站点列表
end;

procedure TfrmSiteArrangement.leNameKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key=#13 then
    bbtnOKClick(nil);
end;

procedure TfrmSiteArrangement.leDomainKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key=#13 then
    bbtnOKClick(nil);
end;

end.