cw_snin.~pas

来自「结于初学者来说这对数据库是一个很好的例子」· ~PAS 代码 · 共 125 行

unit cw_snin;

interface

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

type
  TForm20 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Button1: TButton;
    splb: TComboBox;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    spmc: TComboBox;
    Button2: TButton;
    GroupBox3: TGroupBox;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DBGrid1: TDBGrid;
    Q_spmc: TQuery;
    Q_splb: TQuery;
    DataSource1: TDataSource;
    Q_lb: TQuery;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form20: TForm20;

implementation

uses cw_indysn, cw_main;

{$R *.dfm}

procedure TForm20.FormShow(Sender: TObject);
begin
  Q_lb.Open;
  Q_lb.Active:=True;
  while not Q_lb.Eof do
        begin
          splb.Items.Add(Q_lb.FieldByName('TypeName').AsString);
          Q_lb.Next;
        end;

  Q_spmc.Active:=False;
  Q_spmc.Close;
  Q_spmc.Open;
  Q_spmc.Active:=True;
while not Q_spmc.Eof do
        begin
          spmc.Items.Add(Q_spmc.FieldByName('MenuName').AsString);
          Q_spmc.Next;
        end;


end;

procedure TForm20.Button1Click(Sender: TObject);
 var splba:string;
begin
  splba:=splb.text;
  Q_splb.SQL.Clear;
  Q_splb.SQL.Add('select * from sn_H_in where TypeName='''+splba+'''');
  Q_splb.SQL.Add('order by MenuName,Intime');
  Q_splb.Open;
  Q_splb.Active:=True;

end;

procedure TForm20.Button2Click(Sender: TObject);
  var MenuName:string;
begin
  MenuName:=spmc.Text;
  Q_splb.SQL.Clear;
  Q_splb.SQL.Add('select * from sn_H_in where MenuName='''+MenuName+'''');
  Q_splb.SQL.Add('order by MenuName,Intime');
  Q_splb.Open;
  Q_splb.Active:=True;


end;

procedure TForm20.SpeedButton2Click(Sender: TObject);
begin
    Q_splb.SQL.Clear;
  Q_splb.SQL.Add('select * from sn_H_in order by MenuName,Intime');
  Q_splb.Open;

end;

procedure TForm20.SpeedButton4Click(Sender: TObject);
begin
 close;
end;

procedure TForm20.SpeedButton3Click(Sender: TObject);
  var aa:string;
begin
  form21.bbr.Caption:=form1.operator.caption;
  aa:=Q_splb.SQL.GetText;
  form21.Q_in.Active:=False;
  form21.Q_in.SQL.Clear;
  form21.Q_in.SQL.Add(aa);
  form21.Q_in.Active:=True;
  form21.QuickRep1.Preview;

end;

end.