unit321.pas

本系统是SQL SERVER的管理系统

unit Unit321;

interface

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

type
  TForm321 = class(TForm)
    GroupBox1: TGroupBox;
    epEfTrBtn1: TepEfTrBtn;
    epEfTrBtn2: TepEfTrBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    FlatComboBox1: TFlatComboBox;
    sncCurrencyEdit1: TsncCurrencyEdit;
    sncCurrencyEdit2: TsncCurrencyEdit;
    sncCurrencyEdit3: TsncCurrencyEdit;
    sncCurrencyEdit4: TsncCurrencyEdit;
    sncCurrencyEdit5: TsncCurrencyEdit;
    sncCurrencyEdit6: TsncCurrencyEdit;
    epEfTrBtn3: 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;
    FlatEdit1: TFlatEdit;
    FlatEdit2: TFlatEdit;
    FlatEdit3: TFlatEdit;
    FlatEdit4: TFlatEdit;
    FlatEdit5: TFlatEdit;
    FlatEdit6: TFlatEdit;
    FlatEdit7: TFlatEdit;
    FlatEdit8: TFlatEdit;
    FlatEdit9: TFlatEdit;
    FlatEdit10: TFlatEdit;
    FlatEdit11: TFlatEdit;
    FlatEdit12: TFlatEdit;
    FlatEdit13: TFlatEdit;
    FlatEdit14: TFlatEdit;
    FlatEdit15: TFlatEdit;
    epEfTrBtn4: TepEfTrBtn;
    procedure epEfTrBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatComboBox1Enter(Sender: TObject);
    procedure epEfTrBtn4Click(Sender: TObject);
    procedure epEfTrBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure epEfTrBtn1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form321: TForm321;

implementation

uses Unit32, cardata;

{$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 TForm321.epEfTrBtn2Click(Sender: TObject);
begin
form321.release;
 form32.enabled:=true;
end;

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

procedure TForm321.FlatComboBox1Enter(Sender: TObject);
begin
 with data.salequery1 do
 begin
 close;
 sql.clear;
 sql.add('select * from sale');
 sql.add('where salesell=false');
 prepare;
 open;
end;
 flatcombobox1.Items.clear;
with data.salequery1 do
begin
first;
while not eof do
begin
flatcombobox1.items.add(fieldbyname('comno').asstring);
next;
end;
end;
end;

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

procedure TForm321.epEfTrBtn3Click(Sender: TObject);
begin
if flatcombobox1.text='' then
begin
showmessage('请选择要查看基本资料的合同号');
end
else
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;
form321.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='+''''+flatcombobox1.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;
end;

procedure TForm321.FormShow(Sender: TObject);
begin
groupbox2.Hide;
 snccurrencyedit1.Value:=0;
 snccurrencyedit2.Value:=0;
 snccurrencyedit3.Value:=0;
 snccurrencyedit4.Value:=0;
 snccurrencyedit5.Value:=0;
 snccurrencyedit6.Value:=0;
end;

procedure TForm321.epEfTrBtn1Click(Sender: TObject);
var i:integer;
begin
i:=1;
if flatcombobox1.text='' then
begin
showmessage('请选择要登记的合同号');
end
else
begin
with data.profittable do
begin
first;
while not eof  do
begin
if fieldbyname('comno').asstring=flatcombobox1.text then
begin
i:=2;
end;
next;
end;
end;
if i=2 then
begin
showmessage('已经有这个合同的销售利润');
end
else
begin
data.database.StartTransaction;
with data.profittable do
begin
insert;
fieldbyname('comno').asstring:=flatcombobox1.Text;
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;
with data.saleTable do
begin
first;
while not eof do
begin
if fieldbyname('comno').asstring=flatcombobox1.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('合同:('+flatcombobox1.text+')登记完成');

end;
end;
end;

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

end.