addbuy.pas

来自「这是一个DELPHI7应用案例开发篇有配套程序种子光盘」· PAS 代码 · 共 64 行

unit AddBuy;

interface

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

type
  TfrmAddBuy = class(TForm)
    Panel1: TPanel;
    Memo1: TMemo;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    btnOk: TButton;
    btnCancel: TButton;
    procedure btnOkClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAddBuy: TfrmAddBuy;

implementation

uses DataM;

{$R *.dfm}

procedure TfrmAddBuy.btnOkClick(Sender: TObject);
begin
    with DataModule1 do
    begin
        cdsTmpBuy1.CheckBrowseMode;
        cdsTmpBuy1.ApplyUpdates(-1);
        try
            DComConnection1.AppServer.AddBuyItem(DateTimePicker1.DateTime,
                Memo1.Lines.Text);
        except
            on E:Exception do begin
                MessageDlg(E.Message, mtError, [mbOK], 0);
                Abort;
            end;
        end;

        ModalResult := mrOk;
    end;
end;

procedure TfrmAddBuy.btnCancelClick(Sender: TObject);
begin
    ModalResult := mrCancel;
end;

end.