fwdjb.pas

服务信息管理系统

unit fwdjb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, ExtCtrls, StdCtrls, DB, DBTables,
  Mask, DBCtrlsEh, Buttons, ToolEdit, wwdbdatetimepicker, DBCtrls, Grids,
  AdvPanel;

type
  Tfrmfwdjb = class(TForm)
    CoolBar1: TCoolBar;
    oToolBar: TToolBar;
    ToolButton13: TToolButton;
    ExitToolButton1: TToolButton;
    ImageList: TImageList;
    EditToolButton: TToolButton;
    SaveToolButton: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    DBNavigator2: TDBNavigator;
    Label2: TLabel;
    DBText1: TDBText;
    cxQuery: TQuery;
    AdvPanel1: TAdvPanel;
    ScrollBox1: TScrollBox;
    Label3: TLabel;
    khxzSpeedButton: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    khmcEdit: TDBEditEh;
    lxrEdit: TDBEditEh;
    DBEditEh3: TDBEditEh;
    DBEditEh4: TDBEditEh;
    gjrqEdit: TDBDateTimeEditEh;
    jqxhEdit: TDBEditEh;
    yysjedit: TwwDBDateTimePicker;
    fwqqMemo: TDBMemo;
    fwlxEdit: TDBEditEh;
    fwryEdit: TDBEditEh;
    sfwcComboBox: TDBComboBoxEh;
    wcsjEdit: TDBDateTimeEditEh;
    ryapEdit: TDBEditEh;
    fwfyEdit: TDBNumberEditEh;
    ddsjEdit: TDBDateTimeEditEh;
    ddyyEdit: TDBEditEh;
    yyxzComboBox: TDBComboBoxEh;
    ddcnEdit: TDBEditEh;
    procedure ExitToolButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure EditToolButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure khmcEditChange(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure fwryEditEditButtons0Click(Sender: TObject;
      var Handled: Boolean);
    procedure sfwcComboBoxChange(Sender: TObject);
    procedure fwlxEditEditButtons0Click(Sender: TObject;
      var Handled: Boolean);
    procedure DBNavigator2BeforeAction(Sender: TObject;
      Button: TNavigateBtn);
    procedure SaveToolButtonClick(Sender: TObject);
    procedure khxzSpeedButtonClick(Sender: TObject);
    procedure khmcEditExit(Sender: TObject);
    procedure fwryEditExit(Sender: TObject);
    procedure fwlxEditExit(Sender: TObject);
  private
    { Private declarations }
    procedure enabledstatus(statusbz: Boolean);
    function Getkhxxfunction(khxxdata: string): Integer; //客户资料查询函数
    function Getfwryfunction(fwrydata: string): Integer; //服务人员查询函数
    function Getfwlxfunction(fwlxdata: string): Integer; //服务类型查询函数
    function dataverify(Verify_lx: string): Boolean; //数据校验函数
    function datasave: Boolean; //数据保存函数
    //function Getmaxfwdjbbh: string; //服务单编号生成器;
  public
    { Public declarations }
  end;

var
  frmfwdjb: Tfrmfwdjb;
  fwdjb_bjzt: string;
implementation

uses khzlcx, fwdjbData, mainform, ygzlxz, fwlxxz;

{$R *.dfm}

procedure Tfrmfwdjb.ExitToolButton1Click(Sender: TObject);
begin
  Close;
end;

procedure Tfrmfwdjb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frmfwdjbDataModule.Free;
  frmfwdjbDataModule := nil;
  Action := caFree;
  frmfwdjb := nil;
end;


procedure Tfrmfwdjb.FormCreate(Sender: TObject);
begin
  fwdjb_bjzt := '';
  frmfwdjbDataModule := TfrmfwdjbDataModule.Create(Self);
  frmfwdjbDataModule.fwdjbTable.Last;
end;

procedure Tfrmfwdjb.EditToolButtonClick(Sender: TObject);
begin
  fwdjb_bjzt := 'fwdjbedit'; //将变量fwdjb_bjzt赋值为编辑状态"fwdjbedit"
  enabledstatus(True);
  frmfwdjbDataModule.fwdjbTable.Edit;
  khmcEdit.SetFocus;
end;

procedure Tfrmfwdjb.enabledstatus(statusbz: Boolean);
begin
  KhmcEdit.Enabled := statusbz;
  gjrqEdit.Enabled := statusbz;
  jqxhEdit.Enabled := statusbz;
  yysjEdit.Enabled := statusbz;
  fwqqMemo.Enabled := statusbz;
  fwlxEdit.Enabled := statusbz;
  fwryEdit.Enabled := statusbz;
  sfwcComBoBox.Enabled := statusbz;
  wcsjEdit.Enabled := statusbz;
  ryapEdit.Enabled := statusbz;
  fwfyEdit.Enabled := statusbz;
  ddsjEdit.Enabled := statusbz;
  ddyyEdit.Enabled := statusbz;
  yyxzComBoBox.Enabled := statusbz;
  ddcnEdit.Enabled := statusbz;
  khxzSpeedButton.Enabled := statusbz;
end;

procedure Tfrmfwdjb.FormShow(Sender: TObject);
begin
  enabledstatus(False);
end;

procedure Tfrmfwdjb.khmcEditChange(Sender: TObject);
begin
  if fwdjb_bjzt = 'fwdjbedit' then
    saveToolButton.Enabled := True;
end;

procedure Tfrmfwdjb.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    begin
      SelectNext(ActiveControl, True, True);
      Key := #0;
    end;
end;

procedure Tfrmfwdjb.fwryEditEditButtons0Click(Sender: TObject;
  var Handled: Boolean);
begin
  selecttext1 := '';
  selecttext2 := '';
  frmygzlxz := Tfrmygzlxz.Create(Self);
  with frmygzlxz do
    begin
      ShowModal;
    end;
  if selecttext1 <> '' then
    begin
      frmfwdjbDataModule.fwdjbTable.FieldByName('fwdj_rybh').AsString := selecttext1;
      fwryEdit.Text := selecttext2;
      fwryEdit.SelectAll;
    end;
end;

procedure Tfrmfwdjb.sfwcComboBoxChange(Sender: TObject);
begin
  if fwdjb_bjzt = 'fwdjbedit' then
    saveToolButton.Enabled := True;
  if Trim(sfwcComboBox.Text) = '未解决' then
    begin
      Label17.Visible := True;
      Label18.Visible := True;
      Label19.Visible := True;
      Label20.Visible := True;
      ddsjEdit.Visible := True;
      ddyyEdit.Visible := True;
      yyxzComboBox.Visible := True;
      ddcnEdit.Visible := True;
    end
  else
    begin
      Label17.Visible := False;
      Label18.Visible := False;
      Label19.Visible := False;
      Label20.Visible := False;
      ddsjEdit.Visible := False;
      ddyyEdit.Visible := False;
      yyxzComboBox.Visible := False;
      ddcnEdit.Visible := False;
    end;
  if Trim(sfwcComboBox.Text) = '' then
    begin
      Label14.Visible := False;
      wcsjEdit.Visible := False;
    end
  else
    begin
      Label14.Visible := True;
      wcsjEdit.Visible := True;
    end;
end;

procedure Tfrmfwdjb.fwlxEditEditButtons0Click(Sender: TObject;
  var Handled: Boolean);
begin
  selecttext1 := '';
  selecttext2 := '';
  frmfwlxxz := Tfrmfwlxxz.Create(Self);
  with frmfwlxxz do
    begin
      ShowModal;
    end;
  if selecttext1 <> '' then
    begin
      frmfwdjbDataModule.fwdjbTable.FieldByName('fwdj_lxbh').AsString := selecttext1;
      fwlxEdit.Text := selecttext2;
      fwlxEdit.SelectAll;
    end;
end;

procedure Tfrmfwdjb.DBNavigator2BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
var
  lsbl_save: Boolean;
begin
  if saveToolButton.Enabled = True then
    begin
      case MessageDlg('数据已修改，是否保存修改？', mtConfirmation, [mbYes, mbNo], 0) of
        mrYes:
          begin
            //lsbl_save := datasave();
            if lsbl_save = False then
              begin
                frmfwdjbDataModule.fwdjbTable.CancelUpdates;
                exit;
              end;
          end;
        mrCancel:
          begin
            Exit;
          end;
        mrNo: frmfwdjbDataModule.fwdjbTable.CancelUpdates;
      end;
    end;
  fwdjb_bjzt := '';
  enabledstatus(False);
  saveToolButton.Enabled := False;
end;

function Tfrmfwdjb.dataverify(Verify_lx: string): Boolean; //数据校验函数
begin
  if (copy(Verify_lx, 1, 1) = '1') then
    begin
      if khmcEdit.Text = '' then
        begin
          MessageDlg('客户名称不能为空', mtError, [mbOk], 0);
          Result := False;
          exit;
        end;
      selecttext1 := Trim(khmcEdit.Text); //将客户名称赋值全局临时变量selecttext1
      with cxQuery do //下面进行客户名称的查询，如果没有找到则不能进行数据保存
        begin
          SQL.clear;
          SQL.Add('select Count(*) as cxkhsl from khxxk where Trim(kh_mc)=:lsbl_khmc');
          ParamByName('lsbl_khmc').AsString := selecttext1;
          Prepare;
          open;
          if FieldByName('cxkhsl').AsInteger = 0 then
            begin
              Close;
              MessageDlg('没有找到客户【' + selecttext1 + '】,请重新输入', mtWarning, [mbOk], 0);
              khmcEdit.SetFocus;
              Result := False;
              Exit;
            end;
          Close;
        end;
    end;
  if (copy(Verify_lx, 2, 1) = '1') then
    begin
      if fwlxedit.Text = '' then
        begin
          MessageDlg('请选择服务类型', mtWarning, [mbOk], 0);
          Result := False;
          fwlxedit.SetFocus;
          exit;
        end;
      selecttext1 := Trim(fwlxEdit.Text); //将服务类型名称赋值全局临时变量selecttext1
      with cxQuery do //下面进行服务类型的查询，如果没有找到则不能进行数据保存
        begin
          SQL.clear;