s.~pas

新生报名管理系统演示程序,新生报名管理系统演示程序

unit s;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, System.ComponentModel, Borland.Vcl.StdCtrls,
  Borland.Vcl.ComCtrls, Borland.Vcl.Mask, Borland.Vcl.Db,
  Borland.Vcl.DBTables, Borland.Vcl.Grids, Borland.Vcl.DBGrids;

type
  Ts_form = class(TForm)
    gb_student_add: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TMaskEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    queding: TButton;
    tuichu: TButton;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Edit7: TEdit;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure tuichuClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure quedingClick(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  s_form: Ts_form;

implementation

uses main, usergl;

{$R *.nfm}

procedure Ts_form.Button1Click(Sender: TObject);
var
    xh,sqlstr:string;
begin
    xh:=trim(edit1.Text);

    begin
        sqlstr:='select * from [xsb] order by xh';

    end;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
end;

procedure Ts_form.FormCreate(Sender: TObject);
begin
    Query1.sessionName:=main_Form.Database1.SessionName;
    Query1.DatabaseName:=main_Form.Database1.DatabaseName;
end;

procedure Ts_form.tuichuClick(Sender: TObject);
begin
    Close;
end;

procedure Ts_form.DBGrid1CellClick(Column: TColumn);
var
    xh,xm,xb,csny,jtdz,lxdh,sqlstr:string;
begin
    xh:=Query1.fieldbyname('xh').AsString;
    sqlstr:='select * from [xsb] where(xh='''+xh+''')';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
end;

procedure Ts_form.quedingClick(Sender: TObject);
var
    xh,xm,xb,csny,jtdz,lxdh,sqlstr:string;
begin
  if RadioButton1.Checked then
  begin

    with

    tquery.Create(nil) do

    begin


      SQL.Clear;
      SQl.Add('select xh from xsb where xh=:xh');
      Query1.fieldbyname('xh').AsString:=trim(Edit1.Text);
      Open;
      if RecordCount <> 0 then
      begin
        MessageDlg('学号<'+Edit1.Text+'>已经存在',mtError,[mbok],0);
        Exit;
      end;
      Close;
    end;

    try
      with

        tquery.Create(nil) do

      begin

        SQL.Clear;
        SQl.Add('insert into xsb(xh,xm,xb,csny,jtdz,lxdh) '+
              'values(:xh,:xm,:xb,:csny,:jtdz,:lxdh)');
        Query1.fieldbyname('xh').AsString:=trim(Edit1.Text);
        Query1.fieldbyname('xm').AsString:=trim(Edit2.Text);
        Query1.fieldbyname('xb').AsString:=trim(Edit7.Text);
        Query1.fieldbyname('csny').AsString:=trim(Edit3.Text);
        Query1.fieldbyname('jtdz').AsString:=trim(Edit4.Text);
        Query1.fieldbyname('lxdh').AsString:=trim(Edit5.Text);
        ExecSQL;
      end;
    except
      MessageDlg('添加<'+Edit1.Text+'>失败',mtError,[mbok],0);
      Exit;
    end;
  end;

  if RadioButton2.Checked then
  begin

    try

      with

      tquery.Create(nil) do

      begin
      xh:=Query1.fieldbyname('xh').AsString;
      xm:=Query1.fieldbyname('xm').AsString;
      xb:=Query1.fieldbyname('xb').AsString;
      csny:=Query1.fieldbyname('csny').AsString;
      jtdz:=Query1.fieldbyname('jtdz').AsString;
      lxdh:=Query1.fieldbyname('lxdh').AsString;
        SQL.Clear;
        SQl.Add('update xsb set xh=:xh,xm=:xm,xb=:xb,csny=:csny,jtdz=:jtdz,lxdh=:lxdh'+
                ' where xh= :xh');
        xh:=trim(Edit1.Text);
        xm:=trim(Edit2.Text);
        xb:=trim(Edit7.Text);
        csny:=trim(Edit3.Text);
        jtdz:=trim(Edit4.Text);
        lxdh:=trim(Edit5.Text);
        ExecSQL;
      end;
    except
      MessageDlg('修改<'+Edit1.Text+'>失败',mtError,[mbok],0);
      Exit;
    end;
  end;

  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  Edit5.Text := '';
  
  Edit7.Text := '';

end;

procedure Ts_form.RadioButton1Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  Edit5.Text := '';

  Edit7.Text := '';


end;

procedure Ts_form.Button2Click(Sender: TObject);
var
  i : integer;
  Checked : integer;
begin


    try
      try
        with tquery.Create(nil) do
        begin
          SQL.Clear;
          SQL.Add('select xh from xsb  where xh =:xh ');

          Open;
          if RecordCount = 0 then
             Checked := IDYES
          else begin
                 if MessageDlg('是否删除?',
                     mtConfirmation, [mbYes, mbNo], 0) = mrYes then
                 begin
                   SQL.Clear;
                   SQL.Add('delete from xsb where xh=:xh');

                   ExecSQL;
                   Checked := IDYES;
                 end
                 else Checked := IDNO;
               end;
          Close;
        end;
      except
        Checked := IDNO;
      end;

      if Checked = IDYES then
      begin
        with tquery.Create(nil) do
        begin
          SQL.Clear;
          SQl.Add('delete from jiaoxuejihua where jxjhm=:jxjhm');

          ExecSQL;
        end;

      end else
          if Checked = IDNO then
             Exit;
    except
      MessageDlg('删除出错',mtError,[mbok],0);
    end;
end;

end.