gp31code.pas

公交行业的管理系统

unit GP31Code;

interface

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

type
  TGP3Form = class(TForm)
    ADOQuery1: TADOQuery;
    Panel1: TPanel;
    Label3: TLabel;
    ListView1: TListView;
    BitBtn2: TBitBtn;
    Bit2: TBitBtn;
    BitBtn3: TBitBtn;
    ComboBox2: TComboBox;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    ComboBox1: TComboBox;
    ADOQuery2: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);

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

  private
    { Private declarations }
  public
    { Public declarations }
    cocode: string;
    coname: string;
    coyear: string;
    procedure refreshform();
    procedure getcocode();             //取单位代码
    procedure refreshlistview();
  end;

var
  GP3Form: TGP3Form;

implementation

uses GP32, BusTradeDataModuleUnit;

{$R *.dfm}
procedure TGP3Form.getcocode();
var
        sqlstr : string;
begin
        ComboBox2.Items.Clear;
        ComboBox2.Text := '';

        sqlstr := 'select distinct 单位代码 from 公用事业单位基本情况表';
        AdoQuery1.Close;
        AdoQuery1.SQL.Clear;
        AdoQuery1.SQL.Add(sqlstr);
        AdoQuery1.Open;

        AdoQuery1.First;
        while (not AdoQuery1.Eof)
        do
        begin
                ComboBox2.Items.Add(AdoQuery1.fieldbyname('单位代码').AsString);
                AdoQuery1.Next;
        end
end;

procedure TGP3Form.refreshlistview();
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;
        listview1.Selected := nil;
        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 TGP3Form.refreshform();
begin
        getcocode();
        listview1.Items.Clear;
        listview1.Selected := nil;
end;

procedure TGP3Form.FormShow(Sender: TObject);
var
        sqlstr: string;
begin
        {sqlstr:='select distinct 统计年份 from 公用事业单位基本情况表';
        AdoQuery2.Close;
        AdoQuery2.SQL.Clear;
        AdoQuery2.SQL.Add(sqlstr);
        AdoQuery2.Open;
        ComboBox1.Items.Clear;
        if (AdoQuery2.RecordCount>0) then
        begin
                while (not AdoQuery2.Eof)  do
                begin
                ComboBox1.Items.Add(AdoQuery2.fieldbyname('统计年份').AsString);
                AdoQuery2.Next;
                end;
        end; }

        refreshform();
        coname := '';
        cocode := '';
        coyear := '';
end;

procedure TGP3Form.ComboBox2Change(Sender: TObject);
begin
        refreshlistview();
end;

procedure TGP3Form.BitBtn1Click(Sender: TObject);
var
        fin : integer;
begin
        cocode := ComboBox2.Text;
        fin := 1;
        if (listview1.Items.Count = 0)
        then
        begin
                fin :=0;
                ShowMessage('数据库中没有你输入的企业代码对应的记录信息！');
                BitBtn3.Click;
        end;

        if (listview1.Selected = nil)
        then
        begin
                if (listview1.Items.Count > 1)
                then
                begin
                        ShowMessage('请在表单中选择一个企业名录！');
                        fin := 0;
                end;

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

        if ((cocode = ''))
        then
        begin
                ShowMessage('请选择企业代码！');
                fin := 0;
        end;

        if ( fin = 1)
        then
        begin
                //GP3Form.Close;
                Bit2.Click;
        end;
end;

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

procedure TGP3Form.BitBtn2Click(Sender: TObject);
begin
        attachinfo.ShowModal;
end;

end.