ucpgl.pas

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

unit UCPgl;

interface

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

type
  Tfrm_CPGL = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBText1: TDBText;
    DBLookupComboBox1: TDBLookupComboBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    StatusBar1: TStatusBar;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure readcpmx;
    procedure BitBtn5Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_CPGL: Tfrm_CPGL;

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

procedure TFrm_CPgl.Readcpmx;
begin
  with frm_cpzl do
  begin
    edit1.Text:=datam.CPMXSetCPDM.AsString;
    edit2.Text:=datam.CPMXSetCPMC.AsString;
    edit3.Text:=datam.CPMXSetCPGG.AsString;
    edit4.Text:=datam.CPMXSetCPDW.AsString;
    edit5.Text:=datam.CPMXSetdefaDJ.AsString;
    edit6.Text:=datam.CPMXSetdefaSL.AsString;
  end;
end;


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

procedure Tfrm_CPGL.BitBtn1Click(Sender: TObject);
var ATaxNo,AFL:string;
begin
  AFL:='新的类别';
  ATaxNo:=DBLookupComboBox1.Text;
  if inputquery('输入框','输入新类别名称:',AFL) then
  begin
    datam.CPFLSet.Append;
    datam.CPFLSetTaxNo.AsString:=ATaxNo;
    datam.CPFLSetFLMC.AsString:=AFL;
    datam.CPFLSet.Post;
  end;
end;

procedure Tfrm_CPGL.BitBtn2Click(Sender: TObject);
var AFL:string;
begin
  if datam.CPFLSet.Eof and datam.CPFLSet.Bof then
  begin
    Application.MessageBox('没有选定的分类名称，不能修改！', '提示', MB_OK +
      MB_ICONINFORMATION + MB_TOPMOST);
    exit;
  end;
  AFL:=datam.CPFLSetFLMC.AsString;
  if inputquery('输入框','请修改分类名称:',AFL) then
  begin
    datam.CPFLSet.Edit;
    datam.CPFLSetFLMC.AsString:=AFL;
    datam.CPFLSet.Post;
  end;
end;

procedure Tfrm_CPGL.BitBtn3Click(Sender: TObject);
var AFL:string;
begin
  if datam.CPFLSet.Eof and datam.CPFLSet.Bof then
  begin
    Application.MessageBox('没有选定的分类名称，不能删除！', '提示', MB_OK +
      MB_ICONINFORMATION + MB_TOPMOST);
    exit;
  end;
  AFL:=datam.CPFLSetFLMC.AsString;
  if Application.MessageBox(pchar('你真的要删除该类货物吗？删除后将无法恢复！' +
    #13#10 + '类别：'+AFL), '询问', MB_OKCANCEL + MB_ICONQUESTION + MB_DEFBUTTON2 +
    MB_TOPMOST) = IDOK then
  begin
    datam.CPFLSet.Delete;
  end;
end;

procedure Tfrm_CPGL.BitBtn4Click(Sender: TObject);
var Asl,Adj:real;
label abc;
begin
//  Asl:=0.00;
//  ADj:=0.00;
  if datam.cpFLSet.Eof and datam.cpFLSet.Bof then
  begin
    Application.MessageBox('请先增加一个分类名称，然后再增加货物资料！', '提示',
      MB_OK + MB_ICONINFORMATION + MB_TOPMOST);
    exit;
  end;
  frm_cpzl.Edit1.Clear;
  frm_cpzl.Edit2.Clear;
  frm_cpzl.Edit3.Clear;
  frm_cpzl.Edit4.Clear;
  frm_cpzl.Edit5.Text:='0.00';
  frm_cpzl.Edit6.Text:='1';
  frm_cpzl.Panel1.Enabled:=true;
  frm_cpzl.StatusBar1.Panels[0].Text:='【新增】';
  abc:
  if frm_cpzl.ShowModal=mrOk then
  begin
    if (frm_cpzl.Edit1.Text='') or (length(frm_cpzl.Edit2.Text)<=2) then
    begin
      Application.MessageBox('数据填写不完整，请重新输入！', '提示', MB_OK +
        MB_ICONINFORMATION + MB_TOPMOST);
      goto abc;
    end else
    begin
      //开始新增
      try
        Adj:=strtofloat(frm_cpzl.Edit5.Text);
      except
        Adj:=0.00;
      end;
      try
        Asl:=strtofloat(frm_cpzl.Edit6.Text);
      except
        Asl:=1.00;
      end;
      datam.cpMXSet.Append;
      datam.cpMXSetfl_id.AsInteger:=datam.cpFLSetfl_id.AsInteger;
      datam.CPMXSetCPDM.AsString:=frm_cpzl.Edit1.Text;
      datam.CPMXSetCPMC.AsString:=frm_cpzl.Edit2.Text;
      datam.CPMXSetCPGG.AsString:=frm_cpzl.Edit3.Text;
      datam.CPMXSetCPDW.AsString:=frm_cpzl.Edit4.Text;
      datam.CPMXSetdefaDJ.AsFloat:=Adj;
      datam.CPMXSetdefaSL.AsFloat:=Asl;
      datam.CPMXSet.Post;
    end;
  end;
end;

procedure Tfrm_CPGL.BitBtn5Click(Sender: TObject);
var Asl,Adj:real;
label abc;
begin
//  Asl:=0.00;
//  ADj:=0.00;
  if datam.cpmxSet.Eof and datam.cpmxSet.Bof then
  begin
    Application.MessageBox('没有选定要修改的货物，无法修改！', '提示',
      MB_OK + MB_ICONINFORMATION + MB_TOPMOST);
    exit;
  end;
  readcpmx;
  frm_cpzl.Panel1.Enabled:=true;
  frm_cpzl.StatusBar1.Panels[0].Text:='【修改】';
  abc:
  if frm_cpzl.ShowModal=mrOk then
  begin
    if (frm_cpzl.Edit1.Text='') or (length(frm_cpzl.Edit2.Text)<=2) then
    begin
      Application.MessageBox('数据填写不完整，请重新输入！', '提示', MB_OK +
        MB_ICONINFORMATION + MB_TOPMOST);
      goto abc;
    end else
    begin
       try
        Adj:=strtofloat(frm_cpzl.Edit5.Text);
      except
        Adj:=0.00;
      end;
      try
        Asl:=strtofloat(frm_cpzl.Edit6.Text);
      except
        Asl:=1.00;
      end;
      datam.cpMXSet.Edit;
      datam.CPMXSetCPDM.AsString:=frm_cpzl.Edit1.Text;
      datam.CPMXSetCPMC.AsString:=frm_cpzl.Edit2.Text;
      datam.CPMXSetCPGG.AsString:=frm_cpzl.Edit3.Text;
      datam.CPMXSetCPDW.AsString:=frm_cpzl.Edit4.Text;
      datam.CPMXSetdefaDJ.AsFloat:=Adj;
      datam.CPMXSetdefaSL.AsFloat:=Asl;
      datam.CPMXSet.Post;
    end;
  end;
end;

procedure Tfrm_CPGL.DBGrid2DblClick(Sender: TObject);
begin
  if bitbtn7.Visible then
  begin
    bitbtn7.Click;
  end else
  begin
    if datam.cpMXSet.Eof and datam.cpMXSet.Bof then
      exit;
    readcpmx;
    frm_cpzl.BitBtn2.Visible:=false;
    frm_cpzl.Panel1.Enabled:=false;
    frm_cpzl.StatusBar1.Panels[0].Text:='【查询】';
    frm_cpzl.ShowModal;
    frm_cpzl.BitBtn2.Visible:=true;
  end;
end;

end.