DONGSHENG6/信息资源/u_info_plan_over.pas

unit u_info_plan_over;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, wwdbdatetimepicker, BusinessSkinForm, bsSkinCtrls,
  ADODB, DBCtrls, RxLookup, wwdbedit, Wwdotdot, Wwdbcomb, Mask;

type
  Tfrm_info_plan_over = class(TForm)
    DataSource1: TDataSource;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    t_crm_client_link: TADOQuery;
    t_crm_client_link1: TDataSource;
    bsSkinPanel1: TbsSkinPanel;
    Label1: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinGroupBox1: TbsSkinGroupBox;
    Memo1: TMemo;
    bsSkinPanel2: TbsSkinPanel;
    Label55: TLabel;
    Label54: TLabel;
    Label57: TLabel;
    Label56: TLabel;
    Label60: TLabel;
    Label58: TLabel;
    Label61: TLabel;
    Label59: TLabel;
    Label9: TLabel;
    DBEdit46: TDBEdit;
    wwDBComboBox3: TwwDBComboBox;
    wwDBDateTimePicker5: TwwDBDateTimePicker;
    DBEdit47: TDBEdit;
    RxDBLookupCombo8: TRxDBLookupCombo;
    DBEdit49: TDBEdit;
    wwDBComboBox4: TwwDBComboBox;
    DBMemo3: TDBMemo;
    RxDBLookupCombo2: TRxDBLookupCombo;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure t_crm_client_linkAfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_info_plan_over: Tfrm_info_plan_over;

implementation

uses u_main, my_sys_function;

{$R *.dfm}

procedure Tfrm_info_plan_over.bsSkinButton2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_info_plan_over.bsSkinButton1Click(Sender: TObject);
begin
  if wwDBDateTimePicker1.Text='' then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD><D5A3><EFBFBD>');
    exit;
  end;
  if wwDBDateTimePicker1.Date<DataSource1.DataSet.FieldByName('ִ<><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asdatetime then
  begin
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڲ<EFBFBD><DAB2><EFBFBD>С<EFBFBD><D0A1>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
    exit;
  end;
  if bsSkinPanel2.Visible then
  begin
    table_before_post(t_crm_client_link,'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
    table_before_post(t_crm_client_link,'<27>Ӵ<EFBFBD><D3B4><EFBFBD>ʽ');
    table_before_post(t_crm_client_link,'<27>Ӵ<EFBFBD>Ŀ<EFBFBD><C4BF>');
    table_before_post(t_crm_client_link,'<27>ͻ<EFBFBD><CDBB><EFBFBD>Ա');
    table_before_post(t_crm_client_link,'<27>Ӵ<EFBFBD><D3B4><EFBFBD><EFBFBD><EFBFBD>');
    table_before_post(t_crm_client_link,'ҵ<><D2B5>Ч<EFBFBD><D0A7>');
    table_before_post(t_crm_client_link,'ҵ<><D2B5><EFBFBD>ܽ<EFBFBD>');
    table_before_post(t_crm_client_link,'<27>Ӵ<EFBFBD><D3B4><EFBFBD>');
    t_crm_client_link.post;
  end;
  DataSource1.DataSet.Edit;
  DataSource1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
  DataSource1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=wwDBDateTimePicker1.DateTime;
  DataSource1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ܽ<EFBFBD>']:=Memo1.Lines.Text;
  DataSource1.DataSet.post;
  DataSource1.DataSet.Refresh;
  close;
end;

procedure Tfrm_info_plan_over.FormShow(Sender: TObject);
begin
  wwDBDateTimePicker1.DateTime:=now;
end;

procedure Tfrm_info_plan_over.t_crm_client_linkAfterInsert(
  DataSet: TDataSet);
begin
  t_crm_client_link['<27>Ӵ<EFBFBD><D3B4><EFBFBD>']:=employee;
  t_crm_client_link['<27>Ӵ<EFBFBD><D3B4><EFBFBD><EFBFBD><EFBFBD>']:=date;
  t_crm_client_link['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
  t_crm_client_link['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
end;

end.