unit Epr_NameBookUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, Db, ADODB, ExtCtrls;

type
  TEpr_NameBook = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    Panel1: TPanel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Panel4: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn4: TBitBtn;
    Label2: TLabel;
    Edit1: TEdit;
    ADOQuery1DSDesigner: TSmallintField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TWideStringField;
    ADOQuery1DSDesigner5: TWideStringField;
    ADOQuery1DSDesigner6: TWideStringField;
    ADOQuery1DSDesigner7: TWideStringField;
    ADOQuery1DSDesigner8: TWideStringField;
    ADOQuery1DSDesigner9: TWideStringField;
    ADOQuery1DSDesigner10: TWideStringField;
    ADOQuery1DSDesigner11: TWideStringField;
    ADOQuery1DSDesigner12: TWideStringField;
    ADOQuery1DSDesigner13: TWideStringField;
    ADOQuery1DSDesigner14: TFloatField;
    ADOQuery1DSDesigner15: TWideStringField;
    ADOQuery1DSDesigner16: TWideStringField;
    ADOQuery1DSDesigner17: TWideStringField;
    ADOQuery1DSDesigner18: TDateTimeField;
    ADOQuery1DSDesigner19: TWideStringField;
    ADOQuery1DSDesigner20: TWideStringField;
    ADOQuery1DSDesigner21: TDateTimeField;
    ADOQuery1DSDesigner22: TWideStringField;
    ADOQuery1DSDesigner23: TWideStringField;
    ADOQuery1DSDesigner24: TDateTimeField;
    ADOQuery1DSDesigner25: TDateTimeField;
    ADOQuery1DSDesigner26: TDateTimeField;
    ADOQuery1DSDesigner27: TDateTimeField;
    ADOQuery1DSDesigner28: TWideStringField;
    ADOQuery1DSDesigner29: TWideStringField;
    ADOQuery1DSDesigner30: TWideStringField;
    ADOQuery1DSDesigner31: TWideStringField;
    ADOQuery1DSDesigner32: TWideStringField;
    ADOCommand1: TADOCommand;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    //procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    //procedure ComboBox2Change(Sender: TObject);
  private
    { Private declarations }
  public
        Code : string;
        procedure initbox();
        
    { Public declarations }
  end;

var
  Epr_NameBook: TEpr_NameBook;

implementation

uses Epr_NameBookEditUnit, //Epr_NameBookField,
     Epr_SelectUnit2,Variants, BusTradeDataModuleUnit;

{$R *.DFM}
procedure TEpr_NameBook.initbox();
var
        sqlstr,ss : string;
begin
        ComboBox1.Items.Clear;
        sqlstr := 'select distinct 統(tǒng)計年份 from 公用事業(yè)單位基本情況表';
        AdoQuery2.Close;
        AdoQuery2.SQL.Clear;
        AdoQuery2.SQL.Add(sqlstr);
        AdoQuery2.Open;
        ss := IntToStr(AdoQuery2.RecordCount);
        while (not AdoQuery2.Eof) do
        begin
                ss := AdoQuery2.fieldbyname('統(tǒng)計年份').AsString;
                ComboBox1.Items.Add(ss);
                AdoQuery2.Next;
        end;
        if (ComboBox1.Items.Count>0) then
                ComboBox1.Text := ComboBox1.Items[0];
end;

procedure TEpr_NameBook.BitBtn1Click(Sender: TObject);
var
        sqlstr : string;
begin
        if (ComboBox1.Items.Count = 0) then //空庫時強(qiáng)行打開記錄集
        begin
                AdoQuery1.Close;
                AdoQuery1.SQL.Clear;
                AdoQuery1.SQL.Add('select * from 公用事業(yè)單位基本情況表');
                AdoQuery1.Open;
        end;

        ADOQuery1.Append;
        AdoQuery1.FieldByName('單位坐落區(qū)域').AsString := '和平區(qū)';
        AdoQuery1.FieldByName('行業(yè)代碼').AsString := '7511';
        AdoQuery1.FieldByName('行業(yè)類別').AsString := '公共汽車、電車業(yè)';
        AdoQuery1.FieldByName('企業(yè)(單位)登記注冊類型').AsString := '國有企業(yè)';
        AdoQuery1.FieldByName('營業(yè)狀況').AsString := '營業(yè)';
        AdoQuery1.FieldByName('企業(yè)規(guī)模').AsString := '特大型';
        AdoQuery1.FieldByName('企業(yè)資質(zhì)等級').AsString := '一級';
        EprNameBookEdit.DbEdit12.Text := '0';
        EprNameBookEdit.kind := 'new';

        EprNameBookEdit.BitBtn2.Enabled := false;
        EprNameBookEdit.BitBtn3.Enabled := false;
        EprNameBookEdit.ShowModal;
end;

