dataadmin.pas

报文上传,有关l波段雷达的传统系统 报文上传,有关l波段雷达的传统系统 报文上传,有关l波段雷达的传统系统‘ 报文上传,有关l波段雷达的传统系统

unit dataadmin;

interface

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

type
  TDataForm = class(TForm)
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    cb1: TComboBox;
    DataSource1: TDataSource;
    procedure cb1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataForm: TDataForm;

implementation
uses dm_unit;
{$R *.dfm}

procedure TDataForm.cb1Change(Sender: TObject);
var
  s:string;
begin
  case cb1.ItemIndex of
    0:s:='tz';
    1:s:='tqxx';
    2:s:='yz';
    3:s:='tcfile';
    4:s:='ztfile';
    5:s:='ztfile1';
  end;
  dm.qu2.Close;
  dm.qu2.SQL.Text:='select * from '+s;
  dm.qu2.Open;
end;

procedure TDataForm.FormShow(Sender: TObject);
begin
  cb1.ItemIndex:=0;
  cb1change(cb1);
end;

end.