umission.pas

安徽省货物销售统一发票管理系统 操作说明 1、开票 F7或双击可 查询

unit UMission;

interface

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

type
  Tfrm_Mission = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    SpeedButton1: TSpeedButton;
    Label8: TLabel;
    DBEdit7: TDBEdit;
    SpeedButton2: TSpeedButton;
    DBLookupComboBox1: TDBLookupComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Mission: Tfrm_Mission;

implementation
uses Udatam,main;
{$R *.dfm}

procedure Tfrm_Mission.BitBtn1Click(Sender: TObject);
begin
  frm_main.Action3.Execute;
  datam.CurMission.Edit;
  datam.CurMissiontaxNo.AsString:=datam.MissionSetTaxNo.AsString;
  datam.CurMission.Post;
end;

procedure Tfrm_Mission.FormActivate(Sender: TObject);
begin
  datam.CurMission.Edit;
  datam.CurMissiontaxNo.AsString:=datam.MissionSetTaxNo.AsString;
  datam.CurMission.Post;
end;

procedure Tfrm_Mission.SpeedButton1Click(Sender: TObject);
begin
  datam.MissionSet.Edit;
  dbedit6.Field.AsString:=frm_main.GetRen(dbedit6.Text);
  datam.MissionSet.Post;
end;

procedure Tfrm_Mission.SpeedButton2Click(Sender: TObject);
begin
  datam.MissionSet.Edit;
  dbedit7.Field.AsString:=frm_main.GetRen(dbedit7.Text);
  datam.MissionSet.Post;
end;

end.