u_liste_dlg.pas

基于OOP设计的一套较好的ERP系统

unit u_liste_dlg;

interface

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

type
  Tliste_dlg = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    sposo: TDBEdit;
    indirizzo_sposo: TDBEdit;
    DBEdit3: TDBEdit;
    Locsposo: TDBEdit;
    provsposo: TDBEdit;
    telsposo: TDBEdit;
    DBEdit12: TDBEdit;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    Label14: TLabel;
    sposa: TDBEdit;
    indirizzo_sposa: TDBEdit;
    DBEdit4: TDBEdit;
    locsposa: TDBEdit;
    DBEdit8: TDBEdit;
    telsposa: TDBEdit;
    DBEdit11: TDBEdit;
    GroupBox3: TGroupBox;
    Label15: TLabel;
    DBEdit13: TDBEdit;
    Label17: TLabel;
    loc: TDBEdit;
    Label18: TLabel;
    DBEdit16: TDBEdit;
    Ok: TButton;
    Cancel: TButton;
    DBEdit14: TDBEdit;
    Label27: TLabel;
    Recapito: TDBEdit;
    Label29: TLabel;
    Tel_consegne: TDBEdit;
    Label30: TLabel;
    Consegna: TDBComboBox;
    Label31: TLabel;
    DBEdit15: TDBEdit;
    Label32: TLabel;
    DBEdit23: TDBEdit;
    Label33: TLabel;
    DBEdit24: TDBEdit;
    Label34: TLabel;
    Label16: TLabel;
    Label19: TLabel;
    DataNozze: TDBEdit;
    Label20: TLabel;
    DBEdit7: TDBEdit;
    Label21: TLabel;
    Label22: TLabel;
    recapito2: TDBEdit;
    Tel_consegne2: TDBEdit;
    consegna2: TDBComboBox;
    Label23: TLabel;
    DBMemo1: TDBMemo;
    Scontrino: TDBCheckBox;
    procedure OkClick(Sender: TObject);
    procedure CancelClick(Sender: TObject);
    procedure provsposoKeyPress(Sender: TObject; var Key: Char);
    procedure LocsposoKeyPress(Sender: TObject; var Key: Char);
    procedure locsposaKeyPress(Sender: TObject; var Key: Char);
    procedure locKeyPress(Sender: TObject; var Key: Char);
    procedure ConsegnaChange(Sender: TObject);
    procedure consegna2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  liste_dlg: Tliste_dlg;

implementation

uses Liste_nozze;

{$R *.DFM}

procedure Tliste_dlg.OkClick(Sender: TObject);
begin
   With Lista_nozze do
      begin
       If (Liste.State = dsEdit) or
          (Liste.State = dsInsert) then
                Liste.Post ;
      end ;
end;

procedure Tliste_dlg.CancelClick(Sender: TObject);
begin
   With Lista_nozze do
      begin
       If (Liste.State = dsEdit) or
          (Liste.State = dsInsert) then
          Liste.Cancel ;
      end ;
end;

procedure Tliste_dlg.provsposoKeyPress(Sender: TObject; var Key: Char);
begin
   if ((key>='a') and (key<='z')) then
          key:=chr(ord(key)-32) ;
end;

procedure Tliste_dlg.LocsposoKeyPress(Sender: TObject; var Key: Char);
begin
   if (length(locsposo.text)=0) then
   begin
      if ((key>='a') and (key<='z')) then
          key:=chr(ord(key)-32) ;
   end;
end;

procedure Tliste_dlg.locsposaKeyPress(Sender: TObject; var Key: Char);
begin
   if (length(locsposa.text)=0) then
   begin
      if ((key>='a') and (key<='z')) then
          key:=chr(ord(key)-32) ;
   end;
end;

procedure Tliste_dlg.locKeyPress(Sender: TObject; var Key: Char);
begin
   if (length(loc.text)=0) then
   begin
      if ((key>='a') and (key<='z')) then
          key:=chr(ord(key)-32) ;
   end;
end;

procedure Tliste_dlg.ConsegnaChange(Sender: TObject);
begin
     if consegna.Text = 'RECAPITO SPOSO' then
     begin
        recapito.Text := indirizzo_sposo.Text;
        Tel_consegne.Text := telsposo.Text;
     end;
     if consegna.Text = 'RECAPITO SPOSA' then
     begin
        recapito.Text := indirizzo_sposa.Text;
        Tel_consegne.Text := telsposa.Text;
     end;
end;

procedure Tliste_dlg.consegna2Change(Sender: TObject);
begin
    if consegna2.Text = 'RECAPITO SPOSO' then
    begin
        recapito2.Text := indirizzo_sposo.Text;
        Tel_consegne2.Text := telsposo.Text;
    end;
    if consegna2.Text = 'RECAPITO SPOSA' then
    begin
        recapito2.Text := indirizzo_sposa.Text;
        Tel_consegne2.Text := telsposa.Text;
    end;
end;

end.