cityselectunit.pas

公交行业的管理系统

unit CitySelectUnit;

interface

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

type
  TCitySelectForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    ADOQuery1: TADOQuery;
    Label2: TLabel;
    Edit1: TEdit;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
{    procedure FormCreate(Sender: TObject);}
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CitySelectForm: TCitySelectForm;

implementation

uses BusTradeDataModuleUnit;

{$R *.dfm}

{procedure TCitySelectForm.FormCreate(Sender: TObject);
var
        i:integer;
begin
        ComboBox1.Items.Clear;
        ComboBox1.Text:='022';
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('select distinct 城市代码 from 公用事业单位基本情况表');
        ADOQuery1.Open;

        if ADOQuery1.RecordCount<>0 then
        begin
                for i:=0 to ADOQuery1.RecordCount-1 do
                begin
                        ComboBox1.Items.Add(ADOQuery1.fieldbyname('城市代码').AsString);
                        ADOQuery1.Next;
                end;
        end;
end;}

procedure TCitySelectForm.FormShow(Sender: TObject);
var
        sqlstr : string;
begin
        sqlstr := 'select 城市名称 from 基本城市库 order by 城市代码';
        AdoQuery1.Close;
        AdoQuery1.SQL.Clear;
        AdoQuery1.SQL.Add(sqlstr);
        AdoQuery1.Open;
        ComboBox1.Items.Clear;
        ComboBox1.Text := '';
        Edit1.Text:='';
        while (not AdoQuery1.Eof)
        do
        begin
                ComboBox1.Items.Add(AdoQuery1.fieldbyname('城市名称').AsString);
                AdoQuery1.Next;
        end
end;

procedure TCitySelectForm.ComboBox1Change(Sender: TObject);
begin
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('select * from 基本城市库 where 城市名称='+''''+ComboBox1.Text+''''
                        +' order by 城市代码');
        ADOQuery1.Open;
        if (not ADOQuery1.Eof) then
                Edit1.Text:=ADOQuery1.fieldbyname('城市代码').AsString
        else
                Edit1.ReadOnly:=False;
end;

end.