Курсовая работа: Разработка базы данных флагов мира

procedure bbOpenDialogClick(Sender: TObject);

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure bbCreateClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmEditCountry: TfrmEditCountry;

implementation

uses Module;

var Strana: String;

{$R *.DFM}

procedure TfrmEditCountry.FormShow(Sender: TObject);

var myStream: TMemoryStream;

begin

cbKontinent.Clear;

cbLanguage1.Clear;

cbLanguage2.Clear;

cbLanguage3.Clear;

eCapital.Clear;

eCountry.Clear;

DM.qWork.SQL.Clear;

DM.qWork.SQL.Add('Select Language from Language order by Language');

DM.qWork.Open;

cbLanguage2.Items.Add('--- íåò ---');

cbLanguage3.Items.Add('--- íåò ---');