frm_countryinfo.pas

来自「这是一个基于delphi平台的物流空运管理系统！」· PAS 代码 · 共 52 行

unit Frm_CountryInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Frm_Cargo, XPMenu, StdCtrls, Buttons, ExtCtrls, ComCtrls, DB,
  ADODB;

type
  TFrmCountryInfo = class(TFrmCargo)
    LV: TListView;
    Panel1: TPanel;
    Panel2: TPanel;
    BtnCancel: TBitBtn;
    BtnNew: TBitBtn;
    BtnDelete: TBitBtn;
    BtnEdit: TBitBtn;
    QryTemp: TADOQuery;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCountryInfo: TFrmCountryInfo;

implementation

uses Frm_Main;

{$R *.dfm}

procedure TFrmCountryInfo.FormCreate(Sender: TObject);
begin
  inherited;
  QryTemp.Close;
  QryTemp.SQL.Text:='select code,Name,CName,Remark from CountryInfo';
  QryTemp.Open;

  FrmMain.AddColumn(LV,'代码',100);
  FrmMain.AddColumn(LV,'英文名称',120);
  FrmMain.AddColumn(LV,'中文名称',160);
  FrmMain.AddColumn(LV,'备   注',200);

  FrmMain.AddData(LV,QryTemp);
end;

end.