modify.pas

一个用Delphi做的不错的学生宿舍管理系统！界面比前一个好看！

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;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    GroupBox7: TGroupBox;
    ImageList1: TImageList;
    DBGrid1: TDBGrid;
    ToolBar1: TToolBar;
    tbfirst: TToolButton;
    TBprior: TToolButton;
    TBNext: TToolButton;
    TBLast: TToolButton;
    TBQuery: TToolButton;
    TBModify: TToolButton;
    Tbcancel: TToolButton;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    DBGrid5: TDBGrid;
    DBGrid6: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    Label12: TLabel;
    DBEdit3: TDBEdit;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBMemo1: TDBMemo;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    Label32: TLabel;
    DBMemo2: TDBMemo;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    DBMemo3: TDBMemo;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    DBEdit37: TDBEdit;
    DBEdit38: TDBEdit;
    DBEdit39: TDBEdit;
    DBEdit40: TDBEdit;
    DBEdit41: TDBEdit;
    DBEdit42: TDBEdit;
    DBEdit43: TDBEdit;
    DBEdit44: TDBEdit;
    Label51: TLabel;
    DBMemo4: TDBMemo;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    DBEdit45: TDBEdit;
    DBEdit46: TDBEdit;
    DBEdit47: TDBEdit;
    DBEdit48: TDBEdit;
    DBEdit49: TDBEdit;
    DBEdit50: TDBEdit;
    DBEdit51: TDBEdit;
    DBEdit52: TDBEdit;
    DBMemo5: TDBMemo;
    XPMenu1: TXPMenu;
    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);
  private
    { Private declarations }
  public
  username:string;
  flags:boolean;
    { Public declarations }
  end;

var
  ModifyForm: TModifyForm;

implementation
uses md,subquery;

{$R *.dfm}


procedure TModifyForm.DBGrid2Enter(Sender: TObject);
begin
DBgrid2.DataSource:=datamd.DSorder;
end;
//判断当前所有选择的活动页,记录移到第一条
procedure TModifyForm.tbfirstClick(Sender: TObject);
begin
case pagecontrol1.ActivePageIndex of
     0:datamd.ADOOrder.First;  //学生基本情况
     1:datamd.ADOWorth.First;
     2:datamd.ADOEnrol.First;
     3:datamd.ADOVisit.First;
     4:datamd.ADORegiste.First;
     5:datamd.ADOEmpleer.First;
end;
end;
//判断当前所有选择的活动页,记录移到前一条
procedure TModifyForm.TBpriorClick(Sender: TObject);
begin
case pagecontrol1.ActivePageIndex of
     0:datamd.ADOOrder.Prior;
     1:datamd.ADOWorth.prior;
     2:datamd.ADOEnrol.prior;
     3:datamd.ADOVisit.prior;
     4:datamd.ADORegiste.prior;
     5:datamd.ADOEmpleer.prior;
end;
end;
//判断当前所有选择的活动页,记录移到后一条
procedure TModifyForm.TBNextClick(Sender: TObject);
begin
case pagecontrol1.ActivePageIndex of
     0:datamd.ADOOrder.next;
     1:datamd.ADOWorth.next;
     2:datamd.ADOEnrol.next;
     3:datamd.ADOVisit.next;
     4:datamd.ADORegiste.next;
     5:datamd.ADOEmpleer.next;
end;
end;
//判断当前所有选择的活动页,记录移到最后一条
procedure TModifyForm.TBLastClick(Sender: TObject);
begin
case pagecontrol1.ActivePageIndex of
     0:datamd.ADOOrder.last;
     1:datamd.ADOWorth.last;
     2:datamd.ADOEnrol.last;
     3:datamd.ADOVisit.last;
     4:datamd.ADORegiste.last;
     5:datamd.ADOEmpleer.last;
end;
end;
//判断当前所有选择的活动页,修改当前的记录
procedure TModifyForm.TBModifyClick(Sender: TObject);
begin
case pagecontrol1.ActivePageIndex of
     0:
     begin  //学生基本资料表
     datamd.ADOOrder.Edit;
     datamd.ADOOrder.post;
     end;
     1:
     begin //个人财物表
     datamd.ADOWorth.edit;
     datamd.ADOWorth.post;
     end;
     2:
     begin //出楼登记表
     datamd.ADOEnrol.edit;
     datamd.ADOEnrol.post;
     end;
     3:
     begin //亲人来访表
     datamd.ADOVisit.edit;
     datamd.ADOVisit.post;
     end;
     4:
     begin //学生注册表
     datamd.ADORegiste.edit;
     datamd.ADORegiste.post;
     end;
     5:
     begin //员工资料表
     datamd.ADOEmpleer.edit;
     datamd.ADOEmpleer.post;
     end;
end;
end;
///判断当前所有选择的活动页,取消发前记录的修改
procedure TModifyForm.TbcancelClick(Sender: TObject);
begin
case pagecontrol1.ActivePageIndex of
     0:datamd.ADOOrder.cancel;  //学生基本情况表
     1:datamd.ADOWorth.cancel;  //学生财物表
     2:datamd.ADOEnrol.cancel;  //学生出楼货物登记表
     3:datamd.ADOVisit.cancel;  //亲人来访登记表
     4:datamd.ADORegiste.cancel; //学生注册表
     5:datamd.ADOEmpleer.cancel; //员工资料表
end;
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.ADOOrder do //学生基本情况表
       begin
       close;
       sql.Clear;
       sql.Add('select * from tborder where 姓名='''+username+'''');
       open;
       update;
       end;
     end;
     1:
     begin
     with datamd.ADOWorth do //个人财物表
       begin
       close;
       sql.Clear;
       sql.Add('select * from worth where 姓名='''+username+'''');
       open;
       update;
       end;
     end;
     2:
     begin
     with datamd.ADOEnrol do //出楼登记表
       begin
       close;
       sql.Clear;
       sql.Add('select * from tbEnrol where 姓名='''+username+'''');
       open;
       update;
       end;
     end;
     3:
     begin
     with datamd.ADOVisit do  //来访登记表
       begin
       close;
       sql.Clear;
       sql.Add('select * from visit where 来访姓名='''+username+'''');
       open;
       update;
       end;
     end;
     4:
     begin
     with datamd.ADORegiste do //学生注册表
       begin
       close;
       sql.Clear;
       sql.Add('select * from registe where 姓名='''+username+'''');
       open;
       update;
       end;
     end;
     5:
     begin
     with datamd.ADOEmpleer do //员工资料表
       begin
       close;
       sql.Clear;
       sql.Add('select * from empleer where 姓名='''+username+'''');
       open;
       update;
       end;
     end;
 end;
end;
end;

end.