customer.pas

1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包

unit customer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, ahmtpanel, ahmtbackground, StdCtrls,
  ahmtlabel, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, Mask,
  ComCtrls;

type
  TF_Customer = class(TForm)
    AHMPanel1: TAHMPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    AHMPanel2: TAHMPanel;
    AHMBackground1: TAHMBackground;
    AHMLabel1: TAHMLabel;
    Splitter1: TSplitter;
    Panel1: TPanel;
    AHMPanel4: TAHMPanel;
    dxDBGrid1: TdxDBGrid;
    AHMPanel3: TAHMPanel;
    dxDBGrid1Cust_ID: TdxDBGridMaskColumn;
    dxDBGrid1Cust_Gender: TdxDBGridMaskColumn;
    dxDBGrid1Cust_Nation: TdxDBGridMaskColumn;
    dxDBGrid1Cust_Prof: TdxDBGridMaskColumn;
    dxDBGrid1Cust_Birthday: TdxDBGridDateColumn;
    dxDBGrid1Cust_Marriage: TdxDBGridMaskColumn;
    dxDBGrid1Cust_Name: TdxDBGridMaskColumn;
    dxDBGrid1Cust_IDcard: TdxDBGridMaskColumn;
    dxDBGrid1Cust_Housephone: TdxDBGridMaskColumn;
    dxDBGrid1Cust_Officephone: TdxDBGridMaskColumn;
    dxDBGrid1Cust_Mobile: TdxDBGridMaskColumn;
    dxDBGrid1Cust_Fax: TdxDBGridMaskColumn;
    dxDBGrid1Cust_Bpcall: TdxDBGridMaskColumn;
    dxDBGrid1Cust_Optionalphone: TdxDBGridMaskColumn;
    dxDBGrid1Cust_Homeaddress: TdxDBGridMaskColumn;
    dxDBGrid1Cust_OfficeAddress: TdxDBGridMaskColumn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Edit4: TEdit;
    Edit5: TEdit;
    DateTimePicker1: TDateTimePicker;
    ComboBox2: TComboBox;
    memo1: TMemo;
    memo2: TMemo;
    AHMBackground2: TAHMBackground;
    AHMLabel2: TAHMLabel;
    Edit77: TEdit;
    AHMLabel3: TAHMLabel;
    Edit88: TEdit;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Panel2: TPanel;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Customer: TF_Customer;

implementation

uses dm;

{$R *.dfm}

procedure TF_Customer.SpeedButton6Click(Sender: TObject);
begin
   With MyDM.CustQuery do
   begin
      close;
      with SQL do
      begin
         clear;
         Add('select * from Customer');
         Add('where Cust_Name = :p');
      end;
      Parameters[0].Value := trim(Edit77.Text);
      Prepared;
      Open;
   end;
end;

procedure TF_Customer.SpeedButton1Click(Sender: TObject);
begin
   Edit1.Clear;
   Edit2.Clear;
   Edit3.Clear;
   ComboBox1.ItemIndex := -1;
   Edit4.Clear;
   Edit5.Clear;
   DateTimePicker1.Date;
   ComboBox2.ItemIndex := -1;
   Edit6.Clear;
   Edit7.Clear;
   Edit8.Clear;
   Edit9.Clear;
   Edit10.Clear;
   Edit11.Clear;
   memo1.Clear;
   memo2.Clear;
   Edit1.SetFocus;
end;

procedure TF_Customer.SpeedButton8Click(Sender: TObject);
begin
   With MyDM.CustQuery do
   begin
      close;
      With SQL do
      begin
         clear;
         Add('insert into Customer values(:p0,:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9,:p10,:p11,:p12,:p13,:p14,:p15)');
      end;
      Parameters[0].Value := Edit1.Text;
      Parameters[1].value := ComboBox1.text;
      Parameters[2].value := Edit4.text;
      Parameters[3].value := Edit5.Text;
      Parameters[4].value := DateTimePicker1.Date;
      Parameters[5].Value := ComboBox2.Text;
      Parameters[6].value := Edit2.Text;
      Parameters[7].value := Edit3.Text;
      Parameters[8].Value := Edit6.Text;
      Parameters[9].value := Edit7.text;
      Parameters[10].value := Edit8.text;
      Parameters[11].Value := Edit9.Text;
      Parameters[12].value := Edit10.text;
      Parameters[13].value := Edit11.text;
      Parameters[14].value := memo1.text;
      Parameters[15].value := memo2.text;
      ExecSQL;
   end;

   With MyDM.CustQuery do
   begin
      close;
      with SQL do
      begin
         clear;
         Add('select * from Customer');
      end;
      ExecSQL;
      Open;
   end;

end;

procedure TF_Customer.SpeedButton3Click(Sender: TObject);
begin

   //ShowMessage(dxDBGrid1.DataSource.DataSet.Fields[0].AsString);
   With MyDM.CustQuery do
   begin
      close;
      with SQL do
      begin
         clear;
         Add('delete from Customer');
         Add('where Cust_ID = :p');
      end;
      Parameters[0].Value := dxDBGrid1.DataSource.DataSet.Fields[0].AsString;
      ExecSQL;
   end;

   With MyDM.CustQuery do
   begin
      close;
      with SQL do
      begin
         clear;
         Add('select * from Customer');
      end;
      ExecSQL;
      Open;
   end;
end;

procedure TF_Customer.SpeedButton2Click(Sender: TObject);
begin
   Edit1.Text := dxDBGrid1.DataSource.DataSet.Fields[0].AsString;
   ComboBox1.Text := dxDBGrid1.DataSource.DataSet.Fields[1].AsString;
   Edit4.Text := dxDBGrid1.DataSource.DataSet.Fields[2].AsString;
   Edit5.Text := dxDBGrid1.DataSource.DataSet.Fields[3].AsString;
   DateTimePicker1.Date := dxDBGrid1.DataSource.DataSet.Fields[4].AsDateTime;
   ComboBox2.Text := dxDBGrid1.DataSource.DataSet.Fields[5].AsString;
   Edit2.Text := dxDBGrid1.DataSource.DataSet.Fields[6].AsString;
   Edit3.Text := dxDBGrid1.DataSource.DataSet.Fields[7].AsString;
   Edit6.Text := dxDBGrid1.DataSource.DataSet.Fields[8].AsString;
   Edit7.Text := dxDBGrid1.DataSource.DataSet.Fields[9].AsString;
   Edit8.Text := dxDBGrid1.DataSource.DataSet.Fields[10].AsString;
   Edit9.Text := dxDBGrid1.DataSource.DataSet.Fields[11].AsString;
   Edit10.Text := dxDBGrid1.DataSource.DataSet.Fields[12].AsString;
   Edit11.Text := dxDBGrid1.DataSource.DataSet.Fields[13].AsString;
   memo1.Text := dxDBGrid1.DataSource.DataSet.Fields[14].AsString;
   memo2.Text := dxDBGrid1.DataSource.DataSet.Fields[15].AsString;

end;

procedure TF_Customer.SpeedButton7Click(Sender: TObject);
begin
   With MyDM.CustQuery do
   begin
      close;
      with SQL do
      begin
         clear;
         Add('select * from Customer');
         Add('where Cust_IDcard = :p');
      end;
      Parameters[0].Value := Edit88.Text;
      Prepared;
      Open;
   end;
end;

end.