ufrmcustomer_info.pas

工廠採購管理系統

unit ufrmcustomer_info;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ComCtrls, ExtCtrls, RzPanel, RzSplit, Grids, DBGrids,
  DBCtrls, DB, ADODB, StdCtrls, Mask, RzCmboBx, RzDBCmbo,
 Buttons, FR_DSet, FR_DBSet, FR_Class;

type
  Tfrmcustomer_info = class(TForm)
    RzSizePanel1: TRzSizePanel;
    Panel1: TPanel;
    Panel2: TPanel;
    TreeView1: TTreeView;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    ADOTable1: TADOTable;
    Panel3: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label17: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit13: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    RzBitBtn7: TRzBitBtn;
    RzBitBtn8: TRzBitBtn;
    DBEdit9: TDBEdit;
    RzDBLookupComboBox2: TRzDBLookupComboBox;
    RzDBLookupComboBox6: TRzDBLookupComboBox;
    RzMenuToolbarButton1: TRzMenuToolbarButton;
    DBEdit6: TDBEdit;
    ADOQuery1DSDesigner: TStringField;
    ADOQuery1DSDesigner2: TStringField;
    ADOQuery1DSDesigner3: TStringField;
    ADOQuery1DSDesigner4: TStringField;
    ADOQuery1DSDesigner5: TStringField;
    ADOQuery1DSDesigner6: TStringField;
    ADOQuery1DSDesigner7: TStringField;
    ADOQuery1email: TStringField;
    ADOQuery1DSDesigner8: TStringField;
    ADOQuery1DSDesigner9: TStringField;
    ADOQuery1DSDesigner10: TDateTimeField;
    ADOQuery1DSDesigner11: TMemoField;
    ADOQuery1DSDesigner12: TStringField;
    ADOQuery1DSDesigner13: TStringField;
    ADOStoredProc1: TADOStoredProc;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn7Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure RzBitBtn5Click(Sender: TObject);
    procedure RzBitBtn8Click(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure RzBitBtn6Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure DBEdit6Enter(Sender: TObject);
    procedure DBEdit6Exit(Sender: TObject);
    procedure RzMenuToolbarButton1Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
    strsql:string;
    addedit:boolean;
    id:string;
  public
    { Public declarations }
  end;

var
  frmcustomer_info: Tfrmcustomer_info;

implementation
uses uconst,udm1,Unit_treepublic,ufunction, ucx,ucountry,unit3;
{$R *.dfm}

procedure Tfrmcustomer_info.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrmcustomer_info.FormCreate(Sender: TObject);
begin
addedit:=false;
adoquery2.Connection:=DM1.ADOConnection1;
adostoredproc1.Connection:=dm1.ADOConnection1;
maketree(adoquery2,'country_class',treeview1,'国籍类别');
strsql:='select khdm as 客户代码,khmc as 名称,fr as 国籍,lxr as 联系人,'+
        'cz as 传真,dh as 电话,wz as 网站, email,dz as 地址,djr as 操作,srrq as 日期,'+
        'node as 备注,bb as 币别,fkfs as 付款方式 from khdmk order by khdm asc';
adoexect(adoquery1,strsql);
end;

procedure Tfrmcustomer_info.RzBitBtn1Click(Sender: TObject);
var
id:string;
begin
if not qxjc(userid,'jbzl_add') then exit;
addedit:=true;
RzBitBtn1.Enabled:=false;
RzBitBtn2.Enabled:=false;
RzBitBtn6.Enabled:=false;
RzBitBtn7.Enabled:=true;
PageControl1.ActivePageIndex:=1;
adoquery1.Append;
dbedit2.Text:=userid;
dbedit4.Text:=datetostr(date);
dbedit1.SetFocus;
end;

procedure Tfrmcustomer_info.RzBitBtn2Click(Sender: TObject);
begin
if not qxjc(userid,'jbzl_edit') then exit;
if (adoquery1.Recordset.EOF) and (adoquery1.Recordset.BOF) then begin
messagebox(handle,'没有选择要修改的记录！','警告',mb_ok+mb_iconwarning);
exit;
end;
id:=trim(dbedit1.Text);
addedit:=true;
RzBitBtn1.Enabled:=false;
RzBitBtn2.Enabled:=false;
RzBitBtn6.Enabled:=false;
RzBitBtn7.Enabled:=true;
adoquery1.Edit;
dbedit2.Text:=userid;
dbedit4.Text:=datetostr(date);
PageControl1.ActivePageIndex:=1;
end;

procedure Tfrmcustomer_info.RzBitBtn7Click(Sender: TObject);
begin
if savedata(adoquery1,'khdmk',trim(dbedit1.Text),id,'khdm') then begin
if adoquery1.State in[dsedit] then
   begin
        strsql:='exec p_update_khdm '+''''+id+''''+','+''''+trim(dbedit1.Text)+'''';
        adodel(adoquery3,strsql);
        adoquery3.Close;
   end;
adoquery1.Post;
messagebox(handle,'操作成功！','信息',mb_ok+mb_iconinformation);
RzBitBtn1.Enabled:=true;
RzBitBtn2.Enabled:=true;
RzBitBtn6.Enabled:=true;
RzBitBtn7.Enabled:=false;
PageControl1.ActivePageIndex:=0;
addedit:=false;
end;
end;

procedure Tfrmcustomer_info.PageControl1Change(Sender: TObject);
begin
if addedit then
PageControl1.ActivePageIndex:=1
else
PageControl1.ActivePageIndex:=0;
end;

procedure Tfrmcustomer_info.RzBitBtn5Click(Sender: TObject);
begin
close;
end;

procedure Tfrmcustomer_info.RzBitBtn8Click(Sender: TObject);
begin
adoquery1.CancelUpdates;
RzBitBtn1.Enabled:=true;
RzBitBtn2.Enabled:=true;
RzBitBtn6.Enabled:=true;
RzBitBtn7.Enabled:=false;
PageControl1.ActivePageIndex:=0;
addedit:=false;
end;

procedure Tfrmcustomer_info.TreeView1Change(Sender: TObject;
  Node: TTreeNode);
  var
  lbmc:string;
begin
lbmc:=trim(treeview1.Selected.Text);
strsql:='select khdm as 客户代码,khmc as 名称,fr as 国籍,lxr as 联系人,'+
        'cz as 传真,dh as 电话,wz as 网站, email,dz as 地址,djr as 操作,srrq as 日期,'+
        'node as 备注,bb as 币别,fkfs as 付款方式 from khdmk where fr=' +
        ''''+  lbmc + '''' +'order by khdm asc';
 if node.level=0 then
         strsql:='select khdm as 客户代码,khmc as 名称,fr as 国籍,lxr as 联系人,'+
        'cz as 传真,dh as 电话,wz as 网站, email,dz as 地址,djr as 操作,srrq as 日期,'+
        'node as 备注,bb as 币别,fkfs as 付款方式 from khdmk order by khdm asc';
 adoexect(adoquery1,strsql);

end;
procedure Tfrmcustomer_info.RzBitBtn6Click(Sender: TObject);
var
a:integer;
begin
if not qxjc(userid,'jbzl_del') then exit;
ADOStoredProc1.close;
adostoredproc1.Parameters.Clear;
adostoredproc1.ProcedureName:='p_check_khdm';
adostoredproc1.Parameters.CreateParameter('@khdm',ftstring,pdInput,10,1);
ADOStoredProc1.Parameters.ParamByName('@khdm').Value:=trim(adoquery1.fieldbyname('客户代码').AsString);
adostoredproc1.Parameters.CreateParameter('@isok',ftinteger,pdoutput,1,1);
ADOStoredProc1.prepared:=true;
ADOStoredProc1.ExecProc;
a:=ADOStoredProc1.Parameters.ParamValues['@isok'];
if a=1 then
   begin
   showmessage('对不起！该客户已经使用了，不能删除');
   exit;
   end;
if messagebox(handle,'是否真的要删除该条记录？','询问',mb_yesno+mb_iconquestion)=idno then exit;
if (adoquery1.Recordset.EOF) and (adoquery1.Recordset.BOF) then begin
messagebox(handle,'没有选择要删除的记录！','警告',mb_ok+mb_iconwarning);
exit;
end;
adoquery1.Delete;
adoquery1.Requery();
end;

procedure Tfrmcustomer_info.RzBitBtn4Click(Sender: TObject);
begin
frmcx:=tfrmcx.Create(self);
frmcx.adocx:=adoquery1;
frmcx.ShowModal;
adoquery1:=frmcx.adocx;
ADOquery1.Requery();
dbgrid1.Refresh;
end;

procedure Tfrmcustomer_info.DBEdit6Enter(Sender: TObject);
begin
RzMenuToolbarButton1.Visible:=true;
end;

procedure Tfrmcustomer_info.DBEdit6Exit(Sender: TObject);
begin
RzMenuToolbarButton1.Visible:=false;
end;

procedure Tfrmcustomer_info.RzMenuToolbarButton1Click(Sender: TObject);
begin
frmcountry:=tfrmcountry.Create(self);
frmcountry.ShowModal;
dbedit6.Text:=lbname;
end;

procedure Tfrmcustomer_info.RzBitBtn3Click(Sender: TObject);
begin
form3.frDBDataSet1.dataset:=adoquery1;
form3.frReport1.DoublePass := True;
form3.frReport1.Clear;
form3.frReport1.LoadFromFile(strpath+'/report/khda.frf');
frVariables['username']:=username;
form3.frReport1.Preview := Form3.frPreview1;
if form3.frReport1.PrepareReport then
  begin
    form3.frReport1.ShowPreparedReport;
  end;
form3.ShowModal;
end;

procedure Tfrmcustomer_info.DBGrid1TitleClick(Column: TColumn);
begin
dgridpx(adoquery1,DBGrid1,Column);
end;

end.