mainunit.pas

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

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUITitleBar, SUIForm, Menus, SUIMainMenu, SUIButton,
  StdCtrls, SUIEdit, AAFont, AACtrls, jpeg, SUIImagePanel, Grids, DBGrids;

type
  TMainForm = class(TForm)
    suiForm1: TsuiForm;
    suiMainMenu1: TsuiMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    About1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
    RePanel: TPanel;
    MAALabel: TAALabel;
    AALabel3: TAALabel;
    AALabel4: TAALabel;
    AALabel5: TAALabel;
    AALabel6: TAALabel;
    Panel1: TPanel;
    ResuiButton1: TsuiButton;
    ResuiButton2: TsuiButton;
    ResuiButton3: TsuiButton;
    ResuiEdit1: TsuiEdit;
    ResuiEdit2: TsuiEdit;
    suiImagePanel1: TsuiImagePanel;
    suiEdit1: TsuiEdit;
    suiEdit2: TsuiEdit;
    ResuiEdit3: TsuiEdit;
    ResuiEdit4: TsuiEdit;
    AALabel1: TLabel;
    AALabel2: TLabel;
    FindPanel: TPanel;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure ResuiButton2Click(Sender: TObject);
    procedure ResuiButton3Click(Sender: TObject);
    procedure ResuiButton1Click(Sender: TObject);
   // procedure ResuiButton3MouseEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses DataModule, EnterUnit, FunUnit;

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
 EnterUnit.EnterForm.Hide;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
EnterUnit.EnterForm.Close;
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
EnterUnit.EnterForm.Close; 
end;

procedure TMainForm.suiButton1Click(Sender: TObject);
begin
   self.AALabel1.Caption:='还款金额：';
   self.AALabel2.Caption:='还款日期：';
   self.MAALabel.Caption:='还款设置清单：';
   self.RePanel.Show;
   self.FindPanel.Hide;
end;

procedure TMainForm.suiButton2Click(Sender: TObject);
begin
 self.AALabel1.Caption:='借款金额：';
 self.AALabel2.Caption:='借款日期：';
 self.MAALabel.Caption:='借款设置清单：';
 self.RePanel.Show;
 self.FindPanel.Hide;
end;

procedure TMainForm.suiButton3Click(Sender: TObject);
begin
 self.AALabel1.Caption:='更改利息：';
 self.AALabel2.Caption:='改息日期：';
 self.MAALabel.Caption:='改息设置清单：';
 self.RePanel.Show;
 self.FindPanel.Hide;
end;

procedure TMainForm.suiButton4Click(Sender: TObject);
begin
self.RePanel.Hide;
self.FindPanel.Show;
self.DBGrid1.Show;
Datamodule1.ObtainQuery.Close;
Datamodule1.ObtainQuery.SQL.Clear;
Datamodule1.ObtainQuery.SQL.Add('select * from maintable');
try
 datamodule1.ObtainQuery.Open;
 except
 showmessage('打开数据库出错！');
 end;
end;

procedure TMainForm.N7Click(Sender: TObject);
begin
   self.AALabel1.Caption:='还款金额：';
   self.AALabel2.Caption:='还款日期：';
   self.MAALabel.Caption:='还款设置清单：';
   self.RePanel.Show;
   self.FindPanel.Hide;
end;

procedure TMainForm.N8Click(Sender: TObject);
begin
 self.AALabel1.Caption:='借款金额：';
 self.AALabel2.Caption:='借款日期：';
 self.MAALabel.Caption:='借款设置清单：';
 self.RePanel.Show;
 self.FindPanel.Hide;
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
 self.AALabel1.Caption:='更改利息：';
 self.AALabel2.Caption:='改息日期：';
 self.MAALabel.Caption:='改息设置清单：';
 self.RePanel.Show;
 self.FindPanel.Hide;
 
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
self.RePanel.Hide;
self.FindPanel.Show;
self.DBGrid1.Show;
Datamodule1.ObtainQuery.Close;
Datamodule1.ObtainQuery.SQL.Clear;
Datamodule1.ObtainQuery.SQL.Add('select * from maintable');
try
 datamodule1.ObtainQuery.Open;
 except
 showmessage('打开数据库出错！');
 end;
end;

procedure TMainForm.ResuiButton2Click(Sender: TObject);
begin
self.ResuiEdit1.Text:='';
self.ResuiEdit2.Text:='';
self.ResuiEdit3.Text:='';
self.ResuiEdit4.Text:='';
self.suiEdit1.Clear;
self.suiEdit2.Clear;
end;

procedure TMainForm.ResuiButton3Click(Sender: TObject);
begin
 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;
    self.ResuiEdit3.Text:=self.DBGrid1.Fields[1].AsString;
    self.ResuiEdit4.Text:=self.DBGrid1.Fields[3].AsString;
    self.suiEdit1.Text:=self.DBGrid1.Fields[2].AsString;
    self.suiEdit2.Text:=self.DBGrid1.Fields[3].AsString;
 except
    showmessage('获取信息失败～！');
end;

end;

procedure TMainForm.ResuiButton1Click(Sender: TObject);
var
 s:string;
begin
 s:=self.MAALabel.Caption;
 Fun.impor(s);
end;

end.