w_xsydxxcx.~pas

系统管理程序的源码

unit w_xsydxxcx;

interface

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

type
  Txsydxxcx = class(TForm)
    Panel2: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Panel3: TPanel;
    Button2: TButton;
    Button3: TButton;
    Button1: TButton;
    Button4: TButton;
    Button5: TButton;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBComboBox5: TDBComboBox;
    DBComboBox6: TDBComboBox;
    DBMemo1: TDBMemo;
    Button6: TButton;
    Button7: TButton;
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xsydxxcx: Txsydxxcx;

implementation

uses mydata;

{$R *.dfm}

procedure Txsydxxcx.Button5Click(Sender: TObject);
begin
button1.Enabled :=true;
button4.enabled:=false;
button5.enabled:=false;
if data.tyd.Modified then
data.tyd.Cancel;
data.tyd.Filtered:=false;
if data.txj.Filtered=true then
data.txj.Filtered:=false;
end;

procedure Txsydxxcx.Button4Click(Sender: TObject);
begin
button4.enabled:=false;
button5.Enabled :=false;
button1.Enabled:=true;

if data.tyd.Modified then
data.tyd.post;
data.tyd.filtered:=false;
dbedit1.ReadOnly :=true;
dbedit2.ReadOnly :=true;
//dbedit4.ReadOnly :=true;
//dbedit5.ReadOnly :=true;
//dbedit6.ReadOnly :=true;
//dbcombobox1.ReadOnly :=true;
dbcombobox2.ReadOnly :=true;
dbcombobox3.ReadOnly :=true;
dbcombobox4.ReadOnly :=true;
dbcombobox5.ReadOnly :=true;
dbcombobox6.ReadOnly :=true;
dbmemo1.ReadOnly :=true;
if data.txj.Filtered=true then
data.txj.Filtered:=false;
end;

procedure Txsydxxcx.SpeedButton1Click(Sender: TObject);
begin
data.txj.Close;
data.txj.Open;
if (combobox1.Text='')or(edit3.Text='') then begin
application.MessageBox('请选择查询方式和输入查询内容.','提示',mb_OK);
  // showmessage('请选择查询方式和输入查询内容')
  end else
 begin
   if combobox1.Text='学号' then data.txj.filter:='学号='''+edit3.Text+'''';
   if combobox1.Text='姓名' then data.txj.filter:='姓名='''+edit3.Text+'''';
   if combobox1.text='班级' then data.txj.filter:='班级='''+edit3.Text+'''';
    data.txj.open;
   data.txj.filtered:=true;
    if (dbedit4.Text='') and (dbedit5.Text ='') and (dbedit6.text='') then begin
   messagebeep(1);
   application.MessageBox('没有符合条件的记录!','提示',mb_OK);
   //showmessage('没有符合条件的记录!');
   if messagedlg('是否继续查询？',mtinformation,[mbyes,mbno],0)=mrno then
     begin
     data.txj.filtered:=false;
     end;
     end;
     end;
end;

procedure Txsydxxcx.Button2Click(Sender: TObject);
begin

data.txj.Prior ;
 if (data.txj.bof=true) then
  begin
    button2.Enabled:=false;
  end;
   button3.Enabled:=true;
 
end;

procedure Txsydxxcx.Button3Click(Sender: TObject);
begin

data.txj.Next;
if (data.txj.eof=true) then
   begin
    button3.Enabled:=false;

   end;
    button2.Enabled :=true;

end;

procedure Txsydxxcx.Button1Click(Sender: TObject);
begin
data.tyd.edit;
button1.Enabled :=false;
button4.Enabled:=true;
button5.Enabled :=true;
dbedit1.ReadOnly :=false;
dbedit2.ReadOnly :=false;
//dbedit4.ReadOnly :=false;
//dbedit5.ReadOnly :=false;
//dbedit6.ReadOnly :=false;
//dbcombobox1.ReadOnly :=false;
dbcombobox2.ReadOnly :=false;
dbcombobox3.ReadOnly :=false;
dbcombobox4.ReadOnly :=false;
dbcombobox5.ReadOnly :=false;
dbcombobox6.ReadOnly :=false;
dbmemo1.ReadOnly :=false;

end;

procedure Txsydxxcx.SpeedButton2Click(Sender: TObject);
begin
data.txj.close;
data.txj.Open;
if data.txj.Filtered=true then
data.txj.Filtered:=false;
end;

procedure Txsydxxcx.Button6Click(Sender: TObject);
begin

xsydxxcx.Close;
end;

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

procedure Txsydxxcx.Button7Click(Sender: TObject);
begin
data.tyd.Edit;
if  messagedlg('是否真的要删除此记录？',mtinformation,[mbyes,mbno],0)=mryes then
begin
data.tyd.Delete;
if data.tyd.Modified then
data.tyd.Post;
end;
if data.txj.Filtered=true then
data.txj.Filtered:=false;
end;

end.