unit_servicebartercard.pas

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

unit Unit_ServiceBarterCard;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, TFlatEditUnit, TFlatComboBoxUnit, TFlatButtonUnit, ExtCtrls,
  TFlatPanelUnit, ComCtrls, Grids, DBGrids, Db, DBTables, TFlatMemoUnit,
  TFlatSpeedButtonUnit;

type
    TFrm_ServiceBarterCard = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    FlatPanel2: TFlatPanel;
    Label1: TLabel;
    Label2: TLabel;
    FlatEdvip1: TFlatEdit;
    TabSheet2: TTabSheet;
    DBGridT_F_CustInfo1: TDBGrid;
    DataSourceT_F_CustInfo1: TDataSource;
    QueryT_F_CustInfo1: TQuery;
    FlatPanel1: TFlatPanel;
    FlatPanel4: TFlatPanel;
    Label15: TLabel;
    Queryt_f_groupinto1: TQuery;
    DataSourcet_f_groupinfo1: TDataSource;
    Label17: TLabel;
    Flatvip2: TFlatEdit;
    FlatComboBoxgr: TFlatComboBox;
    FlatEditjtyhmc: TFlatEdit;
    DBGridt_f_groupinto11: TDBGrid;
    FlatPanel3: TFlatPanel;
    Label3: TLabel;
    DBGridT_F_ServiceLog1: TDBGrid;
    FlatPanel5: TFlatPanel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    FlatEditServiceCode: TFlatEdit;
    FlatEditvip_no: TFlatEdit;
    FlatEditObjName: TFlatEdit;
    FlatEditBeginTime: TFlatEdit;
    FlatMemoServCont: TFlatMemo;
    FlatEditWk_No: TFlatEdit;
    QueryT_F_ServiceLog1: TQuery;
    DataSourceT_F_ServiceLog1: TDataSource;
    Querytemp: TQuery;
    Panel1: TPanel;
    FlatButtonok: TFlatButton;
    Panel2: TPanel;
    FlatButton7: TFlatButton;
    Panel3: TPanel;
    FlatButton2: TFlatButton;
    FlatButton1: TFlatButton;
    FlatButton3: TFlatButton;
    FlatButton5: TFlatButton;
    FlatButton4: TFlatButton;
    FlatButton6: TFlatButton;
    procedure FormShow(Sender: TObject);
    procedure FlatButtoncancelClick(Sender: TObject);
    procedure FlatButtonokClick(Sender: TObject);
    procedure FlatEditServMoneyKeyPress(Sender: TObject; var Key: Char);
    procedure FlatButton2Click(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatButton5Click(Sender: TObject);
    procedure FlatButton4Click(Sender: TObject);
    procedure DataSourceT_F_CustInfo1DataChange(Sender: TObject;
      Field: TField);
    procedure DataSourceT_F_ServiceLog1DataChange(Sender: TObject;
      Field: TField);
    procedure FlatButton7Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure DataSourcet_f_groupinfo1DataChange(Sender: TObject;
      Field: TField);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatEditBeginTimeKeyPress(Sender: TObject; var Key: Char);
    procedure FlatEdvip1KeyPress(Sender: TObject; var Key: Char);
    procedure Flatvip2KeyPress(Sender: TObject; var Key: Char);
    procedure FlatComboBoxgrChange(Sender: TObject);
  private
    { Private declarations }
    procedure color_set(flag:tcolor);
    procedure clear_in;
    procedure enabled_set(flag:boolean);
    procedure enable_(flag:boolean);
    procedure select_;
  public
    { Public declarations }
  end;

var
  Frm_ServiceBarterCard: TFrm_ServiceBarterCard;
  do1 :string;
implementation
 uses main,dmmain;
{$R *.DFM}

procedure TFrm_ServiceBarterCard.FormShow(Sender: TObject);
begin
  FlatComboBoxgr.itemindex:=0;
end;

procedure TFrm_ServiceBarterCard.FlatButtoncancelClick(Sender: TObject);
begin
  close;
end;

procedure TFrm_ServiceBarterCard.FlatButtonokClick(Sender: TObject);
begin
  if QueryT_F_CustInfo1.Active then QueryT_F_CustInfo1.Close;  
  with QueryT_F_CustInfo1 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(+)');
      if FlatComboBoxgr.ItemIndex=0 then
        begin
          sql.add(' and A.SID=:SID');
          parambyname('SID').asstring:=trim(FlatEdvip1.text);
        end
      else
        begin
          sql.add(' and a.VIP_NO=:VIP_NO');
          parambyname('VIP_NO').asstring:=trim(FlatEdvip1.text);
        end;
      open;
      last;
      first;
      if QueryT_F_CustInfo1.bof and QueryT_F_CustInfo1.eof then
      begin
        Application.MessageBox('你输入的客户在数据库里没有查找到！','提示',MB_OK+MB_ICONINFORMATION);
        exit;
      end
        else
        begin
          FlatButton1.enabled := true;
          FlatButton2.enabled := true;
          FlatButton3.enabled := true;
        end;
     // FlatButton1.enabled := (recordcount>0);
      //FlatButton2.enabled := (recordcount>0);
      //FlatButton3.enabled := (recordcount>0);
      //if not(recordcount>0) then
        //Application.MessageBox('你输入的客户在数据库里没有查找到！','提示',MB_OK+MB_ICONINFORMATION);
  DataSourceT_F_CustInfo1DataChange(sender,nil);
end;
end;

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

procedure TFrm_ServiceBarterCard.color_set(flag:tcolor);
begin
//FlatEditvip_no.colorflat:=flag;
FlatEditObjName.colorflat:=flag;
FlatEditBeginTime.colorflat:=flag; 
FlatMemoServCont.colorflat:=flag;
end;


procedure TFrm_ServiceBarterCard.clear_in;
begin
FlatEditServiceCode.text:='';
FlatEditvip_no.text:='';
FlatEditObjName.text:='';
FlatEditBeginTime.text:='';
FlatEditWk_No.text:='';
FlatMemoServCont.text:='';
end;

procedure TFrm_ServiceBarterCard.enabled_set(flag:boolean);
begin
//FlatEditvip_no.enabled:=flag;
FlatEditBeginTime.enabled:=flag;
FlatMemoServCont.enabled:=flag;
end;

procedure TFrm_ServiceBarterCard.FlatButton2Click(Sender: TObject);
begin
clear_in;
color_set(clwindow);
enabled_set(true);
enable_(false);
if querytemp.active then querytemp.close;
querytemp.sql.clear;
querytemp.sql.add('select  SEQ_servicecode.Nextval max_ServiceCode from T_F_ServiceLog');
querytemp.open;
FlatEditServiceCode.text:=querytemp.fieldbyname('max_ServiceCode').asstring;
if PageControl1.ActivePageIndex=0 then
    begin
    FlatEditvip_no.text:=QueryT_F_CustInfo1.fieldbyname('vip_no').asstring;
    FlatEditObjName.text:=QueryT_F_CustInfo1.fieldbyname('sid').asstring;
    end
else
    begin
      FlatEditvip_no.text:=trim(Flatvip2.text);
      FlatEditObjName.text:=Queryt_f_groupinto1.fieldbyname('sid').asstring;
    end;
FlatEditBeginTime.text:=formatdatetime('yyyy-mm-dd',date());
FlatEditWk_No.text:=GH;
do1:='inster';
end;

procedure TFrm_ServiceBarterCard.enable_(flag:boolean);
begin
FlatButton1.enabled:=flag;
FlatButton2.enabled:=flag;
FlatButton3.enabled:=flag;
FlatButton4.enabled:=not flag;
FlatButton5.enabled:=not flag;
end;


procedure TFrm_ServiceBarterCard.FlatButton1Click(Sender: TObject);
begin
if not QueryT_F_ServiceLog1.active then  exit;
if QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof then
begin
   Application.MessageBox('对不起，当前没有记录可修改！','提示',MB_OK+MB_ICONINFORMATION);
   exit;
end;
color_set(clwindow);
enabled_set(true);
enable_(false);
do1:='update';
end;

procedure TFrm_ServiceBarterCard.FlatButton3Click(Sender: TObject);
begin
if not QueryT_F_ServiceLog1.active then  exit;
if QueryT_F_ServiceLog1.Bof and QueryT_F_ServiceLog1.Eof  then
begin
   Application.MessageBox('对不起，当前没有记录可删除！','提示',MB_OK+MB_ICONINFORMATION);
   exit;
end;
if (Application.MessageBox('是否要删除该记录?','提示',MB_OKCANCEL+MB_ICONINFORMATION)=id_ok)  then
with querytemp do
begin
   if active then close;
    sql.clear;
    sql.add('delete from T_F_ServiceLog where SERVICECODE=:SERVICECODE');
    parambyname('SERVICECODE').asinteger:=QueryT_F_ServiceLog1.FieldByName('SERVICECODE').asinteger;
    QueryT_F_ServiceLog1.close;
    execsql;
    QueryT_F_ServiceLog1.open;
end;
if QueryT_F_ServiceLog1.bof and QueryT_F_ServiceLog1.eof then
//if QueryT_F_ServiceLog1.recordcount=0 then
FlatButton2.enabled:=true;
end;

procedure TFrm_ServiceBarterCard.FlatButton5Click(Sender: TObject);
begin
  try
    strtodate(FlatEditBeginTime.Text);
  except
    Application.MessageBox('对不起，您输入的格式错误，输入的日期格式应为:YYYY-MM-DD', '系统提示', MB_OK+MB_ICONERROR);
    FlatEditBeginTime.SetFocus;
    Exit;
  end;
{  if  trim(FlatEditvip_no.text)='' then
    begin
      showmessage('请输入vip卡号！');
      exit;
    end;}
if (Application.MessageBox('是否要继续以下操作?','系统提示',MB_OKCANCEL+MB_ICONINFORMATION)<>id_ok)  then exit;
Dm_Main.Databasedh.StartTransaction;
QueryT_F_ServiceLog1.close;
with querytemp do
begin
if active then Close;
   sql.clear;
  if do1='inster' then
   begin
    sql.add('insert into T_F_ServiceLog(');
    sql.add('ServiceCode,CityNo,Off_No_Home,ObjType,TypeCode,ServKind,ObjFlag,VIP_NO,ServObj,');
    sql.add('ObjName,BeginTime,Wk_No,ServCont) values(');
    sql.add(':ServiceCode,:CityNo,:Off_No_Home,:ObjType,:TypeCode,:ServKind,:ObjFlag,:VIP_NO,:ServObj,');
    sql.add(':ObjName,to_date(:BeginTime,''yyyy-mm-dd''),:Wk_No,:ServCont)');
    parambyname('ServiceCode').asstring:=trim(FlatEditServiceCode.text);
    if PageControl1.ActivePageIndex=0 then
      begin