bas_enteripdata.pas

来自「这是一个为友人所写的小程序, 实现了分段模糊查询, 网页生成等小功能!」· PAS 代码 · 共 182 行

unit Bas_EnterIPData;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxTextEdit, cxControls, cxContainer, cxEdit,
  cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
  cxDBLookupComboBox, StdCtrls, ComCtrls, RzPanel, RzButton, ExtCtrls,
  ToolWin, DB, MemDS, DBAccess, MSAccess;

type
  TBas_EnterIPDataForm = class(TForm)
    CoolBar1: TCoolBar;
    RzToolbar1: TRzToolbar;
    ToolButton1: TRzToolButton;
    ToolButton4: TRzToolButton;
    ToolButton6: TRzToolButton;
    ToolButton7: TRzToolButton;
    RzSpacer1: TRzSpacer;
    RzSpacer2: TRzSpacer;
    RzSpacer5: TRzSpacer;
    RzSpacer7: TRzSpacer;
    RzSpacer8: TRzSpacer;
    StatusBar1: TStatusBar;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Combobox1: TcxLookupComboBox;
    Edit1: TcxTextEdit;
    Edit2: TcxTextEdit;
    Edit3: TcxTextEdit;
    Edit4: TcxTextEdit;
    Edit5: TcxTextEdit;
    Edit6: TcxTextEdit;
    Edit7: TcxTextEdit;
    Edit8: TcxTextEdit;
    WorkQuery: TMSQuery;
    DataSource2: TDataSource;
    SortQuery: TMSQuery;
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    NewFlag: Boolean;
  public
    { Public declarations }
  end;

var
  Bas_EnterIPDataForm: TBas_EnterIPDataForm;

implementation
uses Main;
{$R *.dfm}

procedure TBas_EnterIPDataForm.ToolButton4Click(Sender: TObject);
var
  SQL_Str : string;
begin
  if (NewFlag) then
  begin
    if (Combobox1.Text = '') then
    begin
      ShowMessage('请选择所属的类别, 然后再进行保存!');
      Combobox1.SetFocus;
      Abort;
    end;
    if (Edit3.Text = '') then
    begin
      ShowMessage('请输入网址信息, 然后再进行保存!');
      Edit3.SetFocus;
      Abort;
    end;
    SQL_Str := 'Select TOP 1 * From Bas_IPRecord Order By ID';
    WorkQuery.Active := False;
    WorkQuery.SQL.Clear;
    WorkQuery.SQL.Add(SQL_Str);
    WorkQuery.Open;
    WorkQuery.Append;
    WorkQuery.FieldByName('SortName').AsString := Combobox1.Text;
    WorkQuery.FieldByName('EnglishName').AsString := Edit1.Text;
    WorkQuery.FieldByName('ChineseName').AsString := Edit2.Text;
    WorkQuery.FieldByName('WebSite').AsString := Edit3.Text;
    WorkQuery.FieldByName('ServiceAndProduct').AsString := Edit4.Text;
    WorkQuery.FieldByName('Address').AsString := Edit5.Text;
    WorkQuery.FieldByName('PhoneNo').AsString := Edit6.Text;
    WorkQuery.FieldByName('FaxNo').AsString := Edit7.Text;
    WorkQuery.FieldByName('EMailAddress').AsString := Edit8.Text;
    WorkQuery.Post;
    ShowMessage('您输入的网址信息数据已经保存到数据库！');
    NewFlag := False;
    GroupBox1.Enabled := False;
  end
  else
  begin
    ShowMessage('您没有新建网址信息，无需进行保存操作！');
  end;
end;

procedure TBas_EnterIPDataForm.ToolButton1Click(Sender: TObject);
begin
  if (NewFlag) then
  begin
    ShowMessage('您已经新建了一条记录，先完成该记录再进行新建！');
    Abort;
  end;
  GroupBox1.Enabled := True;
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  Edit8.Clear;
  NewFlag := True;
  Combobox1.SetFocus;
end;

procedure TBas_EnterIPDataForm.ToolButton6Click(Sender: TObject);
begin
  GroupBox1.Enabled := False;
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  Edit8.Clear;
  NewFlag := False;
end;

procedure TBas_EnterIPDataForm.ToolButton7Click(Sender: TObject);
begin
  Close;
end;

procedure TBas_EnterIPDataForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  WorkQuery.Close;
  Action := CaFree;
end;

procedure TBas_EnterIPDataForm.FormCreate(Sender: TObject);
var
  SQL_Str : string;
begin
  SQL_Str := 'Select * From Bas_SortTable Order By SortName';
  SortQuery.Active := False;
  SortQuery.SQL.Clear;
  SortQuery.SQL.Add(SQL_Str);
  SortQuery.Open;
  NewFlag := False;
end;

procedure TBas_EnterIPDataForm.FormKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key = #13 then
  begin
    Key := #0;
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

end.