xstj.pas

来自「库房管理系统」· PAS 代码 · 共 70 行

unit xstj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls,DBCtrls,  Mask,DateUtils;
  
type
  Txstjfrm = class(TForm)
    lbl1: TLabel;
    grp1: TGroupBox;
    btn2: TButton;
    grp2: TGroupBox;
    grp3: TGroupBox;
    btn1: TButton;
    dbgrd1: TDBGrid;
    btn3: TButton;
    grp4: TGroupBox;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    lbl8: TLabel;
    edt13: TEdit;
    grp5: TGroupBox;
    grp6: TGroupBox;
    grp7: TGroupBox;
    lbl17: TLabel;
    edt14: TEdit;
    lbl18: TLabel;
    edt15: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    edt5: TEdit;
    edt6: TEdit;
    edt7: TEdit;
    edt8: TEdit;
    edt9: TEdit;
    edt10: TEdit;
    edt11: TEdit;
    edt12: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
    //wlmc_var:string;
  end;

var
  xstjfrm: Txstjfrm;

implementation

uses mainfm, dm;

{$R *.dfm}

end.