unit_servicebartercard.pas

一个不错的源程序DELPHI开发的,功能比较好的客户管理系统

       parambyname('CityNo').asstring:=QueryT_F_CustInfo1.fieldbyname('CityNo').asstring;
       parambyname('Off_No_Home').asstring:=QueryT_F_CustInfo1.fieldbyname('Off_No_Home').asstring;
      end
    else
      begin
          parambyname('CityNo').asstring:=Queryt_f_groupinto1.fieldbyname('CityNo').asstring;
          parambyname('Off_No_Home').asstring:=Queryt_f_groupinto1.fieldbyname('Off_No_Home').asstring;
      end;
    parambyname('ObjType').asinteger:=PageControl1.ActivePageIndex;
    parambyname('TypeCode').asinteger:=1;
    //parambyname('ModeCode').asinteger:=0;
    parambyname('ServKind').asinteger:=1;
    parambyname('ObjFlag').asinteger:=0;
    parambyname('VIP_NO').asstring:=trim(FlatEditvip_no.text);
    //modify by h 2002.08.18
    if PageControl1.ActivePageIndex = 0 then
      begin
        parambyname('ServObj').AsString := QueryT_F_CustInfo1.FieldByName('Sid').AsString;
        parambyname('ObjName').AsString := QueryT_F_CustInfo1.FieldByName('Name').AsString;
      end
    else
      begin
        parambyname('ServObj').AsString := Queryt_f_groupinto1.FieldByName('Sid').AsString;
        //parambyname('ObjName').asstring:=trim(FlatEditObjName.text);
        parambyname('ObjName').AsString := Queryt_f_groupinto1.FieldByName('Name').AsString;
      end;
    if length(trim(FlatEditBeginTime.text))=10 then
        parambyname('BeginTime').asstring:=trim(FlatEditBeginTime.text)
    else
       parambyname('BeginTime').asstring:='1901-01-01';
    parambyname('Wk_No').asstring:=trim(FlatEditWk_No.text);
    parambyname('ServCont').asstring:=trim(FlatMemoServCont.text);
    execsql;
   end;
  if do1='update' then
   begin
    sql.add('update T_F_ServiceLog set ');
    sql.add('VIP_NO=:VIP_NO,ObjName=:ObjName,BeginTime=to_date(:BeginTime,''yyyy-mm-dd''),Wk_No=:Wk_No,ServCont=:ServCont');
    sql.add(' where ServiceCode=:ServiceCode');
    parambyname('ServiceCode').asstring:=trim(FlatEditServiceCode.text);
    parambyname('VIP_NO').asstring:=trim(FlatEditvip_no.text);
    parambyname('ObjName').asstring:=trim(FlatEditObjName.text);
    if length(trim(FlatEditBeginTime.text))=10 then
        parambyname('BeginTime').asstring:=trim(FlatEditBeginTime.text)
    else
       parambyname('BeginTime').asstring:='1901-01-01';
    parambyname('Wk_No').asstring:=gh;
    parambyname('ServCont').asstring:=trim(FlatMemoServCont.text);
    execsql;
   end;
  Dm_Main.Databasedh.commit;
end;
if QueryT_F_ServiceLog1.active then QueryT_F_ServiceLog1.close;
if PageControl1.ActivePageIndex=1 then
   QueryT_F_ServiceLog1.parambyname('sid').asstring:=Queryt_f_groupinto1.fieldbyname('sid').asstring;
   QueryT_F_ServiceLog1.parambyname('ObjType').asinteger:=PageControl1.ActivePageIndex;
QueryT_F_ServiceLog1.open;
if not (QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof) then select_ ;
color_set(clmenu);
enabled_set(false);
enable_(true);
end;

procedure TFrm_ServiceBarterCard.FlatButton4Click(Sender: TObject);
begin
color_set(clmenu);
enabled_set(false);
enable_(true);
end;

