modify.pas

银行学生助学贷款管理系统 随着社会的进步

unit Modify;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, Grids, DBGrids, ImgList,
  ToolWin, DBCtrls, Mask, XPMenu;

type
  TModifyForm = class(TForm)
    GroupBox: TGroupBox;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    tbfirst: TToolButton;
    TBprior: TToolButton;
    TBNext: TToolButton;
    TBLast: TToolButton;
    TBQuery: TToolButton;
    TBModify: TToolButton;
    Tbcancel: TToolButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label61: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    TabSheet2: TTabSheet;
    GroupBox3: TGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    DBGrid3: TDBGrid;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    Label25: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label26: TLabel;
    DBEdit10: TDBEdit;
    Label27: TLabel;
    DBEdit11: TDBEdit;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    DBMemo2: TDBMemo;
    Label5: TLabel;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBGrid2: TDBGrid;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    Label15: TLabel;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    ToolButton1: TToolButton;
    Label19: TLabel;
    DBEdit16: TDBEdit;
    Label20: TLabel;
    DBEdit17: TDBEdit;
    procedure DBGrid2Enter(Sender: TObject);
    procedure tbfirstClick(Sender: TObject);
    procedure TBpriorClick(Sender: TObject);
    procedure TBNextClick(Sender: TObject);
    procedure TBLastClick(Sender: TObject);
    procedure TBModifyClick(Sender: TObject);
    procedure TbcancelClick(Sender: TObject);
    procedure TBQueryClick(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
  username:string;
  flags:boolean;
    { Public declarations }
  end;

var
  ModifyForm: TModifyForm;

implementation
uses md;

{$R *.dfm}


procedure TModifyForm.DBGrid2Enter(Sender: TObject);
begin
   DBgrid2.DataSource:=datamd.studentDataSource;
end;
//判断当前所有选择的活动页,记录移到第一条
procedure TModifyForm.tbfirstClick(Sender: TObject);
begin
case pagecontrol1.ActivePageIndex of
     0:
     begin

        datamd.ADOQuerystudent.First;  //学生基本情况

     end;
     1:
     begin

     datamd.ADOQuerymoney.First;    //贷款情况
     
     end;
end;
end;
//判断当前所有选择的活动页,记录移到前一条
procedure TModifyForm.TBpriorClick(Sender: TObject);
begin
case pagecontrol1.ActivePageIndex of
     0:datamd.ADOQuerystudent.Prior;
     1:datamd.ADOQuerymoney.Prior;

end;
end;
//判断当前所有选择的活动页,记录移到后一条
procedure TModifyForm.TBNextClick(Sender: TObject);
begin
case pagecontrol1.ActivePageIndex of
     0:datamd.ADOQuerystudent.next;
     1:datamd.ADOQuerymoney.next;
end;
end;
//判断当前所有选择的活动页,记录移到最后一条
procedure TModifyForm.TBLastClick(Sender: TObject);
begin
case pagecontrol1.ActivePageIndex of
     0:datamd.ADOQuerystudent.last;
     1:datamd.ADOQuerymoney.last;

end;
end;
//判断当前所有选择的活动页,修改当前的记录
procedure TModifyForm.TBModifyClick(Sender: TObject);
begin
case pagecontrol1.ActivePageIndex of
     0:
     begin  //学生资料表
     datamd.ADOQuerystudent.Edit;
     datamd.ADOQuerystudent.post;
     end;
     1:
     begin  //贷款资料表
     datamd.ADOQuerymoney.Edit;
     datamd.ADOQuerymoney.post;
     end;
end;
end;

///判断当前所有选择的活动页,取消发前记录的修改
procedure TModifyForm.TbcancelClick(Sender: TObject);
begin
case pagecontrol1.ActivePageIndex of
     0:datamd.ADOQuerystudent.cancel;  //学生基本情况表
     1:datamd.ADOQuerymoney.cancel;
end;
close;
end;
//判断当前所有选择的活动页,查询相应的数据表记录
procedure TModifyForm.TBQueryClick(Sender: TObject);
begin
//application.CreateForm(TsubQform,subqform);
//subqform.ShowModal;
//subqform.Free;
if  flags then
begin
case modifyform.PageControl1.ActivePageIndex of
     0:
     begin
     with datamd.ADOQuerystudent do //学生基本情况表
       begin
       close;
       sql.Clear;
       sql.Add('select * from student where 姓名='''+username+'''');
       open;
       update;
       end;
     end;
     1:
     begin
     with datamd.ADOQuerymoney do //个人贷款表
       begin
       close;
       sql.Clear;
       sql.Add('select * from tmoney where 姓名='''+username+'''');
       open;
       update;
       end;
     end;
     
 end;
end;

end;

procedure TModifyForm.ToolButton1Click(Sender: TObject);
begin
   case pagecontrol1.ActivePageIndex of
     0:
     begin  //学生资料表
     datamd.ADOQuerystudent.Edit;
     datamd.ADOQuerystudent.Delete;
     end;
     1:
     begin  //贷款资料表
     datamd.ADOQuerymoney.Edit;
     datamd.ADOQuerymoney.Delete;
     end;
end;
end;

procedure TModifyForm.FormCreate(Sender: TObject);
begin
datamd.ADOQuerymange.Open ;
datamd.ADOQuerystudent.Open ;
datamd.ADOQuerymoney.Open ;
end;

end.