chzx.pas

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

unit chzx;

interface

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

type
  Tcpcxf = class(TForm)
    chanpin: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    RadioGroup1: TRadioGroup;
    chanpincpbm: TStringField;
    chanpinposbm: TStringField;
    chanpinpym: TStringField;
    chanpindj: TFloatField;
    chanpinsccj: TStringField;
    chanpinlbbm: TStringField;
    chanpindw: TStringField;
    chanpinid: TIntegerField;
    chanpincpmc: TStringField;
    Label1: TLabel;
    Label2: TLabel;
    chanpinlbmc: TStringField;
    chanpingysmc: TStringField;
    procedure FormActivate(Sender: TObject);
    procedure chanpinFilterRecord(DataSet: TDataSet; var Accept: Boolean);
    procedure RadioGroup1Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cpcxf: Tcpcxf;
  xxzz:string;
implementation

uses pfjg, pflr,rjsmain;

{$R *.DFM}

procedure Tcpcxf.FormActivate(Sender: TObject);
begin
     label2.Caption:='';
     xxzz:='';
     radiogroup1.ItemIndex:=0;
     chanpin.Open;
end;

procedure Tcpcxf.chanpinFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
     case radiogroup1.ItemIndex of
      0: accept:= copy(uppercase(chanpinpym.AsString),1,length(xxzz))=uppercase(xxzz);
      1: accept:= copy(chanpincpbm.AsString,1,length(xxzz))=xxzz;
      2: accept:= copy(chanpinposbm.AsString,1,length(xxzz))=xxzz;
     end;
end;

procedure Tcpcxf.RadioGroup1Click(Sender: TObject);
begin
     xxzz:='';
     label2.Caption:='';
     chanpin.Filtered:=false;
     chanpin.Filtered:=true;
     dbgrid1.SetFocus;
end;

procedure Tcpcxf.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=chr(13) then
        begin
            xxzz:='';
            DBGrid1DblClick(sender);
        end
     else
       if key=chr(8) then xxzz:=copy(xxzz,1,length(xxzz)-1)
     else xxzz:=xxzz+key;
     label2.Caption:=xxzz;
     chanpin.Filtered:=false;
     chanpin.Filtered:=true;
end;

procedure Tcpcxf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     chanpin.Filtered:=false;
     spbt:='';
     chanpin.Close;
end;

procedure Tcpcxf.DBGrid1DblClick(Sender: TObject);
begin
     if spbt='pfjg' then
     begin
        pfjgf.Edit4.Text:=chanpincpbm.Value;
        pfjgf.Edit3.Text:=chanpincpmc.Value;
        pfjgf.Edit1.Text:=chanpindw.Value;
        pfjgf.Edit2.Text:=chanpindj.asstring;
        pfjgf.Label6.Caption:=chanpindw.Value;
     end;
     if spbt='pflr1' then
     begin
      pflrf.edit8.Text:=chanpincpbm.Value;
      pflrf.edit4.Text:=chanpincpmc.Value;
     end;
     if spbt='pflr2' then
     begin
      pflrf.edit2.Text:=chanpincpbm.Value;
      pflrf.edit1.Text:=chanpincpmc.Value;
      pflrf.edit3.Text:=chanpindw.Value;
      pflrf.edit6.Text:=chanpindj.AsString;
     end;
     cpcxf.Close;
end;

end.