objectform.pas

本程序是一个餐饮业的管理软件

unit ObjectForm;

interface

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

type
  TFrmObject = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Button2: TButton;
    DBGrid2: TDBGrid;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBNavigator1: TDBNavigator;
    DBGrid3: TDBGrid;
    DBEdit4: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmObject: TFrmObject;
implementation

uses DataM;

{$R *.dfm}

procedure TFrmObject.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TFrmObject.FormCreate(Sender: TObject);
begin
  Data.DataSObject.DataSet:=Data.ADOQObject;
  Data.ADOQObject.Open;
end;

procedure TFrmObject.Button2Click(Sender: TObject);
begin
  if (Edit3.Text<>'') and (Edit4.Text<>'') then
  begin
  Data.ADOQObject.Close;
  Data.ADOQObject.SQL.Clear;
  Data.ADOQObject.SQL.Add('select * from Objects where ID='+Edit3.Text);
  Data.ADOQObject.Open;
  if Data.ADOQObject.RecordCount=1 then
  begin
  Data.ADOQObject.Edit;
  Data.ADOQObject['OutCount']:=StrToInt(Edit4.Text);
  Data.ADOQObject.Post;
  Edit3.Clear;
  Edit4.Clear;
  end
  else MessageDlg('物品ID错误',mtError,[mbOK],0);
  end
  else MessageDlg('Not Null',mtError,[mbOk],0);
end;

procedure TFrmObject.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key>105) or (Key<8) or ((Key>8) and (key<13)) or ((Key>13) and (Key<48)) or ((key>57) and (Key<96)) then
  begin
    MessageDlg('InputError!',mtError,[mbOK],0);
    Edit3.Clear;
  end;
end;

procedure TFrmObject.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key>105) or (Key<8) or ((Key>8) and (key<13)) or ((Key>13) and (Key<48)) or ((key>57) and (Key<96)) then
  begin
    MessageDlg('InputError!',mtError,[mbOK],0);
    Edit4.Clear;
  end;
end;

procedure TFrmObject.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key>105) or (Key<8) or ((Key>8) and (key<13)) or ((Key>13) and (Key<48)) or ((key>57) and (Key<96)) then
  begin
    MessageDlg('InputError!',mtError,[mbOK],0);
    Edit1.Clear;
  end;
end;

procedure TFrmObject.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key>105) or (Key<8) or ((Key>8) and (key<13)) or ((Key>13) and (Key<48)) or ((key>57) and (Key<96)) then
  begin
    MessageDlg('InputError!',mtError,[mbOK],0);
    Edit2.Clear;
  end;
end;

procedure TFrmObject.Button1Click(Sender: TObject);
begin
  if (Edit1.Text<>'') and (Edit2.Text<>'') then
  begin
  Data.ADOQObject.Close;
  Data.ADOQObject.SQL.Clear;
  Data.ADOQObject.SQL.Add('select * from Objects where ID='+Edit1.Text);
  Data.ADOQObject.Open;
  if Data.ADOQObject.RecordCount=1 then
  begin
    if StrToInt(Edit2.Text) <> (Data.ADOQObject['OutCount']) then
      if MessageDlg('进出物品数量不符，是否丢失？',mtError,[mbOK,mbCancel],0)=mrOK then
      begin
        Data.ADOQObject.Edit;
        Data.ADOQObject['Lost']:=Data.ADOQObject['OutCount']-StrToInt(Edit2.Text);
        Data.ADOQObject['OutCount']:=0;
        Data.ADOQObject.Post;
      end
    else
    begin
      Data.ADOQObject.Edit;
      Data.ADOQObject['OutCount']:=0;
      Data.ADOQObject.Post;
    end;
  end
  else MessageDlg('物品ID错误',mtError,[mbOK],0);
  end
  else MessageDlg('Not Null',mtError,[mbOk],0);
end;

procedure TFrmObject.PageControl1Change(Sender: TObject);
begin
  Data.ADOQObject.Close;
  Data.ADOQObject.SQL.Clear;
  Data.ADOQObject.SQL.Add('select * from Objects');
  Data.ADOQObject.Open;
end;

end.