desk_unit.pas

餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述

unit DESK_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, DB, ADODB, Mask, DBCtrlsEh, ExtDlgs;

type
  TDESK_Form = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Edit1: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DESK_Form: TDESK_Form;

implementation

uses DMUnit;

{$R *.dfm}

procedure TDESK_Form.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TDESK_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;

procedure TDESK_Form.FormDestroy(Sender: TObject);
begin
DESK_Form:=nil;
end;

procedure TDESK_Form.SpeedButton1Click(Sender: TObject);
begin

  if OpenPictureDialog1.Execute then
    Edit1.Text:=OpenPictureDialog1.FileName;
end;

procedure TDESK_Form.BitBtn1Click(Sender: TObject);
begin
  DM.PRC_ADOQ.Edit;
  DM.PRC_ADOQ.FieldByName('P_path').AsString:=Edit1.Text;
  DM.PRC_ADOQ.Post;
  ShowMessage('桌面设置成功!');
end;

end.