modify.~pas

一个小型的酒店管理系统

unit Modify;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Buttons, DBActns, ActnList, StdCtrls, DBCtrls, Mask,
  Grids, DBGrids, ComCtrls;

type
  TModiFrm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label4: TLabel;
    Label7: TLabel;
    Edit7: TEdit;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    SpeedButton2: TSpeedButton;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    GroupBox3: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    SpeedButton3: TSpeedButton;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit6: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ModiFrm: TModiFrm;
  ConnTime,PName,PPosition,Tel,News,Note,StaPerson: string;
  ConnTime1,PName1,PPosition1,Tel1,News1,Note1,StaPerson1: string;
implementation

{$R *.dfm}

procedure TModiFrm.DBGrid1CellClick(Column: TColumn);
begin
  Edit1.Text := DBGrid1.DataSource.DataSet.Fields[0].Value;
  Edit2.Text := DBGrid1.DataSource.DataSet.Fields[1].Value;
  Edit3.Text := DBGrid1.DataSource.DataSet.Fields[2].Value;
  Edit4.Text := DBGrid1.DataSource.DataSet.Fields[3].Value;
  Edit5.Text := DBGrid1.DataSource.DataSet.Fields[4].Value;
  ComboBox1.Text := DBGrid1.DataSource.DataSet.Fields[5].Value;
  Edit7.Text := DBGrid1.DataSource.DataSet.Fields[6].Value;
  ConnTime := DBGrid1.DataSource.DataSet.Fields[0].Value;
  PName := DBGrid1.DataSource.DataSet.Fields[1].Value;
  PPosition := DBGrid1.DataSource.DataSet.Fields[2].Value;
  Tel := DBGrid1.DataSource.DataSet.Fields[3].Value;
  News := DBGrid1.DataSource.DataSet.Fields[4].Value;
  Note := DBGrid1.DataSource.DataSet.Fields[5].Value;
  StaPerson := DBGrid1.DataSource.DataSet.Fields[6].Value;
end;

procedure TModiFrm.SpeedButton1Click(Sender: TObject);
var
  sql: string;
begin
  sql := 'update HHMain set ConnTime='''+Edit1.Text+''',PName='''+Edit2.Text+''',PPosition='''+Edit3.Text+''',Tel='''+Edit4.Text+''',News='''+Edit5.Text+''',Note='''+ComboBox1.Text+''',StaPerson='''+Edit7.Text+''' where ConnTime=:ConnTime and PName=:PName and PPosition=:PPosition and Tel=:Tel and News=:News and Note=:Note and StaPerson=:StaPerson';
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add(sql);
  ADOQuery1.Parameters.ParamByName('ConnTime').Value := ConnTime;
  ADOQuery1.Parameters.ParamByName('PName').Value := PName;
  ADOQuery1.Parameters.ParamByName('PPosition').Value := PPosition;
  ADOQuery1.Parameters.ParamByName('Tel').Value := Tel;
  ADOQuery1.Parameters.ParamByName('News').Value := News;
  ADOQuery1.Parameters.ParamByName('Note').Value := Note;
  ADOQuery1.Parameters.ParamByName('StaPerson').Value := StaPerson;
  ADOQuery1.ExecSQL;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select ConnTime as 联系时间,PName as 姓名,PPosition as 职务,Tel as 电话,News as 动态,Note as 批注,StaPerson as 统计人 from HHMain order by ConnTime desc');
  ADOQuery1.Open;
end;

procedure TModiFrm.SpeedButton3Click(Sender: TObject);
var
  sql: string;
begin
  sql := 'select ConnTime as 联系时间,PName as 姓名,PPosition as 职务,Tel as 电话,News as 动态,Note as 批注,StaPerson as 统计人 from HHMain where ';
  if trim(Edit13.Text)<>'' then
    sql := sql + ' ConnTime='+Quotedstr(Edit13.Text)+' and ';
  if trim(Edit14.Text)<>'' then
    sql := sql + ' PName='+Quotedstr(Edit14.Text)+' and ';
  if trim(Edit15.Text)<>'' then
    sql := sql + ' PPosition='+Quotedstr(Edit15.Text)+' and ';
  if trim(Edit16.Text)<>'' then
    sql := sql + ' Tel='+Quotedstr(Edit16.Text)+' and ';
  if trim(Edit17.Text)<>'' then
    sql := sql + ' News='+Quotedstr(Edit17.Text)+' and ';
  if trim(ComboBox2.Text)<>'' then
    sql := sql + ' Note='+Quotedstr(ComboBox2.Text)+' and ';
  if trim(Edit18.Text)<>'' then
    sql := sql + ' StaPerson='+Quotedstr(Edit18.Text)+' and ';
  sql := sql+'1=1 order by ConnTime desc';
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add(sql);
  ADOQuery2.Open;

end;

procedure TModiFrm.DBGrid2CellClick(Column: TColumn);
begin
  Edit6.Text := DBGrid2.DataSource.DataSet.Fields[0].Value;
  Edit8.Text := DBGrid2.DataSource.DataSet.Fields[1].Value;
  Edit9.Text := DBGrid2.DataSource.DataSet.Fields[2].Value;
  Edit10.Text := DBGrid2.DataSource.DataSet.Fields[3].Value;
  Edit11.Text := DBGrid2.DataSource.DataSet.Fields[4].Value;
  ComboBox3.Text := DBGrid2.DataSource.DataSet.Fields[5].Value;
  Edit12.Text := DBGrid2.DataSource.DataSet.Fields[6].Value;
  ConnTime1 := DBGrid2.DataSource.DataSet.Fields[0].Value;
  PName1 := DBGrid2.DataSource.DataSet.Fields[1].Value;
  PPosition1 := DBGrid2.DataSource.DataSet.Fields[2].Value;
  Tel1 := DBGrid2.DataSource.DataSet.Fields[3].Value;
  News1 := DBGrid2.DataSource.DataSet.Fields[4].Value;
  Note1 := DBGrid2.DataSource.DataSet.Fields[5].Value;
  StaPerson1 := DBGrid2.DataSource.DataSet.Fields[6].Value;
end;

procedure TModiFrm.SpeedButton2Click(Sender: TObject);
var
  sql: string;
begin
  sql := 'update HHMain set ConnTime='''+Edit6.Text+''',PName='''+Edit8.Text+''',PPosition='''+Edit9.Text+''',Tel='''+Edit10.Text+''',News='''+Edit11.Text+''',Note='''+ComboBox3.Text+''',StaPerson='''+Edit12.Text+''' where ConnTime=:ConnTime and PName=:PName and PPosition=:PPosition and Tel=:Tel and News=:News and Note=:Note and StaPerson=:StaPerson';
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add(sql);
  ADOQuery2.Parameters.ParamByName('ConnTime').Value := ConnTime1;
  ADOQuery2.Parameters.ParamByName('PName').Value := PName1;
  ADOQuery2.Parameters.ParamByName('PPosition').Value := PPosition1;
  ADOQuery2.Parameters.ParamByName('Tel').Value := Tel1;
  ADOQuery2.Parameters.ParamByName('News').Value := News1;
  ADOQuery2.Parameters.ParamByName('Note').Value := Note1;
  ADOQuery2.Parameters.ParamByName('StaPerson').Value := StaPerson1;
  ADOQuery2.ExecSQL;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select ConnTime as 联系时间,PName as 姓名,PPosition as 职务,Tel as 电话,News as 动态,Note as 批注,StaPerson as 统计人 from HHMain order by ConnTime desc');
  ADOQuery2.Open;
end;

end.