w_xsxxxg.pas

系统管理程序的源码

unit w_xsxxxg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, StdCtrls, Buttons, Mask, Grids, DBGrids, ExtCtrls;

type
  Txsxxxg = class(TForm)
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DBNavigator1: TDBNavigator;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    SpeedButton5: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
 

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xsxxxg: Txsxxxg;

implementation

uses mydata;

{$R *.dfm}

procedure Txsxxxg.SpeedButton2Click(Sender: TObject);
begin
if data.txj.Modified then
    data.txj.Post ;
if data.txj.filtered=true then
data.txj.Filtered:=false;

end;

procedure Txsxxxg.SpeedButton1Click(Sender: TObject);
begin
dbgrid1.ReadOnly :=false;

 if (combobox1.text='')or(edit2.text='') then
   data.txj.Edit
 else
 begin
  if combobox1.Text='学号' then data.txj.filter:='学号='''+edit2.Text+'''';
   if combobox1.Text='姓名' then data.txj.filter:='姓名='''+edit2.Text+'''';
   if combobox1.text='班级' then data.txj.filter:='班级='''+edit2.Text+'''';
    data.txj.open;
   data.txj.filtered:=true;
    if data.txj.RecordCount=0 then begin
   messagebeep(1);
   application.MessageBox('没有符合条件的记录!','提示',mb_OK);
   //showmessage('没有你要修改的记录!');
   if messagedlg('是否继续进行修改？',mtinformation,[mbyes,mbno],0)=mrno then
     begin
     data.txj.filtered:=false;

     end;
     end
     else begin
     data.txj.Edit;
     dbgrid1.Enabled :=true;
     end;
 end;
     end;
procedure Txsxxxg.SpeedButton3Click(Sender: TObject);
begin
if data.txj.Modified then
    data.txj.Cancel  ;
if data.txj.filtered=true then
data.txj.Filtered:=false;
end;

procedure Txsxxxg.SpeedButton4Click(Sender: TObject);
begin
xsxxxg.Close;
end;

procedure Txsxxxg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if data.txj.filtered=true then
data.txj.Filtered:=false;
end;

procedure Txsxxxg.BitBtn1Click(Sender: TObject);
begin
data.txj.Edit;
 if messagedlg('是否真的要删除？',mtinformation,[mbyes,mbno],0)=mryes then
 begin
 data.txj.Delete;
 data.txj.Post ;
 end
 else
 data.txj.Cancel ;
 end;


procedure Txsxxxg.SpeedButton5Click(Sender: TObject);
begin
data.txj.Edit;
 if messagedlg('是否真的要删除？',mtinformation,[mbyes,mbno],0)=mryes then
 begin
 data.txj.Edit;
 data.txj.Delete;
 if data.txj.Modified then
 data.txj.Post ;
 end
 else
 data.txj.Cancel ;
 
end;

end.