unitquit.pas

来自「这是一个SQL的物资管理系统 这是一个SQL的物资管理系统」· PAS 代码 · 共 71 行

unit UnitQuit;

interface

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

type
  TFrmQuit = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    edtQuitID: TEdit;
    edtQuitDate: TEdit;
    edtOutMan: TEdit;
    edtWzID: TEdit;
    edtName: TEdit;
    edtCard: TEdit;
    edtModel: TEdit;
    edtSpec: TEdit;
    edtUntiPrice: TEdit;
    edtPhone: TEdit;
    cmbbxQuitType: TComboBox;
    cmbbxStorePlace: TComboBox;
    edtRemark: TEdit;
    edtQuitName: TEdit;
    cmbbxQuitDepartment: TComboBox;
    cmbbxUnit: TComboBox;
    edtAmount: TEdit;
    cmbbxCustomerName: TComboBox;
    edtAddress: TEdit;
    edtLinkMan: TEdit;
    Label24: TLabel;
    edtGathering: TEdit;
    btnPost: TButton;
    btnReflesh: TButton;
    Label6: TLabel;
    edtQuitMoney: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmQuit: TFrmQuit;

implementation

{$R *.dfm}

end.