📄 epr_namebookeditunit.~pas
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -