bas_showipdata.pas

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

unit Bas_ShowIPData;

interface

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

type
  TBas_ShowIPDataForm = class(TForm)
    CoolBar1: TCoolBar;
    RzToolbar1: TRzToolbar;
    ToolButton7: TRzToolButton;
    RzSpacer6: TRzSpacer;
    RzSpacer8: TRzSpacer;
    WorkQuery: TMSQuery;
    DataSource1: TDataSource;
    SortQuery: TMSQuery;
    DataSource2: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label12: TLabel;
    Combobox1: TcxLookupComboBox;
    Edit1: TcxTextEdit;
    Edit2: TcxTextEdit;
    Edit3: TcxTextEdit;
    Edit5: TcxTextEdit;
    Edit6: TcxTextEdit;
    Edit7: TcxTextEdit;
    Edit8: TcxTextEdit;
    StatusBar1: TStatusBar;
    Edit4: TcxMemo;
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure ReadRec(RecID: string);
  end;

var
  Bas_ShowIPDataForm: TBas_ShowIPDataForm;

implementation
uses Main;
{$R *.dfm}

procedure TBas_ShowIPDataForm.ReadRec(RecID: string);
var
  SQL_Str : string;
begin
  SQL_Str := 'Select Top 1 * From Bas_IPRecord Where (ID=' + RecID + ')';
  WorkQuery.Active := False;
  WorkQuery.sql.Clear;
  WorkQuery.sql.Add(SQL_Str);
  WorkQuery.Open;
  if (WorkQuery.RecordCount > 0) then
  begin
    Combobox1.Text := WorkQuery.fieldbyname('SortName').AsString;
    Edit1.Text := WorkQuery.fieldbyname('EnglishName').AsString;
    Edit2.Text := WorkQuery.fieldbyname('ChineseName').AsString;
    Edit3.Text := WorkQuery.fieldbyname('WebSite').AsString;
    Edit4.Text := WorkQuery.fieldbyname('ServiceAndProduct').AsString;
    Edit5.Text := WorkQuery.fieldbyname('Address').AsString;
    Edit6.Text := WorkQuery.fieldbyname('PhoneNo').AsString;
    Edit7.Text := WorkQuery.fieldbyname('FaxNo').AsString;
    Edit8.Text := WorkQuery.fieldbyname('EMailAddress').AsString;
  end;
end;

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

end.