linkmanlist.~pas

来自「针对快餐店的会员管理系统.具有详细的分类及管理作用」· ~PAS 代码 · 共 180 行

unit LinkManlist;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzTabs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
  cxGridCustomView, cxGrid, RzButton, StdCtrls, Mask, RzEdit, RzCmboBx,
  ExtCtrls, Menus;

type
  TLinkManForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    KeyList: TRzComboBox;
    List: TRzComboBox;
    Key: TRzEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1DBTableView1DBColumn: TcxGridDBColumn;
    cxGrid1DBTableView1ID: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn3: TcxGridDBColumn;
    cxGrid1DBTableView1EMail: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn4: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn5: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn6: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn7: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn8: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn9: TcxGridDBColumn;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    RzBitBtn3: TRzBitBtn;
    N6: TMenuItem;
    N7: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure KeyKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListChange(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LinkManForm: TLinkManForm;

implementation

uses DM, MAIN, EditLinkmanForm1, Search;

{$R *.dfm}

procedure TLinkManForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Action:=caFree;
end;

procedure TLinkManForm.N1Click(Sender: TObject);
begin
  with DM1 do
      GoToDataSet(LinkManList,ADODataSet2);

  EditLinkManForm.RzDBNavigator1.Visible:=False;
  EditLinkManForm.ShowModal;
  EditLinkManForm.RzDBNavigator1.Visible:=True;

end;

procedure TLinkManForm.N3Click(Sender: TObject);
begin
   DM1.LinkManList.Requery();
end;

procedure TLinkManForm.RzBitBtn1Click(Sender: TObject);
var
   S,S1  : String;
   Dates : TDateTime;
begin
//搜索联系人
  if (KeyList.ItemIndex<0)or(List.ItemIndex<0)or(((List.ItemIndex=0)or(List.ItemIndex=1))and(Key.Text=''))then begin
     Messagebox(handle,'请输入完整的搜索信息后再试！','提示',MB_OK+MB_ICONWARNING);
     Exit;
  end;

  S1:=SearchForm.TransformData('LinkMan',KeyList.Text);
  case List.ItemIndex of
     0  :  S:=S1+'='+ Key.Text;
     1  :  S:=S1+' Like '+''''+'%'+Key.Text+'%'+'''';
     2  :  S:=S1+' is Null or '+S1+'='+''''+'''';
     3  :  S:=S1+' <> Null or '+S1+'<>'+''''+'''';
  end;

  if KeyList.Text='生日'then begin
     S := 'Birthday =:SR';
     try
        Dates:=StrToDate(Key.Text);
     except
        Messagebox(handle,'您输入的日期格式不正确，请按照“2008-01-01”的格式重新输入！','错误',MB_OK+MB_ICONERROR);
        Exit;
     end;
  end;

  with DM1.LinkManList do try
     Close;
     CommandText:='Select * from LinkMan where '+ S;
     if KeyList.Text='生日'then
        Parameters.ParamByName('SR').Value:=FormatDateTime(ShortDateFormat,Dates);

     Open;
      if RecordCount=0 then begin
         Messagebox(handle,PChar('没有找到任何关于“'+Key.Text+'”的联系人记录，请点击确定返回！'),'信息',MB_OK+MB_ICONINFORMATION);
         Close;
         CommandText:='Select * from LinkMan';
         Open;
      end;
   except
      RzBitBtn2Click(sender);
      Messagebox(handle,'搜索联系人记录失败，请检查所输入的关键词是否正确！','错误',MB_OK+MB_ICONERROR);
   end;
end;

procedure TLinkManForm.RzBitBtn2Click(Sender: TObject);
begin
   //复位搜索内容
   with DM1.LinkManList do try
      Close;
      CommandText:='Select * from LinkMan';
      Open;
   except
   end;
end;

procedure TLinkManForm.RzBitBtn3Click(Sender: TObject);
begin
   //打印联系人列表
   MainForm.PrintReport(2);
end;

procedure TLinkManForm.KeyKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then
     RzBitBtn1.Click;
end;

procedure TLinkManForm.ListChange(Sender: TObject);
begin
   case List.ItemIndex of
      0,1  :  Key.Enabled:=true;
      2,3  :  Key.Enabled:=false;
   end;
end;

procedure TLinkManForm.N7Click(Sender: TObject);
begin
   cxGrid1DBTableView1.Filtering.RunCustomizeDialog();
end;

end.