fununit.pas

银行利息统计！可以很好的适用于Windows操作系统下的

unit FunUnit;

interface


type
 TFunciton=class(Tobject)
 public
 procedure impor(s:string);
 end;

var
Fun:TFunciton;

 implementation

uses DataModule, MainUnit,Dialogs,SysUtils;

procedure TFunciton.impor(s:string);
var
 Snum:string;
 TID:integer;
 num,Cash:double;
 //Da:TDateTime;
begin
 //add you code
  //showmessage(s);
  num:=0;
  Cash:=0.0;
  TID:=0;
  DataModule1.ObtainQuery.Close;
  DataModule1.ObtainQuery.SQL.Clear;
  DataModule1.ObtainQuery.SQL.Add('select * from maintable');
 try
   DataModule1.ObtainQuery.ExecSQL;
    while not DataModule1.ObtainQuery.Eof do
        begin
        DataModule1.ObtainQuery.Next;
        end;
   Datamodule1.ObtainQuery.Open;
   num:=mainForm.DBGrid1.Fields[2].AsFloat;
   //Snum:=trim(mainForm.ResuiEdit1.Text);
   Cash:=200.1;
   TID:=mainForm.DBGrid1.Fields[0].AsInteger;
    except
    showmessage('获取信息失败～！');
  end;
   showmessage(s);
  DataModule1.oprQuery.Close;
  DataModule1.oprQuery.SQL.Clear;
  if(s='还款设置清单：') then
    begin
    showmessage('1');
      DataModule1.oprQuery.SQL.Add( 'INSERT INTO maintable (Salesman,CashNum,Interest,RturnCash ) VALUES ( ');
      showmessage('2');
      DataModule1.oprQuery.SQL.Add(MainForm.DBGrid1.Fields[1].AsString+''','''+floattostr(num+Cash)+''','''+MainForm.DBGrid1.Fields[3].AsString+''',''');
      DataModule1.oprQuery.SQL.Add(floattostr(Cash)+')');
      showmessage(datamodule1.oprQuery.SQL.Text);
    end;
  if(s='借款设置清单：')   then
        begin
      DataModule1.oprQuery.SQL.Add( 'INSERT INTO maintable (Salesman,CashNum,Interest,BorrowCash) VALUES ( ');
      DataModule1.oprQuery.SQL.Add(MainForm.DBGrid1.Fields[1].AsString+''','''+floattostr(num-Cash)+''','''+MainForm.DBGrid1.Fields[3].AsString+''',''');
      DataModule1.oprQuery.SQL.Add(floattostr(Cash)+')');
      showmessage(datamodule1.oprQuery.SQL.Text);
        end;
  if(s='改息设置清单：')   then
        begin
        DataModule1.oprQuery.SQL.Add('update  maintable set Interest=:str1 where ID=:TID');
        DataModule1.oprQuery.ParamByName('Str1').AsFloat:=0.26;
        DataModule1.oprQuery.ParamByName('TID').AsInteger:=TID;
        showmessage(datamodule1.oprQuery.SQL.Text);
        end;
  try
   DataModule1.oprQuery.ExecSQL;
   except
     showmessage('操作失败～！');
   end;
end;  

end.