luru_unit.pas

有不足之处请指出

unit luru_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables;

type
  Tluruform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label8: TLabel;
    Label9: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BanjiTable: TTable;
    BanjiTableBianhao: TStringField;
    BanjiTableMingcheng: TStringField;
    BanjiTableNansheng: TIntegerField;
    BanjiTableNvsheng: TIntegerField;
    XueshengQuery: TQuery;
    XueshengQueryXuehao: TStringField;
    XueshengQueryXingming: TStringField;
    XueshengQueryXingbie: TStringField;
    XueshengQueryBanji: TStringField;
    XueshengQueryChushengnianyue: TStringField;
    XueshengQueryJiguan: TStringField;
    XueshengQueryFumuxingming: TStringField;
    XueshengQueryLianxidianhua: TStringField;
    XueshengQueryXianzhuzhi: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  luruform: Tluruform;

implementation

{$R *.dfm}

procedure Tluruform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure Tluruform.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tluruform.FormShow(Sender: TObject);
begin
Edit1.SetFocus ;
Edit1.Focused;
end;

procedure Tluruform.Edit1Change(Sender: TObject);
begin
if length(Edit1.Text)=8 then
    begin
    Edit2.SetFocus ;
    Edit2.Focused ;
    end;
end;

procedure Tluruform.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key =#13 then
begin
ComboBox1.SetFocus ;
ComboBox1.Focused ;
end;
end;


procedure Tluruform.FormCreate(Sender: TObject);
var i:integer;
begin
  Bitbtn1.Enabled :=false;
  ComboBox2.Clear ;
  banjitable.Open ;
  i:=0;
  banjiTable.First ;
  while i < banjiTable.RecordCount do
    begin
      ComboBox2.Items.Insert(i,banjiTablemingcheng.Value);
      banjiTable.Next ;
      i:=i+1;
    end;
  banjiTable.Close;
end;

procedure Tluruform.BitBtn1Click(Sender: TObject);
var mycount:integer;
begin
  if length(Edit1.Text)=8 then
    begin
      XueshengQuery.Close;
      XueshengQuery.Params.Clear ;
      XueshengQuery.SQL.Clear ;
      XueshengQuery.Params.CreateParam(ftstring,'xh',ptinput).AsString :=edit1.Text ;
      XueshengQuery.SQL.Add('select *from students where Xuehao=:xh;');
      XueshengQuery.ExecSQL ;
      XueshengQuery.Open ;
      mycount:=XueshengQuery.RecordCount ;
      XueshengQuery.Close ;
      if mycount=0 then
         begin
           XueshengQuery.Params.Clear ;
           XueshengQuery.SQL.Clear ;
           XueshengQuery.Params.CreateParam(ftstring,'xh',ptinput).AsString :=Edit1.Text ;
           XueshengQuery.Params.CreateParam(ftstring,'xm',ptinput).AsString :=Edit2.Text ;
           XueshengQuery.Params.CreateParam(ftstring,'xb',ptinput).AsString :=ComboBox1.Text ;
           XueshengQuery.Params.CreateParam(ftstring,'bj',ptinput).AsString :=comboBox2.Text ;
           XueshengQuery.Params.CreateParam(ftstring,'csny',ptinput).AsString :=Edit3.Text ;
           XueshengQuery.Params.CreateParam(ftstring,'jg',ptinput).AsString :=Edit4.Text ;
           XueshengQuery.Params.CreateParam(ftstring,'fmxm',ptinput).AsString :=Edit5.Text ;
           XueshengQuery.Params.CreateParam(ftstring,'lxdh',ptinput).AsString :=Edit6.Text ;
           XueshengQuery.Params.CreateParam(ftstring,'xzz',ptinput).AsString :=Edit7.Text ;
           XueShengQuery.SQL.Add('insert into students(Xuehao,Xingming,Xingbie,Banji,Chushengnianyue,Jiguan,Fumuxingming,Lianxidianhua,Xianzhuzhi) values(:xh,:xm,:xb,:bj,:csny,:jg,:fmxm,:lxdh,:xzz);');
           XueShengQuery.ExecSQL ;
           Edit1.Clear ;
           Edit2.Clear ;
           ComboBox1.Text :='' ;
           ComboBox2.Text :='' ;
           Edit3.Clear ;
           Edit4.Clear ;
           Edit5.Clear ;
           Edit6.Clear ;
           Edit7.Clear ;
           Edit1.SetFocus ;
           Edit1.Focused ;
         end
      else
        begin
           messagebeep(1);
           messagedlg(Edit1.text+'此学号已存在，请检查后再保存!',mtWarning,[mbOk],0);
        end;
    end
else
  begin
   messagebeep(1);
   messageDlg('学号小于8位，不合法!',mtWarning,[mbOk],0);
   Edit1.SetFocus ;
   Edit1.Focused ;
   end;

end;

procedure Tluruform.Edit7Change(Sender: TObject);
begin
bitbtn1.Enabled :=true;
end;

end.