unit Epr_NameBookEditUnit;

interface

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

type
  TEprNameBookEdit = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label11: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    Label17: TLabel;
    Label22: TLabel;
    Label21: TLabel;
    Label23: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit20: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    DBEdit22: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBComboBox5: TDBComboBox;
    DBComboBox6: TDBComboBox;
    DBEdit19: TDBEdit;
    Label20: TLabel;
    Label19: TLabel;
    DBComboBox7: TDBComboBox;
    Shape1: TShape;
    Label24: TLabel;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape15: TShape;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    DBEdit6: TDBEdit;
    DBComboBox9: TDBComboBox;
    ADOQuery1: TADOQuery;
    Label28: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    DBEdit9: TDBEdit;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBEdit10: TDBEdit;
    BitBtn1: TBitBtn;
    procedure DBComboBox9Change(Sender: TObject);
    procedure DBComboBox2Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { private declarations }
  public
        //code : string;{ public declarations }
        kind : string;
        procedure updateInfo();
        function check():boolean;
        //function checktime(str:string):boolean;
        function checkblank():boolean;
        procedure setVisible();
        function DealCurItem():boolean;

  end;

var
  EprNameBookEdit: TEprNameBookEdit;

implementation

uses Epr_NameBookUnit, BusTradeDataModuleUnit; // Epr_NameBookField

{$R *.DFM}
function TEprNameBookEdit.DealCurItem():boolean;
var
        sqlstr : string;
        itmp : integer;
        err : boolean;
begin
        ///////////////////////////處理主要業務活動
        DbEdit10.Text:='';
        if (DbCheckBox1.Checked) then
        begin
                DbEdit10.Text:='公交汽車、電車     ';
                Epr_NameBook.ADOQuery1.FieldByName('公共汽車、電車').AsString := '1';
        end
        else    Epr_NameBook.ADOQuery1.FieldByName('公共汽車、電車').AsString := '-1';

        if (DbCheckBox3.Checked) then
        begin
                DbEdit10.Text:=DbEdit10.Text+'地鐵    ';
                Epr_NameBook.ADOQuery1.FieldByName('地鐵').AsString := '1';
        end
        else    Epr_NameBook.ADOQuery1.FieldByName('地鐵').AsString := '-1';

        if (DbCheckBox4.Checked) then
        begin
                DbEdit10.Text:=DbEdit10.Text+'輕軌    ';
                Epr_NameBook.ADOQuery1.FieldByName('輕軌').AsString := '1';
        end
        else    Epr_NameBook.ADOQuery1.FieldByName('輕軌').AsString := '-1';

        if (DbCheckBox5.Checked) then
        begin
                DbEdit10.Text:=DbEdit10.Text+'輪渡';
                Epr_NameBook.ADOQuery1.FieldByName('輪渡').AsString := '1';
        end
        else    Epr_NameBook.ADOQuery1.FieldByName('輪渡').AsString := '-1';

        //////////////////////檢查合法性
        if (length(DBEdit3.Text)<>12)
        then
        begin
                ShowMessage('單位代碼長度規定為12位！');
                DealCurItem := false;
                exit;
        end;

        if (DbEdit6.Text='') then
        begin
                ShowMessage('輸入統計年份');
                DealCurItem := false;
                exit;
        end ;
        try
                itmp := StrToInt(DbEdit6.Text);
        except
                ShowMessage('統計年份輸入錯誤');
                DealCurItem := false;
                exit;
        end;

        if ((itmp>3000) or (itmp < 1000)) then
        begin
                ShowMessage('統計年份輸入范圍在1000至3000間');
                DealCurItem := false;
                exit;
        end;

        err := false;
        itmp:=StrToInt(DbComboBox9.Text);
        case itmp of
          7511 :
                begin
                        if ( not DBCheckBox1.Checked) then
                                err := true;
                        if (DBCheckBox3.Checked or DBCheckBox4.Checked or DBCheckBox5.Checked) then
                                err := true;
                end;
          7512 :
                begin

                        if (DBCheckBox1.Checked or DBCheckBox3.Checked or DBCheckBox4.Checked or DBCheckBox5.Checked) then
                                err := true;
                end;
          7513 :
                begin
                        if (( not DBCheckBox3.Checked) and (not DBCheckBox4.Checked )) then
                                err := true;
                        if (DBCheckBox1.Checked or DBCheckBox5.Checked) then
                                err := true;
                end;
          7514 :
                begin
                        if ( not DBCheckBox5.Checked) then
                                err := true;
                        if (DBCheckBox3.Checked or DBCheckBox1.Checked or DBCheckBox4.Checked) then
                                err := true;
                end;
        end;

        if (err) then
        begin
                ShowMessage('所輸入的行業類型和業務活動的類型沖突！請保證兩者的一致性！');
                DealCurItem := false;
                exit;
        end;

        if (not check()) then
        begin
                DealCurItem := false;
                exit;
        end;

        if ( not checkblank()) then
        begin
                Showmessage('必填項不能為空！');
                DealCurItem := false;
                exit;
        end;

        if (DbEdit3.Text = '') then
        begin
                ShowMessage('單位代碼是必填項！請輸入！');
                DealCurItem := false;
                exit;
        end
        else
        begin
                DbEdit16.Text := DateTostr(DateTimePicker1.date);
                DbEdit22.Text := DateToStr(DateTimePicker2.Date);
        end;

        DealCurItem := true;
