buyfrm.~pas

支持多用户有不同的权限采用MDI界面由于没有打包

unit buyfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,datamodulefrm, StdCtrls;

type
  TbuyForm = class(TForm)
    ScrollBox1: TScrollBox;
    Label38: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label61: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    Label68: TLabel;
    Label69: TLabel;
    Label70: TLabel;
    Label71: TLabel;
    Label72: TLabel;
    Label43: TLabel;
    Label73: TLabel;
    Label74: TLabel;
    Label75: TLabel;
    Label76: TLabel;
    Label80: TLabel;
    Label81: TLabel;
    Label83: TLabel;
    Label84: TLabel;
    Label85: TLabel;
    Label86: TLabel;
    Label87: TLabel;
    Label88: TLabel;
    Label89: TLabel;
    Label90: TLabel;
    Label91: TLabel;
    Label92: TLabel;
    Label93: TLabel;
    Label94: TLabel;
    Label95: TLabel;
    Label96: TLabel;
    Label97: TLabel;
    Label98: TLabel;
    Label99: TLabel;
    Label100: TLabel;
    Label101: TLabel;
    Label102: TLabel;
    Label103: TLabel;
    Label104: TLabel;
    Label105: TLabel;
    Label106: TLabel;
    Label107: TLabel;
    Label108: TLabel;
    Label109: TLabel;
    Label110: TLabel;
    Label111: TLabel;
    Label112: TLabel;
    Label113: TLabel;
    Label114: TLabel;
    Label115: TLabel;
    Label116: TLabel;
    Label117: TLabel;
    Label118: TLabel;
    Label119: TLabel;
    Label120: TLabel;
    Label121: TLabel;
    Label122: TLabel;
    Label123: TLabel;
    Label124: TLabel;
    Edit8010: TEdit;
    Edit8020: TEdit;
    Edit8030: TEdit;
    Edit8040: TEdit;
    Edit8050: TEdit;
    Edit8060: TEdit;
    Edit8070: TEdit;
    Edit8080: TEdit;
    Edit8090: TEdit;
    Edit8100: TEdit;
    Edit8110: TEdit;
    Edit8120: TEdit;
    Edit8130: TEdit;
    Edit8140: TEdit;
    Edit8150: TEdit;
    Edit8160: TEdit;
    Edit8170: TEdit;
    Edit8180: TEdit;
    Edit8190: TEdit;
    Edit8200: TEdit;
    Edit8210: TEdit;
    Edit8220: TEdit;
    Edit8230: TEdit;
    Edit8240: TEdit;
    Edit8250: TEdit;
    Edit8260: TEdit;
    Edit8270: TEdit;
    Edit8290: TEdit;
    Edit8310: TEdit;
    Edit8330: TEdit;
    Edit8350: TEdit;
    Edit8280: TEdit;
    Edit8300: TEdit;
    Edit8320: TEdit;
    Edit8340: TEdit;
    Edit8360: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  buyForm: TbuyForm;

implementation

{$R *.dfm}

procedure TbuyForm.Button1Click(Sender: TObject);
var
  nostr:string;
  y,m,d:word;
  sqlstr:string;
