datachoice_unit.pas

客户关系管理系统 DELPHI7下的

unit DataChoice_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons;

type
  TfrmDataChoice = class(TForm)
    MonthCalendar1: TMonthCalendar;
    btnOk: TBitBtn;
    btnEsc: TBitBtn;
    procedure btnOkClick(Sender: TObject);
    procedure btnEscClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDataChoice: TfrmDataChoice;

implementation

uses DM_Unit, CustomerBooking_Unit, CustomerInfo_Unit, Production_Unit,
  Transaction_Unit, TransProduction_Unit, Eventlog_Unit1, Employee_Unit;

{$R *.dfm}

procedure TfrmDataChoice.btnOkClick(Sender: TObject);
begin
  if Flag = 0 then
    frmEmployee.DBEdit4.Text := DateToStr(MonthCalendar1.Date);
  if Flag = 1 then
    frmCustomerBooking.DBEdit2.Text := DateToStr(MonthCalendar1.Date);
  if Flag = 2 then
    frmCustomerBooking.DBEdit10.Text := DateToStr(MonthCalendar1.Date);
  if Flag = 3 then
    frmCustomerInfo.DBEdit4.Text := DateToStr(MonthCalendar1.Date);
  if Flag = 4 then
    frmProduction.DBEdit3.Text := DateToStr(MonthCalendar1.Date);
  if Flag = 5 then
    frmProduction.DBEdit7.Text := DateToStr(MonthCalendar1.Date);
  if Flag = 6 then
    frmTransaction.DBEdit2.Text := DateToStr(MonthCalendar1.Date);
  if Flag = 7 then
    frmTransProduction.DBEdit2.Text := DateToStr(MonthCalendar1.Date);
  if Flag = 8 then
    frmTransProduction.DBEdit3.Text := DateToStr(MonthCalendar1.Date);
  if Flag = 9 then
    frmEventlog.DBEdit2.Text := DateToStr(MonthCalendar1.Date);
  Close;
end;

procedure TfrmDataChoice.btnEscClick(Sender: TObject);
begin
  Close;
end;

end.