frmyxconfig.pas

delphi语言开发的矢量图形处理对象

unit frmYxConfig;

interface

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

type
  TfrmYx_Config = class(TForm)
    Label1: TLabel;
    edtNum: TEdit;
    Label2: TLabel;
    cboYx: TComboBox;
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    DBISAMDatabase1: TDBISAMDatabase;
    DBISAMQuery1: TDBISAMQuery;
    procedure edtNumKeyPress(Sender: TObject; var Key: Char);
    procedure edtNumChange(Sender: TObject);
    procedure cboYxClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure initYxData;
  public
    { Public declarations }
  end;

var
  frmYx_Config: TfrmYx_Config;

implementation

{$R *.dfm}

procedure TfrmYx_Config.edtNumKeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9',#8]) then
  key:=#0;
end;

procedure TfrmYx_Config.edtNumChange(Sender: TObject);
var
  yx_code,iPos:integer;
begin
  if trim(edtNum.Text)='' then exit;
  yx_Code:=strToint(edtNum.Text);
  iPos:=cboYx.Items.IndexOfObject(Pointer(yx_code));
  if iPos>=0 then
  begin
    cboYx.ItemIndex :=iPos;
  end;
end;

procedure TfrmYx_Config.cboYxClick(Sender: TObject);
var
  yxNum:integer;
begin
  if cboYx.ItemIndex <0 then
  exit;
  yxNum:=longint(cboYx.Items.Objects[cboYx.ItemIndex]);
  edtNum.Text :=intTostr(yxNum);
end;

procedure TfrmYx_Config.initYxData;
var
  dataBasePath:string;
begin
  dataBasePath:=ExtractFilePath(Application.ExeName)+'data';
  DBISAMDatabase1.Directory :=dataBasePath;
  cboYx.Clear;
  try
    DbisamDatabase1.Open;
    with DbisamQuery1 do
    begin
      SQL.Clear;
      SQL.Add('Select * from Yx_Define Order By Gather_Code');
      Open;
      while not Eof do
      begin
        cboYx.Items.AddObject(FieldByName('Name').AsString,
        pointer(FieldByName('Gather_Code').AsInteger));
        Next;
      end;
      Close;
    end;
  finally
    DbisamDatabase1.Close;
  end;
end;

procedure TfrmYx_Config.FormCreate(Sender: TObject);
begin
  initYxData;
end;

end.