u_client_main.pas

以多个信息系统为例

unit u_client_main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, ComCtrls, StdCtrls, Menus, ExtCtrls, DBCtrls, Mask;

type
  TF_main = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBG_country: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    DBG_province: TDBGrid;
    DBG_city: TDBGrid;
    Label3: TLabel;
    MainMenu1: TMainMenu;
    M_state: TMenuItem;
    M_online: TMenuItem;
    M_offline: TMenuItem;
    M_system: TMenuItem;
    M_exit: TMenuItem;
    M_open_table: TMenuItem;
    M_close_table: TMenuItem;
    N8: TMenuItem;
    TabSheet3: TTabSheet;
    M_filter: TMenuItem;
    M_filter_city: TMenuItem;
    M_filter_province: TMenuItem;
    M_filter_country: TMenuItem;
    M_filter_no: TMenuItem;
    M_apply: TMenuItem;
    M_update_cust: TMenuItem;
    M_update_code: TMenuItem;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    i_name: TDBEdit;
    i_comp_name: TDBEdit;
    i_comp_addr: TDBEdit;
    i_city: TDBLookupComboBox;
    i_province: TDBLookupComboBox;
    i_country: TDBLookupComboBox;
    i_zip: TDBEdit;
    i_tel: TDBEdit;
    i_fax: TDBEdit;
    i_email: TDBEdit;
    i_remark: TDBMemo;
    DBNavigator1: TDBNavigator;
    Label13: TLabel;
    i_id: TDBEdit;
    LV_error: TListView;
    procedure M_open_tableClick(Sender: TObject);
    procedure M_close_tableClick(Sender: TObject);
    procedure M_exitClick(Sender: TObject);
    procedure M_update_codeClick(Sender: TObject);
    procedure M_update_custClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure M_onlineClick(Sender: TObject);
    procedure M_offlineClick(Sender: TObject);
    procedure M_filter_cityClick(Sender: TObject);
    procedure M_filter_provinceClick(Sender: TObject);
    procedure M_filter_noClick(Sender: TObject);
    procedure M_filter_countryClick(Sender: TObject);
  private
    procedure SetControls;
  public
    procedure AddErrorToLV(const cTableName, cFieldName,
     cOldValue, cNewValue, cCurValue, cErrorStr:String);

  end;

var
  F_main: TF_main;

implementation

uses u_client_DM;
{$R *.DFM}

procedure TF_main.AddErrorToLV(const cTableName, cFieldName,
  cOldValue, cNewValue, cCurValue, cErrorStr:String);
var
  NewItem:TListItem;
begin
  NewItem:=LV_error.Items.Add;
  NewItem.Caption:=cTableName;
  NewItem.SubItems.Add(cFieldName);
  NewItem.SubItems.Add(cOldValue);
  NewItem.SubItems.Add(cNewValue);
  NewItem.SubItems.Add(cCurValue);
  NewItem.SubItems.Add(cErrorStr);
end;

procedure TF_main.SetControls;
begin
  if DM_main.GetOnline then
  begin
    M_online.Checked:=True;
    M_offline.Checked:=False;
    M_apply.Enabled:=True;
  end
  else
  begin
    M_online.Checked:=False;
    M_offline.Checked:=True;
    M_apply.Enabled:=False;
  end;
end;

procedure TF_main.M_open_tableClick(Sender: TObject);
begin
  With DM_main do
  begin
    CD_custom.Open;
    CD_city.Open;
    CD_province.Open;
    CD_country.Open;
    DBG_country.Columns[1].Width:=64;
    DBG_province.Columns[1].Width:=64;
    DBG_city.Columns[1].Width:=64;
  end;
end;

procedure TF_main.M_close_tableClick(Sender: TObject);
begin
  With DM_main do
  begin
    CD_custom.Close;
    CD_city.Close;
    CD_province.Close;
    CD_country.Close;
  end;
end;

procedure TF_main.M_exitClick(Sender: TObject);
begin
  Close;
end;

procedure TF_main.M_update_codeClick(Sender: TObject);
begin
  DM_main.ApplyUpdateOther;
end;

procedure TF_main.M_update_custClick(Sender: TObject);
begin
  DM_main.ApplyUpdateCust;
end;

procedure TF_main.FormShow(Sender: TObject);
begin
  SetControls;
end;

procedure TF_main.M_onlineClick(Sender: TObject);
begin
  DM_main.SetOnLine(True);
  SetControls;
end;

procedure TF_main.M_offlineClick(Sender: TObject);
begin
  DM_main.SetOnLine(False);
  SetControls;
end;

procedure TF_main.M_filter_cityClick(Sender: TObject);
begin
  DM_main.FilterOnCity;
  M_filter_city.Checked:=True;
  M_filter_province.Checked:=False;
  M_filter_country.Checked:=False;
  M_filter_no.Checked:=False;
end;

procedure TF_main.M_filter_provinceClick(Sender: TObject);
begin
  DM_main.FilterOnProv;
  M_filter_city.Checked:=False;
  M_filter_province.Checked:=True;
  M_filter_country.Checked:=False;
  M_filter_no.Checked:=False;
end;

procedure TF_main.M_filter_noClick(Sender: TObject);
begin
  DM_main.NoFilter;
  M_filter_city.Checked:=False;
  M_filter_province.Checked:=False;
  M_filter_country.Checked:=False;
  M_filter_no.Checked:=True;
end;

procedure TF_main.M_filter_countryClick(Sender: TObject);
begin
  DM_main.FilterOnCoun;
  M_filter_city.Checked:=False;
  M_filter_province.Checked:=False;
  M_filter_country.Checked:=True;
  M_filter_no.Checked:=False;
end;

end.