cussearchfrm.pas

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

unit CusSearchFrm;

interface

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

type
  TfrmCusSearch = class(TForm)
    pnlInput: TPanel;
    pnlInputID: TPanel;
    pnlcustomInput: TPanel;
    rbSelect: TRadioButton;
    rbNew: TRadioButton;
    tvIDList: TTreeView;
    gbInput: TGroupBox;
    clbEngine: TCheckListBox;
    leID: TLabeledEdit;
    clbWebType: TCheckListBox;
    leMaxAmount: TLabeledEdit;
    leTimeLimit: TLabeledEdit;
    PnlNewInput: TPanel;
    leKeyword: TLabeledEdit;
    Label1: TLabel;
    Label2: TLabel;
    gbWebTypeList: TGroupBox;
    gbEngineList: TGroupBox;
    pnlView: TPanel;
    pnlBar: TPanel;
    sbSearch: TSpeedButton;
    pnlcustombar: TPanel;
    sbMaintain: TSpeedButton;
    sbSaveID: TSpeedButton;
    pnlInputEdits: TPanel;
    procedure rbSelectClick(Sender: TObject);
    procedure tvIDListChange(Sender: TObject; Node: TTreeNode);
    procedure FormShow(Sender: TObject);
    procedure sbMaintainClick(Sender: TObject);
    procedure sbSaveIDClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCusSearch: TfrmCusSearch;

implementation

uses MainFrm, MaintainFrm;

{$R *.dfm}

procedure TfrmCusSearch.rbSelectClick(Sender: TObject);
begin
if rbSelect.Checked=true then
  begin
    tvIDList.Enabled:=true;
    PnlNewInput.Enabled:=false;
    sbSaveID.Enabled:=false;
    tvIDlist.Items.Clear;
    tvIDList.Items.AddFirst(nil,'用户定制ID');
    with frmMain.qryMyquery do
      begin
        close;
        sql.Clear;
        SQL.Add('select * from custom');
        open;
        first;
        while not eof do
        begin
          tvIDList.Items.AddChild(tvIDList.Items.Item[0],fieldbyname('ID').AsString);
          next;
        end;
      end;
  end;
  if rbNew.Checked=true then
    begin
      PnlNewInput.Enabled:=true;
      sbSaveID.Enabled:=true;
      tvIDList.Enabled:=false;
    end;

end;


procedure TfrmCusSearch.tvIDListChange(Sender: TObject; Node: TTreeNode);
begin
if node.Text<>'用户定制ID' then
  begin
    with frmMain.qryMyquery do
      begin
        close;
        sql.Clear;
        SQL.Add('select * from custom where id='+quotedstr(node.Text));
        open;
        leID.Text:=fieldbyname('ID').AsString;
        leKeyWord.Text:=fieldbyname('KeyWord').AsString;
        leTimeLimit.Text:=fieldbyname('TimeLimit').AsString;
        leMaxAmount.Text:=fieldbyname('MaxAmount').AsString;
        frmMain.RestoreList(clbWebType,fieldbyname('webtype').AsInteger);
        frmMain.RestoreList(clbEngine,fieldbyname('engine').AsInteger);
      end;
  end;
end;

procedure TfrmCusSearch.FormShow(Sender: TObject);
begin
  frmMain.qryMyquery.DatabaseName:=extractfilepath(application.ExeName)+'database';
end;

procedure TfrmCusSearch.sbMaintainClick(Sender: TObject);
begin
  frmmaintain.ShowModal;
end;

procedure TfrmCusSearch.sbSaveIDClick(Sender: TObject);
var num:integer;
begin
  with frmMain.qryMyquery do
    begin
    close;
    sql.Clear;
    SQL.Add('select * from custom where ID='+quotedstr(leID.Text));
    open;
    edit;
    fieldbyname('ID').AsString:=leID.Text;
    fieldbyname('KeyWord').AsString:=leKeyWord.Text;
    fieldbyname('TimeLimit').AsInteger:=strtoint(leTimeLimit.Text);
    fieldbyname('MaxAmount').AsInteger:=strtoint(leMaxAmount.Text);
    frmMain.getlist(clbEngine,num);
    fieldbyname('Engine').AsInteger:=num;
    frmMain.getlist(clbWebType,num);
    fieldbyname('WebType').AsInteger:=num;
    post;
  end;
end;

end.