inscookmode.pas

来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· PAS 代码 · 共 81 行

unit inscookmode;

interface

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

type
  TForminscook = class(TForm)
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    Query2: TQuery;
    Query3: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Forminscook: TForminscook;

implementation

{$R *.dfm}

procedure TForminscook.FormCreate(Sender: TObject);

begin
comboBox1.Items.Clear ;
with query1 do
 begin
 close;
 open;
 first;
 while not eof
   do
   begin
   comboBox1.Items.Add(FieldByName('memo').asstring) ;
   next;
   end;
   close;
 end;

end;


procedure TForminscook.BitBtn1Click(Sender: TObject);
begin
with query2 do
 begin
 close;
 parambyname('memo').AsString :=combobox1.Text ;
 ExecSQL ;
 end;
end;

procedure TForminscook.BitBtn2Click(Sender: TObject);
begin
with query3 do
begin
 close;
 parambyname('memo').AsString :=combobox1.Text ;
 ExecSQL ;
 end;
end;

procedure TForminscook.BitBtn3Click(Sender: TObject);
begin
close;
end;

end.