procedure TEpr_NameBook.BitBtn2Click(Sender: TObject);
var
        sqlstr : string;
        icode  : string;
begin
      if ((ComboBox1.Items.Count = 0) or (AdoQuery1.RecordCount = 0)  ) then
      begin
        ShowMessage('沒有記錄，無法瀏覽修改！');
        exit;
      end;

      ADOQuery1.Edit;


      EprNameBookEdit.kind := 'edit';
      EprNameBookEdit.BitBtn2.Enabled := true;
      EprNameBookEdit.BitBtn3.Enabled := true;
      EprNameBookEdit.ShowModal;

end;

procedure TEpr_NameBook.BitBtn3Click(Sender: TObject);
var
        sqlstr : string;
        code,s : string;
begin
        if ((ComboBox1.Items.Count = 0) or (AdoQuery1.RecordCount = 0)) then
        begin
                ShowMessage('沒有記錄，無法刪除！');
                exit;
        end;


      if (Messagebox(self.Handle,'確認(rèn)刪除按確認(rèn)鍵，否則按取消', '確認(rèn)', mb_OKCancel ) = IDOK)
      then
      begin
                code := Adoquery1.fieldbyName('單位代碼').AsString;
                s := Adoquery1.fieldbyName('統(tǒng)計年份').AsString;
                ADOQuery1.Delete;
                AdoQuery1.UpdateBatch(arAll);
      end;

      InitBox();
      ComboBox1Change(nil);
end;


procedure TEpr_NameBook.BitBtn5Click(Sender: TObject);
var
        sqlstr : string;
begin
        sqlstr := 'delete * from 主要業(yè)務(wù)活動表';
        AdoCommand1.CommandText := sqlstr;
        AdoCommand1.Execute;
        sqlstr := 'insert into 主要業(yè)務(wù)活動表 (企業(yè)代碼, 統(tǒng)計年份, 企業(yè)類型, 公共汽車、電車, 地鐵, 輕軌, 輪渡) select 單位代碼 as 企業(yè)代碼, 統(tǒng)計年份, 1 as 企業(yè)類型, 公共汽車、電車, 地鐵, 輕軌,輪渡 from 公用事業(yè)單位基本情況表';
        AdoCommand1.CommandText := sqlstr;
        AdoCommand1.Execute;

        EprNameBookEdit.Free;
        Epr_NameBook.Close;
end;

procedure TEpr_NameBook.FormShow(Sender: TObject);
var
        sqlstr : string;
        codeindex : integer;
begin
        initbox();
        if (ComboBox1.Items.Count > 0) then
        begin
        AdoQuery1.Close;
        AdoQuery1.SQL.Clear;
        sqlstr := 'select * from 公用事業(yè)單位基本情況表 where 統(tǒng)計年份='+ComboBox1.text+' order by 單位代碼';
        AdoQuery1.SQL.Add(sqlstr);
        AdoQuery1.Open;
        AdoQuery1.First;
        Edit1.Text:= IntToStr(Adoquery1.RecordCount);
        end;
end;

procedure TEpr_NameBook.ComboBox1Change(Sender: TObject);
var
        sqlstr : string;
begin
        if (ComboBox1.Text='') then
        begin
                Edit1.Text := '0';
                exit;
        end;

        AdoQuery1.Close;
        AdoQuery1.SQL.Clear;
        sqlstr := 'select * from 公用事業(yè)單位基本情況表 where  統(tǒng)計年份='+ComboBox1.text+' order by 單位代碼';
        AdoQuery1.SQL.Add(sqlstr);
        AdoQuery1.Open;

        AdoQuery1.First;
        Edit1.Text := IntToStr(AdoQuery1.RecordCount);
end;
procedure TEpr_NameBook.BitBtn4Click(Sender: TObject);
var
        temp : integer;
begin
        if (ComboBox1.Items.Count = 0) then
        begin
                ShowMessage('數(shù)據(jù)庫空，無法復(fù)制！');
                exit;
        end;
        try
                temp:=StrToInt(ComboBox1.Text);
        except
                showmessage('對不起！您選擇的"統(tǒng)計年份"非法！請重新選擇！');
                exit;
        end;
        if (length(ComboBox1.Text)<>4) or (StrToInt(ComboBox1.Text)>3000) or (StrToInt(ComboBox1.Text)<1000) then
        begin
                showmessage('對不起！請您在1000年-3000年之間選擇"統(tǒng)計年份"！');
                exit;
        end;
        Epr_Select2.ShowModal;
end;

procedure TEpr_NameBook.FormCreate(Sender: TObject);
begin
        Application.CreateForm(TEprNameBookEdit, EprNameBookEdit);
        EprNameBookEdit.DataSource1.DataSet:= ADOQuery1;
end;

procedure TEpr_NameBook.FormDestroy(Sender: TObject);
begin
        //EprNameBookEdit.Free;
end;

end.