feedbackedit.pas

一款不错的商务程序商品管理系统,有简易的窗体皮肤

unit FeedBackEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls, Buttons,ADODB,DB,Theme;

type
  TFrm_FeedBackEdit = class(TBaseForm)
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DateTimePicker1: TDateTimePicker;
    DBLookupComboBox1: TDBLookupComboBox;
    DBComboBox1: TDBComboBox;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADORelat: TADODataSet;
    DSRelat: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_FeedBackEdit: TFrm_FeedBackEdit;

implementation

uses Buyers,Main,DM;

{$R *.dfm}

procedure TFrm_FeedBackEdit.FormShow(Sender: TObject);
begin
    if TFrm_Buyers(ActiveForm).ADOFeedback.State in [dsEdit] then
    DateTimePicker1.DateTime:=TFrm_Buyers(ActiveForm).ADOFeedback.FieldByName('MR_date').AsDateTime
  else
    DateTimePicker1.DateTime:=Now;
  ADORelat.Close;
  ADORelat.Open;
end;

procedure TFrm_FeedBackEdit.SpeedButton1Click(Sender: TObject);
begin
  TFrm_Buyers(ActiveForm).ADOFeedback.Edit;
  TFrm_Buyers(ActiveForm).ADOFeedback.FieldByName('MR_ClientID').AsString:=BuyerID;
  TFrm_Buyers(ActiveForm).ADOFeedback.FieldByName('MR_ClientName').AsString:=BuyerName;
  TFrm_Buyers(ActiveForm).ADOFeedback.FieldByName('MR_Date').AsDateTime:=DateTimePicker1.DateTime;
  TFrm_Buyers(ActiveForm).ADOFeedback.UpdateBatch;
  Close;
end;

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

procedure TFrm_FeedBackEdit.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  TFrm_Buyers(ActiveForm).ADOFeedback.CancelBatch;
end;

end.