guadan.pas

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

unit guadan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, Buttons;

type
  TFrmguadan = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ADOQuery1AfterOpen(DataSet: TDataSet);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmguadan: TFrmguadan;

implementation
   uses dbmodule,xiangqing;
{$R *.dfm}

procedure TFrmguadan.FormShow(Sender: TObject);
begin
  if adoquery1.Active then
    adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from Q_custpay where  fangshi='+''''+'挂单'+''''+' order by opratedate desc');
  adoquery1.Open;
end;

procedure TFrmguadan.SpeedButton2Click(Sender: TObject);
begin
  self.Close;
end;

procedure TFrmguadan.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
  dm.UpdateFieldFormats(dataset);
end;

procedure TFrmguadan.DBGrid1DblClick(Sender: TObject);
begin
  if not adoquery1.IsEmpty then
   begin
     if not Assigned(Frmxiangqing) then
        Application.CreateForm(TFrmxiangqing,Frmxiangqing);
     frmxiangqing.zhanghao:=adoquery1.FieldValues['zhanghao'];
     Frmxiangqing.ShowModal;
     FreeAndNil(Frmxiangqing);
   end;
end;

procedure TFrmguadan.SpeedButton1Click(Sender: TObject);
begin
  if not adoquery1.IsEmpty then
    begin
      if application.MessageBox('你确定结算所选吗？','提示',mb_okcancel)=ID_OK then
         begin
           adoquery1.Edit;
           adoquery1.FieldValues['fangshi']:='挂单已结算';
           adoquery1.Post;
           dm.SaveWorkLog(now(),dm.opratename,'对帐号为'+adoquery1.FieldValues['zhanghao']+'进行挂单处理。');
           adoquery1.Refresh;
           if adoquery1.Active then
            adoquery1.Close;
          adoquery1.SQL.Clear;
          adoquery1.SQL.Add('select * from Q_custpay where  fangshi='+''''+'挂单'+''''+' order by opratedate desc');
          adoquery1.Open;
          
          application.MessageBox('已结算完毕','提示',mb_ok);
         end;
    end;
end;

procedure TFrmguadan.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if adoquery1.Active then
    adoquery1.Close;
end;

end.