umain.pas

客户管理系统用delphi做

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinData, BusinessSkinForm, bsSkinCtrls, bsSkinGrids,
  bsDBGrids, ComCtrls, bsSkinTabs, ExtCtrls, RzPanel, StdCtrls, Mask,
  bsSkinBoxCtrls, bsMessages,DB, bsSkinShellCtrls;

type
  TForm1 = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinTabSheet3: TbsSkinTabSheet;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    bsSkinStatusBar1: TbsSkinStatusBar;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinPanel3: TbsSkinPanel;
    RzGroupBox1: TRzGroupBox;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinStdLabel12: TbsSkinStdLabel;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinStdLabel14: TbsSkinStdLabel;
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinEdit5: TbsSkinEdit;
    bsSkinEdit6: TbsSkinEdit;
    bsSkinEdit7: TbsSkinEdit;
    bsSkinEdit8: TbsSkinEdit;
    bsSkinEdit9: TbsSkinEdit;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinComboBox2: TbsSkinComboBox;
    bsSkinComboBox3: TbsSkinComboBox;
    bsSkinComboBox4: TbsSkinComboBox;
    bsSkinComboBox5: TbsSkinComboBox;
    bsSkinComboBox6: TbsSkinComboBox;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinMemo1: TbsSkinMemo;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinPageControl2: TbsSkinPageControl;
    bsSkinTabSheet4: TbsSkinTabSheet;
    bsSkinTabSheet5: TbsSkinTabSheet;
    bsSkinPanel5: TbsSkinPanel;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinScrollBar5: TbsSkinScrollBar;
    bsSkinPanel6: TbsSkinPanel;
    bsSkinStdLabel16: TbsSkinStdLabel;
    bsSkinStdLabel17: TbsSkinStdLabel;
    bsSkinStdLabel18: TbsSkinStdLabel;
    bsSkinPanel7: TbsSkinPanel;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton6: TbsSkinButton;
    bsSkinScrollBar6: TbsSkinScrollBar;
    bsSkinMemo2: TbsSkinMemo;
    bsSkinEdit10: TbsSkinEdit;
    bsSkinComboBox7: TbsSkinComboBox;
    MES: TbsSkinMessage;
    bsSkinPanel8: TbsSkinPanel;
    bsSkinDBGrid3: TbsSkinDBGrid;
    bsSkinScrollBar7: TbsSkinScrollBar;
    bsSkinScrollBar8: TbsSkinScrollBar;
    bsSkinStdLabel19: TbsSkinStdLabel;
    bsSkinComboBox8: TbsSkinComboBox;
    bsSkinStdLabel20: TbsSkinStdLabel;
    bsSkinEdit11: TbsSkinEdit;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinStdLabel21: TbsSkinStdLabel;
    bsSkinEdit12: TbsSkinEdit;
    bsSkinOpenDialog1: TbsSkinOpenDialog;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    bsSkinStdLabel22: TbsSkinStdLabel;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinPanel9: TbsSkinPanel;
    bsSkinPanel10: TbsSkinPanel;
    bsSkinDBGrid4: TbsSkinDBGrid;
    bsSkinScrollBar9: TbsSkinScrollBar;
    bsSkinScrollBar10: TbsSkinScrollBar;
    bsSkinStdLabel23: TbsSkinStdLabel;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsSkinStdLabel24: TbsSkinStdLabel;
    bsSkinEdit13: TbsSkinEdit;
    bsSkinStdLabel25: TbsSkinStdLabel;
    bsSkinComboBox9: TbsSkinComboBox;
    bsSkinStdLabel26: TbsSkinStdLabel;
    bsSkinPanel11: TbsSkinPanel;
    bsSkinMemo3: TbsSkinMemo;
    bsSkinScrollBar11: TbsSkinScrollBar;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton12: TbsSkinButton;
    bsSkinButton13: TbsSkinButton;
    bsSkinPanel12: TbsSkinPanel;
    bsSkinScrollBar13: TbsSkinScrollBar;
    bsSkinDBGrid5: TbsSkinDBGrid;
    bsSkinScrollBar12: TbsSkinScrollBar;
    bsSkinPanel13: TbsSkinPanel;
    bsSkinStdLabel27: TbsSkinStdLabel;
    bsSkinEdit14: TbsSkinEdit;
    bsSkinStdLabel28: TbsSkinStdLabel;
    bsSkinEdit15: TbsSkinEdit;
    bsSkinStdLabel29: TbsSkinStdLabel;
    bsSkinStdLabel30: TbsSkinStdLabel;
    bsSkinEdit16: TbsSkinEdit;
    bsSkinEdit17: TbsSkinEdit;
    bsSkinStdLabel31: TbsSkinStdLabel;
    bsSkinPanel14: TbsSkinPanel;
    bsSkinMemo4: TbsSkinMemo;
    bsSkinScrollBar14: TbsSkinScrollBar;
    bsSkinButton14: TbsSkinButton;
    bsSkinButton15: TbsSkinButton;
    bsSkinButton16: TbsSkinButton;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinTabSheet6: TbsSkinTabSheet;
    bsSkinPanel15: TbsSkinPanel;
    bsSkinStdLabel32: TbsSkinStdLabel;
    bsSkinStdLabel33: TbsSkinStdLabel;
    procedure bsSkinDBGrid1CellClick(Column: TbsColumn);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinDBGrid2CellClick(Column: TbsColumn);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinEdit11ButtonClick(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure bsSkinDBGrid1DrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TbsColumn;
      State: TGridDrawState);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinDBGrid3CellClick(Column: TbsColumn);
    procedure bsSkinDBGrid3DrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TbsColumn;
      State: TGridDrawState);
    procedure bsSkinDBGrid2DrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TbsColumn;
      State: TGridDrawState);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
    procedure bsSkinDBGrid4CellClick(Column: TbsColumn);
    procedure bsSkinDBGrid4DrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TbsColumn;
      State: TGridDrawState);
    procedure bsSkinButton14Click(Sender: TObject);
    procedure bsSkinButton15Click(Sender: TObject);
    procedure bsSkinButton16Click(Sender: TObject);
    procedure bsSkinDBGrid5CellClick(Column: TbsColumn);
    procedure bsSkinDBGrid5DrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TbsColumn;
      State: TGridDrawState);
  private
   strName:string;
    procedure selectClients;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