end;

procedure TEprNameBookEdit.setVisible();
var
        sqlstr: string;
begin
        if (DbComboBox9.ItemIndex=0) then
        begin
                DbCheckBox1.Enabled := true;
                DbCheckBox3.Enabled := false;
                DbCheckBox4.Enabled := false;
                DbCheckBox5.Enabled := false;
        end;
        if (DbComboBox9.ItemIndex=1) then
        begin
                DbCheckBox1.Enabled := false;
                DbCheckBox3.Enabled := false;
                DbCheckBox4.Enabled := false;
                DbCheckBox5.Enabled := false;
        end;
        if (DbComboBox9.ItemIndex=2) then
        begin
                DbCheckBox1.Enabled := false;
                DbCheckBox3.Enabled := true;
                DbCheckBox4.Enabled := true;
                DbCheckBox5.Enabled := false;
        end;
        if (DbComboBox9.ItemIndex=3) then
        begin
                DbCheckBox1.Enabled := false;
                DbCheckBox3.Enabled := false;
                DbCheckBox4.Enabled := false;
                DbCheckBox5.Enabled := true;
        end;
end;

function TEprNameBookEdit.checkblank:boolean;
var
        ibl : boolean;
begin
        ibl := true;
        if (DbComboBox1.Text = '')
        then    ibl := false;
        if (DbComboBox2.Text = '')
        then    ibl := false;
        if (DbComboBox3.Text = '')
        then    ibl := false;
        if (DbComboBox4.Text = '')
        then    ibl := false;
        if (DbComboBox5.Text = '')
        then    ibl := false;
        if (DbComboBox6.Text = '')
        then    ibl := false;
        if (DbComboBox9.Text = '')
        then    ibl := false;
        if (DbEdit10.Text = '')
        then    ibl := false;
        checkblank := ibl;
end;

function TEprNameBookEdit.check:boolean;
var
        i : integer;
        j : single;
        s : string;
begin
        check := true;
        try
        begin
                if (DbEdit20.Text <> '')
                then
                        i := StrToInt(DbEdit20.text);
                if (length(DbEdit20.Text)>9)
                then
                        begin
                                check := false;
                                ShowMessage('服務（監督）電話輸入錯誤！');
                        end

        end
        except
        begin
                ShowMessage('服務（監督）電話輸入錯誤！');
                check := false;
        end
        end;

        try
        begin
                if (DbEdit4.Text <> '')
                then
                        i := StrToInt(DbEdit4.text);
                if (length(DbEdit4.Text)>9)
                then
                begin
                        ShowMessage('電話號碼輸入錯誤！');
                        check := false;
                end
        end
        except
        begin
                ShowMessage('電話號碼輸入錯誤！');
                check := false;
        end
        end;

        try
        begin
                if (DbEdit8.Text <> '')
                then
                        i := StrToInt(DbEdit8.text);
                if (length(DbEdit8.Text)>9)
                then
                begin
                        ShowMessage('傳真號碼輸入錯誤！');
                        check := false;
                end
        end
        except
        begin
                ShowMessage('傳真號碼輸入錯誤！');
                check := false;
        end