fenlei.pas

小管理程序主要管理的小咖啡厅我是从网上下的经测试可用

unit fenlei;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, Buttons, ExtCtrls,db;

type
  TFrmfenlei = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBGrid1: TDBGrid;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBGrid2: TDBGrid;
    Btnnew: TSpeedButton;
    Btndel: TSpeedButton;
    Btnadd: TSpeedButton;
    Btndelete: TSpeedButton;
    DBoprate1: TDBNavigator;
    DBoprate2: TDBNavigator;
    Btnsave1: TSpeedButton;
    Btnsave2: TSpeedButton;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BtnnewClick(Sender: TObject);
    procedure Btnsave1Click(Sender: TObject);
    procedure BtndelClick(Sender: TObject);
    procedure BtnaddClick(Sender: TObject);
    procedure BtndeleteClick(Sender: TObject);
    procedure Btnsave2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmfenlei: TFrmfenlei;

implementation
   uses  dbmodule;
{$R *.dfm}

procedure TFrmfenlei.FormActivate(Sender: TObject);
begin
 if not  dm.Qmasterclass.Active then
    dm.Qmasterclass.Open;
 if not dm.Qchildclass.Active then
   dm.Qchildclass.Open;
end;

procedure TFrmfenlei.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if dm.Qmasterclass.Active then
    dm.Qmasterclass.Close;
 if dm.Qchildclass.Active then
    dm.Qchildclass.Close;
end;

procedure TFrmfenlei.BtnnewClick(Sender: TObject);
begin
   DBoprate1.BtnClick(nbInsert);
   dbedit1.SetFocus;
end;

procedure TFrmfenlei.Btnsave1Click(Sender: TObject);
begin
   if (dm.Qmasterclass.State in [dsEdit,dsInsert])  then
     dboprate1.BtnClick(nbPost);
end;

procedure TFrmfenlei.BtndelClick(Sender: TObject);
begin
if messagedlg('确定删除所选主类吗？',mtWarning,[mbOK,mbCancel],0)=mrOk  then
  begin
    if dm.Qmasterclass.RecordCount>0 then
      begin
        dm.Qmasterclass.Refresh;
        dm.Qmasterclass.Edit;
        dm.Qmasterclass.FieldByName('isdel').AsInteger :=1;
        dm.Qmasterclass.Post;
      end;
  end;
end;

procedure TFrmfenlei.BtnaddClick(Sender: TObject);
begin
   DBoprate2.BtnClick(nbInsert);
   dbedit3.SetFocus;
end;

procedure TFrmfenlei.BtndeleteClick(Sender: TObject);
begin
  if messagedlg('确定删除所选分类吗？',mtWarning,[mbOK,mbCancel],0)=mrOk  then
  begin
    if dm.Qchildclass.RecordCount>0 then
      begin
        dm.Qchildclass.Refresh;
        dm.Qchildclass.Edit;
        dm.Qchildclass.FieldByName('isdel').AsInteger :=1;
        dm.Qchildclass.Post;
      end;
  end;
end;

procedure TFrmfenlei.Btnsave2Click(Sender: TObject);
begin
   if (dm.Qchildclass.State in [dsEdit,dsInsert])  then
     begin
       dm.Qchildclass.FieldByName('Mclassid').AsInteger :=dm.Qmasterclass.FieldValues['Mclassid'];
       dboprate2.BtnClick(nbPost);
     end;
end;

end.