unit2.pas

delphi写的抽奖程序

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn3: TBitBtn;
    DBGrid1: TDBGrid;
    Ds1: TDataSource;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit8,Unit3,Unit9,Unit1;

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
var SQLT1:string;
begin
SQLT1:='select * from JX_Table';
if edit1.Text<>'' then
begin
  if edit2.Text<>'' then
  begin
    dm.ADOQ1.Close;
    dm.ADOQ1.SQL.Clear;
    dm.ADOQ1.SQL.Add(sqlt1);
    dm.ADOQ1.Open;
    dm.ADOQ1.Append;
    dm.ADOQ1.FieldByName('nav_jxname').Value:=Trim(edit1.Text);
    dm.ADOQ1.FieldByName('nav_jxcount').Value:=strtoint(trim(edit2.Text));
    dm.ADOQ1.Post;
    dm.ADOQ2.Close;
    dm.ADOQ2.Open;
  end
  else
  begin
    showmessage('请填写奖项数量！');
    edit2.SetFocus;
    exit;
  end;
end
else
begin
  showmessage('请填写奖项名称！');
  edit1.SetFocus;
  exit;
end;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
var SQLT1:string;
begin
  if dm.ADOQ2.RecordCount>0 then
  begin
    SQLT1:='delete from JX_Table';
    dm.ADOQ1.Close;
    dm.ADOQ1.SQL.Clear;
    dm.ADOQ1.SQL.Add(sqlt1+' '+'where sid=:a');
    dm.ADOQ1.Parameters.ParamByName('a').Value:=dm.ADOQ2.Fieldbyname('sid').AsInteger;
    dm.ADOQ1.ExecSQL;
    dm.ADOQ2.Close;
    dm.ADOQ2.Open;
  end;
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
begin
  form3.ShowModal;
  
end;

procedure TForm2.BitBtn4Click(Sender: TObject);
begin
  form1.souplay;
  form2.Close;
end;

procedure TForm2.BitBtn5Click(Sender: TObject);
begin
  form9.ShowModal;
end;

end.