mainfrm.pas

来自「《Delphi开发人员指南》配书原码」· PAS 代码 · 共 49 行

unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls;

type
  TMainForm = class(TForm)
    dbMain: TDatabase;
    spAddCountry: TStoredProc;
    edtCountry: TEdit;
    edtCurrency: TEdit;
    lblCountry: TLabel;
    lblCurrency: TLabel;
    btnAdd: TButton;
    dsCountries: TDataSource;
    dbgCountries: TDBGrid;
    tblCountries: TTable;
    procedure btnAddClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.btnAddClick(Sender: TObject);
begin
  with spAddCountry do
  begin
    ParamByName('iCOUNTRY').AsString := edtCountry.Text;
    ParamByName('iCURRENCY').AsString := edtCurrency.Text;
    ExecProc;
    edtCountry.Text := '';
    edtCurrency.Text := '';
    tblCountries.Refresh;
  end;
end;

end.