unit Code;

interface

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

type
  TCodeSelect = class(TForm)
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    ComboBox2: TComboBox;
    Panel1: TPanel;
    Label3: TLabel;
    ListView1: TListView;
    Btn1: TButton;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);

  private
    { Private declarations }
  public
    { Public declarations }
    cocode: string;
    coname: string;
    coyear: string;
    ok : integer;
  end;

var
  CodeSelect: TCodeSelect;

implementation

uses BusDataModuleUnit;

{$R *.dfm}

procedure TCodeSelect.FormShow(Sender: TObject);
var
        sqlstr : string;
begin
        sqlstr := 'select distinct 單位代碼 from 公用事業(yè)單位基本情況表 order by 單位代碼';
        AdoQuery1.Close;
        AdoQuery1.SQL.Clear;
        AdoQuery1.SQL.Add(sqlstr);
        AdoQuery1.Open;
        ComboBox2.Items.Clear;
        ComboBox2.Text := '';
        listview1.Selected := nil;
        listview1.Items.Clear;
        coname := '';
        cocode := '';
        ok := 0;
        while (not AdoQuery1.Eof)
        do
        begin
                ComboBox2.Items.Add(AdoQuery1.fieldbyname('單位代碼').AsString);
                AdoQuery1.Next;
        end
end;

procedure TCodeSelect.ComboBox2Change(Sender: TObject);
var
        sqlstr : string;
        coc: string;
        ss1,ss2 : string;
        item : TListItem;
begin
        coc := ComboBox2.Text;
        sqlstr := 'select 單位名稱,統(tǒng)計年份 from 公用事業(yè)單位基本情況表 where 單位代碼='+''''+coc+'''';
        AdoQuery1.Close;
        AdoQuery1.SQL.Clear;
        AdoQuery1.SQL.Add(sqlstr);
        AdoQuery1.Open;
        listview1.Items.Clear;
        while (not AdoQuery1.Eof)
        do
        begin
                ss1 :=AdoQuery1.fieldbyname('單位名稱').AsString;
                ss2 := AdoQuery1.fieldbyname('統(tǒng)計年份').AsString;
                item :=listview1.Items.Add;
                item.Caption := ss1;
                item.SubItems.Add(coc);
                item.SubItems.Add(ss2);
                AdoQuery1.Next;
        end;
end;

procedure TCodeSelect.BitBtn1Click(Sender: TObject);
var
        fin : integer;
begin
        cocode := ComboBox2.Text;
        fin := 1;
        if ((listview1.Selected = nil) and (listview1.Items.Count > 1))
        then
        begin
                ShowMessage('請在表單中選擇一個單位名稱！');
                fin := 0;
        end;

        if ((cocode = ''))
        then
        begin
                ShowMessage('請選擇企業(yè)代碼！');
                fin := 0;
        end;

        if (listview1.Items.Count =1)
        then
        begin
                coname := listview1.Items.Item[0].Caption;
                coyear := listview1.Items.Item[0].SubItems[1];
        end;

        if ( fin = 1)
        then
        begin
                //Close;
                Btn1.click;
        end;
end;

procedure TCodeSelect.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
        coname := item.Caption;
        coyear := item.SubItems[1];

end;
end.