procedure TFrm_ServiceBarterCard.select_;
begin
with QueryT_F_ServiceLog1 do
begin
    FlatEditServiceCode.text:=fieldbyname('ServiceCode').asstring;
    FlatEditvip_no.text:=fieldbyname('VIP_NO').asstring;
    FlatEditObjName.text:=fieldbyname('ObjName').asstring;
    FlatEditBeginTime.text:=fieldbyname('BeginTime').asstring;
    FlatEditWk_No.text:=fieldbyname('Wk_No').asstring;
    FlatMemoServCont.text:=fieldbyname('ServCont').asstring;
end;
end;

procedure TFrm_ServiceBarterCard.DataSourceT_F_CustInfo1DataChange(Sender: TObject;
  Field: TField);
begin
  if QueryT_F_CustInfo1.active then
    if not (QueryT_F_CustInfo1.bof and QueryT_F_CustInfo1.eof) then
    //if QueryT_F_CustInfo1.recordcount>0 then
      begin
        if QueryT_F_ServiceLog1.active then
          QueryT_F_ServiceLog1.close;
        QueryT_F_ServiceLog1.parambyname('sid').asstring:=QueryT_F_CustInfo1.fieldbyname('sid').asstring;
        QueryT_F_ServiceLog1.parambyname('ObjType').asinteger:=PageControl1.ActivePageIndex;
        QueryT_F_ServiceLog1.open;
        if not (QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof) then
        //if  QueryT_F_ServiceLog1.recordcount>0 then
          begin
            clear_in;
            select_;
          end
        else
          clear_in;
        exit;
     end;
{        if  QueryT_F_ServiceLog1.recordcount>0 then
     begin
       clear_in;
       select_;
     end
   else
     clear_in;}
    QueryT_F_ServiceLog1.Close;
    clear_in

end;

procedure TFrm_ServiceBarterCard.DataSourceT_F_ServiceLog1DataChange(Sender: TObject;
  Field: TField);
begin
 if not (QueryT_F_CustInfo1.bof and QueryT_F_CustInfo1.eof) then
 if not (QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof) then
 //if  QueryT_F_ServiceLog1.recordcount>0 then
    begin
     select_ ;
     enable_(true);
    end
 else
     begin
         FlatButton1.enabled:=false;
         FlatButton2.enabled:=true;
         FlatButton3.enabled:=false;
         FlatButton4.enabled:=false;
         FlatButton5.enabled:=false;
     end;
end;

procedure TFrm_ServiceBarterCard.FlatButton7Click(Sender: TObject);
begin
  if Queryt_f_groupinto1.Active then  Queryt_f_groupinto1.Close;