Uses
  UDBM;
{$R *.dfm}

procedure TForm1.selectClients;
begin
  with DM.ADOTable1 do
  begin
    bsSkinEdit1.Text:=Fieldbyname('Company_U').AsString;
    bsSkinEdit2.Text:=Fieldbyname('Branch_U').AsString;
    StrName:=Fieldbyname('Name_U').AsString;
    bsSkinEdit3.Text:=strName;
    bsSkinEdit4.Text:=Fieldbyname('Realation_U').AsString;
    bsSkinEdit5.Text:=Fieldbyname('Email_U').AsString;
    bsSkinEdit6.Text:=Fieldbyname('Adress_U').AsString;
    bsSkinEdit7.Text:=Fieldbyname('Server_U').AsString;
    bsSkinEdit8.Text:=Fieldbyname('Sun_U').AsString;
    bsSkinEdit9.Text:=Fieldbyname('Console_U').AsString;
    bsSkinComboBox1.Text:=Fieldbyname('Duty_U').AsString;
    bsSkinComboBox2.text:=Fieldbyname('Sex_U').AsString;
    bsSkinComboBox3.Text:=Fieldbyname('State_U').AsString;
    bsSkinComboBox4.text:=Fieldbyname('Import_U').AsString;
    bsSkinComboBox5.text:=Fieldbyname('Problem_U').AsString;
    bsSkinComboBox6.text:=Fieldbyname('Untie_U').AsString;
    bsSkinMemo1.Text:=Fieldbyname('Memo_U').AsString;
    bsSkinEdit1.ReadOnly:=true;
    bsSkinEdit2.ReadOnly:=true;
    bsSkinEdit3.ReadOnly:=true;
    bsSKinEdit4.ReadOnly:=true;
    bsSkinEdit5.ReadOnly:=true;
    bsSkinEdit6.ReadOnly:=true;
    bsSkinEdit7.ReadOnly:=true;
    bsSkinEdit8.ReadOnly:=true;
    bsSkinEdit9.ReadOnly:=true;
    bsSkinMemo1.ReadOnly:=true;
    bsSkinButton2.Enabled:=true;
    bsSkinButton4.Enabled:=true;
    bsSkinButton1.Enabled:=true;
    bsSkinButton3.Enabled:=true;
    dm.ADOTable2.Filtered:=false;
    Dm.ADOTable2.Filter:='姓名='''+strName+'''';
    Dm.ADOTable2.Filtered:=true;
    with DM.ADOTable3 do
    begin
      Filtered:=false;
      Filter:='姓名='''+strName+'''';
      Filtered:=true;
    end;
  end;
end;

procedure TForm1.bsSkinDBGrid1CellClick(Column: TbsColumn);
begin
  selectClients;
  bsSkinButton9.Enabled:=true;
  bsSkinButton6.Enabled:=true;
  bsSkinButton5.Enabled:=true;
  bsSkinButton7.Enabled:=true;
  bsSkinButton8.Enabled:=true;
  bsSkinButton10.Enabled:=true;
end;

procedure TForm1.bsSkinButton1Click(Sender: TObject);
var
  i:integer;
begin
  bsSkinMemo1.Clear;
  for i:=23 to 37 do
  begin
    if Components[i].ClassName='TbsSkinEdit' then
    begin
      TbsSkinEdit(Components[i]).Text:='';
      TbsSkinEdit(ComPonents[i]).ReadOnly:=false;
      end
    else
      begin
      if Components[i].ClassName='TbsSkinComboBox' then
      TbsSkinComboBox(ComPonents[i]).Text:='';
      TbsSkinComboBox(ComPonents[i]).Enabled:=true;
    end;
  end;
  bsSkinMemo1.ReadOnly:=false;
  bsSkinButton2.Enabled:=false;
  bsSkinButton4.Enabled:=false;
      bsSkinButton9.Enabled:=false;
    bsSkinButton6.Enabled:=false;
    bsSkinButton5.Enabled:=false;
    bsSkinButton7.Enabled:=false;
    bsSkinButton8.Enabled:=false;
    bsSkinButton10.Enabled:=false;
end;

procedure TForm1.bsSkinButton2Click(Sender: TObject);
var
  i:integer;
begin
  bsSkinMemo1.ReadOnly:=false;
  for i:=23 to 37 do
  begin
    if Components[i].ClassName='TbsSkinEdit' then
    begin
      TbsSkinEdit(ComPonents[i]).ReadOnly:=false;
      end
    else
      begin
      if Components[i].ClassName='TbsSkinComboBox' then
      TbsSkinComboBox(ComPonents[i]).Enabled:=true;
    end;
  end;
  bsSkinButton1.Enabled:=false;
  bsSkinButton4.Enabled:=false;
end;

procedure TForm1.bsSkinButton3Click(Sender: TObject);
var
  StrName:string;
  i:integer;
begin
  //选择操作
  if (bsSkinButton1.Enabled=true)and(bsSkinButton2.Enabled=true) then
  begin
    MES.MessageDlg('选择操作！',mtinformation,[mbok],0);
    Exit;
  end;
  StrName:=bsSkinEdit3.Text;
  if (bsSkinButton1.Enabled=true)and(bsSkinButton2.Enabled=false) then
  begin
    if bsSkinEdit3.Text='' then
    begin
      Mes.MessageDlg('姓名不能为空！',mtinformation,[mbok],0);