📄 dqjj.pas
字号:
procedure DFCZZCExit(Sender: TObject);
procedure NLMYYZCZZSExit(Sender: TObject);
procedure NYJXZDLExit(Sender: TObject);
procedure HFSYLExit(Sender: TObject);
procedure NCYDLExit(Sender: TObject);
procedure ZBZMJExit(Sender: TObject);
procedure LSZWBZMJExit(Sender: TObject);
procedure XCLDLExit(Sender: TObject);
procedure CYGDMJExit(Sender: TObject);
procedure LSCLExit(Sender: TObject);
procedure MHCLExit(Sender: TObject);
procedure YLZWCLExit(Sender: TObject);
procedure NRCLExit(Sender: TObject);
procedure YRCLExit(Sender: TObject);
procedure SCPLExit(Sender: TObject);
procedure SHXFPLSPZEExit(Sender: TObject);
procedure CYYExit(Sender: TObject);
procedure ZZYExit(Sender: TObject);
procedure QTExit(Sender: TObject);
procedure CXJMCXCKYEExit(Sender: TObject);
procedure rjgnsczzExit(Sender: TObject);
procedure NMZRKExit(Sender: TObject);
procedure RKMDExit(Sender: TObject);
procedure ZGZGRSExit(Sender: TObject);
procedure jbjsExit(Sender: TObject);
procedure nzqyExit(Sender: TObject);
procedure GYQYLRZEExit(Sender: TObject);
procedure GLLCExit(Sender: TObject);
procedure NLMYYZCZExit(Sender: TObject);
procedure YXGGMJExit(Sender: TObject);
procedure NLMYYLDLExit(Sender: TObject);
procedure ZRCLExit(Sender: TObject);
procedure MYYExit(Sender: TObject);
procedure XLETRXLExit(Sender: TObject);
procedure PTZXXXSExit(Sender: TObject);
procedure YYWSYJSRYSExit(Sender: TObject);
procedure YYWSYCWSExit(Sender: TObject);
procedure YYWSYGSExit(Sender: TObject);
procedure GZZXXSSExit(Sender: TObject);
procedure PTZXZRJSSExit(Sender: TObject);
procedure NCJMRJCSRExit(Sender: TObject);
procedure XXZXXSSExit(Sender: TObject);
procedure XXXXSExit(Sender: TObject);
procedure XXZRJSSExit(Sender: TObject);
procedure DYCYGNSCZZEnter(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure dqmcKeyPress(Sender: TObject; var Key: Char);
procedure gxmcKeyPress(Sender: TObject; var Key: Char);
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
{ Private declarations }
private
public
{ Public declarations }
end;
var
dqjjxxFrm: TdqjjxxFrm;
ActionCD,hebpth: string;
year, month, day: word;
implementation
uses dqjjcx,main;
{$R *.dfm}
procedure Tdqjjxxfrm.FindNext;
begin
if FindNextControl(activeControl,True,False,False)is TEdit then
TEdit(FindNextControl(activeControl,True,False,False)).SetFocus;
end;
procedure Tdqjjxxfrm.automaticno;
var m:String;
i:integer;
queryc:TADOQuery;
begin
i:=0;
hebpth:='';
queryc:=TADOQuery.Create(self);
queryc.Connection:=DataM.dm.conn;
queryc.SQL.Text := 'select max(Z_PTZYBH) as p from T_Geo_economic' ;
queryc.open;
queryc.Close;
queryc:=TADOQuery.Create(self);
queryc.Connection:=DataM.dm.conn;
queryc.SQL.Text := 'select * from T_Geo_economic' ;
queryc.open;
if queryc.Eof then
hebpth:='4101C00072'+'00000001'
else
begin
DataM.DM.dqjjxx.Last;
m:=DataM.DM.dqjjxx.FieldValues['Z_PTZYBH'];
i:=StrToInt(Trim(copy(m,11,8)));
if i< 9 then
hebpth:='4101C00072'+'0000000'+IntToStr(i+1)
else if i<99 then
hebpth:='4101C00072'+'000000'+IntToStr(i+1)
else if i<999 then
hebpth:='4101C00072'+'00000'+IntToStr(i+1)
else if i<9999 then
hebpth:='4101C00072'+'0000'+IntToStr(i+1)
else if i<99999 then
hebpth:='4101C00072'+'000'+IntToStr(i+1)
else if i<999999 then
hebpth:='4101C00072'+'00'+IntToStr(i+1)
else if i<9999999 then
hebpth:='4101C00072'+'0'+IntToStr(i+1)
else
hebpth:='4101C00072'+IntToStr(i+1);
end;
queryc.Close;
end;
procedure Tdqjjxxfrm.ENA; // 新增记录的时候使所有的控件可用
var
i: Integer;
begin
for i := ComponentCount - 1 downto 0 do
begin
if (components[i] is TEdit) then
begin // 使所有的TEdit控件可用
TEdit(components[i]).Color := clwindow;
TEdit(components[i]).ReadOnly := false;
end; // 使所有的Tcombobox控件可用
if (components[i] is Tcombobox) then
Tcombobox(components[i]).Color := clwindow;
if (components[i] is TMemo) then
Tcombobox(components[i]).Color := clwindow;
end;
ptzybh.Enabled := False;
BitBtn2.Enabled := False; // '编辑'不可用
BitBtn3.Enabled := True; // '储存'可用
BitBtn4.Enabled := True; // '取消'可用
BitBtn6.Enabled := False; // '关闭'不可用
end;
procedure Tdqjjxxfrm.DIS; // 新增记录的时候使所有的控件不可用
var
i: Integer;
begin
for i := ComponentCount - 1 downto 0 do
begin // 使所有的TEdit控件不可用
if (components[i] is TEdit) then
begin // 改变TEdit控件的颜色
TEdit(components[i]).Color := $00D8D8D8;
TEdit(components[i]).enabled := false;
end; // 使所有的Tcombobox控件不可用
if (components[i] is Tcombobox) then
// 改变Tcombobox控件的颜色
begin
Tcombobox(components[i]).Color := $00D8D8D8;
Tcombobox(components[i]).Enabled := false;
end;
end;
bitbtn2.Enabled := True; // '编辑'可用
bitbtn3.Enabled := False; // '储存'不可用
bitbtn4.Enabled := false; // '取消'不可用
BitBtn6.Enabled := True; // '关闭'可用
end;
procedure Tdqjjxxfrm.CLS;
var
i: Integer;
begin
for i := ComponentCount - 1 downto 0 do
begin // 清除所有的TEdit控件的内容
if (Components[i] is TEDIT) then
begin
TEDIT(components[i]).Clear;
end;
end;
end;
procedure Tdqjjxxfrm.GetAll;
var i,j:integer;
dqmcstr:string;
gxmcstr:string;
get_Q:TADOQuery;
a,c:Integer;
begin
year.Text:= DM.dqjjxx.Fieldbyname('Z_year').AsString;
ZYbm.Text:= DM.dqjjxx.Fieldbyname('Z_ZYbm').AsString;
ptzybh.Text:= DM.dqjjxx.Fieldbyname('Z_ptzybh').AsString;
dqmcstr:= DM.dqjjxx.Fieldbyname('Z_DqMC').AsString;
begin
get_Q:=TADOQuery.Create(self);
get_Q.Connection:=dm.conn;
a:=StrToInt(dqmcstr);
get_Q.SQL.add('select * from t_dmb where z_dmbm=b and t_dmb.z_dmlxbm=1');
get_q.Parameters.ParamByName('b').Value:=a;
get_Q.open;
dqmc.Text:=trim(get_Q.FieldValues['z_dmmc']);
get_Q.Close;
end;
// gxmc.Text:= DM.dqjjxx.Fieldbyname('Z_gxmc').AsString;
begin
gxmcstr:= DM.dqjjxx.Fieldbyname('Z_gxmc').AsString;
get_Q:=TADOQuery.Create(self);
get_Q.Connection:=dm.conn;
c:=strtoint(gxmcstr);
get_Q.SQL.Text := 'select z_dmmc from t_dmb where t_dmb.z_dmbm=g and t_dmb.z_dmlxbm=2';
get_q.Parameters.ParamByName('g').Value:=c;
get_Q.open;
gxmc.Text:=trim(get_Q.FieldValues['z_dmmc']);
get_Q.Close;
end;
Gnsczz.Text:= DM.dqjjxx.Fieldbyname('Z_Gnsczz').AsString;
DYCYGNSCZZ.Text:= DM.dqjjxx.Fieldbyname('Z_DYCYGNSCZZ').AsString;
DECYGNSCZZ.Text:= DM.dqjjxx.Fieldbyname('Z_DECYGNSCZZ').AsString;
DSCYGNSCZZ.Text:= DM.dqjjxx.Fieldbyname('Z_DSCYGNSCZZ').AsString;
RJGNSCZZ.Text:= DM.dqjjxx.Fieldbyname('Z_RJGNSCZZ').AsString;
GNSCZZZS.Text:= DM.dqjjxx.Fieldbyname('Z_GNSCZZZS').AsString;
DYCYGNSCZZZS.Text:= DM.dqjjxx.Fieldbyname('Z_DYCYGNSCZZZS').AsString;
DECYGNSCZZZS.Text:= DM.dqjjxx.Fieldbyname('Z_DECYGNSCZZZS').AsString;
DSCYGNSCZZZS.Text:= DM.dqjjxx.Fieldbyname('Z_DSCYGNSCZZZS').AsString;
NMZRK.Text:= DM.dqjjxx.Fieldbyname('Z_NMZRK').AsString;
NMZHS.Text:= DM.dqjjxx.Fieldbyname('Z_NMZHS').AsString;
XCHS.Text:= DM.dqjjxx.Fieldbyname('Z_XCHS').AsString;
CSRK.Text:= DM.dqjjxx.Fieldbyname('Z_CSRK').AsString;
SWRK.Text:= DM.dqjjxx.Fieldbyname('Z_SWRK').AsString;
RKMD.Text:= DM.dqjjxx.Fieldbyname('Z_RKMD').AsString;
NMJYRY.Text:= DM.dqjjxx.Fieldbyname('Z_NMJYRY').AsString;
DYCYJYRY.Text:= DM.dqjjxx.Fieldbyname('Z_DYCYJYRY').AsString;
DECYJYRY.Text:= DM.dqjjxx.Fieldbyname('Z_DECYJYRY').AsString;
DSCYJYRY.Text := DM.dqjjxx.Fieldbyname('Z_DSCYJYRY').AsString;
ZGZGRS.Text:= DM.dqjjxx.Fieldbyname('Z_ZGZGRS').AsString;
ZGZGGZZE.Text:= DM.dqjjxx.Fieldbyname('Z_ZGZGGZZE').AsString;
ZGZGPJGZ.Text:= DM.dqjjxx.Fieldbyname('Z_ZGZGPJGZ').AsString;
QSHGDZCTZE.Text:= DM.dqjjxx.Fieldbyname('Z_QSHGDZCTZE').AsString;
GYDW.Text:= DM.dqjjxx.Fieldbyname('Z_GYDW').AsString;
JBJS.Text:= DM.dqjjxx.Fieldbyname('Z_JBJS').AsString;
GXGZ.Text:= DM.dqjjxx.Fieldbyname('Z_GXGZ').AsString;
QBGYQYZCZ.Text:= DM.dqjjxx.Fieldbyname('Z_QBGYQYZCZ').AsString;
GYZCZ.Text:= DM.dqjjxx.Fieldbyname('Z_GYZCZ').AsString;
NZQY.Text:= DM.dqjjxx.Fieldbyname('Z_NZQY').AsString;
GATTZQY.Text:= DM.dqjjxx.Fieldbyname('Z_GATTZQY').AsString;
WSTZQY.Text:= DM.dqjjxx.Fieldbyname('Z_WSTZQY').AsString;
GYQYZJZ.Text:= DM.dqjjxx.Fieldbyname('Z_GYQYZJZ').AsString;
GYQYzczj.Text:= DM.dqjjxx.Fieldbyname('Z_GYQYzczj').AsString;
GYQYFZZJ.Text:= DM.dqjjxx.Fieldbyname('Z_GYQYFZZJ').AsString;
GYQYCPXSSR.Text:= DM.dqjjxx.Fieldbyname('Z_GYQYCPXSSR').AsString;
GYQYLRZE.Text:= DM.dqjjxx.Fieldbyname('Z_GYQYLRZE').AsString;
JZYQYDWS.Text:= DM.dqjjxx.Fieldbyname('Z_JZYQYDWS').AsString;
JZYJYRY.Text:= DM.dqjjxx.Fieldbyname('Z_JZYJYRY').AsString;
JZYZCZ.Text:= DM.dqjjxx.Fieldbyname('Z_JZYZCZ').AsString;
GLLC.Text:= DM.dqjjxx.Fieldbyname('Z_GLLC').AsString;
YDYWZL.Text:= DM.dqjjxx.Fieldbyname('Z_YDYWZL').AsString;
BDDHYH.Text:= DM.dqjjxx.Fieldbyname('Z_BDDHYH').AsString;
DFCZSR.Text:= DM.dqjjxx.Fieldbyname('Z_DFCZSR').AsString;
DFCZZC.Text:= DM.dqjjxx.Fieldbyname('Z_DFCZZC').AsString;
NLMYYZCZ.Text:= DM.dqjjxx.Fieldbyname('Z_NLMYYZCZ').AsString;
NLMYYZCZZS.Text:= DM.dqjjxx.Fieldbyname('Z_NLMYYZCZZS').AsString;
NYJXZDL.Text:= DM.dqjjxx.Fieldbyname('Z_NYJXZDL').AsString;
HFSYL.Text:= DM.dqjjxx.Fieldbyname('Z_HFSYL').AsString;
NCYDL.Text:= DM.dqjjxx.Fieldbyname('Z_NCYDL').AsString;
YXGGMJ.Text:= DM.dqjjxx.Fieldbyname('Z_YXGGMJ').AsString;
ZBZMJ.Text:= DM.dqjjxx.Fieldbyname('Z_ZBZMJ').AsString;
LSZWBZMJ.Text:= DM.dqjjxx.Fieldbyname('Z_LSZWBZMJ').AsString;
NCJMRJCSR .Text:= DM.dqjjxx.Fieldbyname('Z_NCJMRJCSR').AsString;
XCLDL.Text:= DM.dqjjxx.Fieldbyname('Z_XCLDL').AsString;
NLMYYLDL.Text:= DM.dqjjxx.Fieldbyname('Z_NLMYYLDL').AsString;
CYGDMJ.Text:= DM.dqjjxx.Fieldbyname('Z_CYGDMJ').AsString;
LSCL.Text:= DM.dqjjxx.Fieldbyname('Z_LSCL').AsString;
MHCL.Text:= DM.dqjjxx.Fieldbyname('Z_MHCL').AsString;
YLZWCL.Text:= DM.dqjjxx.Fieldbyname('Z_YLZWCL').AsString;
ZRCL.Text:= DM.dqjjxx.Fieldbyname('Z_ZRCL').AsString;
NRCL.Text:= DM.dqjjxx.Fieldbyname('Z_NRCL').AsString;
YRCL .Text:= DM.dqjjxx.Fieldbyname('Z_YRCL').AsString;
SCPL .Text:= DM.dqjjxx.Fieldbyname('Z_SCPL').AsString;
SHXFPLSPZE.Text:= DM.dqjjxx.Fieldbyname('Z_SHXFPLSPZE').AsString;
MYY.Text:= DM.dqjjxx.Fieldbyname('Z_MYY').AsString;
CYY.Text:= DM.dqjjxx.Fieldbyname('Z_CYY').AsString;
ZZY.Text:= DM.dqjjxx.Fieldbyname('Z_ZZY').AsString;
QT.Text:= DM.dqjjxx.Fieldbyname('Z_QT').AsString;
CXJMCXCKYE.Text:= DM.dqjjxx.Fieldbyname('Z_CXJMCXCKYE').AsString;
XLETRXL.Text:= DM.dqjjxx.Fieldbyname('Z_XLETRXL').AsString;
XXZRJSS.Text:= DM.dqjjxx.Fieldbyname('Z_XXZRJSS').AsString;
XXXXS .Text:= DM.dqjjxx.Fieldbyname('Z_XXXXS').AsString;
XXZXXSS .Text:= DM.dqjjxx.Fieldbyname('Z_XXZXXSS').AsString;
PTZXZRJSS .Text:= DM.dqjjxx.Fieldbyname('Z_PTZXZRJSS').AsString;
SHXFPLSPZE.Text:= DM.dqjjxx.Fieldbyname('Z_SHXFPLSPZE').AsString;
PTZXXXS.Text:= DM.dqjjxx.Fieldbyname('Z_PTZXXXS').AsString;
GZZXXSS.Text:= DM.dqjjxx.Fieldbyname('Z_GZZXXSS').AsString;
YYWSYGS.Text:= DM.dqjjxx.Fieldbyname('Z_YYWSYGS').AsString;
YYWSYCWS.Text:= DM.dqjjxx.Fieldbyname('Z_YYWSYCWS').AsString;
YYWSYJSRYS.Text:= DM.dqjjxx.Fieldbyname('Z_YYWSYJSRYS').AsString;
for i := ComponentCount - 1 downto 0 do
begin
if (Components[i] is TEDIT) then
if (TEDIT(components[i]).Text='') then
TEDIT(components[i]).Text := '0';
end;
end;
procedure TdqjjxxFrm.BitBtn1Click(Sender: TObject);
var
i: Integer;
begin
dm.dqjjxx.sql.clear;
DM.dqjjxx.SQL.Add('select * from T_GEO_economic order by z_ptzybh asc');
DM.dqjjxx.Open;
DM.dqjjxx.Active:=true;
CLS; //清除所有的控件内容
ENA;
automaticno;
ptzybh.Text:=hebpth;
ZYBM.Text:='410102';
YEAR.Text:='';
DQMC.Text:='';
GXMC.Text:='';
for i := ComponentCount - 1 downto 0 do
begin
if (components[i] is TEdit) then
TEdit(components[i]).enabled := true;
if (components[i] is Tcombobox) then
Tcombobox(components[i]).Enabled := true;
end;
ptzybh.Enabled := True;
ptzybh.Color := clSkyBlue;
ptzybh.ReadOnly := true;
ActionCD := 'N'; //新增记录标记
end;
procedure TdqjjxxFrm.BitBtn2Click(Sender: TObject);
var i :integer;
begin
for i := ComponentCount - 1 downto 0 do
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -