editform1.~pas

管理

unit EditForm1;

interface

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

type
  TEditForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel3: TPanel;
    Label9: TLabel;
    Label10: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Panel4: TPanel;
    Label8: TLabel;
    Edit8: TEdit;
    Edit7: TEdit;
    Label7: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    FANumber: Integer;
    FAID: Integer;
    FAYearSum: Integer;
    FAMonthSum: Integer;
    FASumprice: Integer;
    FAprice: Integer;
    FAVariety: String;
    FAEnterTime: String;
    procedure SetAEnterTime(const Value: String);
    procedure SetAID(const Value: Integer);
    procedure SetAMonthSum(const Value: Integer);
    procedure SetANumber(const Value: Integer);
    procedure SetAprice(const Value: Integer);
    procedure SetASumprice(const Value: Integer);
    procedure SetAVariety(const Value: String);
    procedure SetAYearSum(const Value: Integer);
    { Private declarations }
  public
    { Public declarations }
    property AID :Integer read FAID write SetAID;
    Property AEnterTime : String read FAEnterTime write SetAEnterTime;
    property AVariety : String read FAVariety write SetAVariety;
    property Aprice : Integer read FAprice write SetAprice;
    property ANumber: Integer read FANumber write SetANumber;
    property ASumprice : Integer read FASumprice write SetASumprice;
    property AMonthSum : Integer read FAMonthSum write SetAMonthSum;
    property AYearSum  : Integer read FAYearSum write SetAYearSum;
  end;

var
  EditForm: TEditForm;
  Procedure SendValueShowMal(ID:Integer;EnterTime:String;Variety:String;Price:Integer;Number:Integer;SumPrice:Integer;MonthSum:Integer;YearSum:Integer);

implementation

uses MainForm1;

{$R *.dfm}
Procedure SendValueShowMal(ID:Integer;EnterTime:String;Variety:String;Price:Integer;Number:Integer;SumPrice:Integer;MonthSum:Integer;YearSum:Integer);
begin
 { EditForm := TEditForm.Create(Nil);
  try
    {EditForm.AID := ID;
    EditForm.AEnterTime := EnterTime;
    EditForm.AVariety   := Variety;
    EditForm.Aprice     := Price;
    EditForm.ANumber    := Number;
    EditForm.ASumprice  := SumPrice;
    EditForm.AMonthSum  := MonthSum;
    EditForm.AYearSum   := YearSum; 
    EditForm.ShowModal;
  finally
    EditForm.Free;
  end;    }

end;

procedure TEditForm.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TEditForm.SetAEnterTime(const Value: String);
begin
  FAEnterTime := Value;
end;

procedure TEditForm.SetAID(const Value: Integer);
begin
  FAID := Value;
end;

procedure TEditForm.SetAMonthSum(const Value: Integer);
begin
  FAMonthSum := Value;
end;

procedure TEditForm.SetANumber(const Value: Integer);
begin
  FANumber := Value;
end;

procedure TEditForm.SetAprice(const Value: Integer);
begin
  FAprice := Value;
end;

procedure TEditForm.SetASumprice(const Value: Integer);
begin
  FASumprice := Value;
end;

procedure TEditForm.SetAVariety(const Value: String);
begin
  FAVariety := Value;
end;

procedure TEditForm.SetAYearSum(const Value: Integer);
begin
  FAYearSum := Value;
end;

procedure TEditForm.FormShow(Sender: TObject);
begin
  {Edit1.Text := IntToStr(AID);
  Edit2.Text := AEnterTime;
  Edit3.Text := AVariety;
  Edit4.Text := IntToStr(APrice);
  Edit5.Text := IntToStr(ANumber);
  Edit6.Text := IntToStr(ASumPrice);
  Edit7.Text := IntToStr(AMonthSum);
  Edit8.Text := IntToStr(AYearSum); }
end;

procedure TEditForm.BitBtn1Click(Sender: TObject);
begin
  if Caption = '编辑 . . .' then
    MainForm.adoRecord.Edit
  else
    MainForm.adoRecord.Append;
  MainForm.adoRecordEnterTime.Value    := Edit2.Text;
  MainForm.adoRecordVeriety.Value      := Edit3.Text;
  MainForm.adoRecordPrice.AsFloat      := StrToFloat(Edit4.Text);
  MainForm.adoRecordNumber.AsFloat     := StrToFloat(Edit5.Text);
  MainForm.adoRecordSumprice.AsString  := Edit6.Text;
  MainForm.adoRecordSumMonth.AsString  := Edit7.Text;
  MainForm.adoRecordSumYear.AsString   := Edit8.Text;
  MainForm.adoRecordDayPayout.AsString := Edit9.Text;
  MainForm.adoRecordDayincome.AsString := Edit10.Text;
  MainForm.adoRecord.Post;
  MainForm.adoRecord.Requery();
end;

end.