📄 f_inputdata.pas
字号:
adoquery.SQL.Clear;
adoquery.sql.Text:='select * from aaa where name='''+trim(edit8.text)+''' and bianhao='''+trim(edit7.text)+'''';
adoquery.Open;
//如果上属还存在上属就继续查找
if adoquery.RecordCount>0 then //???????????????
begin
dengji:=adoquery.FieldValues['dengji'];
tempname:=trim(adoquery.FieldValues['shangshuname']);
bianhao:=adoquery.FieldValues['shangshu'];
while (copy(dengji,1,1)<>'B') and (adoquery.RecordCount>0) do
begin
adoquery.SQL.Clear;
adoquery.sql.Text:='select * from aaa where name='''+trim(tempname)+''' and bianhao='''+trim(bianhao)+'''';
adoquery.Open;
if adoquery.RecordCount>0 then
begin
dengji:=adoquery.FieldValues['dengji'];
woname:=adoquery.FieldValues['name']; // 本人
wobianhao:=adoquery.FieldValues['bianhao']; // 本人
tempname:=adoquery.FieldValues['shangshuname'];
bianhao:=adoquery.FieldValues['shangshu'];
end;
end;
if copy(dengji,1,1)='B' then
begin
edit11.text:=trim(wobianhao);
edit12.text:=trim(woname);
end
else
begin
edit11.text:='暂时没有代理员编号';
edit12.text:='暂时没有代理员';
end;
end
else
begin
edit11.text:='暂时没有代理员编号';
edit12.text:='暂时没有代理员';
end; //???????????????????
end; ///###################################
//////////////////////////////////////////////////////////////////////////////
// if checkbox1.Checked=true then
// begin
// // if application.MessageBox(+#13+#13+'请重新输入正确的数字，然后单击本框自动算出! ','系统提示',MB_OkCANCEL+MB_Iconinformation)<>idok then
// if application.MessageBox(' 警告信息-------您确定要录入此销售员吗？ '+#13+#13+' 请保证您输入数据的正确性! ','系统提示',MB_OkCANCEL+MB_Iconinformation)<>IDOK then
// exit;
// end;
// // if application.MessageBox('您现在输入的销售员工是 ['+edit1.text+']'+#13+#13+'请重新输入正确的数字，然后单击本框自动算出! ','系统提示',MB_OkCANCEL+MB_Iconinformation)<>idok then
/////////////////////////////////////////////////////// //////////////////////
sql:='';
sql:='insert into aaa values('''+edit1.text+''','''+edit2.text+'''';
//等级
if edit6.text<>''then
sql:=sql+','''+copy(edit6.text,1,1)+''''
else
sql:=sql+',''''';
//当月点数
if edit4.text<>'' then
sql:=sql+','+edit4.text+''
else
sql:=sql+',''''';
//以前累计点数 //总累计点
if (edit5.text<>'') and (edit3.text<>'') then
sql:=sql+','+edit5.text+','+edit3.text+''
else
sql:=sql+',''''';
//业绩总额
if edit13.text<>'' then
sql:=sql+','+edit13.text+''
else
sql:=sql+',''''';
//上属编号姓名
if (edit7.text<>'') and (edit8.text<>'') then
sql:=sql+','''+edit7.text+''','''+edit8.text+''''
else
sql:=sql+','' '','' ''';
//代理商编号
if (edit9.text='') and (edit10.text<>'') then
showmessage('请输入代理商编号！') ;
if (edit9.text<>'') and (edit10.text='') then
showmessage('请输入代理商！') ;
if (edit9.text<>'') and (edit10.text<>'') then
sql:=sql+','''+edit9.text+''','''+edit10.text+''''
else
sql:=sql+','' '','' ''';
//代理员编号
if (edit11.text='') and (edit12.text<>'') then
showmessage('请输入代理员编号！') ;
if (edit11.text<>'') and (edit12.text='') then
showmessage('请输入代理员！') ;
if (edit11.text<>'') and (edit12.text<>'') then
sql:=sql+','''+edit11.text+''','''+edit12.text+''''
else
sql:=sql+','' '','' ''';
// (formatdatetime('yyyy',now)+'/'+formatdatetime('mm',now)+'/'+formatdatetime('dd',now))
sql:=sql+','''+datetostr(date)+''')';
//////////// /////////////////////////////////////////////////////
if checkbox1.Checked=true then
begin
// if application.MessageBox(+#13+#13+'请重新输入正确的数字，然后单击本框自动算出! ','系统提示',MB_OkCANCEL+MB_Iconinformation)<>idok then
if application.MessageBox(' 警告信息-------您确定要录入此销售员吗？ '+#13+#13+' 请保证您输入数据的正确性! ','系统提示',MB_OkCANCEL+MB_Iconinformation)<>IDOK then
exit;
end;
// if application.MessageBox('您现在输入的销售员工是 ['+edit1.text+']'+#13+#13+'请重新输入正确的数字，然后单击本框自动算出! ','系统提示',MB_OkCANCEL+MB_Iconinformation)<>idok then
/////////////////////////////////////////////////////// //////////////////////
with dm do
begin
adoquery.SQL.Clear;
adoquery.SQL.Text:=sql;
adoquery.ExecSQL;
showmessage('添加成功！');
//application.MessageBox('对不起,计算数据出现错误, '+#13+#13+' 请重新启动应用程序! ','系统提示',MB_Ok+MB_Iconinformation);
end;
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit8.text:='';
edit11.text:='';
edit12.text:='';
edit13.text:='';
edit2.SetFocus;
end;
procedure TForm_inputdata.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
inherited;
application.MessageBox('对不起,您不能在此进行输入！ '+#13+#13,'系统提示',MB_Ok+MB_Iconinformation);
//messagedlg(' ',mtinformation,[mbok],0);
//(sender as Tedit).SetFocus;
key:=#0;
end;
procedure TForm_inputdata.SpeedButton4Click(Sender: TObject);
begin
inherited;
with dm do
begin
adotable.Close;
adotable.Open;
if adotable.RecordCount>0 then
begin
adotable.Last;
edit2.text:=adotable.FieldValues['name'];
edit1.Text:=adotable.FieldValues['bianhao'];
edit6.Text:=adotable.FieldValues['dengji'];
edit4.Text:=adotable.FieldValues['current_point'];
edit5.Text:=adotable.FieldValues['leiji_point'];
edit3.Text:=adotable.FieldValues['zong_point'];
edit13.Text:=adotable.FieldValues['money'];
edit7.Text:=adotable.FieldValues['shangshu'];
edit8.Text:=adotable.FieldValues['shangshuname'];
edit9.Text:=adotable.FieldValues['proxy'];
edit10.Text:=adotable.FieldValues['proxy_name'];
edit11.Text:=adotable.FieldValues['proxy_'];
edit12.Text:=adotable.FieldValues['proxy_name'];
end;
end;
end;
procedure TForm_inputdata.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if not (key in ['0'..'9',#8,#46,#110,#190]) then
begin
messagedlg('对不起,您只能在此进行输入数字 ！',mtinformation,[mbok],0);
(sender as Tedit).SetFocus;
key:=#0;
end;
end;
procedure TForm_inputdata.SpeedButton5Click(Sender: TObject);
begin
inherited;
if edit4.text='' then
edit4.text:='0';
if (strtoint(edit4.text)>0) and (strtoint(edit4.text) mod 70<>0) then
begin
application.MessageBox('对不起,您在本月点数中必须输入70点的倍数！'+#13+#13+' 请重新输入正确的数字! ','系统提示',MB_Ok+MB_Iconinformation);
exit;
end ;
if edit5.text='' then
edit5.text:='0' ;
if (strtoint(edit5.text)>0) and (strtoint(edit5.text) mod 70<>0) then
begin
//showmessage('对不起,您必须输入70点的倍数！') ;
application.MessageBox('对不起,您在累计点数中必须输入70点的倍数！'+#13+#13+' 请重新输入正确的数字! ','系统提示',MB_Ok+MB_Iconinformation);
exit;
end;
try
edit3.text:=inttostr(strtoint(edit4.text)+strtoint(edit5.Text));
except
application.MessageBox('对不起,您在本月点数和累计点数中输入有误！, '+#13+#13+'请重新输入正确的数字，然后单击本框自动算出! ','系统提示',MB_Ok+MB_Iconinformation);
//messagedlg('对不起,您在本月点数和累计点数输入有误 ！',mtinformation,[mbok],0);
//(sender as Tedit).SetFocus;
//key:=#0;
exit;
end;
if strtoint(edit3.text)>=39270 then
edit6.text:='A 级'
else if (strtoint(edit3.text)<39270) and (strtoint(edit3.text)>=6510) then
edit6.text:='B 级'
else if (strtoint(edit3.text)<6510) and (strtoint(edit3.text)>=980) then
edit6.text:='C 级'
else if (strtoint(edit3.text)<980) and (strtoint(edit3.text)>=280) then
edit6.text:='D 级'
else edit6.text:='E 级'
////////
end;
procedure TForm_inputdata.FormActivate(Sender: TObject);
begin
inherited;
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit8.text:='';
edit9.text:='HK080208';
edit10.text:='王新安';
edit11.text:='';
edit12.text:='';
edit13.text:='';
end;
procedure TForm_inputdata.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
// inherited;
if key=#13 then
edit8.SetFocus;
end;
procedure TForm_inputdata.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if key=#13 then
begin
SBsearch.Perform(WM_LBUTTONDOWN,0,0);
SBsearch.Perform(WM_LBUTTONUP,0,0);
end
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -