stockinfo1edit1.pas

来自「是一款针对啤酒行业的销售进销存管理系统,包括基本的进货,销售,库存」· PAS 代码 · 共 73 行

unit StockInfo1Edit1;

interface

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

type
  TStockEdit1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Bevel1: TBevel;
    PicButton2: TPicButton;
    PicButton3: TPicButton;
    PicButton7: TPicButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    JHdate: TDateTimePicker;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Edit3: TEdit;
    Label6: TLabel;
    ComboBox2: TComboBox;
    procedure Image2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure PicButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  StockEdit1: TStockEdit1;

implementation

{$R *.dfm}
uses common;
procedure TStockEdit1.Image2Click(Sender: TObject);
begin
  close;
end;

procedure TStockEdit1.FormCreate(Sender: TObject);
begin
     ShowPloyForm(image1.Picture.Bitmap,handle);
     edit1.Text:=billcode;
     Jhdate.Date:=strTodate(strValue[0]);
     edit2.Text:=strValue[1];
     combobox1.Text:=strValue[2];
     edit3.Text:=strValue[3];
     combobox2.Text:=strValue[4];     
end;

procedure TStockEdit1.Button1Click(Sender: TObject);
begin
   close;
end;

procedure TStockEdit1.PicButton7Click(Sender: TObject);
begin
  close;
end;

end.