tgzpxx.~pas

学生管理系统小鸟做了

unit tgzpxx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids;

type
  Tfmtgzpxx = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Memo1: TMemo;
    Label7: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmtgzpxx: Tfmtgzpxx;

implementation

uses dm;

{$R *.dfm}

procedure Tfmtgzpxx.FormCreate(Sender: TObject);
begin
 {
 S:=strtoint(//fmdm.qrytgzpxx.Close;
 //fmdm.qrytgzpxx.SQL.Clear;
 //;
 //fmdm.qrytgzpxx.Open;);
 edit1.Text:=fmdm.qrytgzpxx.SQL.Add('select max(zpinf_id) from tab_zpinf')
 //inttostr(s);}
end;

procedure Tfmtgzpxx.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
memo1.Lines.Clear;
edit1.SetFocus;
end;

procedure Tfmtgzpxx.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tfmtgzpxx.Button1Click(Sender: TObject);
begin
  fmdm.qrytgzpxx.Close;
  fmdm.qrytgzpxx.SQL.Clear;
  fmdm.qrytgzpxx.SQL.Add('insert into tab_zpinf (zpinf_id,zpinf_company,zpinf_position,zpinf_count,zpinf_profession,zpinf_note) values (:A,:S,:D,:F,:G,:H)');
  fmdm.qrytgzpxx.Parameters.ParamByName('A').Value:=edit1.Text;
  fmdm.qrytgzpxx.Parameters.ParamByName('S').Value:=edit2.Text;
  fmdm.qrytgzpxx.Parameters.ParamByName('D').Value:=edit3.Text;
  fmdm.qrytgzpxx.Parameters.ParamByName('F').Value:=edit4.Text;
  fmdm.qrytgzpxx.Parameters.ParamByName('G').Value:=edit5.Text;
  fmdm.qrytgzpxx.Parameters.ParamByName('H').Value:=memo1.Lines.Text;
  try
    fmdm.qrytgzpxx.ExecSQL;
    MessageDlg('操作成功！',mtInformation , [mbYes],0);
    edit1.Clear;
    edit2.Clear;
    edit3.Clear;
    edit4.Clear;
    edit5.Clear;
    memo1.Lines.Clear;
    edit1.SetFocus;
  except
    MessageDlg('操作失败！',mtInformation , [mbYes],0);
  end;
  fmdm.qrytgzpxx.Close;
  fmdm.qrytgzpxx.SQL.Clear;
  fmdm.qrytgzpxx.SQL.Add('select * from tab_zpinf');
  fmdm.qrytgzpxx.Open;

end;

end.