pictedit.pas

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

unit PictEdit;

interface

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

type
  TFrm_PictEdit = class(TBaseForm)
    Label2: TLabel;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    Label8: TLabel;
    DateTimePicker1: TDateTimePicker;
    DBMemo1: TDBMemo;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOProduct: TADODataSet;
    DSProduct: TDataSource;
    SpeedButton3: TSpeedButton;
    DBEdit1: TDBEdit;
    ADOProductMR_ID: TAutoIncField;
    ADOProductMR_Code: TStringField;
    ADOProductMR_Name: TStringField;
    ADOProductMR_Pice: TFloatField;
    ADOProductMR_Memo: TStringField;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
    procedure DBComboBox1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_PictEdit: TFrm_PictEdit;

implementation

uses Buyers,Main,ShowGrid,DM;

{$R *.dfm}

procedure TFrm_PictEdit.FormShow(Sender: TObject);
begin
  if TFrm_Buyers(ActiveForm).ADOPick.State in [dsEdit] then
    DateTimePicker1.DateTime:=TFrm_Buyers(ActiveForm).ADOPick.FieldByName('MR_Date').AsDateTime
  else
    DateTimePicker1.DateTime:=Now;
  ADOProduct.Close;
  ADOProduct.Open;
end;

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

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

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

procedure TFrm_PictEdit.FormDblClick(Sender: TObject);
begin
  Frm_ShowGrid.Show;
end;

procedure TFrm_PictEdit.DBComboBox1Click(Sender: TObject);
begin
  Frm_ShowGrid.Show
end;

procedure TFrm_PictEdit.SpeedButton3Click(Sender: TObject);
var
  P:TPoint;
begin
  p.X:=DBEdit1.Left;
  p.Y:=DBEdit1.Top;
  Frm_ShowGrid.SCreenP:=ClientToScreen(p);
  Frm_ShowGrid.SetData(TFrm_Buyers(ActiveForm).DSPick,DSProduct);
  Frm_ShowGrid.FieldKey:='MR_Code';
  Frm_ShowGrid.Text:=DBEdit1.Text;
  Frm_ShowGrid.ShowModal;
  DBEdit1.SetFocus;
  DBEdit1.Text:=Trim(Frm_ShowGrid.DBEdit1.Text);
  DBEdit1.SelStart:=Length(DBEdit1.Text);

  DBEdit3.Text:=ADOProduct.FieldByName('MR_Name').AsString;
  DBEdit4.Text:=ADOProduct.FieldByName('MR_Pice').AsString;
end;

end.