buyersedit.pas

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

unit BuyersEdit;

interface

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

type
  TFrm_BuyerEdit = class(TBaseForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBMemo1: TDBMemo;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    ADOType: TADODataSet;
    ADOSouce: TADODataSet;
    ADOArea: TADODataSet;
    DSType: TDataSource;
    DSSource: TDataSource;
    DSArea: TDataSource;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_BuyerEdit: TFrm_BuyerEdit;

implementation

uses Buyers,Main,DM;

{$R *.dfm}

procedure TFrm_BuyerEdit.SpeedButton1Click(Sender: TObject);
begin
  if DBEdit2.Text='' then
  begin
    Application.MessageBox('客户名不能为空！','明日科技');
    DBEdit2.SetFocus;
    Exit;
  end;
  if DBEdit3.Text='' then
  begin
    Application.MessageBox('联系电话不能为空！','明日科技');
    DBEdit3.SetFocus;
    Exit;
  end;
  if DBLookupComboBox1.Text='' then
  begin
    Application.MessageBox('客户类别不能为空！','明日科技');
    DBLookupComboBox1.SetFocus;
    Exit;
  end;
  if DBLookupComboBox2.Text='' then
  begin
    Application.MessageBox('客户来源不能为空！','明日科技');
    DBLookupComboBox2.SetFocus;
    Exit;
  end;
  if DBLookupComboBox3.Text='' then
  begin
    Application.MessageBox('客户所在区域不能为空！','明日科技');
    DBLookupComboBox3.SetFocus;
    Exit;
  end;

  TFrm_Buyers(ActiveForm).ADOBuyer.Edit;
  TFrm_Buyers(ActiveForm).ADOBuyer.FieldByName('MR_Date').AsDateTime:=DateTimePicker1.DateTime;
  TFrm_Buyers(ActiveForm).ADOBuyer.UpdateBatch;
  Close;
end;

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

procedure TFrm_BuyerEdit.FormShow(Sender: TObject);
begin
  if TFrm_Buyers(ActiveForm).ADOBuyer.State in [dsEdit] then
    DateTimePicker1.DateTime:=TFrm_Buyers(ActiveForm).ADOBuyer.FieldByName('MR_Date').AsDateTime
  else
    DateTimePicker1.DateTime:=Now;

  ADOType.Close;
  ADOSouce.Close;
  ADOArea.Close;  
  ADOType.Open;
  ADOSouce.Open;
  ADOArea.Open;
end;

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

end.