sbsz.pas

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

 unit sbsz;

interface

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

type
  TForm16 = class(TForm)
    Panel2: TPanel;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Button1: TButton;
    Button2: TButton;
    Query1: TQuery;
    UpdateSQL1: TUpdateSQL;
    DataSource1: TDataSource;
    Panel4: TPanel;
    QuickRep1: TQuickRep;
    PageHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRShape1: TQRShape;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    Query1lbbm: TStringField;
    Query1lbmc: TStringField;
    Query1pym: TStringField;
    Query1Id: TIntegerField;
    BitBtn1: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button9Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form16: TForm16;
  btstate:string;
implementation
uses rjsmain, lbsr;
{$R *.DFM}

procedure TForm16.FormActivate(Sender: TObject);
begin
  query1.Active:=true;
end;

procedure TForm16.Button6Click(Sender: TObject);
var
i,j:integer;
s:string;
begin
  btstate:='tj';
  s:='';
  i:=query1.RecordCount+1;
  for j:=1 to (4-length(inttostr(i))) do
  begin
    s:=s+'0';
  end;
  panel2.Enabled:=false;
  panel3.Visible:=true;
  query1.Append;
  query1lbbm.Value:=s+inttostr(i);
  dbgrid1.ReadOnly:=false;
end;

procedure TForm16.Button7Click(Sender: TObject);
begin
 if query1.RecordCount=0 then exit; 
  if messagedlg('真的删除该记录吗？！',mtwarning,[mbyes,mbno],0)<>mryes then exit;
  query1.Delete;
  query1.ApplyUpdates;
end;

procedure TForm16.Button8Click(Sender: TObject);
begin
  btstate:='xg';
  panel2.Enabled:=false;
  panel3.Visible:=true;
  query1.Edit;
  dbgrid1.ReadOnly:=false;
end;

procedure TForm16.Button10Click(Sender: TObject);
begin
  query1.Active:=false;
  form16.Close;
end;

procedure TForm16.Button1Click(Sender: TObject);
begin
  query1.ApplyUpdates;
  query1.Active:=false;
  query1.Active:=true;
  panel3.Visible:=false;
  panel2.Enabled:=true;
  btstate:='';
  dbgrid1.ReadOnly:=true;
end;

procedure TForm16.Button2Click(Sender: TObject);
begin
  query1.Cancel;
  panel3.Visible:=false;
  panel2.Enabled:=true;
  btstate:='';
  dbgrid1.ReadOnly:=true;
end;

procedure TForm16.DBGrid1CellClick(Column: TColumn);
begin
  if not ((query1.State=dsedit) or (query1.State=dsinsert)) then
    begin
     query1.Cancel;
     if btstate='tj' then
      begin
        query1.Active:=false;
        query1.Active:=true;
      end;
     panel3.Visible:=false;
     panel2.Enabled:=true;
     btstate:='';
     dbgrid1.ReadOnly:=true;
    end;
end;

procedure TForm16.Button9Click(Sender: TObject);
var i:integer;
begin
  i:=qrlabel3.Left-qrlabel2.Left;
  qrlabel1.Caption:=rjsmain.dwmc+'产品类别设置一览表';
  qrlabel1.Left:=round((pageheaderband1.Width-qrlabel1.Width)/2);
  qrlabel2.Left:=round((pageheaderband1.Width-(qrlabel3.Left+qrlabel3.Width-qrlabel2.Left))/2);
  qrlabel3.Left:=qrlabel2.Left+i;
  qrdbtext1.Left:=qrlabel2.Left+qrlabel2.Width-qrdbtext1.Width;
  qrdbtext2.Left:=qrlabel3.Left;
  quickrep1.Preview;
end;

procedure TForm16.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  query1.Active:=false;
end;

procedure TForm16.BitBtn1Click(Sender: TObject);
begin
     lbsrp.showmodal;
     query1.Active:=false;
     query1.Active:=true;
end;

end.