unit322.pas

本系统是SQL SERVER的管理系统

unit Unit322;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, TFlatEditUnit, sncCurrency, VCLBase, EffBtns,shellapi;

type
  TForm322 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    epEfTrBtn3: TepEfTrBtn;
    sncCurrencyEdit1: TsncCurrencyEdit;
    sncCurrencyEdit2: TsncCurrencyEdit;
    sncCurrencyEdit3: TsncCurrencyEdit;
    sncCurrencyEdit4: TsncCurrencyEdit;
    sncCurrencyEdit5: TsncCurrencyEdit;
    sncCurrencyEdit6: TsncCurrencyEdit;
    epEfTrBtn1: TepEfTrBtn;
    epEfTrBtn2: TepEfTrBtn;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    GroupBox3: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    epEfTrBtn4: TepEfTrBtn;
    FlatEdit8: TFlatEdit;
    FlatEdit9: TFlatEdit;
    FlatEdit10: TFlatEdit;
    FlatEdit11: TFlatEdit;
    FlatEdit12: TFlatEdit;
    FlatEdit13: TFlatEdit;
    FlatEdit14: TFlatEdit;
    FlatEdit15: TFlatEdit;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    FlatEdit3: TFlatEdit;
    FlatEdit4: TFlatEdit;
    FlatEdit5: TFlatEdit;
    FlatEdit6: TFlatEdit;
    FlatEdit7: TFlatEdit;
    FlatEdit16: TFlatEdit;
    procedure epEfTrBtn3Click(Sender: TObject);
    procedure epEfTrBtn4Click(Sender: TObject);
    procedure epEfTrBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure epEfTrBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form322: TForm322;

implementation

uses cardata, Unit32;

{$R *.DFM}

procedure helpcarsale(var key:word); {显示帮助文件}
var shelpfile:string;
begin
if key=vk_f1 then
begin
 sHelpFile:=ExtractFilePath(Application.ExeName)+'cardata\carsale.chm';
ShellExecute(0,'open',pchar(shelpfile),nil,nil,SW_SHOWNORMAL);
end;

end;

procedure TForm322.epEfTrBtn3Click(Sender: TObject);
begin
flatedit1.text:='';
flatedit2.text:='';
flatedit3.text:='';
flatedit4.text:='';
flatedit5.text:='';
flatedit6.text:='';
flatedit7.text:='';
flatedit8.text:='';
flatedit9.text:='';
flatedit10.text:='';
flatedit11.text:='';
flatedit12.text:='';
flatedit13.text:='';
flatedit14.text:='';
flatedit15.text:='';
groupbox1.hide;
form322.height:=308;
groupbox2.show;
epeftrbtn1.hide;
epeftrbtn2.hide;
with data.salequery1 do
begin
close;
sql.clear;
sql.add('select sale.*,repertory.* from sale,repertory,repsa');
sql.add('where sale.comno=repsa.comno and repsa.number=repertory.number and sale.comno='+''''+flatedit16.text+'''');
prepare;
open;
flatedit1.text:=fieldbyname('comno').asstring;
flatedit2.text:=fieldbyname('cname').asstring;
flatedit3.text:=fieldbyname('nameno').asstring;
flatedit4.text:=fieldbyname('address').asstring;
flatedit5.text:=fieldbyname('carno').asstring;
flatedit6.text:=fieldbyname('tel').asstring;
flatedit7.text:=DateTimeToStr(fieldbyname('saledate').value);
flatedit8.text:=fieldbyname('number').asstring;
flatedit9.text:=fieldbyname('chassis').asstring;
flatedit10.text:=fieldbyname('motor').asstring;
flatedit11.text:=fieldbyname('spring').asstring;
flatedit12.text:=fieldbyname('cmemo').asstring;
flatedit13.text:=fieldbyname('cartype').asstring;
flatedit14.text:=fieldbyname('color').asstring;
flatedit15.text:=DateTimeToStr(fieldbyname('cdate').value);




end;
end;

procedure TForm322.epEfTrBtn4Click(Sender: TObject);
begin
groupbox1.show;
 epeftrbtn1.show;
 epeftrbtn2.show;
groupbox2.Hide;
form322.height:=207;
end;

procedure TForm322.epEfTrBtn2Click(Sender: TObject);
begin
form32.enabled:=true;
form322.Release;
end;

procedure TForm322.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form32.enabled:=true;
form322.free;
end;

procedure TForm322.epEfTrBtn1Click(Sender: TObject);
begin
 data.database.StartTransaction;
with data.profittable do
begin
first;
while not eof do
begin
if fieldbyname('comno').asstring=flatedit16.text then
begin
edit;
fieldbyname('salepr').value:=snccurrencyedit1.value;
 fieldbyname('putpr').value:=snccurrencyedit3.value;
 fieldbyname('loadpr').value:=snccurrencyedit2.value;
 fieldbyname('otherpr').value:=snccurrencyedit4.value;
  fieldbyname('passmon').value:=snccurrencyedit5.value;
 fieldbyname('salemon').value:=snccurrencyedit6.value;
 post;
 end;
 next;
end;
end;
with data.saleTable do
begin
first;
while not eof do
begin
if fieldbyname('comno').asstring=flatedit16.text then
begin
edit;
fieldbyname('salesell').value:=true;
fieldbyname('sell').value:=false;
post;
end;
next;
end;
end;
data.Database.commit;
with data.profitQuery do
begin
close;
sql.clear;
sql.add('select * from profit');
prepare;
open;
end;
showmessage('合同:('+flatedit16.text+')修改完成');
form32.enabled:=true;
form322.Release;

end;

procedure TForm322.FormShow(Sender: TObject);
begin
groupbox2.Hide;
end;

procedure TForm322.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
helpcarsale(key);
end;

end.