tcdmwh.pas

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

unit tcdmwh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls, Mask,
  DBCtrls, Excel2000, OleServer, DBTables;

type
  TfjdmwhForm = class(TForm)
    DBGrid2: TDBGrid;
    Label2: TLabel;
    RadioGroup1: TRadioGroup;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    UpdateSQL1: TUpdateSQL;
    Query3: TQuery;
    Query2: TQuery;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fjdmwhForm: TfjdmwhForm;
  func:string;
implementation
uses cdwh, tclbxz, tcmxxz;
{$R *.dfm}

procedure TfjdmwhForm.FormActivate(Sender: TObject);
begin
     query3.ParamByName('cs').AsString:=gjsswhForm.query1bh.Value;
     query3.Open;
     query2.Open;
     radiogroup1.ItemIndex:=0;
end;

procedure TfjdmwhForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     query2.Close;
     query3.Close;
end;

procedure TfjdmwhForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=chr(13) then perform($28,0,0);
end;

procedure TfjdmwhForm.BitBtn2Click(Sender: TObject);
var i:integer;
begin
     if radiogroup1.ItemIndex=0 then
      begin
        tclbform.CheckListBox1.Clear;
        query2.First;
        while not query2.Eof do
        begin
          tclbform.CheckListBox1.Items.Add(query2.FieldByName('lbmc').AsString+'——'+query2.FieldByName('lbbm').AsString);
          query2.Next;
        end;
         tclbform.showmodal;
      end
     else
      begin
        tcmxform.ComboBox1.Items.Clear;
        query2.First;
        i:=0;
        while not query2.Eof do
        begin
          tcmxxz.lbbm[i]:=query2.FieldByName('lbbm').AsString;
          tcmxform.ComboBox1.Items.Add(query2.FieldByName('lbmc').AsString);
          i:=i+1;
          query2.Next;
        end;
        tcmxform.showmodal;
      end;
     query3.Close;
     query3.ParamByName('cs').AsString:=gjsswhForm.query1bh.Value;
     query3.Open;
end;

procedure TfjdmwhForm.BitBtn3Click(Sender: TObject);
begin
     query3.Delete;
     query3.ApplyUpdates;
end;
end.