ord140_04.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Ord140_04;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BAS200_17, ActnList, Menus, StdCtrls, Buttons, jpeg, ExtCtrls,
  ComCtrls, wwdbdatetimepicker, Grids, Wwdbigrd, Wwdbgrid, DB, ADODB, Mask,
  wwdbedit, Wwdotdot;

type
  TOrd140_04Form = class(TBas200_17Form)
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    lblTaskCode: TLabel;
    edtCode: TEdit;
    lblTaskName: TLabel;
    edtName: TEdit;
    lblTaskStatus: TLabel;
    cbCurr: TComboBox;
    edtToDate: TwwDBDateTimePicker;
    Label2: TLabel;
    edtFromDate: TwwDBDateTimePicker;
    Label1: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    GroupBox2: TGroupBox;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    GroupBox3: TGroupBox;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    TabSheet3: TTabSheet;
    GroupBox4: TGroupBox;
    Edit15: TEdit;
    Edit17: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    sbItem: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    dbgOrd140B: TwwDBGrid;
    dbgOrd140C: TwwDBGrid;
    CheckBox9: TCheckBox;
    Label4: TLabel;
    Edit16: TEdit;
    edtItem: TwwDBComboDlg;
    qryItems: TADOQuery;
    qryItemsFCode: TWideStringField;
    qryItemsFName: TWideStringField;
    qryItemsFNo: TAutoIncField;
    adsOrd140B: TADODataSet;
    adsOrd140BFCode: TStringField;
    adsOrd140BFName: TStringField;
    adsOrd140BFNo: TIntegerField;
    qryOrd140B: TADOQuery;
    qryOrd140BO140B_001: TIntegerField;
    qryOrd140BO140B_002: TSmallintField;
    qryOrd140BO140B_003: TIntegerField;
    dsOrd140B: TDataSource;
    dsOrd140C: TDataSource;
    adsOrd140C: TADODataSet;
    adsOrd140CFNo: TIntegerField;
    adsOrd140CFMoney: TFloatField;
    adsOrd140CFDiscount: TFloatField;
    qryOrd140C: TADOQuery;
    qryOrd140CO140C_001: TIntegerField;
    qryOrd140CO140C_002: TFloatField;
    qryOrd140CO140C_003: TFloatField;
    qryGld100: TADOQuery;
    ADOQuery1: TADOQuery;
    cbSumDis: TCheckBox;
    cbType: TComboBox;
    lblTaskClass: TLabel;
    Label5: TLabel;
    qryInv150: TADOQuery;
    qryInv150I150_001: TAutoIncField;
    qryInv150I150_002: TWideStringField;
    qryInv150I150_003: TWideStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    { Public declarations }
  end;

var
  Ord140_04Form: TOrd140_04Form;

implementation

{$R *.dfm}

procedure TOrd140_04Form.FormCreate(Sender: TObject);
begin
  inherited;
  APageCount:=5;
end;

procedure TOrd140_04Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

end.