unit11.pas

本系统为学生管理系统,可实现选课和退选

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, DBCtrls, Mask, Buttons,
  ComCtrls, DB, DBTables, DBActns, ActnList, ExtDlgs;

type
  TForm11 = class(TForm)
    Table1: TTable;
    Table2: TTable;
    BitBtn12: TBitBtn;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit6: TDBEdit;
    Panel3: TPanel;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    TabSheet3: TTabSheet;
    DBGrid2: TDBGrid;
    GroupBox2: TGroupBox;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    TabSheet4: TTabSheet;
    DBGrid3: TDBGrid;
    GroupBox3: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    TabSheet5: TTabSheet;
    GroupBox4: TGroupBox;
    Label9: TLabel;
    GroupBox5: TGroupBox;
    RadioGroup1: TRadioGroup;
    GroupBox6: TGroupBox;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn11: TBitBtn;
    Label10: TLabel;
    Label18: TLabel;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    TabSheet2: TTabSheet;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DBGrid1: TDBGrid;
    Table3: TTable;
    Table4: TTable;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBGrid4: TDBGrid;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    BitBtn5: TBitBtn;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    Image1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure RadioGroup1Click(Sender: TObject);
  procedure BitBtn5Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure FormCreate(Sender: TObject);
    procedure DataSource2DataChange(Sender: TObject; Field: TField);
    procedure DataSource3DataChange(Sender: TObject; Field: TField);
    procedure DataSource4DataChange(Sender: TObject; Field: TField);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.RadioGroup1Click(Sender: TObject);
var
//str: Tdatasource;
j:integer;
begin


     if radiogroup1.ItemIndex=0 then
       DBNavigator1.DataSource:=datasource1;
       if radiogroup1.ItemIndex=1 then
       DBNavigator1.DataSource:=datasource2;
       if radiogroup1.ItemIndex=2 then
       DBNavigator1.DataSource:=datasource3;
       if radiogroup1.ItemIndex=3 then
       DBNavigator1.DataSource:=datasource4;



      //str:=tdatasource.Create(self);
     tabsheet1.tabVisible:=false;
     tabsheet2.tabVisible:=false;
     tabsheet3.tabVisible:=false;
     tabsheet4.tabVisible:=false;
     tabsheet5.tabVisible:=false;
    combobox1.Clear;
     case radiogroup1.ItemIndex of
    0:begin

        for j:=0 to table1.FieldCount-1 do

        combobox1.Items.Add(table1.Fields[j].FieldName);

        tabsheet1.tabVisible:=true;
        tabsheet2.tabVisible:=true;
       // str:=datasource1;

      end;
   1:begin
                 tabsheet3.Visible:=true;
                    for j:=0 to table2.FieldCount-1 do

        combobox1.Items.Add(table2.Fields[j].FieldName);
       // str:=datasource2;
      end;
    2:begin
                tabsheet4.tabVisible:=true;
                  for j:=0 to table3.FieldCount-1 do

        combobox1.Items.Add(table3.Fields[j].FieldName);
       // str:=datasource3;

       end;
    3:begin
                tabsheet5.tabVisible:=true;
                  for j:=0 to table4.FieldCount-1 do
                   combobox1.items.Add(table4.Fields[j].FieldName);
              //     str:=datasource4;

        end;

  end;
 {  datasetfirst1.DataSource:=str;
  datasetprior1.DataSource:=str;
  datasetnext1.DataSource:=str;
  datasetlast1.DataSource:=str;
  datasetinsert1.DataSource:=str;
  datasetdelete1.DataSource:=str;
  datasetedit1.DataSource:=str;
  datasetpost1.DataSource:=str;
  datasetcancel1.DataSource:=str;
  datasetrefresh1.DataSource:=str;
 ;      }



end;

procedure TForm11.BitBtn5Click(Sender: TObject);
var i:integer;
begin
try
case radiogroup1.ItemIndex of
    0:begin

if   table1.Locate(combobox1.Text,edit1.Text,[locaseinsensitive])=false then
        showmessage('无此学生,请添加记录');

    end;
    1:  begin

if   table2.Locate(combobox1.Text,edit1.Text,[locaseinsensitive])=false then
        showmessage('无此学生,请添加记录');

    end;
      2:  begin

if   table3.Locate(combobox1.Text,edit1.Text,[locaseinsensitive])=false then
        showmessage('无此学生,请添加记录');

    end;
        3:  begin

if   table4.Locate(combobox1.Text,edit1.Text,[locaseinsensitive])=false then
        showmessage('无此学生,请添加记录');

    end;
end;
except
        showmessage('输入值类型不区配');
end;

end;

procedure TForm11.DataSource1DataChange(Sender: TObject; Field: TField);
begin
label10.Caption:='当前记录：'+inttostr(datasource1.DataSet.RecNo);
  label18.Caption:='记录总数：'+inttostr(datasource1.DataSet.RecordCount);
end;

procedure TForm11.FormCreate(Sender: TObject);
var
j  :integer;
begin
        tabsheet1.tabVisible:=true;
     tabsheet2.TabVisible:=true;
     tabsheet3.TabVisible:=false;
     tabsheet4.TabVisible:=false;
     tabsheet5.tabVisible:=false;
         for j:=0 to table1.FieldCount-1 do

        combobox1.Items.Add(table1.Fields[j].FieldName);

end;

procedure TForm11.DataSource2DataChange(Sender: TObject; Field: TField);
begin
label10.Caption:='当前记录：'+inttostr(datasource2.DataSet.RecNo);
  label18.Caption:='记录总数：'+inttostr(datasource2.DataSet.RecordCount);
end;

procedure TForm11.DataSource3DataChange(Sender: TObject; Field: TField);
begin
label10.Caption:='当前记录：'+inttostr(datasource3.DataSet.RecNo);
  label18.Caption:='记录总数：'+inttostr(datasource3.DataSet.RecordCount);
end;

procedure TForm11.DataSource4DataChange(Sender: TObject; Field: TField);
begin
label10.Caption:='当前记录：'+inttostr(datasource4.DataSet.RecNo);
  label18.Caption:='记录总数：'+inttostr(datasource4.DataSet.RecordCount);
end;

procedure TForm11.Button1Click(Sender: TObject);
begin
form11.Close;
end;

procedure TForm11.BitBtn9Click(Sender: TObject);
begin
if openpicturedialog1.execute then
   image1.picture.LoadFromFile(openpicturedialog1.filename);
end;

procedure TForm11.BitBtn10Click(Sender: TObject);
begin
table1.Edit;
 image1.Picture:=nil;
  table1.Post;
end;

end.