begin
with datamodule2 do
begin
 buytable.Append;
 buytable.FieldByName('no').AsString:=inputtable.Fields[0].AsString;
 buytable.Fields[1].AsString:=edit8010.Text;
 buytable.Fields[2].AsString:=edit8020.Text;
 buytable.Fields[3].AsString:=edit8030.Text;
 buytable.Fields[4].AsString:=edit8040.Text;
 buytable.Fields[5].AsString:=edit8050.Text;
 buytable.Fields[6].AsString:=edit8060.Text;
 buytable.Fields[7].AsString:=edit8070.Text;
 buytable.Fields[8].AsString:=edit8080.Text;
 buytable.Fields[9].AsString:=edit8090.Text;
 buytable.Fields[10].AsString:=edit8100.Text;
 buytable.Fields[11].AsString:=edit8110.Text;
 buytable.Fields[12].AsString:=edit8120.Text;
 buytable.Fields[13].AsString:=edit8130.Text;
 buytable.Fields[14].AsString:=edit8140.Text;
 buytable.Fields[15].AsString:=edit8150.Text;
 buytable.Fields[16].AsString:=edit8160.Text;
 buytable.Fields[17].AsString:=edit8170.Text;
 buytable.Fields[18].AsString:=edit8180.Text;
 buytable.Fields[19].AsString:=edit8190.Text;
 buytable.Fields[20].AsString:=edit8200.Text;
 buytable.Fields[21].AsString:=edit8210.Text;
 buytable.Fields[22].AsString:=edit8220.Text;
 buytable.Fields[23].AsString:=edit8230.Text;
 buytable.Fields[24].AsString:=edit8240.Text;
 buytable.Fields[25].AsString:=edit8250.Text;
 buytable.Fields[26].AsString:=edit8260.Text;
 buytable.Fields[27].AsString:=edit8270.Text;
 buytable.Fields[28].AsString:=edit8280.Text;
 buytable.Fields[29].AsString:=edit8290.Text;
 buytable.Fields[30].AsString:=edit8300.Text;
 buytable.Fields[31].AsString:=edit8310.Text;
 buytable.Fields[32].AsString:=edit8320.Text;
 buytable.Fields[33].AsString:=edit8330.Text;
 buytable.Fields[34].AsString:=edit8340.Text;
 buytable.Fields[35].AsString:=edit8350.Text;
 buytable.Fields[36].AsString:=edit8360.Text;
 buytable.Post;
 bargaintable.Append;
 nostr:=inputtable.Fields[0].AsString;
 bargaintable.Fields[1].AsString:=nostr;
 bargaintable.Fields[2].AsString:=datetostr(date);
 bargaintable.Fields[3].AsString:=inputtable.Fields[1].AsString;
 bargaintable.Fields[4].AsString:=inputtable.Fields[2].AsString;
 bargaintable.Fields[5].value:=inputtable.Fields[3].Value;
 bargaintable.Fields[6].value:=inputtable.Fields[4].Value;
 bargaintable.Fields[7].value:=inputtable.Fields[5].Value;
 bargaintable.Fields[8].value:=inputtable.Fields[6].Value;
 bargaintable.Fields[9].value:=inputtable.Fields[7].Value;
 bargaintable.Fields[10].value:=inputtable.Fields[8].Value;
 bargaintable.Fields[11].value:=inputtable.Fields[9].Value;
 bargaintable.Fields[12].value:=inputtable.Fields[10].Value;
 bargaintable.Fields[13].value:=inputtable.Fields[11].Value;
 bargaintable.Fields[14].value:=inputtable.Fields[12].Value;
 bargaintable.Fields[15].value:=inputtable.Fields[13].Value;
 bargaintable.Fields[16].value:=inputtable.Fields[14].Value;
 bargaintable.Fields[17].value:=inputtable.Fields[15].Value;
 bargaintable.Fields[18].value:=inputtable.Fields[16].Value;
 bargaintable.Fields[19].value:=inputtable.Fields[17].Value;
 bargaintable.Fields[20].value:=inputtable.Fields[18].Value;
 bargaintable.Fields[21].value:=inputtable.Fields[19].Value;
 bargaintable.Fields[22].value:=inputtable.Fields[20].Value;
 bargaintable.Fields[23].value:=inputtable.Fields[21].Value;
 bargaintable.Fields[24].value:=inputtable.Fields[22].Value;
 bargaintable.Fields[25].value:=inputtable.Fields[23].Value;
 bargaintable.Fields[26].value:=inputtable.Fields[24].Value;
 bargaintable.Fields[27].value:=inputtable.Fields[25].Value;
 bargaintable.Fields[28].value:=inputtable.Fields[26].Value;
 bargaintable.Fields[29].value:=inputtable.Fields[27].Value;
 bargaintable.Fields[30].value:=inputtable.Fields[28].Value;
 bargaintable.Fields[31].value:=inputtable.Fields[29].Value;
 bargaintable.Fields[32].value:=inputtable.Fields[30].Value;
 bargaintable.Fields[33].value:=inputtable.Fields[31].Value;
 bargaintable.Fields[34].value:=inputtable.Fields[32].Value;
 bargaintable.Fields[35].value:=inputtable.Fields[33].Value;
 bargaintable.Fields[36].value:=inputtable.Fields[34].Value;
 bargaintable.Fields[37].value:=inputtable.Fields[35].Value;
 bargaintable.Fields[38].value:=inputtable.Fields[36].Value;
 bargaintable.Fields[39].value:=inputtable.Fields[37].Value;
 bargaintable.Fields[40].value:=inputtable.Fields[38].Value;
 bargaintable.Fields[41].value:=inputtable.Fields[39].Value;
 bargaintable.Fields[42].value:=inputtable.Fields[40].Value;
 bargaintable.Fields[43].value:=inputtable.Fields[41].Value;
 bargaintable.Fields[44].value:=inputtable.Fields[42].Value;
 bargaintable.Fields[45].value:=inputtable.Fields[43].Value;
 bargaintable.Fields[46].value:=inputtable.Fields[44].Value;
 bargaintable.Post;
 bargaintable.Close;
 bargaintable.open;
 bargaintable.Last;
 decodedate(date,y,m,d);
countquery.Close;
countquery.SQL.Clear;
countquery.SQL.Add('select * from count where 年份=:y and 月份=:m');
countquery.ParamByName('y').Value:=y;
countquery.ParamByName('m').Value:=m;
countquery.Open;
if countquery.recordcount<>0 then
   begin
      countquery.Close;
      countquery.SQL.Clear;
      sqlstr:='insert count(交易类型,年份,月份,套数) value('
      countquery.SQL.Add('insert count(交易类型,年份,月份,套数) value(';
   end
else


 //inputtable.Delete;

end;
end;

end.