u_base.pas

delphi编的排课管理系统

unit u_base;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxLookAndFeelPainters, StdCtrls, cxButtons, cxMaskEdit,
  cxDropDownEdit, cxCurrencyEdit, cxControls, cxContainer, cxEdit,
  cxTextEdit, ExtCtrls, Grids, DBGridEh, DB, ADODB, jpeg, DBTables, DBCtrls;

type
  Tf_base = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    DBGridEh3: TDBGridEh;
    GroupBox4: TGroupBox;
    DBGridEh4: TDBGridEh;
    panel2: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    e_name: TcxTextEdit;
    e_code: TcxCurrencyEdit;
    Image1: TImage;
    Panel1: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Image2: TImage;
    c_code: TcxTextEdit;
    c_name: TcxCurrencyEdit;
    c_kind: TcxComboBox;
    cxButton3: TcxButton;
    Panel3: TPanel;
    Label12: TLabel;
    Label13: TLabel;
    Label15: TLabel;
    Image3: TImage;
    k_code: TcxTextEdit;
    k_xueshi: TcxCurrencyEdit;
    Panel4: TPanel;
    Label17: TLabel;
    Label18: TLabel;
    Image4: TImage;
    t_name: TcxTextEdit;
    Bevel1: TBevel;
    cxButton9: TcxButton;
    cxButton1: TcxButton;
    k_name: TcxTextEdit;
    cxButton2: TcxButton;
    cxButton5: TcxButton;
    t_code: TcxTextEdit;
    cxButton6: TcxButton;
    cxButton7: TcxButton;
    cxButton8: TcxButton;
    e_room: TDBLookupComboBox;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Label1: TLabel;
    fullname: TcxTextEdit;
    procedure cxButton3Click(Sender: TObject);
    procedure cxButton9Click(Sender: TObject);
    procedure cxButton1Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure cxButton5Click(Sender: TObject);
    procedure cxButton6Click(Sender: TObject);
    procedure cxButton7Click(Sender: TObject);
    procedure cxButton8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGridEh2DblClick(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure DBGridEh3DblClick(Sender: TObject);
    procedure DBGridEh4DblClick(Sender: TObject);
  

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

var
  f_base: Tf_base;

implementation
uses main,u_data;
{$R *.dfm}
procedure Tf_base.cxButton3Click(Sender: TObject);
var
i:integer;
begin
 with datamodule1 do
  begin
   tb_room.Open;
   i:=tb_room.RecordCount ;
   i:=i+1;
   tb_room.Last ;
   tb_room.Append ;
   tb_room['id']:=inttostr(i);
   tb_room['name']:=c_name.Text ;
   tb_room['code']:=strtoint(c_code.Text)  ;
   tb_room['kind']:=c_kind.Text ;
   tb_room.Post ;
  end;
end;

procedure Tf_base.cxButton9Click(Sender: TObject);
begin
   datamodule1.tb_room.Delete ;
end;

procedure Tf_base.cxButton1Click(Sender: TObject);
var
i:integer;
begin
 with datamodule1 do
  begin
   tb_class.Open;
   i:=tb_class.RecordCount ;
   i:=i+1;
   tb_class.Last ;
   tb_class.Append ;
   tb_class['id']:=inttostr(i);
   tb_class['name']:=e_name.Text ;
   tb_class['code']:=strtoint(e_code.Text)  ;
   tb_class['room']:=e_room.Text ;
   tb_class.Post ;
   CopyFile(Pchar(ExtractFilePath(Application.ExeName)+'data\temp.db'),Pchar(ExtractFilePath(Application.ExeName)+'data\kc'+e_code.Text+'.db'),True);
   CopyFile(Pchar(ExtractFilePath(Application.ExeName)+'data\temp2.db'),Pchar(ExtractFilePath(Application.ExeName)+'data\pk'+e_code.Text+'.db'),True);
  end;
end;


procedure Tf_base.cxButton2Click(Sender: TObject);
var
i:integer;
begin
 with datamodule1 do
  begin
   tb_kc.Open;
   i:=tb_kc.RecordCount ;
   i:=i+1;
   tb_kc.Last ;
   tb_kc.Append ;
   tb_kc['id']:=inttostr(i);
   tb_kc['name']:=k_name.Text ;
   tb_kc['code']:=strtoint(k_code.Text)  ;
   tb_kc['xueshi']:=strtoint(k_xueshi.Text) ;
   tb_kc['full_name']:=fullname.Text ;
   tb_kc.Post ;
  end;
end;



procedure Tf_base.cxButton5Click(Sender: TObject);
var
i:integer;
begin
 with datamodule1 do
  begin
   tb_tec.Open;
   i:=tb_tec.RecordCount ;
   i:=i+1;
   tb_tec.Last ;
   tb_tec.Append ;
   tb_tec['id']:=inttostr(i);
   tb_tec['name']:=t_name.Text ;
   tb_tec['code']:=strtoint(t_code.Text)  ;
   tb_tec.Post ;
  end;
end;




procedure Tf_base.cxButton6Click(Sender: TObject);
begin
datamodule1.tb_tec.Delete ;

end;

procedure Tf_base.cxButton7Click(Sender: TObject);
begin
datamodule1.tb_kc.Delete ;

end;

procedure Tf_base.cxButton8Click(Sender: TObject);
begin
datamodule1.tb_class.Delete ;
end;

procedure Tf_base.FormShow(Sender: TObject);
begin
datamodule1.tb_class.Open;
datamodule1.tb_room.Open;
datamodule1.tb_kc.Open;
datamodule1.tb_tec.open;
panel1.Visible :=false;
panel2.Visible :=false;
panel3.Visible:=false;
panel4.Visible :=false;

end;

procedure Tf_base.DBGridEh2DblClick(Sender: TObject);
begin
panel1.Visible :=true;
panel2.Visible:=false;
panel3.Visible :=false;
panel4.Visible :=false;
end;

procedure Tf_base.DBGridEh1DblClick(Sender: TObject);
begin
panel1.Visible :=false;
panel2.Visible:=true;
panel3.Visible :=false;
panel4.Visible :=false;
end;

procedure Tf_base.DBGridEh3DblClick(Sender: TObject);
begin
panel1.Visible :=false;
panel2.Visible:=false;
panel3.Visible :=true;
panel4.Visible :=false;
end;

procedure Tf_base.DBGridEh4DblClick(Sender: TObject);
begin
panel1.Visible :=false;
panel2.Visible:=false;
panel3.Visible :=false;
panel4.Visible :=true;
end;

end.