code2.pas

公交行业的管理系统

unit Code2;

interface

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

type
  TCodeSelect2 = 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
  CodeSelect2: TCodeSelect2;

implementation

uses BusTradeDataModuleUnit;

{$R *.dfm}

procedure TCodeSelect2.FormShow(Sender: TObject);
var
        sqlstr : string;
begin
        sqlstr := 'select distinct 单位代码 from 公用事业单位基本情况表 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 TCodeSelect2.ComboBox2Change(Sender: TObject);
var
        sqlstr : string;
        coc: string;
        ss1,ss2 : string;
        item : TListItem;
begin
        coc := ComboBox2.Text;
        sqlstr := 'select 单位名称,统计年份 from 公用事业单位基本情况表 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('统计年份').AsString;
                item :=listview1.Items.Add;
                item.Caption := ss1;
                item.SubItems.Add(coc);
                item.SubItems.Add(ss2);
                AdoQuery1.Next;
        end;
end;

procedure TCodeSelect2.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('请选择企业代码！');
                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 TCodeSelect2.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
        coname := item.Caption;
        coyear := item.SubItems[1];

end;
end.