ukhgl.pas

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

unit Ukhgl;

interface

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

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

var
  frm_khgl: Tfrm_khgl;

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

procedure TFrm_khgl.ReadKhmx;
begin
  with frm_khzl do
  begin
    edit1.Text:=datam.KHMXSetKHDM.AsString;
    edit2.Text:=datam.KHMXSetKHMC.AsString;
    edit3.Text:=datam.KHMXSetKHTAXNo.AsString;
    edit4.Text:=datam.KHMXSetKHBank.AsString;
    edit5.Text:=datam.KHMXSetKHZH.AsString;
    edit6.Text:=datam.KHMXSetKHYZBM.AsString;
    edit7.Text:=datam.KHMXSetKHAddress.AsString;
    edit8.Text:=datam.KHMXSetKHTelNO.AsString;
    edit9.Text:=datam.KHMXSetKHMAIN.AsString;
    edit10.Text:=datam.KHMXSetCredence.AsString;
  end;
end;

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

procedure Tfrm_khgl.BitBtn4Click(Sender: TObject);
label abc;
begin
  if datam.KHFLSet.Eof and datam.KHFLSet.Bof then
  begin
    Application.MessageBox('请先增加一个分类名称，然后再增加客户！', '提示',
      MB_OK + MB_ICONINFORMATION + MB_TOPMOST);
    exit;
  end;
  frm_khzl.Edit1.Clear;
  frm_khzl.Edit2.Clear;
  frm_khzl.Edit3.Clear;
  frm_khzl.Edit4.Clear;
  frm_khzl.Edit5.Clear;
  frm_khzl.Edit6.Clear;
  frm_khzl.Edit7.Clear;
  frm_khzl.Edit8.Clear;
  frm_khzl.Edit9.Clear;
  frm_khzl.Edit10.Clear;
  frm_khzl.Panel1.Enabled:=true;
  frm_khzl.StatusBar1.Panels[0].Text:='【新增】';
  abc:
  if frm_khzl.ShowModal=mrOk then
  begin
    if (frm_khzl.Edit1.Text='') or (length(frm_khzl.Edit2.Text)<=2) then
    begin
      Application.MessageBox('数据填写不完整，请重新输入！', '提示', MB_OK + 
        MB_ICONINFORMATION + MB_TOPMOST);
      goto abc;
    end else
    begin
      //开始新增
      datam.KHMXSet.Append;
      datam.KHMXSetfl_id.AsInteger:=datam.KHFLSetfl_id.AsInteger;
      datam.KHMXSetKHDM.AsString:=frm_khzl.Edit1.Text;
      datam.KHMXSetKHMC.AsString:=frm_khzl.Edit2.Text;
      datam.KHMXSetKHTAXNo.AsString:=frm_khzl.Edit3.Text;
      datam.KHMXSetKHBank.AsString:=frm_khzl.Edit4.Text;
      datam.KHMXSetKHZH.AsString:=frm_khzl.Edit5.Text;
      datam.KHMXSetKHYZBM.AsString:=frm_khzl.Edit6.Text;
      datam.KHMXSetKHAddress.AsString:=frm_khzl.Edit7.Text;
      datam.KHMXSetKHTelNO.AsString:=frm_khzl.Edit8.Text;
      datam.KHMXSetKHMAIN.AsString:=frm_khzl.Edit9.Text;
      datam.KHMXSetCredence.AsString:=frm_khzl.Edit10.Text;
      datam.KHMXSet.Post;
    end;
  end;
end;

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

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

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

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

procedure Tfrm_khgl.BitBtn5Click(Sender: TObject);
label abc;
begin
  if datam.KHMXSet.Eof and datam.KHMXSet.Bof then
  begin
    Application.MessageBox('没有要修改的客户！，无法修改！', '提示',
      MB_OK + MB_ICONINFORMATION + MB_TOPMOST);
    exit;
  end;
  readkhmx;
  frm_khzl.Panel1.Enabled:=true;
  frm_khzl.StatusBar1.Panels[0].Text:='【修改】';
  abc:
  if frm_khzl.ShowModal=mrOk then
  begin
    if (frm_khzl.Edit1.Text='') or (length(frm_khzl.Edit2.Text)<=2) then
    begin
      Application.MessageBox('数据填写不完整，请重新输入！', '提示', MB_OK + 
        MB_ICONINFORMATION + MB_TOPMOST);
      goto abc;
    end else
    begin
      //开始新增
      datam.KHMXSet.edit;
      datam.KHMXSetfl_id.AsInteger:=datam.KHFLSetfl_id.AsInteger;
      datam.KHMXSetKHDM.AsString:=frm_khzl.Edit1.Text;
      datam.KHMXSetKHMC.AsString:=frm_khzl.Edit2.Text;
      datam.KHMXSetKHTAXNo.AsString:=frm_khzl.Edit3.Text;
      datam.KHMXSetKHBank.AsString:=frm_khzl.Edit4.Text;
      datam.KHMXSetKHZH.AsString:=frm_khzl.Edit5.Text;
      datam.KHMXSetKHYZBM.AsString:=frm_khzl.Edit6.Text;
      datam.KHMXSetKHAddress.AsString:=frm_khzl.Edit7.Text;
      datam.KHMXSetKHTelNO.AsString:=frm_khzl.Edit8.Text;
      datam.KHMXSetKHMAIN.AsString:=frm_khzl.Edit9.Text;
      datam.KHMXSetCredence.AsString:=frm_khzl.Edit10.Text;
      datam.KHMXSet.Post;
    end;
  end;
end;

procedure Tfrm_khgl.BitBtn6Click(Sender: TObject);
var AKHMC:string;
begin
  if datam.KHMXSet.Eof and datam.KHMXSet.Bof then
  begin
    Application.MessageBox('没有客户可删！，无法删除！', '提示',
      MB_OK + MB_ICONINFORMATION + MB_TOPMOST);
    exit;
  end;
  AKHMC:=datam.KHMXSetKHMC.AsString;
  if Application.MessageBox(pchar('你确定需要删除该客户吗？' + #13#10 + '客户：'+AKHMC),
    '询问', MB_OKCANCEL + MB_ICONQUESTION + MB_TOPMOST) = IDOK then
  begin
    datam.KHMXSet.Delete;
  end;
end;

end.