?? vcdhz.~pas
字號:
if not dm.ADO_czdt.Locate('證號',e_yjid.Text,[]) then
begin
Application.MessageBox(PChar('無此零租用戶租借記錄,請重新錄入！')
, PChar('提示'),MB_ICONEXCLAMATION);
e_yjid.Text:='';
e_yjid.SetFocus();
end
else
begin
e_yj.Text:=formatfloat('0.00',dm.ADO_czdt.fieldbyname('押金').Asfloat);
dm.adoq_czbtmp.Close;
dm.adoq_czbtmp.SQL.Clear;
sqlz:='insert into czbtmp select * from czb where 證號='+'"'+e_yjid.text+'"';
dm.adoq_czbtmp.SQL.Add(sqlz);
dm.adoq_czbtmp.ExecSQL;
dm.ADO_czbtmp.close;
dm.ADO_czbtmp.Open;
dm.ado_qk.open;
dm.ado_qk.first;
if dm.ado_qk.locate('證號',e_yjid.Text,[]) then
e_qk.Text:=formatfloat('0.00',dm.ado_qk.fieldbyname('金額').asfloat);
dm.ado_qk.Close;
e_vcdid.SetFocus();
end;
end;
procedure TF_vcdhz.e_vcdidExit(Sender: TObject);
begin
if e_vcdid.Text='' then exit;
case group_zlr.ItemIndex of
0:if e_hyid.Text='' then hylzcx;
1:if e_yjid.Text='' then hylzcx;
end;
if not dm.ADO_czbtmp.Locate('編號',e_vcdid.Text,[]) then
begin
Application.MessageBox(PChar('用戶未租借此圖書(影碟),請檢查！')
, PChar('提示'),MB_ICONEXCLAMATION);
e_vcdid.Text:='';
e_vcdid.SetFocus();
exit;
end
else
begin
dm.ADO_czbtmp.Edit;
dm.ADO_czbtmp.FieldByName('狀態').AsString:='已還';
dm.ADO_czbtmp.Post;
end;
ysje;
e_vcdid.Text:='';
e_vcdid.SetFocus();
end;
procedure TF_vcdhz.e_ssExit(Sender: TObject);
begin
if e_ss.text='' then e_ss.Text:='0.00';
e_ss.Text:=formatfloat('0.00',strtofloat(e_ss.text));
end;
procedure TF_vcdhz.e_ssKeyPress(Sender: TObject; var Key: Char);
begin
if not ( Key in ['0'..'9',#13,#8,'.']) then Key := #0;
end;
procedure TF_vcdhz.e_thyjExit(Sender: TObject);
begin
if e_thyj.text='' then e_thyj.Text:='0.00';
e_thyj.Text:=formatfloat('0.00',strtofloat(e_thyj.text));
end;
procedure TF_vcdhz.e_thyjKeyPress(Sender: TObject; var Key: Char);
begin
if not ( Key in ['0'..'9',#13,#8,'.']) then Key := #0;
end;
procedure TF_vcdhz.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if dm.ADO_czbtmp.FieldByName('狀態').AsString='已還' then
DBGrid1.Canvas.Font.Color := clred;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
procedure TF_vcdhz.b_okClick(Sender: TObject);
begin
if (dm.ADO_czbtmp.IsEmpty) or not dm.ADO_czbtmp.Locate('狀態','已還',[]) then
begin
application.MessageBox(pchar('無圖書、影碟的還租資料,不能結算！')
,pchar('提示'),MB_ICONEXCLAMATION);
exit;
end;
if group_zlr.ItemIndex=1 then
begin
if strtofloat(e_thyj.text)>strtofloat(e_yj.Text) then
begin
application.MessageBox(pchar('退還押金大于原預收押金,請檢查！')
,pchar('提示'),MB_ICONEXCLAMATION);
exit;
end;
end;
//恢復tsvcd庫中已租記錄
dm.ADO_czbtmp.First;
while not dm.ADO_czbtmp.eof do
begin
if dm.ADO_czbtmp.FieldByName('狀態').AsString='已還' then
begin
dm.ADO_vcd.Open;
dm.ADO_vcd.Locate('編號',dm.ADO_czbtmp.fieldbyname('編號').AsString,[]);
dm.ADO_vcd.Edit;
dm.ado_vcd.FieldByName('狀態').AsString:='未租';
dm.ADO_vcd.Post;
dm.ADO_vcd.Close;
end;
dm.ADO_czbtmp.Next;
end;
//刪除czb中多余記錄
case group_zlr.ItemIndex of
0: begin
dm.ADOQ_czbtmp.Close;
dm.ADOQ_czbtmp.SQL.Clear;
dm.ADOQ_czbtmp.SQL.Add('delete from czb where 證號='+'"'+e_hyid.Text+'"');
dm.adoq_czbtmp.ExecSQL;
dm.ADOQ_czbtmp.Close;
end;
1:begin
dm.ADOQ_czbtmp.Close;
dm.ADOQ_czbtmp.SQL.Clear;
dm.ADOQ_czbtmp.SQL.Add('delete from czb where 證號='+'"'+e_yjid.Text+'"');
dm.adoq_czbtmp.ExecSQL;
dm.ADOQ_czbtmp.Close;
end;
2:begin
dm.ADOQ_czbtmp.Close;
dm.ADOQ_czbtmp.SQL.Clear;
dm.ADOQ_czbtmp.SQL.Add('delete from czb where 證號= "親朋" ');
//and 編號='+'"'+e_vcdid.Text+'"' );
dm.adoq_czbtmp.ExecSQL;
dm.ADOQ_czbtmp.Close;
end;
end;
//添加記錄
dm.ADOQ_czbtmp.Close;
dm.ADOQ_czbtmp.SQL.Clear;
dm.ADOQ_czbtmp.SQL.Add('insert into czb select * from czbtmp where 狀態='+'"'+'未還'+'"');
dm.adoq_czbtmp.ExecSQL;
dm.ADOQ_czbtmp.Close;
//判斷能否刪除czdt記錄
dm.ADO_czbtmp.First;
if dm.ADO_czbtmp.Locate('狀態','未還',[]) then
else
begin
case group_zlr.ItemIndex of
0:begin
dm.ADOQ_czbtmp.Close;
dm.ADOQ_czbtmp.SQL.Clear;
dm.ADOQ_czbtmp.SQL.Add('delete from czdt where 證號='+'"'+e_hyid.Text+'"');
dm.adoq_czbtmp.ExecSQL;
dm.ADOQ_czbtmp.Close;
end;
1:begin
if strtofloat(e_thyj.Text)=strtofloat(e_yj.Text) then
begin
dm.ADOQ_czbtmp.Close;
dm.ADOQ_czbtmp.SQL.Clear;
dm.ADOQ_czbtmp.SQL.Add('delete from czdt where 證號='+'"'+e_yjid.Text+'"');
dm.adoq_czbtmp.ExecSQL;
dm.ADOQ_czbtmp.Close;
end;
end;
end;
end;
//欠款及現金庫寫入
case group_zlr.ItemIndex of
0:hylzbh:=e_hyid.Text;
1:hylzbh:=e_yjid.Text;
2:exit;
end;
dm.ADO_qk.Open;
if (strtofloat(e_ys.Text)+ strtofloat(e_qk.Text)-strtofloat(e_ss.Text)>0)
or (strtofloat(e_ys.Text)+ strtofloat(e_qk.Text)-strtofloat(e_ss.Text)<0) then
begin
if not dm.ADO_qk.Locate('證號',hylzbh,[]) then
dm.ADO_qk.AppendRecord([hylzbh,(strtofloat(e_ys.Text)+ strtofloat(e_qk.Text)-strtofloat(e_ss.Text))])
else
begin
dm.ADO_qk.Edit;
dm.ADO_qk.FieldByName('金額').AsFloat:=strtofloat(e_ys.Text)+ strtofloat(e_qk.Text)-strtofloat(e_ss.Text);
dm.ADO_qk.Post;
end;
end
else
begin
if dm.ADO_qk.Locate('證號',hylzbh,[]) then
begin
//dm.ADO_qk.Edit;
dm.ADO_qk.Delete;
//dm.ADO_qk.Post;
end;
end;
dm.ADO_qk.Close;
if e_ss.text<>'0.00' then
begin
dm.ADO_cash.Open;
dm.ADO_cash.AppendRecord([hylzbh,date(),'收租金',e_ss.text]);
dm.ADO_cash.Close;
end;
//退押金
if group_zlr.ItemIndex=1 then
begin
if strtofloat(e_thyj.text)<strtofloat(e_yj.Text) then
begin
dm.ADO_czdt.Open;
dm.ADO_czdt.First;
dm.ADO_czdt.Locate('證號',hylzbh,[]);
dm.ADO_czdt.Edit;
dm.ADO_czdt.fieldbyname('押金').asfloat:=strtofloat(e_yj.Text)-strtofloat(e_thyj.text);
dm.ado_czdt.Post;
dm.ado_czdt.Close;
end;
if e_thyj.Text<>'0.00' then
begin
dm.ADO_cash.Open;
dm.ADO_cash.AppendRecord([hylzbh,date(),'退零租押金','0.00',e_thyj.text]);
dm.ADO_cash.Close;
end;
end;
e_hyid.Text:='';
e_yjid.Text:='';
e_yj.Text:='0.00';
e_zlname.Text:='';
e_zlsex.Text:='';
e_zlzlx.Text:='';
e_zlyj.Text:='';
e_zltel.Text:='';
e_qk.Text:='0.00';
e_ys.Text:='0.00';
e_ss.Text:='0.00';
e_thyj.Text:='0.00';
//刪除臨時記錄
dm.ADOQ_czbtmp.SQL.Clear;
dm.ADOQ_czbtmp.SQL.Add('delete from czbtmp');
dm.adoq_czbtmp.ExecSQL;
dm.ADO_czbtmp.Close;
e_vcdid.SetFocus();
end;
procedure TF_vcdhz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.adoq_czbtmp.SQL.Clear;
dm.ADOQ_czbtmp.SQL.Add('delete from czbtmp');
dm.ADOQ_czbtmp.ExecSQL;
dm.adoq_czbtmp.Close;
dm.ADO_czbtmp.Close;
dm.ADO_czb.Close;
dm.ADO_czdt.Close;
dm.ADO_qk.Close;
dm.ADO_cash.Close;
dm.ADO_vip.Close;
dm.ADO_vcd.Close;
release;
end;
procedure TF_vcdhz.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
perform(wm_nextdlgctl,0,0);
end;
end;
procedure TF_vcdhz.FormActivate(Sender: TObject);
begin
ztl.Panels[1].Text:=' 當前日期：'+datetostr(date());
end;
procedure TF_vcdhz.FormShow(Sender: TObject);
begin
e_hyid.SetFocus();
e_ys.Text:='0.00';
e_ss.Text:='0.00';
e_thyj.Enabled:=false;
e_thyj.Color:=cl3dlight;
e_thyj.Text:='0.00';
end;
procedure TF_vcdhz.FormCreate(Sender: TObject);
begin
dm.adoq_czbtmp.SQL.Clear;
dm.ADOQ_czbtmp.SQL.Add('delete from czbtmp');
dm.ADOQ_czbtmp.ExecSQL;
dm.adoq_czbtmp.Close;
dm.ADO_czbtmp.Close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -