w_xscjxg.pas

系统管理程序的源码

unit w_xscjxg;

interface

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

type
  Txscjxg = class(TForm)
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Edit2: TEdit;
    Panel3: TPanel;
    DBNavigator1: TDBNavigator;
    SpeedButton4: TSpeedButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBLookupComboBox1: TDBLookupComboBox;
    SpeedButton1: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);


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

var
  xscjxg: Txscjxg;

implementation

uses mydata;

{$R *.dfm}

procedure Txscjxg.SpeedButton1Click(Sender: TObject);
begin

if edit2.Text='' then begin
   data.txj.Edit;data.tcj.Edit; end else
 begin
    data.txj.open;
 data.txj.filter:='学号='''+edit2.Text+'''';
  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
     else
     begin
     data.tcj.Edit; end;
     end;
     end;
end;

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

procedure Txscjxg.SpeedButton4Click(Sender: TObject);
begin
xscjxg.Close;
end;

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



procedure Txscjxg.SpeedButton3Click(Sender: TObject);
begin
if data.tcj.Modified then
data.tcj.Post;
if data.tcj.filtered=true then
data.tcj.Filtered:=false;

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

procedure Txscjxg.FormShow(Sender: TObject);
begin
data.tcj.Close;
data.tcj.Open;
data.txj.Close;
data.txj.Open;
end;

end.