if querytemp.active then querytemp.close;
   querytemp.sql.clear;
   querytemp.sql.add('select * from t_f_groupinfo where vip_no='''+trim(Flatvip2.text)+'''');
   querytemp.open;
   if querytemp.bof and querytemp.eof then
   //if  querytemp.recordcount=0 then
     begin
       DataSourcet_f_groupinfo1DataChange(Sender,nil);
       PageControl1Change(nil);
       Application.MessageBox('对不起，没有找到您输入的贵宾卡相对应的集团！请检查输入是否正确？','提示',MB_OK+MB_ICONINFORMATION);
       exit;
     end ;
    FlatEditjtyhmc.text:=querytemp.fieldbyname('jtyhmc').asstring;
with Queryt_f_groupinto1 do
begin
if active then close;
   sql.clear;
   sql.add('select a.CityNo,a.Off_No_Home,a.SID,a.VIP_NO,a.NAME,a.Act_User,b.par_desc,c.DESCRIPTION,a.GH  from t_f_custinfo a,t_v_custatt b,T_D_Grade c  where a.stat=b.sxdm and a.djdm=c.GRADENO');
   sql.add(' and A.jtyhdm=:jtyhdm');
   parambyname('jtyhdm').asinteger:=strtoint(trim(querytemp.fieldbyname('jtyhdm').asstring));
   open;
end;

if Queryt_f_groupinto1.active then
if  not (Queryt_f_groupinto1.bof and Queryt_f_groupinto1.eof) then
//if Queryt_f_groupinto1.recordcount<>0 then
begin
   if QueryT_F_ServiceLog1.active then QueryT_F_ServiceLog1.close;
      QueryT_F_ServiceLog1.parambyname('sid').asstring:=Queryt_f_groupinto1.fieldbyname('sid').asstring;
      QueryT_F_ServiceLog1.parambyname('ObjType').asinteger:=PageControl1.ActivePageIndex;
      QueryT_F_ServiceLog1.open;
   if  not (QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof) then
   //if  QueryT_F_ServiceLog1.recordcount>0 then
   select_;
end;
DataSourcet_f_groupinfo1DataChange(Sender,nil);
end;

procedure TFrm_ServiceBarterCard.PageControl1Change(Sender: TObject);
begin
{  QueryT_F_CustInfo1.close;
  Queryt_f_groupinto1.close;
   QueryT_F_ServiceLog1.close;
   clear_in;
   FlatButton1.enabled:=false;
   FlatButton2.enabled:=false;
   FlatButton3.enabled:=false;
  FlatButton4.enabled:=false;
  FlatButton5.enabled:=false;}
  if PageControl1.ActivePageIndex = 0 then
    begin
      DataSourceT_F_CustInfo1DataChange(Sender,nil);
      if QueryT_F_CustInfo1.Active then
        if not QueryT_F_CustInfo1.Eof then
          begin
            FlatButton1.enabled:=True;
            FlatButton2.enabled:=True;
            FlatButton3.enabled:=True;
            FlatButton4.enabled:=False;
            FlatButton5.enabled:=false;
            exit;
          end
    end
  else
    begin
      DataSourcet_f_groupinfo1DataChange(Sender,nil);
      if Queryt_f_groupinto1.Active then
        if not Queryt_f_groupinto1.Eof then
          begin
            FlatButton1.enabled:=True;
            FlatButton2.enabled:=True;
            FlatButton3.enabled:=True;
            FlatButton4.enabled:=False;
            FlatButton5.enabled:=false;
            exit;
          end
    end;
            FlatButton1.enabled:=false;
            FlatButton2.enabled:=false;
            FlatButton3.enabled:=false;
            FlatButton4.enabled:=false;
            FlatButton5.enabled:=false;    
end;

procedure TFrm_ServiceBarterCard.DataSourcet_f_groupinfo1DataChange(Sender: TObject;
  Field: TField);
begin
  if Queryt_f_groupinto1.active then
  if  not (Queryt_f_groupinto1.bof and Queryt_f_groupinto1.eof) then
      //if Queryt_f_groupinto1.recordcount<>0 then
        begin
           if QueryT_F_ServiceLog1.active then QueryT_F_ServiceLog1.close;
           QueryT_F_ServiceLog1.parambyname('sid').asstring:=Queryt_f_groupinto1.fieldbyname('sid').asstring;
           QueryT_F_ServiceLog1.parambyname('ObjType').asinteger:=PageControl1.ActivePageIndex;
           QueryT_F_ServiceLog1.open;
           if  not (QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof) then
           //if  QueryT_F_ServiceLog1.recordcount>0 then
             begin
               clear_in;
               select_;
             end
           else
             clear_in;
          exit;
        end;
   {if  QueryT_F_ServiceLog1.recordcount>0 then
     begin
       clear_in;
       select_;
     end
   else
     clear_in;}        
    QueryT_F_ServiceLog1.Close;
    clear_in
end;
procedure TFrm_ServiceBarterCard.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TFrm_ServiceBarterCard.FlatEditBeginTimeKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (key in ['0'..'9', #45, #13, #8]) then key := #0;
end;

procedure TFrm_ServiceBarterCard.FlatEdvip1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if FlatComboBoxgr.ItemIndex = 0 then
    if not (key in ['0'..'9', #13, #8]) then key := #0;
  if key = #13 then
    FlatButtonokClick(Sender);
end;

procedure TFrm_ServiceBarterCard.Flatvip2KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
    FlatButton7Click(Sender);
end;

procedure TFrm_ServiceBarterCard.FlatComboBoxgrChange(Sender: TObject);
begin
  FlatEdvip1.Clear;
  FlatEdvip1.SetFocus;
end;

end.