linkmanedit.pas

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

unit LinkManEdit;

interface

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

type
  TFrm_LinkManEdit = class(TBaseForm)
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label12: TLabel;
    DBComboBox1: TDBComboBox;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DateTimePicker1: TDateTimePicker;
    ADODept: TADODataSet;
    ADODuty: TADODataSet;
    DSDuty: TDataSource;
    DSDept: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_LinkManEdit: TFrm_LinkManEdit;

implementation

uses Buyers,Main,DM;

{$R *.dfm}

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

  ADODept.Close;
  ADODuty.Close;  
  ADODept.Open;
  ADODuty.Open;
end;

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

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

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

end.