?? epr_namebookeditunit.~pas
字號:
end;
try
begin
if (length(DbEdit12.Text)>12)
then
begin
ShowMessage('注冊資本金字符太多了！');
check := false;
end;
if (DbEdit12.Text <> '')
then
j := StrToFloat(DbEdit12.text);
end
except
begin
ShowMessage('企業注冊資本金輸入錯誤！');
check := false;
end
end;
{if (ComboBox1.Text = '')
then
begin
ShowMessage('請選擇主要業務活動！');
check := false;
end;}
end;
procedure TEprNameBookEdit.updateInfo();
var
field, sqlstr : string;
begin
sqlstr := 'select * from 主要業務活動表 where 企業代碼='+''''+DbEdit3.Text+''''+ ' and 統計年份='+ DbEdit6.Text; //行業加類型判斷
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add(sqlstr);
AdoQuery1.Open;
if (AdoQuery1.RecordCount = 0)
then
begin
field := '';
end
else
begin
if (AdoQuery1.FieldByName('公共汽車、電車').AsString = '1')
then
field := field + ' 公共汽車、電車;';
if (AdoQuery1.FieldByName('出租汽車業').AsString = '1')
then
field := field + ' 出租汽車業;';
if (AdoQuery1.FieldByName('地鐵').AsString = '1')
then
field := field + ' 地鐵;';
if (AdoQuery1.FieldByName('輕軌').AsString = '1')
then
field := field + ' 輕軌;';
if (AdoQuery1.FieldByName('輪渡').AsString = '1')
then
field := field + ' 輪渡;';
end;
sqlstr := 'update 公用事業單位基本情況表 set 主要業務活動='+''''+field+''''+' where 單位代碼='+''''+DbEdit3.Text+''''+ ' and 統計年份='+ DbEdit6.Text; //行業加類型判斷
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add(sqlstr);
AdoQuery1.ExecSQL;
end;
procedure TEprNameBookEdit.DBComboBox9Change(Sender: TObject);
var
sqlstr : string;
begin
DbComboBox2.ItemIndex := DbComboBox9.ItemIndex;
if (DbComboBox9.Text = '7511')
then Epr_NameBook.ADOQuery1.FieldByName('行業類別').asstring := '公共汽車、電車業';
if (DbComboBox9.Text = '7512')
then Epr_NameBook.ADOQuery1.FieldByName('行業類別').asstring := '出租汽車業';
if (DbComboBox9.Text = '7513')
then Epr_NameBook.ADOQuery1.FieldByName('行業類別').asstring := '軌道交通業';
if (DbComboBox9.Text = '7514')
then Epr_NameBook.ADOQuery1.FieldByName('行業類別').asstring := '輪渡';
//setvisible();
end;
procedure TEprNameBookEdit.DBComboBox2Change(Sender: TObject);
var
sqlstr : string;
begin
DbComboBox9.ItemIndex := DbComboBox2.ItemIndex;
if (DbComboBox2.Text = '公共汽車、電車業')
then Epr_NameBook.ADOQuery1.FieldByName('行業代碼').asstring := '7511';
if (DbComboBox2.Text = '出租汽車業')
then Epr_NameBook.ADOQuery1.FieldByName('行業代碼').asstring := '7512';
if (DbComboBox2.Text = '軌道交通業')
then Epr_NameBook.ADOQuery1.FieldByName('行業代碼').asstring := '7513';
if (DbComboBox2.Text = '輪渡')
then Epr_NameBook.ADOQuery1.FieldByName('行業代碼').asstring := '7514';
//setvisible();
end;
procedure TEprNameBookEdit.BitBtn1Click(Sender: TObject);
begin
if (Epr_NameBook.ADOQuery1.State <> dsBrowse)then
if (MessageBox(self.Handle,'保存按是,否則按否','',MB_YESNO)=6)
then Button1.Click;
EprNameBookEdit.Close;
Epr_NameBook.initbox();
Epr_NameBook.ComboBox1Change(nil);
end;
procedure TEprNameBookEdit.Button1Click(Sender: TObject);
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位！');
exit;
end;
if (DbEdit6.Text='') then
begin
ShowMessage('輸入統計年份');
exit;
end ;
try
itmp := StrToInt(DbEdit6.Text);
except
ShowMessage('統計年份輸入錯誤');
exit;
end;
if ((itmp>3000) or (itmp < 1000)) then
begin
ShowMessage('統計年份輸入范圍在1000至3000間');
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('所輸入的行業類型和業務活動的類型沖突！請保證兩者的一致性！');
exit;
end;
if (not check())
then
exit;
if ( not checkblank())
then
begin
Showmessage('必填項不能為空！');
exit;
end;
if (DbEdit3.Text = '')
then
begin
ShowMessage('單位代碼是必填項！請輸入！');
exit;
end
else
begin
DbEdit16.Text := DateTostr(DateTimePicker1.date);
DbEdit22.Text := DateToStr(DateTimePicker2.Date);
if (Epr_NameBook.ADOQuery1.State = dsInsert)
then
begin
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
sqlstr := 'select * from 公用事業單位基本情況表 where 單位代碼='+''''+DbEdit3.Text+''''+' and 統計年份='+DbEdit6.Text;
AdoQuery1.SQL.Add(sqlstr);
AdoQuery1.Open;
if (AdoQuery1.RecordCount = 0)
then
begin
Epr_NameBook.ADOQuery1.UpdateBatch(arAll);
//updateInfo(); //更新主要業務活動項
end
else
begin
ShowMessage('此年的該企業名錄信息已經存在，無法創建！');
exit;
end;
end;
if (Epr_NameBook.ADOQuery1.State = dsEdit) then
begin
Epr_NameBook.ADOQuery1.UpdateBatch(arAll);
//updateInfo(); //更新主要業務活動項
end;
showmessage('當前記錄保存完畢！');
end;
Epr_NameBook.initbox();
Epr_NameBook.ComboBox1Change(nil);
EprNameBookEdit.Close;
end;
procedure TEprNameBookEdit.Button2Click(Sender: TObject);
begin
Epr_NameBook.ADOQuery1.CancelUpdates;
end;
procedure TEprNameBookEdit.FormShow(Sender: TObject);
var
sqlstr : string;
begin
if (Epr_NameBook.ADOQuery1.State = dsEdit) then //年份，代碼不可改
begin
DbEdit3.Enabled := false;
DbEdit6.Enabled := false;
end;
if (DbEdit16.Text<>'')
then
DateTimePicker1.Date := StrToDate(DbEdit16.Text);
if (DbEdit22.Text<>'')
then
DateTimePicker2.Date := StrToDate(DbEdit22.Text);
if (Epr_NameBook.ADOQuery1.State = dsInsert)
then
begin
DbEdit9.Text := '022';
DbCheckBox1.Checked := false;
DbCheckBox3.Checked := false;
DbCheckBox4.Checked := false;
DbCheckBox5.Checked := false;
DbEdit3.Enabled := true;
DbEdit6.Enabled := true;
end;
if (Epr_NameBook.ADOQuery1.State = dsEdit) then //設置上下鍵
begin
BitBtn2.Enabled:= true;
BitBtn3.Enabled:= true;
end;
if (Epr_NameBook.ADOQuery1.State = dsInsert) then
begin
BitBtn2.Enabled := false;
BitBtn3.Enabled := false;
end;
end;
procedure TEprNameBookEdit.BitBtn2Click(Sender: TObject);
var
sqlstr : string;
itmp : integer;
err : boolean;
begin
Epr_NameBook.ADOQuery1.Edit;
if (not DealCurItem()) then exit; //只檢查合法性不保存
Epr_NameBook.ADOQuery1.Prior;
Epr_NameBook.ADOQuery1.Edit;
BitBtn2.Enabled := true;
BitBtn3.Enabled := true;
if (Epr_NameBook.ADOQuery1.Bof) then
begin
//EprNameBookEdit.Close;
Epr_NameBook.ADOQuery1.First;
BitBtn2.Enabled := false;
Epr_NameBook.ADOQuery1.Edit;
end;
end;
procedure TEprNameBookEdit.BitBtn3Click(Sender: TObject);
var
sqlstr : string;
itmp : integer;
err : boolean;
begin
Epr_NameBook.ADOQuery1.Edit;
if (not DealCurItem()) then exit; //只檢查合法性，和保存的準備工作但不保存
Epr_NameBook.ADOQuery1.Next;
Epr_NameBook.ADOQuery1.Edit;
BitBtn2.Enabled := true;
BitBtn3.Enabled := true;
if (Epr_NameBook.ADOQuery1.Eof) then
begin
//EprNameBookEdit.Close;
Epr_NameBook.ADOQuery1.Last;
BitBtn3.Enabled := false;
Epr_NameBook.ADOQuery1.Edit;
end;
end;
procedure TEprNameBookEdit.DBEdit2Exit(Sender: TObject);
begin
label26.Caption := DbEdit2.Text;
end;
procedure TEprNameBookEdit.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = char(13)) then
begin
key := char(0);
selectnext(self.ActiveControl,true,true);
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -