📄 firstregunit.pas
字号:
ExecSQL ;
if Prepared then Prepared:=false;
//收费录入明细
close;
sql.Clear;
sql.Add('insert into firstreg (StudentID,ChargeRangeId,StudyYear,ChargeItemId, ');
sql.Add('Quantum,Fact,BillCode,ReceType,RegDate,Operator ) values ( ');
sql.Add(':StudentID,:ChargeRangeId,:StudyYear,:ChargeItemId,');
sql.Add(':Quantum,:Fact,:BillCode,:ReceType,:RegDate,:Operator )');
if Not Prepared then Prepared:=true;
//学费
close;
Parameters.ParamByName('StudentID').Value :=tmpid ;
Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
Parameters.ParamByName('ChargeItemId').Value := 1;
Parameters.ParamByName('Quantum').Value :=trim(tuition_be_Edit.Text );
Parameters.ParamByName('Fact').Value :=trim(tuition_re_Edit.Text );
Parameters.ParamByName('BillCode').Value :=trim(tuition_code_Edit.Text );
Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
Parameters.ParamByName('RegDate').Value :=TmpDT;
Parameters.ParamByName('Operator').Value :=Oper.code ;
ExecSQL ;
//住宿
close;
Parameters.ParamByName('StudentID').Value :=tmpid ;
Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
Parameters.ParamByName('ChargeItemId').Value :=2 ;
Parameters.ParamByName('Quantum').Value :=trim(house_be_Edit.Text );
Parameters.ParamByName('Fact').Value :=trim(house_re_Edit.Text );
Parameters.ParamByName('BillCode').Value :='';
Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
Parameters.ParamByName('RegDate').Value :=TmpDT;
Parameters.ParamByName('Operator').Value :=Oper.code ;
ExecSQL ;
//书费
close;
Parameters.ParamByName('StudentID').Value :=tmpid;
Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
Parameters.ParamByName('ChargeItemId').Value :=3;
Parameters.ParamByName('Quantum').Value := trim(book_be_Edit.Text );
Parameters.ParamByName('Fact').Value := trim(book_re_Edit.Text );
Parameters.ParamByName('BillCode').Value :=trim(book_code_Edit.Text );
Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
Parameters.ParamByName('RegDate').Value :=TmpDT;
Parameters.ParamByName('Operator').Value :=Oper.code ;
ExecSQL ;
//保险
close;
Parameters.ParamByName('StudentID').Value :=tmpid;
Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
Parameters.ParamByName('ChargeItemId').Value := 4;
Parameters.ParamByName('Quantum').Value := trim(insurance_be_Edit.Text );
Parameters.ParamByName('Fact').Value := trim(insurance_re_Edit.Text );
Parameters.ParamByName('BillCode').Value :='';
Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
Parameters.ParamByName('RegDate').Value :=TmpDT;
Parameters.ParamByName('Operator').Value :=Oper.code ;
ExecSQL ;
//生活用品
close;
Parameters.ParamByName('StudentID').Value :=tmpid ;
Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
Parameters.ParamByName('ChargeItemId').Value := 5;
Parameters.ParamByName('Quantum').Value :=trim(live_be_Edit.Text );
Parameters.ParamByName('Fact').Value := trim(live_re_Edit.Text );
Parameters.ParamByName('BillCode').Value :=trim(live_code_Edit.Text );
Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
Parameters.ParamByName('RegDate').Value :=TmpDT;
Parameters.ParamByName('Operator').Value :=Oper.code ;
ExecSQL ;
//保证金
close;
Parameters.ParamByName('StudentID').Value :=tmpid;
Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
Parameters.ParamByName('ChargeItemId').Value := 6;
Parameters.ParamByName('Quantum').Value := trim(pledge_be_Edit.Text );
Parameters.ParamByName('Fact').Value :=trim(pledge_re_Edit.Text );
Parameters.ParamByName('BillCode').Value :=trim(pledge_code_Edit.Text );
Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
Parameters.ParamByName('RegDate').Value :=TmpDT;
Parameters.ParamByName('Operator').Value :=Oper.code ;
ExecSQL ;
if Prepared then Prepared:=false;
//调整录入明细
close;
sql.Clear;
sql.Add('insert into editreg (StudentID,ChargeRangeId,StudyYear,ChargeItemId, ');
sql.Add('Quantum,receive,BillCode,ReceType,RegDate,Operator ) values ( ');
sql.Add(':StudentID,:ChargeRangeId,:StudyYear,:ChargeItemId,');
sql.Add(':Quantum,:receive,:BillCode,:ReceType,:RegDate,:Operator )');
if Not Prepared then Prepared:=true;
//学费
close;
Parameters.ParamByName('StudentID').Value :=tmpid ;
Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
Parameters.ParamByName('ChargeItemId').Value := 1;
Parameters.ParamByName('Quantum').Value :=trim(tuition_be_Edit.Text );
Parameters.ParamByName('receive').Value :=trim(tuition_re_Edit.Text );
Parameters.ParamByName('BillCode').Value :=trim(tuition_code_Edit.Text );
Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
Parameters.ParamByName('RegDate').Value :=TmpDT;
Parameters.ParamByName('Operator').Value :=Oper.code ;
ExecSQL ;
//住宿
close;
Parameters.ParamByName('StudentID').Value :=tmpid ;
Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
Parameters.ParamByName('ChargeItemId').Value :=2 ;
Parameters.ParamByName('Quantum').Value :=trim(house_be_Edit.Text );
Parameters.ParamByName('receive').Value :=trim(house_re_Edit.Text );
Parameters.ParamByName('BillCode').Value :='';
Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
Parameters.ParamByName('RegDate').Value :=TmpDT;
Parameters.ParamByName('Operator').Value :=Oper.code ;
ExecSQL ;
//书费
close;
Parameters.ParamByName('StudentID').Value :=tmpid;
Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
Parameters.ParamByName('ChargeItemId').Value :=3;
Parameters.ParamByName('Quantum').Value := trim(book_be_Edit.Text );
Parameters.ParamByName('receive').Value := trim(book_re_Edit.Text );
Parameters.ParamByName('BillCode').Value :=trim(book_code_Edit.Text );
Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
Parameters.ParamByName('RegDate').Value :=TmpDT;
Parameters.ParamByName('Operator').Value :=Oper.code ;
ExecSQL ;
//保险
close;
Parameters.ParamByName('StudentID').Value :=tmpid;
Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
Parameters.ParamByName('ChargeItemId').Value := 4;
Parameters.ParamByName('Quantum').Value := trim(insurance_be_Edit.Text );
Parameters.ParamByName('receive').Value := trim(insurance_re_Edit.Text );
Parameters.ParamByName('BillCode').Value :='';
Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
Parameters.ParamByName('RegDate').Value :=TmpDT;
Parameters.ParamByName('Operator').Value :=Oper.code ;
ExecSQL ;
//生活用品
close;
Parameters.ParamByName('StudentID').Value :=tmpid ;
Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
Parameters.ParamByName('ChargeItemId').Value := 5;
Parameters.ParamByName('Quantum').Value :=trim(live_be_Edit.Text );
Parameters.ParamByName('receive').Value := trim(live_re_Edit.Text );
Parameters.ParamByName('BillCode').Value :=trim(live_code_Edit.Text );
Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
Parameters.ParamByName('RegDate').Value :=TmpDT;
Parameters.ParamByName('Operator').Value :=Oper.code ;
ExecSQL ;
//保证金
close;
Parameters.ParamByName('StudentID').Value :=tmpid;
Parameters.ParamByName('ChargeRangeId').Value :=ChargeRangeId_ComboBox.Text ;
Parameters.ParamByName('StudyYear').Value :=StudyYear_ComboBox.Text ;
Parameters.ParamByName('ChargeItemId').Value := 6;
Parameters.ParamByName('Quantum').Value := trim(pledge_be_Edit.Text );
Parameters.ParamByName('receive').Value :=trim(pledge_re_Edit.Text );
Parameters.ParamByName('BillCode').Value :=trim(pledge_code_Edit.Text );
Parameters.ParamByName('ReceType').Value :=recetype_combobox.ItemIndex;
Parameters.ParamByName('RegDate').Value :=TmpDT;
Parameters.ParamByName('Operator').Value :=Oper.code ;
ExecSQL ;
if Prepared then Prepared:=false;
end;
buttonUse(false);
id_Edit.Text :=tmpid;
dm.ADOConnection.CommitTrans ;
except
on e:exception do
begin
MessageBox(application.handle,pchar(e.message),'错误',MB_ICONWARNING+MB_OK);
dm.ADOConnection.RollbackTrans ;
exit;
end;
end;
end;
procedure TFirstRegform.sum_be_EditEnter(Sender: TObject);
var
tuition,house,book,insurance,live,pledge:currency;
begin
try
tuition:=strtofloat(trim(tuition_be_Edit.Text ));
except
MessageBox(application.handle,pchar('应收学费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
tuition_be_Edit.SetFocus ;
end;
try
house:=strtofloat(trim(house_be_Edit.Text ));
except
MessageBox(application.handle,pchar('应收住宿费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
house_be_Edit.SetFocus ;
end;
try
book:=strtofloat(trim(book_be_Edit.Text ));
except
MessageBox(application.handle,pchar('应收书费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
book_be_Edit.SetFocus ;
end;
try
insurance:=strtofloat(trim(insurance_be_Edit.Text ));
except
MessageBox(application.handle,pchar('应收保险费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
insurance_be_Edit.SetFocus ;
end;
try
live:=strtofloat(trim(live_be_Edit.Text ));
except
MessageBox(application.handle,pchar('应收生活用品费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
live_be_Edit.SetFocus ;
end;
try
pledge:=strtofloat(trim(pledge_be_Edit.Text ));
except
MessageBox(application.handle,pchar('应收保证金填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
pledge_be_Edit.SetFocus ;
end;
sum_be_Edit.Text :=formatfloat('0.00',tuition+house+book+insurance+live+pledge);
end;
procedure TFirstRegform.sum_re_EditEnter(Sender: TObject);
var
tuition,house,book,insurance,live,pledge:currency;
begin
try
tuition:=strtofloat(trim(tuition_re_Edit.Text ));
except
MessageBox(application.handle,pchar('实收学费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
tuition_re_Edit.SetFocus ;
end;
try
house:=strtofloat(trim(house_re_Edit.Text ));
except
MessageBox(application.handle,pchar('实收住宿费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
house_re_Edit.SetFocus ;
end;
try
book:=strtofloat(trim(book_re_Edit.Text ));
except
MessageBox(application.handle,pchar('实收书费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
book_re_Edit.SetFocus ;
end;
try
insurance:=strtofloat(trim(insurance_re_Edit.Text ));
except
MessageBox(application.handle,pchar('实收保险费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
insurance_re_Edit.SetFocus ;
end;
try
live:=strtofloat(trim(live_re_Edit.Text ));
except
MessageBox(application.handle,pchar('实收生活用品费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
live_re_Edit.SetFocus ;
end;
try
pledge:=strtofloat(trim(pledge_re_Edit.Text ));
except
MessageBox(application.handle,pchar('实收保证金填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
pledge_re_Edit.SetFocus ;
end;
sum_re_Edit.Text :=formatfloat('0.00',tuition+house+book+insurance+live+pledge);
end;
procedure TFirstRegform.calc_bitbtnClick(Sender: TObject);
var
tuition,house,book,insurance,live,pledge:currency;
tuition1,house1,book1,insurance1,live1,pledge1:currency;
begin
try
tuition:=strtofloat(trim(tuition_be_Edit.Text ));
except
MessageBox(application.handle,pchar('应收学费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
tuition_be_Edit.SetFocus ;
end;
try
house:=strtofloat(trim(house_be_Edit.Text ));
except
MessageBox(application.handle,pchar('应收住宿费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
house_be_Edit.SetFocus ;
end;
try
book:=strtofloat(trim(book_be_Edit.Text ));
except
MessageBox(application.handle,pchar('应收书费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
book_be_Edit.SetFocus ;
end;
try
insurance:=strtofloat(trim(insurance_be_Edit.Text ));
except
MessageBox(application.handle,pchar('应收保险费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
insurance_be_Edit.SetFocus ;
end;
try
live:=strtofloat(trim(live_be_Edit.Text ));
except
MessageBox(application.handle,pchar('应收生活用品费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
live_be_Edit.SetFocus ;
end;
try
pledge:=strtofloat(trim(pledge_be_Edit.Text ));
except
MessageBox(application.handle,pchar('应收保证金填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
pledge_be_Edit.SetFocus ;
end;
try
tuition1:=strtofloat(trim(tuition_re_Edit.Text ));
except
MessageBox(application.handle,pchar('实收学费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
tuition_re_Edit.SetFocus ;
end;
try
house1:=strtofloat(trim(house_re_Edit.Text ));
except
MessageBox(application.handle,pchar('实收住宿费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
house_re_Edit.SetFocus ;
end;
try
book1:=strtofloat(trim(book_re_Edit.Text ));
except
MessageBox(application.handle,pchar('实收书费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
book_re_Edit.SetFocus ;
end;
try
insurance1:=strtofloat(trim(insurance_re_Edit.Text ));
except
MessageBox(application.handle,pchar('实收保险费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
insurance_re_Edit.SetFocus ;
end;
try
live1:=strtofloat(trim(live_re_Edit.Text ));
except
MessageBox(application.handle,pchar('实收生活用品费填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
live_re_Edit.SetFocus ;
end;
try
pledge1:=strtofloat(trim(pledge_re_Edit.Text ));
except
MessageBox(application.handle,pchar('实收保证金填写不正确!'),'错误',MB_ICONWARNING+MB_OK);
pledge_re_Edit.SetFocus ;
end;
tuition_m_Edit.Text :=formatfloat('0.00',tuition-tuition1);
house_m_Edit.Text :=formatfloat('0.00',house-house1);
book_m_Edit.Text := formatfloat('0.00',book-book1);
insurance_m_Edit.Text := formatfloat('0.00',insurance-insurance1);
live_m_Edit.Text := formatfloat('0.00',live-live1);
pledge_m_Edit.Text := formatfloat('0.00',pledge-pledge1);
sum_m_Edit.Text := formatfloat('0.00',(tuition+house+book+insurance+live+pledge)-(tuition1+house1+book1+insurance1+live1+pledge1));
end;
procedure TFirstRegform.close_BitBtnClick(Sender: TObject);
begin
if save_BitBtn.Enabled then
begin
if trim(StudentName_Edit.Text )<>'' then
if messagebox(handle,pchar('当前收费录入信息没有保存,是否保存'),'请选择',MB_ICONQUESTION +MB_YESNO)=6 then exit;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -