unit8.pas

来自「发票套打功能」· PAS 代码 · 共 270 行

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, ComCtrls, ToolWin, ExtCtrls, Grids, DBGrids;

type
  TForm8 = class(TForm)
    palUp: TPanel;
    palLeftUp: TPanel;
    imgGrayLeftUp: TImage;
    imgColorLeftUp: TImage;
    imgLeftUp: TImage;
    imgSysIcon: TImage;
    imgLeftUp1: TImage;
    palRightUp: TPanel;
    imgGrayRightUp: TImage;
    imgRestoreButton: TImage;
    imgMaxButton: TImage;
    imgRightUp: TImage;
    imgCloseButton: TImage;
    imgMinButton: TImage;
    imgSizeButton: TImage;
    imgColorRightUp: TImage;
    imgRightUp1: TImage;
    palUpMid: TPanel;
    imgColorMenubar: TImage;
    imgGrayCaption: TImage;
    imgGrayMenuBar: TImage;
    imgCaption: TImage;
    lbCaption: TLabel;
    imgColorCaption: TImage;
    CoolBarMenu: TCoolBar;
    ToolBarMenu: TToolBar;
    palDown: TPanel;
    imgLeftDown: TImage;
    imgRightDown: TImage;
    imgDownMin: TImage;
    palLeft: TPanel;
    imgLeft: TImage;
    palRight: TPanel;
    imgRight: TImage;
    palClient: TPanel;
    GroupBox1: TGroupBox;
    ZFXS: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit7: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Button5: TButton;
    Button6: TButton;
    procedure imgCloseButtonClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    procedure Select(SelStr: String);
    { Private declarations }
  public
     RAD: String ;
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation
uses Unit3;
{$R *.dfm}

procedure TForm8.imgCloseButtonClick(Sender: TObject);
begin
  close ;
end;

procedure TForm8.Button1Click(Sender: TObject);
begin
  with CustomerData do
  begin
    ADOQuery2.Close ;
    ADOQuery2.SQL.Clear ;
    ADOQuery2.SQL.Add('insert into HJGL(企业名称,企业地址,纳税认定,企业编码,'+
      '联系电话,联系人) values(:QYMC, :QYDZ, :LXDZ, :QYBM, :LXDH, :LXR)') ;
    ADOQuery2.Parameters.ParamByName('QYMC').Value := edit1.Text ;
    ADOQuery2.Parameters.ParamByName('QYDZ').Value := edit2.Text ;
    ADOQuery2.Parameters.ParamByName('LXDZ').Value := edit3.Text ;
    ADOQuery2.Parameters.ParamByName('QYBM').Value := edit4.Text ;
    ADOQuery2.Parameters.ParamByName('LXDH').Value := edit5.Text ;
    ADOQuery2.Parameters.ParamByName('LXR').Value := edit6.Text ;
    ADOQuery2.ExecSQL ;
    ADOQuery2.Close ;    
    ADOQuery2.SQL.Clear ;
    ADOQuery2.SQL.Add('Select * from HJGL') ;
    ADOQuery2.Open ;
  end ;
  Application.MessageBox('保存成功 ', '提示', MB_OK + MB_ICONINFORMATION);
  edit1.Clear ;
  edit2.Clear ;
  edit3.Clear ;
  edit4.Clear ;
  edit5.Clear ;
  edit6.Clear ;
end;

procedure TForm8.FormShow(Sender: TObject);
begin
  with CustomerData do
  begin
    ADOQuery2.Close ;
    ADOQuery2.SQL.Clear ;
    ADOQuery2.SQL.Add('select * from HJGL') ;
    ADOQuery2.Open ;
  end;
end;

procedure TForm8.Button5Click(Sender: TObject);
begin
  with CustomerData do
  begin
    ADOQuery2.Close ;
    ADOQuery2.SQL.Clear ;
    ADOQuery2.SQL.Add('select * from HJGL') ;
    ADOQuery2.Open ;
  end;
end;

procedure TForm8.Button2Click(Sender: TObject);
begin
  with CustomerData do
  begin
    ADOQuery2.SQL.Clear ;
    ADOQuery2.SQL.Add('Select * from HJGL Where 企业名称 = :QYMC ') ;
    ADOQuery2.Parameters.ParamByName('QYMC').Value := edit1.text ;
    ADOQuery2.Open ;
    if ADOQuery2.Recordset.RecordCount > 0 then
    begin
      edit1.Text := ADOQuery2.Fields.Fields[0].AsString ;
      edit2.Text := ADOQuery2.Fields.Fields[1].AsString ;
      edit3.Text := ADOQuery2.Fields.Fields[2].AsString ;
      edit4.Text := ADOQuery2.Fields.Fields[3].AsString ;
      edit5.Text := ADOQuery2.Fields.Fields[4].AsString ;
      edit6.Text := ADOQuery2.Fields.Fields[5].AsString ;
      Edit1.SetFocus ;
    end;
  end;
  Button6.Enabled := true ;
  Button2.Enabled := false ;
  edit1.ReadOnly := true ;
end;

procedure TForm8.DBGrid1CellClick(Column: TColumn);
begin
  if DBGrid1.DataSource.DataSet.RecordCount > 0 then
  begin
    edit1.Text := DBGrid1.DataSource.DataSet.FieldValues['企业名称'] ;
    RAD :=  DBGrid1.DataSource.DataSet.FieldValues['企业名称'] ;
  end;
end;

procedure TForm8.Button6Click(Sender: TObject);
begin
  with CustomerData do
  begin
    ADOquery2.SQL.Clear ;
    ADOQuery2.SQL.Add('UpDate HJGL Set 企业地址=:QYDZ,纳税认定=:LXDZ,企业编码=:QYBM,'+
      '联系电话=:LXDH,联系人=:LXR where 企业名称 = :QYMC') ;
    ADOQuery2.Parameters.ParamByName('QYMC').Value := edit1.Text ;
    ADOQuery2.Parameters.ParamByName('QYDZ').Value := edit2.Text;
    ADOQuery2.Parameters.ParamByName('LXDZ').Value := edit3.Text;
    ADOQuery2.Parameters.ParamByName('QYBM').Value := edit4.Text ;
    ADOQuery2.Parameters.ParamByName('LXDH').Value := edit5.Text;
    ADOQuery2.Parameters.ParamByName('LXR').Value := edit6.Text;
    ADOQuery2.ExecSQL ;
    ADOQuery2.SQL.Clear ;
    ADOQuery2.SQL.Add('Select * from HJGL') ;
    ADOQuery2.Open ;
  end;
  Button2.Enabled := true ;
  Button6.Enabled := false ;
  edit1.ReadOnly := false ;
  Application.MessageBox('修改成功', '提示', MB_OK + MB_ICONINFORMATION);
  edit1.Clear ;
  edit2.Clear ;
  edit3.Clear ;
  edit4.Clear ;
  edit5.Clear ;
  edit6.Clear ;
end;

procedure TForm8.Button3Click(Sender: TObject);
begin
  with CustomerData do
  begin
    ADOQuery2.SQL.Clear ;
    ADOQuery2.SQL.Add('Delete from HJGL Where 企业名称 =:QYMC ') ;
    if RAD ='' then
    begin
      Application.MessageBox('请先选择数据 ', '提示', MB_OK + MB_ICONINFORMATION);
      exit ;
    end;
    ADOQuery2.Parameters.ParamByName('QYMC').Value := RAD ;
    RAD := '' ;
    ADOQuery2.ExecSQL ;
    ADOQuery2.SQL.Clear ;
    ADOQuery2.SQL.Add('select * from HJGL') ;
    ADOQuery2.Open ;
    Application.MessageBox('删除成功', '提示', MB_OK + MB_ICONINFORMATION);
  end;
end;

procedure TForm8.Button4Click(Sender: TObject);
begin
  if Edit7.Text ='' then
  begin
    Application.MessageBox('请输入查询条件', '提示', MB_OK + MB_ICONINFORMATION);
    Exit ;
  end;
  if RadioButton1.Checked then
  begin
    Select('企业名称') ;
  end;
  if RadioButton2.Checked then
  begin
    Select('企业编码') ;
  end;
  if RadioButton3.Checked then
  begin
    Select('企业地址') ;
  end;
end;
procedure TForm8.Select(SelStr :String);
begin
try
  with CustomerData do
  begin
    ADOQuery2.SQL.Clear ;
    ADOQuery2.SQL.Add('select * from HJGL where '+selstr+'= :SQL ') ;
    ADOQuery2.Parameters.ParamByName('SQL').Value := Edit7.Text ;
    ADOQuery2.Open ;
  end;
except
  Application.MessageBox('没有找到记录 ', '提示', MB_OK + MB_ICONWARNING);
end;
end;
end.