unit17.pas

以学习为目的,使用DIPH开发而成,功能强大,是我们的老师提供的!

unit Unit17;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, ExtCtrls, Mask, DBCtrls, Db, DBTables;

type
  TForm17 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Table1: TTable;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Table2: TTable;
    DataSource2: TDataSource;
    Query1: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form17: TForm17;
  cap:string;
implementation

uses Unit22, Unit12;

{$R *.DFM}

procedure TForm17.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=cafree;
end;

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

procedure TForm17.Button10Click(Sender: TObject);
begin
  form22:=tform22.Create(form22);
  form22.show;
end;

procedure TForm17.Button1Click(Sender: TObject);
begin
button2.Click;
close;
end;

procedure TForm17.Button2Click(Sender: TObject);
begin
table1.Refresh;
if edit3.Text<>'' then
 begin
table2.First;
while not table2.Eof do
  begin
  if table2.FieldByName('lb').asstring='早场门票' then
   begin
  table2.edit;
  table2.FieldByName('jg').asfloat:=strtofloat(edit3.text);
  table2.post;
   end;
  table2.Next;
  end;
 end;
 if edit4.Text<>'' then
 begin
table2.First;
while not table2.Eof do
  begin
  if table2.FieldByName('lb').asstring='午场门票' then
   begin
  table2.edit;
  table2.FieldByName('jg').asfloat:=strtofloat(edit4.text);
  table2.post;
   end;
  table2.Next;
  end;
 end;
if edit5.Text<>'' then
 begin
table2.First;
while not table2.Eof do
  begin
  if table2.FieldByName('lb').asstring='晚场门票' then
   begin
  table2.edit;
  table2.FieldByName('jg').asfloat:=strtofloat(edit5.text);
  table2.post;
   end;
  table2.Next;
  end;
 end;
end;

procedure TForm17.Edit3Change(Sender: TObject);
begin
try
strtofloat((sender as tedit).text);
except
showmessage('请输入浮点数。');
end;
end;

procedure TForm17.Button4Click(Sender: TObject);
begin
query1.SQL.Clear;
query1.SQL.Add('select * from 销售表 where lb=:cc');
query1.ParamByName('cc').asstring:='游泳';
query1.Open;
cap:=button4.caption;
end;

procedure TForm17.Button5Click(Sender: TObject);
begin
query1.SQL.Clear;
query1.SQL.Add('select * from 销售表 where lb=:cc');
query1.ParamByName('cc').asstring:='售卡';
query1.Open;
cap:=Button5.caption;
end;

procedure TForm17.Button6Click(Sender: TObject);
begin
query1.SQL.Clear;
query1.SQL.Add('select * from 销售表 where lb=:cc');
query1.ParamByName('cc').asstring:='餐饮';
query1.Open;
cap:=(sender as tbutton).caption;
end;

procedure TForm17.Button7Click(Sender: TObject);
begin
query1.SQL.Clear;
query1.SQL.Add('select * from 销售表 where lb=:cc');
query1.ParamByName('cc').asstring:='住房';
query1.Open;
cap:=(sender as tbutton).caption;
end;

procedure TForm17.Button8Click(Sender: TObject);
begin
query1.SQL.Clear;
query1.SQL.Add('select * from 销售表 where lb=:cc');
query1.ParamByName('cc').asstring:='定票';
query1.Open;
cap:=(sender as tbutton).caption;
end;

procedure TForm17.Button9Click(Sender: TObject);
begin
form12:=tform12.create(self);

end;

end.